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

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

你可能感兴趣的:(VBS操作网页,罗斌原创,用脚本操作网页,实现刷51智慧苹果,51智慧苹果)