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

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