[發問] 如何模擬滑鼠左鍵點擊網頁文字方塊效果？

justintoolbox

各位前輩，大家好。

小弟想要自動留言至FB
目前遇到的問題是, 不知道如何選擇"留言的文字方塊"（效果需同按滑鼠左鍵點擊效果)
導致後續的文字無法傳送出去...

請各位前輩指教.. 感謝！

1. Sub AutoFB()
   
2. Dim A
   
3. Dim my_url
   
4. Dim IE
   
5. Dim ck
   
6. ck = False
   
7. Set IE = CreateObject("InternetExplorer.Application")
   
8. my_url = "某FB文章網址"
   
9.   With IE
   
10.         .Visible = True '
    
11.         .navigate my_url
    
12.             Do Until .ReadyState = 4
    
13.                 DoEvents
    
14.             Loop
    
15.         Do
    
16.         For Each A In .document.getElementsByTagName("textarea")
    
17.             If A.Name = "add_comment_text" Then
    
18.                         ck = True
    
19.                         A.Click '想在這模擬滑鼠點擊文字方塊, 但這裡似乎無效! 請問該怎麼修改？
    
20.                         A.Value = "這是測試文字"
    
21.                     Application.SendKeys "~", True '因為前面的a.click無效, 所以這裡也沒辦法模擬按Enter傳送文字
    
22.              End If
    
23.         Next
    
24.         Loop Until ck = True
    
25. End With
    
26. End Sub

複製代碼