为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

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

易语言POST原希网源码

三叶资源网 2013-05-17 网络相关源码 141 ℃ 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

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

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
虎牙登录源码魔鬼作坊仓库管理系统office2019激活服务器组件FlashFXP易语言资源网聊天工具Unicode微信图片数据解密图片切割Windows Shell软件特效进程隐藏GDIPlussocket5e2ee支持库引流易语言支持库qq消息群发
最新评论