ahmedb Posted October 17, 2011 Share Posted October 17, 2011 [scar]program New; var timea,x,y:Integer; const time=10; Procedure Time_change; begin timea:=timea-1; wait(10); end; Procedure Click(x, y :Integer); begin Movemouse(x, y); ClickMouse(x, y, true); end; procedure start; begin wait(1000); click(555,555); wait(100); repeat keydown(39); wait(1); keyup(39); until (time=0) end; begin timea := time; start end.[/scar] please help asap Quote Link to comment Share on other sites More sharing options...
Wanted Posted October 17, 2011 Share Posted October 17, 2011 Please use [sCAR] tags when you post What are you trying to do? Quote Link to comment Share on other sites More sharing options...
ahmedb Posted October 17, 2011 Author Share Posted October 17, 2011 oh sorry, so i want to click at 555, 555 and then press teh right arrow key down 10 times. and each time interval is 10ms Quote Link to comment Share on other sites More sharing options...
Wanted Posted October 17, 2011 Share Posted October 17, 2011 [sCAR]var I: Integer; begin ClickMouse(555, 555, True); Wait(1000); for I := 1 to 10 do begin SendArrow(1); Wait(10); end; end.[/sCAR] Quote Link to comment Share on other sites More sharing options...
ahmedb Posted October 17, 2011 Author Share Posted October 17, 2011 it says line 5, invalid number of parameters Quote Link to comment Share on other sites More sharing options...
Wanted Posted October 18, 2011 Share Posted October 18, 2011 Forgot the , True); on ClickMouse, now try... Quote Link to comment Share on other sites More sharing options...
ahmedb Posted October 18, 2011 Author Share Posted October 18, 2011 thanks you are really nice! program New; var x,y,I: Integer; procedure image1; begin if (FindColor(x, y, 1381828, 670, 626, 670, 626)) then begin repeat keydown(37); wait(100); keyup(37); until (FindColor(x, y, 8762345, 582, 548, 582, 548)); ClickMouse(585,820,true); end; end; procedure start; begin ClickMouse(555, 555, true); Wait(1000); for I := 1 to 120 do SendArrow(1); Wait(10); end; begin start; image1; end. ok so there is my code now line 11 will click the mouse, however i would like it to only click the mouse if (FindColor(x, y, 1381828, 670, 626, 670, 626)). Quote Link to comment Share on other sites More sharing options...
Wanted Posted October 18, 2011 Share Posted October 18, 2011 I'm having trouble understanding what you're trying to do by reading your code because it lacks standards. For now, just explain exactly what you want done and I'll show you Quote Link to comment Share on other sites More sharing options...
ahmedb Posted October 18, 2011 Author Share Posted October 18, 2011 ok so i am trying to make a script that will do a slide captcha so it will go all the way to the right then it will slowly go left to see if the captcha fits. then if it does, then it will click. Quote Link to comment Share on other sites More sharing options...
Wanted Posted October 18, 2011 Share Posted October 18, 2011 Hmm, maybe you can link me to this via PM? Quote Link to comment Share on other sites More sharing options...