- 帖子
- 57
- 主題
- 14
- 精華
- 0
- 積分
- 73
- 點名
- 0
- 作業系統
- win8.1
- 軟體版本
- office2010
- 閱讀權限
- 20
- 註冊時間
- 2015-4-2
- 最後登錄
- 2019-6-17
|
各位前輩，大家好。
小弟想要自動留言至FB
目前遇到的問題是, 不知道如何選擇"留言的文字方塊"（效果需同按滑鼠左鍵點擊效果)
導致後續的文字無法傳送出去...
請各位前輩指教.. 感謝！- Sub AutoFB()
- Dim A
- Dim my_url
- Dim IE
- Dim ck
- ck = False
- Set IE = CreateObject("InternetExplorer.Application")
- my_url = "某FB文章網址"
- With IE
- .Visible = True '
- .navigate my_url
- Do Until .ReadyState = 4
- DoEvents
- Loop
- Do
- For Each A In .document.getElementsByTagName("textarea")
- If A.Name = "add_comment_text" Then
- ck = True
- A.Click '想在這模擬滑鼠點擊文字方塊, 但這裡似乎無效! 請問該怎麼修改？
- A.Value = "這是測試文字"
- Application.SendKeys "~", True '因為前面的a.click無效, 所以這裡也沒辦法模擬按Enter傳送文字
- End If
- Next
- Loop Until ck = True
- End With
- End Sub
|
|
發表於 2016-6-2 11:30
| 
