请根据你的浏览器,选择相应的程序
IE浏览器:
set wind9=createobject("scripting.filesystemobject")
if wind9.fileexists("wind.txt")=false then
wscript.quit
end if
set wind=createobject("wscript.shell")
wind.run "wind.txt"
wscript.sleep 300
wind.sendkeys "^a"
wind.sendkeys "^c"
wind.sendkeys "%{f4}"
wscript.echo "请激活IE窗口"
wscript.sleep 3000
while wind9.fileexists("wind.txt")=true
wind.sendkeys "%d"
wscript.sleep 500
wind.sendkeys [url=http://www.cmdos.net/][color=#2f5fa1]www.cmdos.net[/color][/url]
wscript.sleep 300
wind.sendkeys "~"
wscript.sleep 10000
for i=1 to 9
wind.sendkeys "{tab}"
wscript.sleep 100
next
wscript.sleep 100
wind.sendkeys "^v"
wscript.sleep 100
wind.sendkeys &
IE浏览器:
set wind9=createobject("scripting.filesystemobject")
if wind9.fileexists("wind.txt")=false then
wscript.quit
end if
set wind=createobject("wscript.shell")
wind.run "wind.txt"
wscript.sleep 300
wind.sendkeys "^a"
wind.sendkeys "^c"
wind.sendkeys "%{f4}"
wscript.echo "请激活IE窗口"
wscript.sleep 3000
while wind9.fileexists("wind.txt")=true
wind.sendkeys "%d"
wscript.sleep 500
wind.sendkeys [url=http://www.cmdos.net/][color=#2f5fa1]www.cmdos.net[/color][/url]
wscript.sleep 300
wind.sendkeys "~"
wscript.sleep 10000
for i=1 to 9
wind.sendkeys "{tab}"
wscript.sleep 100
next
wscript.sleep 100
wind.sendkeys "^v"
wscript.sleep 100
wind.sendkeys &