VB编写一个鼠标自动点击可mouse_event为什么不起作用

[cjyshi]

各位大哥帮我看看看谢谢了
为什么mouse_event不起点击作用拉，Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())和Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, ０)都试过了不行各位大哥帮帮忙呀

Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up
Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
Private Const KEYEVENTF_KEYUP = &H2

Private Sub Timer1_Timer()
Dim bia As POINTAPI
Dim d As POINTAPI

Dim hwnd, this As Long ' 储存 FindWindow 函数返回的句柄
hwnd = FindWindow(vbNullString, "") ' 取得进程标识符
Call GetWindowThreadProcessId(hwnd, this)
'只要把Windows Media Player换成游戏的名称就可了！
If hwnd = 0 Then
Label1.Caption = "游戏未运行"
Else
Label1.Caption = "游戏已运行"
End If
GetCursorPos bia

If i > 20 Then
i = 0
i = i + 1
Else
i = i + 1
End If
Select Case i
Case 1:
Call SetCursorPos(150, 120)
' ''Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 2:
Call SetCursorPos(150, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 3:
Call SetCursorPos(350, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 4:
Call SetCursorPos(350, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 5:
Call SetCursorPos(550, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 6:
Call SetCursorPos(550, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 7:
Call SetCursorPos(750, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 8:
Call SetCursorPos(750, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 9:
Call SetCursorPos(950, 120)
''Call keybd_event(65, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 10:
Call SetCursorPos(950, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 11:
Call SetCursorPos(1014, 667)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 12:
Call SetCursorPos(950, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 13:
Call SetCursorPos(750, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 14:
Call SetCursorPos(750, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 15:
Call SetCursorPos(550, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 16:
Call SetCursorPos(550, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 17:
Call SetCursorPos(350, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 18:
Call SetCursorPos(350, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 19:
Call SetCursorPos(150, 600)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
Case 20:
Call SetCursorPos(150, 120)
'Call keybd_event(65, 0, 0, 0)
'Call keybd_event(65, 0, DEYEVENTF_KEYUP, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, GetMessageExtraInfo())
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo())
End Select

End Sub

[mygodsos]

路过帮顶
=============
11月6日，论坛升级公告，积分已经做了调整！
http://topic.csdn.net/u/20081107/11/b27dc75f-14b1-4594-9de3-5b18d9e36a11.html
此次调整增加了两个新的可用分获取渠道：
1：帖子被推荐（加精）后，帖主可以获得88分的可用分奖励；
2：帖子结帖后会返还帖主50%的悬赏分，无满意结帖不返还分数；
3：接下来会不断增加新的可用分获取途径，比如参与活动赠送等，请大家多关注；