小弟谦卑请教 用VB如何实现自动点击 一个快捷方式
用VB编辑一个自动点击 快捷方式 的程序
定时点击指定网页上的按钮。
比如每隔10分钟，自动点击一次桌面上的一个快捷方式
能给点提示就行,"每隔10分钟还凑合", 比如 自动点击 快捷方式就是一个最大的难题
哪位高手帮帮俺啊
谢谢啊,O(∩_∩)O谢谢了 --------------------编程问答-------------------- --------------------编程问答--------------------
--------------------编程问答-------------------- 何必这么麻烦呢,除非你这台电脑没人使用
Public Class MouseControler
Private Declare Function mouse_event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As MouseEvent, ByVal dX As Int32, ByVal dY As Int32, ByVal dwData As Int32, ByVal dwExtraInfo As Int32) As Boolean
<Flags()> _
Enum MouseEvent
None
AbsoluteLocation = &H8000
LeftButtonDown = &H2
LeftButtonUp = &H4
Move = &H1
MiddleButtonDown = &H20
MiddleButtonUp = &H40
RightButtonDown = &H8
RightButtonUp = &H10
Wheel = &H800
WheelDelta = 120
XButtonDown = &H100
XButtonUp = &H200
End Enum
#Region "Public Shared Method"
Public Shared Sub LeftButtonDown()
LeftButtonDown(0, 0, False)
End Sub
Public Shared Sub LeftButtonDown(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
mouse_event(MouseEvent.LeftButtonDown Or If(absolateLocation, MouseEvent.AbsoluteLocation, MouseEvent.None), x, y, 0, 0)
End Sub
Public Shared Sub LeftButtonUp()
LeftButtonUp(0, 0, False)
End Sub
Public Shared Sub LeftButtonUp(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
mouse_event(MouseEvent.LeftButtonUp Or If(absolateLocation, MouseEvent.AbsoluteLocation, MouseEvent.None), x, y, 0, 0)
End Sub
Public Shared Sub LeftButtonClick()
LeftButtonClick(0, 0, False)
End Sub
Public Shared Sub LeftButtonClick(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
LeftButtonDown(x, y, absolateLocation)
LeftButtonUp(x, y, absolateLocation)
End Sub
Public Shared Sub LeftButtonDoubleClick()
LeftButtonDoubleClick(0, 0, False)
End Sub
Public Shared Sub LeftButtonDoubleClick(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
LeftButtonClick(x, y, absolateLocation)
LeftButtonClick(x, y, absolateLocation)
End Sub
Public Shared Sub MiddleButtonDown()
MiddleButtonDown(0, 0, False)
End Sub
Public Shared Sub MiddleButtonDown(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
mouse_event(MouseEvent.MiddleButtonDown Or If(absolateLocation, MouseEvent.AbsoluteLocation, MouseEvent.None), x, y, 0, 0)
End Sub
Public Shared Sub MiddleButtonUp()
MiddleButtonUp(0, 0, False)
End Sub
Public Shared Sub MiddleButtonUp(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
mouse_event(MouseEvent.MiddleButtonUp Or If(absolateLocation, MouseEvent.AbsoluteLocation, MouseEvent.None), x, y, 0, 0)
End Sub
Public Shared Sub MiddleButtonClick()
MiddleButtonClick(0, 0, False)
End Sub
Public Shared Sub MiddleButtonClick(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
MiddleButtonDown(x, y, absolateLocation)
MiddleButtonUp(x, y, absolateLocation)
End Sub
Public Shared Sub MiddleButtonDoubleClick()
MiddleButtonDoubleClick(0, 0, False)
End Sub
Public Shared Sub MiddleButtonDoubleClick(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
MiddleButtonClick(x, y, absolateLocation)
MiddleButtonClick(x, y, absolateLocation)
End Sub
Public Shared Sub RightButtonDown()
RightButtonDown(0, 0, False)
End Sub
Public Shared Sub RightButtonDown(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
mouse_event(MouseEvent.RightButtonDown Or If(absolateLocation, MouseEvent.AbsoluteLocation, MouseEvent.None), x, y, 0, 0)
End Sub
Public Shared Sub RightButtonUp()
RightButtonUp(0, 0, False)
End Sub
Public Shared Sub RightButtonUp(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
mouse_event(MouseEvent.RightButtonUp Or If(absolateLocation, MouseEvent.AbsoluteLocation, MouseEvent.None), x, y, 0, 0)
End Sub
Public Shared Sub RightButtonClick()
RightButtonClick(0, 0, False)
End Sub
Public Shared Sub RightButtonClick(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
RightButtonDown(x, y, absolateLocation)
RightButtonUp(x, y, absolateLocation)
End Sub
Public Shared Sub RightButtonDoubleClick()
RightButtonDoubleClick(0, 0, False)
End Sub
Public Shared Sub RightButtonDoubleClick(ByVal x As Integer, ByVal y As Integer, Optional ByVal absolateLocation As Boolean = True)
RightButtonClick(x, y, absolateLocation)
RightButtonClick(x, y, absolateLocation)
End Sub
Public Shared Sub Wheel(ByVal scrollValue As Integer)
mouse_event(MouseEvent.Wheel, 0, 0, scrollValue, 0)
End Sub
#End Region
End Class
'双击引用
MouseControler.LeftButtonClick(1, 1)
Threading.Thread.Sleep(5)
MouseControler.LeftButtonClick(1, 1)
Application.DoEvents()
不然为什么不改成直接运行快捷方式指向的程序呢 --------------------编程问答-------------------- 我想知道,你们是怎么确定快捷方式的坐标的?
--------------------编程问答--------------------
太感谢大家啦,起初我等了几天,,,,还以为没人回答呢........ 我赶紧试试.
--------------------编程问答--------------------
为何要点击快捷方式？ 如果你要固定调用某程序，直接在vb.net里每间隔一定时间就用shell调用就行了。
--------------------编程问答--------------------
恩 直接启动程序多好--------------------编程问答--------------------
试想再过几年将是什么时代,物联网的时代
要的就是,不需人动手,自动化实现各种操作啊 --------------------编程问答--------------------
试想再过几年将是什么时代,物联网的时代
要的就是,不需人动手,自动化实现各种操作啊 --------------------编程问答--------------------
http://wudisun.blog.hexun.com/11720035_d.html --------------------编程问答--------------------
谢啦
--------------------编程问答-------------------- 正是我需要的，太谢谢了。
补充：.NET技术 , VB.NET
