FAREYİ DELİRTME

Arkadaşlar bu yazdığım kod biraz eğlenceyle ilgili ama birini sinir etmek için çok güzel yani

___________________________________

'Önce visual basic i açıyoruz.
' daha sonra form a bir tane timer ekliyoruz daha sonra ise interval = 50 yapıyoruz
'bir tane de modul ekliyoruz sonrası aşağıdaki kodları kopyala yapıştır
__________________________________________________ _____

Private Sub Timer1_Timer()
CrezyMouse
End Sub



'module aşağıdakileri ekliyoruz


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 MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

Public Sub CrezyMouse()
Dim CButt As Long, Extra As Long
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, CButt, Extra
End Sub

Categories: Visual Basic