hahahahaha, dobraaaa :)
Elem, još je bolje ako napadneš dugme direktno
Code:
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd _
As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hWnd As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal _
lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal _
hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As Any, _
ByVal lpszWindow As Any) As Long
Private Const BM_CLICK = &HF5
Dim petlja As Boolean
Private Sub Command1_Click()
If petlja = False Then petlja = True Else petlja = True
Dim hwndDialog As Long
Dim hwndButton As Long
Dim retval As Long
Do Until petlja = False
DoEvents
hwndDialog = FindWindow(CLng(0), "Clickometer v1.0")
If hwndDialog = 0 Then Exit Sub
hwndButton = FindWindowEx(hwndDialog, 0, CLng(0), "Click on me as fast as You can!")
retval = SetActiveWindow(hwndDialog)
retval = SendMessage(hwndButton, BM_CLICK, ByVal CLng(0), ByVal CLng(0))
Loop
End Sub
Ide do 2000 bez problema :) Ili, ako hoćeš da ga zbuniš, samo prebaciš petlju malo niže i onda ide preko 5000, nekoliko puta :)
[Ovu poruku je menjao Marko_L dana 30.11.2005. u 11:15 GMT+1]
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti