aleas2
دوشنبه 22 اسفند 1390, 13:55 عصر
سلام خسته نباشید کسی میتونه این کدهارو به روش کدنویسی api بده؟
WebBrowser1.Navigate "http://web.com (http://web.com/)"
Do While WebBrowser1.ReadyState <> "4"
'...
'...
'...
DoEvents
Loop
WebBrowser1.Document.Forms(1).elements("name").Val ue = text1
WebBrowser1.Document.Forms(1).elements("check").Ch ecked = "'checked'"
WebBrowser1.Document.Forms(1).elements("sub").Clic k
Do While WebBrowser1.ReadyState <> "4"
'...
'...
'...
DoEvents
Loop
WebBrowser1.Navigate "http://web.com (http://web.com/)"
Do While WebBrowser1.ReadyState <> "4"
'...
'...
'...
DoEvents
Loop
WebBrowser1.Document.Forms(1).elements("name").Val ue = text1
WebBrowser1.Document.Forms(1).elements("check").Ch ecked = "'checked'"
WebBrowser1.Document.Forms(1).elements("sub").Clic k
Do While WebBrowser1.ReadyState <> "4"
'...
'...
'...
DoEvents
Loop