.版本 2 .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行 .局部变量 dll, 字节集 .局部变量 hm, 整数型 .局部变量 数据, 文本型 .局部变量 csrfmiddlewaretoken, 文本型 .局部变量 identification, 文本型 .局部变量 password, 文本型 .局部变量 result_tb, 中间文本, , "0" .局部变量 result_tr, 中间文本, , "0" .局部变量 rrs, 文本型, , "0" .局部变量 次数, 整数型 dll ＝ 读入文件 (读环境变量 (“windir”) ＋ “\system32\wininet.dll”) hm ＝ LoadMemLibrary (取字节集指针 (dll)) InternetOpen ＝ GetMemProcAddress (hm, “InternetOpenA”) InternetConnect ＝ GetMemProcAddress (hm, “InternetConnectA”) InternetCloseHandle ＝ GetMemProcAddress (hm, “InternetCloseHandle”) HttpOpenRequest ＝ GetMemProcAddress (hm, “HttpOpenRequestA”) HttpSendRequest ＝ GetMemProcAddress (hm, “HttpSendRequestA”) InternetReadFile ＝ GetMemProcAddress (hm, “InternetReadFile”) .循环判断首 () 数据 ＝ 到文本 (读取网页源码 (“http://www.pubyun.com/accounts/signin/”)) csrfmiddlewaretoken ＝ 取中间文本 (数据, “name=*csrfmiddlewaretoken* value=*”, “* /”) 标准输出 (, “请输入pubyun帐号：”) identification ＝ 标准输入 () 标准输出 (, “请输入pubyun密码：”) password ＝ 标准输入 () 读取网页源码 (“http://www.pubyun.com/accounts/signin/”, “csrfmiddlewaretoken=” ＋ csrfmiddlewaretoken ＋ “&identification=” ＋ identification ＋ “&password=” ＋ password) 数据 ＝ 到文本 (读取网页源码 (“http://www.pubyun.com/user/”)) .循环判断尾 (寻找文本 (数据, “绠＄悊棣栭〉”, , 假) ＝ -1) 标准输出 (, “域名列表” ＋ #换行符 ＋ “ 域名 域名类型 I P ” ＋ #换行符) 取中间文本 (数据, “<tr>”, “</tr>”, result_tb) .计次循环首 (取数组成员数 (result_tb), 次数) 数据 ＝ result_tb [次数].文本 取中间文本 (数据, “<td”, “</td>”, result_tr) 标准输出 (, 文本居中对齐 (取中间文本 (result_tr [1].文本, “/” ＋ #引号 ＋ “>”, “<”), 24) ＋ “ ” ＋ 取文本右边 (去文本空格换行 (Utf8转Ansi (到字节集 (result_tr [2].文本))), 8) ＋ “ ” ＋ 文本居中对齐 (取文本右边 (result_tr [3].文本, 取文本长度 (result_tr [3].文本) － 1), 15) ＋ #换行符) 加入成员 (rrs, “http://www.pubyun.com” ＋ 取中间文本 (result_tr [1].文本, “href=” ＋ #引号, #引号)) .计次循环尾 () .循环判断首 () 标准输出 (, “输入要更新IP的域名的序号：”) 次数 ＝ 到数值 (标准输入 ()) .循环判断尾 (次数 ＝ 0) 读取网页源码 (rrs [次数], “ftype=1&issetpass=0&csrfmiddlewaretoken=” ＋ csrfmiddlewaretoken ＋ “&password=&ip=” ＋ 去文本空格换行 (到文本 (读取网页源码 (“http://ip.3322.net/”))) ＋ “&mx=&postbtn=%E4%BF%AE%E6%94%B9%E5%8A%A8%E6%80%81%E5%9F%9F%E5%90%8D”, rrs [次数]) 标准输出 (, “更新成功,按任意键退出”) 读取网页源码 (“http://www.pubyun.com/accounts/signout/”) FreeMemLibrary (hm) 标准输入 () 返回 (0) ' 可以根据您的需要返回任意数值