用脚本操作网页，实现刷苹果〖罗斌原创〗

先看下一个简单的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 〖罗斌原创〗