|
我想打开百度首页,然后在新闻那个链接这里右键,选择右键菜单的第三项save target as,应该会弹出一个对话框,但是现在模拟不出该效果,不知道是什么原因呢,高手指点!
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\huyaj","open"
Browser("百度一下,你就知道").Page("百度一下,你就知道").Sync
Browser("百度一下,你就知道").Navigate "http://www.baidu.com/"
Browser("百度一下,你就知道").Page("百度一下,你就知道").Link("新 闻").Click micRightBtn
Set WshShell = CreateObject("WScript.Shell")
For i = 1 To 3
WshShell.sendKeys "{DOWN}"
Next
WshShell.sendKeys "{ENTER}"
Set WshShell = nothing |
|