|
2#
楼主 |
发表于 2011-7-12 10:54:49
|
只看该作者
Option Explicit
Dim myCode
SystemUtil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","","C:\Documents and Settings\hanj","open"
Browser("Browser").Navigate "http://www.gasgoo.com/auto-parts-trade/buying-leads/post.html"
Browser("Browser").Page("Let suppliers know exactly").WebEdit("ctl00$ContentPlaceHolder1$UC_P").Set "Buy test by "
Browser("Browser").Page("Let suppliers know exactly").WebEdit("ctl00$ContentPlaceHolder1$UC_P_2").Set "test by test by"
Browser("Browser").Page("Let suppliers know exactly").WebEdit("ctl00$ContentPlaceHolder1$UC_P_3").Set "hanhan@354.com"
Browser("Browser").Page("Let suppliers know exactly").WebEdit("ctl00$ContentPlaceHolder1$UC_P_4").Set "han"
Browser("Browser").Page("Let suppliers know exactly").WebEdit("ctl00$ContentPlaceHolder1$UC_P_5").Set "han"
Browser("Browser").Page("Let suppliers know exactly").WebList("ctl00$ContentPlaceHolder1$UC_P").Select "#2"
Browser("Let suppliers know exactly").Page("Let suppliers know exactly").Image("VerificationCode").Click
RunAction "GetChar", oneIteration,myCode
msgbox myCode |
|