[應用]visualbasic下如何實現(xiàn)全自動網(wǎng)頁刷新機器人功能

《[應用]visualbasic下如何實現(xiàn)全自動網(wǎng)頁刷新機器人功能》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、VisualBasic下如何實現(xiàn)全自動網(wǎng)頁刷新機器人功能ByShyLion近幾日出于某種被迫的需要，領(lǐng)導要求一周之內(nèi)務必完成學校某頁面的點擊量。該頁面內(nèi)插入的是其他方統(tǒng)計代碼，不過好一點的是領(lǐng)導只要求點擊量，不要求點擊率。簡單分析了下，有兩種實現(xiàn)方法:1,進入后臺直接修改，但是由于不是統(tǒng)計代碼管理方管理員，所以這種想法是不可能的事情，直接先給斃掉了。2,人為刷新瀏覽量。不過手動執(zhí)行也是一件累死人的工程。這個想法也是不可行的。這可是出了難題了。怎么辦才好呢？思來想去，決定還是寫個小程序讓計算機自己來完成此項艱巨的

2、任務吧說明：本實例屬于編程學習的普及篇，主要針對初學VisualBasic的菜鳥同志們，高手自動略過。目的主要是，使如我一般的菜鳥同志們對VisualBasic等面向?qū)ο蟮木幊逃幸粋€感性的認知，讓大家明白編程將不再是一個遙不可及深不可測的東西。編程環(huán)境：VisualBasic6.0程序設(shè)計思路及邏輯流程圖：停止定時和刷新網(wǎng)頁具體的程序設(shè)計過程:1,程序界面，如圖所示?全自動網(wǎng)頁刷新機器人ByShyLion地址，間隔:統(tǒng)計:輸入需要刷新的網(wǎng)址輸入刷新時間隔單位，秒開始停止此程序無法顯示網(wǎng)頁

3、程序外殼。程序的外殼大家可以根據(jù)自己的喜好和習慣隨意布置各主要組件對應關(guān)系開始按鈕Commandl網(wǎng)址輸入框Textl停止按鈕Command2網(wǎng)頁刷新時間隔設(shè)定Text2定時器Timerl刷新次數(shù)統(tǒng)計Label3瀏覽器監(jiān)視窗口WebBrowserl2,編程實現(xiàn)〃點擊“開始”按鈕時觸發(fā)的事件PrivateSubCommandl_Click()Timerl.Enabled=True〃啟動定時器WebBrowserl.Navigate(Textl.Text)//JT開需要刷新的網(wǎng)址Commandl.Enabled=F

4、alse〃禁用“開始”按鈕Command2.Enabled=True〃激活"停止”按鈕Textl.EnabIed=False〃禁止再修改需要刷新的網(wǎng)頁地址Text2.EnabIed=False〃禁止再修改網(wǎng)頁刷新時間間隔設(shè)定值EndSub〃事件結(jié)束的標志〃點擊“停止”按鈕時觸發(fā)的事件PrivateSubCommand2_Click()Timerl.Enabled=False〃禁用定時器Command1.Enabled=True〃啟用“開始”按鈕Command2.Enabled=False〃禁用“停止”按鈕Tex

5、tl.Enabied=True//可以再次設(shè)定新的需要刷新的網(wǎng)頁地址了Text2.Enabled=True//可以再次設(shè)定新的網(wǎng)頁刷新時間間隔值了EndSub〃事件結(jié)束的標志〃當點擊“網(wǎng)址輸入框”時觸發(fā)的事件PrivateSubTextl_Click()Textl.Text=nn〃清空網(wǎng)址等待用戶輸入EndSub〃事件結(jié)束的標志〃當“網(wǎng)址輸入框”改變時觸發(fā)的事件PrivateSubTextl_Change()Label3.Caption=0〃計數(shù)清零EndSub〃事件結(jié)束的標志〃當“網(wǎng)頁刷新時間間隔設(shè)定”被點擊

6、時觸發(fā)的事件PrivateSubText2_Click()Text2.Text=H10n〃默認設(shè)定“網(wǎng)頁刷新時間間隔”為10秒EndSub〃事件結(jié)束的標志//“定時器”完成定時的時候觸發(fā)的事件PrivateSubTimerl_Timer()LabeB.Caption=LabeB.Caption+1〃網(wǎng)頁刷新次數(shù)計數(shù)加1Timerl.Interval=Text2.Text*1000//初始化"定時器”定時時間Timerl.Enabled=True〃再次啟動該"定時器”WebBrowserl.Navigate(Te

7、xtl.Text)〃同時打開“需要刷新的網(wǎng)頁”地址EndSub〃事件結(jié)束的標志3?編譯生成Ctrl+F5全部編譯執(zhí)行，調(diào)試沒有錯誤以后就可以生成可執(zhí)行文件了。生成可執(zhí)行文件：文件/生成xxxxxxx.exe,在彈出的對話框中填入生成的文件的名稱和保存的地址就OK了。注意：生成的文件要以?exe結(jié)尾。4,運行并測試效果其實編寫一些小程序并不難，難的是大家缺乏認知的勇氣和獨立思考和分析的能力。程序其實就是一種思想，就是你的想法運行在計算機里面，通過計算機來幫你實現(xiàn)