手把手教你开发列举网自动发帖软件!神器哈
生活随笔
收集整理的這篇文章主要介紹了
手把手教你开发列举网自动发帖软件!神器哈
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
又要來給大家分享編程技術啦!今天給大家提供的是一款用易語言開發列舉網發帖的工具!
應用工具:
1、易語言
2、 VIP模塊
3、超文本瀏覽框
程序界面做出來大概是這個樣子的:
還是老樣子,直接分享代碼大家下去了自己,研究,如果直接下載源碼的話,我們已經上傳好csdn站了
https://download.csdn.net/download/qq_15159657/12238463(此程序源碼)
大家可以點擊直接下載!
代碼段:
.版本 2 .支持庫 eAPI .支持庫 spec .支持庫 eExcel2000 .支持庫 HtmlView.程序集 窗口程序集_啟動窗口.子程序 __啟動窗口_創建完畢打開指定網址 (“http://www.xkrj5.com”).子程序 發布信息, 邏輯型 .局部變量 填表, 網頁填表 .局部變量 對象1, 對象 .局部變量 zz, 正則表達式類 .局部變量 文本, 文本型填表.初始化 (超文本瀏覽框1.取窗口句柄 ()) 延遲 (3000) 填表.組合框_置現行選中項 (“p8_fenlei_zone”, 2) 延遲 (1000)編輯框2.內容 = 文本_取出文本中漢字 (編輯框2.內容) 填表.文本框_寫內容 (“atc_title”, 編輯框2.內容)填表.組合框_置現行選中項 (“atc_leibie”, 8) 填表.文本框_寫內容 (“atc_dizhi”, “未知”) 延時 (2000) 填表.初始化 (超文本瀏覽框1.取窗口句柄 ()) 填表.文本框_寫內容 (“postdb[content]”, “19951220gjx”) 對象1 = 填表.網頁_取元素對象 (“textarea”, “id==atc_content”)填表.網頁_寫元素內容 (對象1, 內容)延遲 (2000).判斷開始 (填表.按鈕_點擊 (“提交發布”) = 真)返回 (真) .默認返回 (假) .判斷結束.子程序 _按鈕2_被單擊 .局部變量 y, 整數型 .局部變量 次數, 整數型.計次循環首 (到整數 (編輯框5.內容), y)Excel程序1.創建 ()Excel工作簿1.置程序 (Excel程序1)Excel工作簿1.激活工作簿 ()Excel工作簿1.打開 (編輯框1.內容)次數 = 到整數 (編輯框4.內容) + yExcel工作簿1.首單元格 = “B” + 到文本 (次數)編輯框2.內容 = Excel工作簿1.內容Excel工作簿1.首單元格 = “C” + 到文本 (次數)內容 = Excel工作簿1.內容編輯框3.內容 = 內容編輯框3.加入文本 (#換行符 + “讀取成功!延遲執行2秒鐘”)延遲 (2000).判斷開始 (發布信息 () = 真)延遲 (2000)編輯框3.加入文本 (#換行符 + “成功的選擇b” + 到文本 (次數))超文本瀏覽框1.跳轉 (“http://bj.lieju.com/post/111”, , ).默認編輯框3.加入文本 (#換行符 + “失敗的選擇c” + 到文本 (次數)).判斷結束.計次循環尾 () 信息框 (“發布完成.發布到:” + 編輯框2.內容, 0, , ) 寫到文件 (取當前目錄 () + “/發布狀態.txt”, 到字節集 (編輯框2.內容)).子程序 _按鈕3_被單擊通用對話框1.打開 () 編輯框1.內容 = 通用對話框1.文件名.子程序 _按鈕1_被單擊 .局部變量 填表, 網頁填表填表.初始化 (超文本瀏覽框1.取窗口句柄 ()) 填表.文本框_寫內容 (“username”, 編輯框6.內容) 填表.文本框_寫內容 (“password”, 編輯框7.內容) 延遲 (1000) 填表.按鈕_點擊 (“Submit3”) 延遲 (3000) 超文本瀏覽框1.跳轉 (“http://bj.lieju.com/post/111”, , )開發的思路和步驟:
1、打開列舉網網址
?
2、通過填表功能,自動置入賬號密碼,然后進行登錄。
3、從外部EXCEL文件讀取發帖內容,再利用計次循環命令讀取表內數據,再把數據通過填表模塊寫到網頁里面,自動提交發布。
?其實整個代碼操作起來就這么簡單,還不到50行代碼就能實現列舉網的批量發布信息的功能!大家可以照貓畫虎的操作一下,直接把代碼復制到你的程序里面即可,這太簡答了。
?
總結
以上是生活随笔為你收集整理的手把手教你开发列举网自动发帖软件!神器哈的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: xio you c语言 程序设计入门——
- 下一篇: asp+access实现增删改查