【求】autoclicker 如何用VB 做

goodhermit95

要怎样做？不要code的，跟我说路径就好了

TSHsoft

你要怎样的效果？用来玩网络游戏的吗？

goodhermit95

不是，普通click就可以了
不过要click快快的
那个按钮“start”要怎样做？（code怎样写）

TSHsoft

看你其他帖子的回复，你不是说 http://www.aluraonline.com/inficius/index.htm 有autoclicker了吗？
还是你要自己写的呢？

[ 本帖最后由 TSHsoft 于 2008-5-11 12:12 PM 编辑 ]

goodhermit95

当然是自己写
我要自己设计

@幻影@

如果有先试用已经完成品呢？

goodhermit95

你再说什么 = =
什么使用我的完成品，我连code都不会

TSHsoft

其实1秒按滑鼠1000次或10000次也是可以的，看你的要求。你是要用在Maple Story游戏上吗？需要怎么样的效果呢？我试试看写个程式。

[ 本帖最后由 TSHsoft 于 2008-5-12 10:41 PM 编辑 ]

goodhermit95

哦，不需要帮我写了
可以把上次你post的那个AC的Project File Post上来让我参考吗？？

TSHsoft

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSELEFTDOWN = &H2
Private Const MOUSELEFTUP = &H4

Private Sub Form_Load()
    Label1.Caption = HScroll1.Value
    Timer1.Enabled = False
    Timer1.Interval = HScroll1.Value
End Sub

Private Sub HScroll1_Change()
    Label1.Caption = HScroll1.Value
    Timer1.Interval = HScroll1.Value
End Sub

Private Sub HScroll1_Scroll()
    Label1.Caption = HScroll1.Value
    Timer1.Interval = HScroll1.Value
End Sub

Private Sub cmdStart_Click()
    Timer1.Enabled = True
End Sub

Private Sub cmdStop_Click()
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    mouse_event MOUSELEFTDOWN, 0, 0, 0, 0 'left button goes down
    mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
End Sub