易语言POST原希网源码

程序调用API函数实现POST原希网功能。

.版本 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)  ' 可以根据您的需要返回任意数值