TA的每日心情 | 无聊 2020-12-8 11:20 |
---|
签到天数: 605 天 连续签到: 1 天 [LV.9]测试副司令
|
' Create WSH object
Set WshShell = CreateObject("WScript.Shell")
' Launch IE browser
SystemUtil.Run "iexplore", "baidu.com"
Browser("index:=0").Sync
' Type in WebEdit through "SendKeys"
Browser("index:=0").Page("index:=0").WebEdit("name:=wd").FireEvent "onfocus"
WshShell.SendKeys "A"
wait 2
' Choose element in dropdown list
For i = 1 To 2
WshShell.SendKeys "{DOWN}"
wait 1
Next
WshShell.SendKeys "{ENTER}"
Set WshShell = Nothing
希望对你有点用 |
|