我想利用下面的代碼完成這樣的自動化:
1.登陸論壇
2.通過點擊.Document.all.tags("A")(106).Click,得到論壇的發言頁面
3.在論壇的發言框 .Document.all.tags("TEXTAREA")(0).Value = "gundam super model" 發言
4.提交發言".Document.all.tags("STRONG")(25).Click"
希望上面的動作可以后臺執行,沒必要真的開個頁面,有老師可以指點嗎?萬分感謝!
Sub demo()
Dim ie As New InternetExplorer
With ie
.Navigate "http://www.kongtiaobbs.com/forum.php?mod=forumdisplay&fid=36"
.Visible = True
Do Until ie.ReadyState = READYSTATE_COMPLETE
Loop
.Document.all("username").Value = "testertester"
.Document.all("password").Value = "58759109ok"
.Document.forms(0).submit
Application.Wait (Now + TimeValue("0:00:05"))
.Document.all.tags("A")(106).Click
End With
ie.Quit
End Sub
Sub t2()
Dim ic As New InternetExplorer
With ic
.Navigate "http://www.kongtiaobbs.com/forum.php?mod=viewthread&tid=1&extra=page%3D1"
.Visible = True
.Document.all.tags("TEXTAREA")(0).Value = "gundam super model"
' Application.Wait (Now + TimeValue("0:00:01"))
.Document.all.tags("STRONG")(25).Click
End With
End Sub
uj5u.com熱心網友回復：
不知道
uj5u.com熱心網友回復：
你只能去學習下 Post了uj5u.com熱心網友回復：
謝謝回復,學習post 方法就能解決咯?uj5u.com熱心網友回復：
http://www.autohotkey.com轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/88121.html
標籤：VBA
下一篇：大神救命啊！想了一天了，解決不了