Board logo

标题: IE隐藏打开网站 [打印本页]

作者: xxcvb     时间: 2009-3-13 04:56    标题: IE隐藏打开网站
set ws=createobject("wscript.shell")
url="www.baidu.com"

do
ws.run"iexplore.exe "&url,0
wscript.sleep 3000
call kill_IE(url)
loop

private sub kill_IE(url)
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='iexplore.exe'")
For Each id In pipe
if instr(1,id.commandline,url)<>0 then
id.terminate()
end if
Next
end sub

作者: xxcvb     时间: 2009-3-13 04:57
上面代码实现了隐藏打开指定网站,
求高手给写个模拟鼠标事件
点击指定坐标广告的代码

作者: xxcvb     时间: 2009-3-13 05:04
是否要用到下面函数
sendkeys
CALL SUB_CLICK(X,Y)