mouse_event 實戰篇 - 低能版
唔覺意見到Facebook 有d 變態人 玩「點擊傳奇*」出神入化
10秒內撳到萬幾下! 到底係點尼既呢?__?
*即係n秒內撳粒制n下果d 無聊mini-game
好明顯就係有人玩無聊mini-game都要用外掛啦(正是在下XD)
咁到底呢隻外掛係點寫出尼??
當然我只會用vb寫-v-
要達到Mouse Control 首先必需要一個API - mouse_event作模擬Mouse Actions
所以唔洗諗,加左呢句先啦!
'模組:
- Public Declare Sub mouse_event Lib "user32" (dwFlags As Long, dx As Long, dy As Long , _
- cButtons As Long, dwExtraInfo As Long)
但係你Click 到佢又點呢? Click 去邊先得?
所以同時你需要 GetCursorPos
- Public Declare Function GetCursorPos Lib "user32" (lpPoint As Position) As Long
- Pubic Type Position
- X As Long
- Y As Long
- End Type
然後用你既方法拎你要撳佢既位勒
假設我而家明知要Click 既位係 900,500 ,當然就要比個範圍佢啦..得1點,點搵佢出尼
由於時間既關係! 就係GetCursorPos 既同時,做埋Click 佢既動作勒!(純粹係我懶XD 其實用Timer好d)
- Private Sub Form_Active()
- Dim A As Position
- Do
- Doevents '唔加DoEvents 後果自負-v-
- GetCursorPos A
- Label1.Caption = "( X,Y ): ( " & A.X & "," & A.Y & " )"
- If MusPos.X > 900 - 100 And MusPos.X < 900 + 100 And MusPos.Y > 500 - 100 And MusPos.Y < 500 + 100 Then
- Call mouse_event(2 Or 4,0,0,0,0)
- End If
- Loop
- End Sub
修改一下寫法就可以出去暴按了XD
★Kit↘..
