為編程愛好者分享易語言教程源碼的資源網
挂機,挂機器人服務器88一年 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 每日必買商品
注冊機|遊戲腳本|透視輔助|視頻教程 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 挂機,挂機器人服務器88一年
易語言|按鍵精靈|app逆向|微信hook 收QQ協議|PC協議|安卓協議 收購QQ通訊協議|點擊聯系 收PCQQ協議|安卓QQ協議|聯系我 收易語言QQ協議|你有就找我 A全站文字廣告,誠邀與您合作

網站首頁 易語言相關 網絡相關源碼 正文

易語言POST原希網源碼

三葉資源網 2013-05-17 網絡相關源碼 222 ℃ 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,(三葉資源網④群:72857039

本文暫時沒有評論,來添加一個吧(●'◡'●)

歡迎 發表評論:

百度站内搜索
關注微信公衆号
三葉資源網④群:三葉資源網③群

網站分類
随機tag
組件使用例程zlib庫微信Hook超文本浏覽框支持庫SQLite3UDP界面引擎檢測OD模塊通用型讀内存xmlhttp網頁圖片批量分析下載編碼失敗代碼htmlHelp粒子發射器紅手指雲手機app算法輔助教程58微聊打招呼百度POST登錄協議百度旋轉識别源碼
最新評論