tops2 Posted April 13, 2009 Report Share Posted April 13, 2009 Vai ir tada programa piemeram man viena spele vajag daudz spiest "X" burtu! Man vajadzetu programu lai man tas X automatiski spiezas! Kaut kas lidzigs Mouse Auto Clicker! es mekleju Auto Key Clicker bet neko ladzigu neatradu ludzu kads nevar atsutit Saitni vai ari pateikt kur atrast un vispar tada pastav? Link to comment Share on other sites More sharing options...
10BaseT Posted April 13, 2009 Report Share Posted April 13, 2009 AutoHotkey Ieinstalē, atver, apakšā pie pulksteņa parādīsies zaļš H burts, nospied uz viņa labo taustiņu un Edit This Script un tad iekopē to kodu apakšā, saglabā failu, pēctam atkal labo taustiņu uz zaļā H un Reload This Script. Nospiežot F12, visu laiku tiks spiests X, pārtraukt darbību var nospiežot jebkuru citu pogu. F12:: #Persistent SetBatchLines, -1 SetKeyDelay, -1 OnExit, HandleExit SetFormat, Integer, Hex ThreadID := DllCall("GetCurrentThreadId") VarSetCapacity(State, 256) SetTimer, MonitorKeyboard, 30 Loop { Sleep 1 If BreakLoop Break Send X } Return MonitorKeyboard: TID := DllCall("GetWindowThreadProcessId", "UInt", WinActive("A"), "UInt", 0) If (TID != TIDOld) { DllCall("AttachThreadInput", "UInt", ThreadID, "UInt", TIDOld, "Int", 0) DllCall("AttachThreadInput", "UInt", ThreadID, "UInt", TID, "Int", 1) TIDOld := TID } DllCall("GetKeyboardState", "UInt", &State) State := "" Loop, 254 { If (*(&State+A_Index) & 0x80) State := A_Index } If State { If State not in 0x1,0x2,0x4 BreakLoop = 1 } Return HandleExit: DllCall("AttachThreadInput", "UInt", ThreadID, "UInt", TIDOld, "Int", 0) ExitApp Link to comment Share on other sites More sharing options...
tops2 Posted April 14, 2009 Author Report Share Posted April 14, 2009 A kads nevar uztaisit SCRIPT lai spiezas vienlaikus CTRL+X? Link to comment Share on other sites More sharing options...
tops2 Posted April 15, 2009 Author Report Share Posted April 15, 2009 Kads uztaisat SCRIPT lai CTRL+X spiezas ludzu! Link to comment Share on other sites More sharing options...
10BaseT Posted June 6, 2009 Report Share Posted June 6, 2009 F12:: BreakLoop=0 Loop { Sleep 1 if (BreakLoop = 1) break Send ^x } Esc:: BreakLoop = 1 return Lai apturētu paturi ESC kādas 3 sekundes. Link to comment Share on other sites More sharing options...
cash^ Posted June 6, 2009 Report Share Posted June 6, 2009 Nešķiet, ka divi mēneši ir nedaudz par vēlu? Link to comment Share on other sites More sharing options...
Recommended Posts