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

时间:2011-08-28 01:37:19

标签: .net vb.net browser

我希望能够在vb.net中模拟WebBroswer上的鼠标点击(即使程序不在顶部,它将在后台运行)我该怎么做?我希望它在webBrowser中每隔一秒点击一个按钮。有什么想法吗?

提前致谢

3 个答案:

答案 0 :(得分:0)

警告:这是一个使用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

期待更优雅的答案!

答案 1 :(得分:0)

您将获得有限数量的操作,这些操作在单击后有效。使用计时器,并在每个计时器 - 勾选时随机选择一个动作,按顺序对它们进行编号。

答案 2 :(得分:0)

在Excel.Quit之前......

执行以下操作:

WScript.Sleep(100)

以下是鼠标左键单击的模拟: 做一个IE焦点或应用程序焦点:

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