用腳本操作網頁，實現刷蘋果〖羅斌原創〗

先看下一個簡單的VBS腳本實例（sarch.vbs）：
set os = CreateObject("wscript.shell") '設置環境
os.run "http://www.google.com" '運行打開google網站
wscript.sleep 4000 '停留4秒鐘
os.sendkeys "site:luobin.blog.51cto.com" '在google的搜索框裏面輸入site:luobin.blog.51cto.com
wscript.sleep 2000  '停留2秒鐘
os.sendkeys "{TAB}" '按下TAB鍵
wscript.sleep 1000
os.sendkeys "{ENTER}" '按下回車鍵

如此簡單的VBS腳本實現的功能卻是，打開google網站然後輸入關鍵字進行搜索，這樣的操作對於自己手動操作那肯定再簡單不過的了，那麼如果我要你操作這個步驟10000遍呢？我想任何人都不會去做！所以這個腳本的作用就大了，只要在這個腳本的第一行加入do最後一行加入loop這樣這個腳本就會無休止的運行，直到你結束了wscript.exe這個進程之後纔會停止下來。基於此腳本那麼你可以發揮你的想象做其他的一些網頁的操作，比如做一個自動登陸QQ、MSN、郵箱....等等的腳本，那麼下面我就用VBS腳本來寫一個刷智慧蘋果的腳本吧。（我之前有寫過一個刷蘋果的批處理，這次是用VBS來實現，這個VBS更加智能一點。但是要做到每5分鐘執行一次，我還沒有給這個VBS加上這個功能，呵呵，學識淺薄，只懂一點點VBS，不過我可以用批處理來配合這個腳本達到目的。好了下面看腳本，我就不多解釋了。把下面文字保存爲 apple.vbs ）

strComputer="."
set os = CreateObject("wscript.shell")
set oshell= createobject("wscript.shell")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList=objWMIService.ExecQuery ("select * from Win32_Process where Name='IEXPLORE.EXE' ")
os.run "http://passport.51.com/passport.5p?gourl=http%3A%2F%2Fapple.51.com%2F"
wscript.sleep 4000
os.sendkeys "改成你的51帳號"
wscript.sleep 2000
os.sendkeys "{TAB}"
wscript.sleep 2000
os.sendkeys "{TAB}"
os.sendkeys "{TAB}"
os.sendkeys "{TAB}"
wscript.sleep 1000
os.sendkeys "{ENTER}"
wscript.sleep 1100
os.run "http://apple.51.com/gain/alibaba/alibaba.php?adv=1"
wscript.sleep 1100
os.run "http://apple.51.com/gain/alibaba/alibaba.php?adv=2"
wscript.sleep 1000
os.run "http://apple.51.com/gain/alibaba/alibaba.php?adv=3"
wscript.sleep 1100
os.run "http://apple.51.com/gain/alibaba/alibaba.php?adv=4"
wscript.sleep 1000
os.run "http://apple.51.com/gain/alibaba/alibaba.php?adv=5"
wscript.sleep 2000
os.run "http://apple.51.com/gain/alibaba/alibaba.php?adv=6"
wscript.sleep 1000
oShell.Run "cmd /c "+chr(34)+"%APPDATA%\Microsoft\Internet Explorer\Quick Launch\顯示桌面.scf"+chr(34)+"",0
For Each objProcess in colProcessList
objProcess.Terminate()
next

讓apple.vbs每5分鐘運行一次.bat 的控制批處理：

@echo off
:ok
@call apple.vbs
@ping 127.0.0.1 -n  310 >nul
goto ok

把apple.vbs和讓apple.vbs每5分鐘運行一次.bat 放在一個目錄裏面執行讓apple.vbs每5分鐘運行一次.bat 這個批處理試試吧。如果執行有問題的話，一般是那幾個TAB要增加或者調整按TAB鍵的順序，自己稍做調整就可以了。如果有什麼不懂的就加我QQ問我就是了。QQ：287727615

轉載文章請標明：該文章轉自 羅斌原創技術文章：http://luobin44.51.com 〖羅斌原創〗