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

先看下一個簡單的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 〖羅斌原創〗