如何在vb.net中模拟鼠标点击

Question

我希望能够在 vb.net 中的 WebBroswer 上模拟鼠标点击（即使程序不在顶部，它也会在后台运行）我该怎么做？我希望它在网络浏览器中每秒单击一个按钮。有什么想法吗？

提前致谢

Answer 1

警告：这是使用 Excel 4 宏的可怕黑客行为。它实际上是用 VBScript 编写的，但如果我没记错的话，在 .NET 中的语法即使不完全相同，也是相似的。当然，你需要安装Excel。

Set Excel = WScript.CreateObject("Excel.Application")

' Where on the screen do you want to click?
i = "111"
j = "222"

Excel.ExecuteExcel4Macro ( _
    "CALL(""user32"",""SetCursorPos"",""JJJ""," & i & "," & j & ")")

WScript.Sleep 100
Excel.Quit
Set Excel = Nothing

期待更多优雅的答案！

Answer 2

您的操作数量有限，点击后才有效。使用计时器，并在每个计时器滴答时随机选择一个操作，并按顺序编号。

Answer 3

在Excel.Quit....之前

执行以下操作：

WScript.Sleep(100)

以下就像模拟鼠标左键单击：
进行 IE 焦点或应用程序焦点：

'objIE.document.focus()
'myShell.sendkeys ("{enter}")