|
4#
楼主 |
发表于 2012-7-12 15:34:06
|
只看该作者
本帖最后由 andylauwzd 于 2012-7-12 15:36 编辑
脚本如下
SystemUtil.Run"C:\Program Files\Internet Explorer\iexplore.exe","http://www.baidu.com"
Set ObjBrowser = Description.Create()
ObjBrowser("MicClass").Value ="Browser"
Set ObjPage = Description.Create()
ObjPage("MicClass").Value ="Page"
ObjPgae("title").value="百度一下,你就知道"
Set ObjWebEdit= Description.Create()
ObjWebEdit("html tag").Value ="INPUT"
ObjWebEdit("name").Value="wd"
Browser( ObjBrowser ).Page(ObjPage).WebEdit(ObjWebEdit).Set "测试"
Set ObjBrowser=Nothing
Set ObjPage=Nothing
Set ObjWebEdit=Nothing |
|