TA的每日心情 | 郁闷 2014-12-17 09:47 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
SystemUtil.CloseProcessByName"iexplore.exe"
SystemUtil.Run"iexplore.exe","","","",3
Set BrowsDesc=Description.Create()
Set PageDesc=Description.Create()
Set CurPage=Browser(BrowsDesc).Page(PageDesc)
Browser(BrowsDesc).Navigate "http://www.kodyy.com/index.php?r=home/album/index"
CurPage.WebEdit("name:=username").Set "youhua"
CurPage.WebEdit("name:=password").Set "youhua"
CurPage.WebButton("name:=登 录").Click
Set UpButton=Description.Create()
Set UpButton=CurPage.Link("name:=上传")
UpButton.Click
Set AddButton=Description.Create()
Set AddButton=CurPage.WebElement("html id:=uploadSwf")
x=AddButton.GetROProperty("abs_x")+10
y=AddButton.GetROProperty("abs_y")+10
Set AddObj = CreateObject("AutoItX.Control")
AddObj.LeftClick x,y
wait(2)
Set WshShell=CreateObject("WScript.Shell")
WshShell.SendKeys "C:\1.jpg"
WshShell.SendKeys "%O"
wait(2)
Set AddObj=nothing
Set UpLoadButton=Description.Create()
Set UpLoadButton=CurPage.WebButton("html tag:=INPUT")
UpLoadButton.Click
wait(2)
Set MyPicture=Description.Create()
Set MyPicture=CurPage.Link("name:=我的相册","height:=30")
MyPicture.Click
Set logout=Description.Create()
Set logout=CurPage.Link("name:=退出")
logout.Click
Browser(BrowsDesc).Close
[ 本帖最后由 yyc2164708 于 2010-6-22 17:39 编辑 ] |
|