为编程爱好者分享易语言教程源码的资源网
三叶资源网官方③群:33301895 网络创业点子 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 网络创业点子 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 易语言相关 网络相关源码 正文

易语言POST原希网源码

三叶资源网 2013-05-17 网络相关源码 162 ℃ 0 评论

程序调用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)  ' 可以根据您的需要返回任意数值


文件下载

Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网官方③群:三叶资源网官方③群

网站分类
随机tag
易语言常见错误关键词采集独立cookies调用AIQQ源码服务器组件鼠标离开悬停微博引流软件吃鸡泰服矩阵迅雷网站登录机构信号量易包模式吃鸡辅助群控模拟器图片拼接编码转换界面引擎
最新评论