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)




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5