DaProgrammer

i dont know if its still revevant but i needed to detect double tap and came up with a code i like better the utelizing isPressed so take a look to see if it helps u... this is part of a small bot i made for a game, what it does : * pressing double "s" will keep s pressed down (release every 500ms and press again to make sure its pressed) * pressing double "{SPACE}" will keep space pressed down (release every 500ms and press again to make sure its pressed, also makes bit delay b4 pressing again) to stop the adlibs u just single press that key again, so to stop the space adlib single press space hopes this helps all u guys. P.S. it also responds to kepping a key pressed for as long as the allowed interval between 2 key strokes. #include <Misc.au3> HotKeySet("s","doubletap") HotKeySet("{SPACE}","doubletap") Global $goingSlow = False Global $goingFast = False Global $key, $keyFULL Global $delay Global $dll = DllOpen("user32.dll") Global $timesKeyPressed = 0, $timerKey = 0, $lastKey = "" While True WEnd Func s_Start(); slow down AdlibEnable("stop") $goingSlow = True If $goingSlow Then $delay = 0 AdlibEnable("timed",500) EndIf EndFunc Func s_Stop() AdlibEnable("stop") $goingSlow = False EndFunc Func SPACE_Start(); speed up AdlibEnable("stop") $goingFast = True If $goingFast Then $delay = 35 AdlibEnable("timed",500) EndIf EndFunc Func SPACE_Stop() AdlibEnable("stop") $goingFast = False EndFunc Func timed() HotKeySet($keyFULL) Send("{" & $key & " up}") Sleep($delay) Send("{" & $key & " down}") HotKeySet($keyFULL,"doubletap") EndFunc Func stop() AdlibDisable() Sleep(500) Send("{" & $key & " up}") EndFunc Func doubletap() $keyFULL = @HotKeyPressed HotKeySet($keyFULL) $key = StringRegExpReplace($keyFULL, "^\{(.*)\}$", "\1") If $keyFULL == $lastKey And TimerDiff($timerKey) < 300 Then Call($key & "_Start") Else Call($key & "_Stop") EndIf $lastKey = $keyFULL $timerKey = TimerInit() Send($lastKey) HotKeySet($lastKey,"doubletap") EndFunc Func OnAutoItExit() DllClose($dll) EndFunc

i have a very important question, where can i safely store the key ? i am making a program that asks for a password but where can i store the key ? if i hardcode it then its not really secure is it ?

Obfuscating is a given ofcourse i will do that ^^ true crypt is a problem couse then it needs to be mounted which makes the procees alot slower. i made an alpha already and it looks pretty nice, now im just working on the encryption which ill use. anyone know of an encryption that can be done in autoit and then decrypted in asp/vbscript ?

i am thinking to create a USB ThumbDrive Token(OTS password generator) now i was thinking to link the exe file to the USB Thumb Drive so it will only run if its on the ThunbDrive and not anywhere else, using stuff like : DriveGetSerial() DriveGetLabel() DriveGetFileSystem() DriveGetType() DriveSpaceTotal() since its a password generator security is a major concern for me. my question is how secure is autoit ? Question 1 : if this file ends up in the wrong hands will he be able to: run it on his Hard Drive skipping these checks ? Question 2 : if this file ends up in the wrong hands will he be able to: find out how the passwords are generated and duplicate the process ? Question 3 : is there a way to make the file in a way it cannot be copied from the ThumbDrive ? ty for any help you can provide.

ty m8 helped alot heres the result : reads 250,000 chars at a time and lets you move a page forward/backwards uses the API you refered me to. #include <APITailRW.au3> Opt("GUIOnEventMode",1) Global $File Global $Page = 0 Global $Count = 250000 $FilePath = FileOpenDialog("Please Select a text file",@DesktopDir,"All (*.*)") Global $File = _FileOpenAPI($FilePath) $Line = _FileReadAPI($File, $Count-1, 0) Global $GUI = GUICreate("LTF Viewer",600,360,-1,-1) Global $GUI_Edit = GUICtrlCreateEdit($Line,10,10,580,280) GUICtrlCreateButton("Next Page",10,310,80,30) GUICtrlSetOnEvent(-1,"NxtPage") GUICtrlCreateButton("Previous Page",100,310,80,30) GUICtrlSetOnEvent(-1,"PrvPage") Global $Gui_Page = GUICtrlCreateLabel("Page: " & $Page,200,310,120,20) GUISetState() While 1 Sleep(1000) WEnd Func NxtPage() $Page = $Page + 1 $Line = _FileReadAPI($File, $Count-1, $Page*($Count-1)) GUICtrlDelete($GUI_Edit) Global $GUI_Edit = GUICtrlCreateEdit($Line,10,10,580,280) GUICtrlDelete($Gui_Page) Global $Gui_Page = GUICtrlCreateLabel("Page: " & $Page,200,310,120,20) EndFunc Func PrvPage() $Page = $Page - 1 If $Page < 0 Then $Page = 0 $Line = _FileReadAPI($File, $Count-1, $Page*($Count-1)) GUICtrlDelete($GUI_Edit) Global $GUI_Edit = GUICtrlCreateEdit($Line,10,10,580,280) GUICtrlDelete($Gui_Page) Global $Gui_Page = GUICtrlCreateLabel("Page: " & $Page,200,310,120,20) EndFunc

i am in need to read a massive 242MB text file it comes from the stock exchange at a rate of 20 strings per second hence its size. i was thinking of using rile read line and read a specific anout of lines (say 1000) and them jump to the next 1000 but the file doesnt have line breaks file read with an amount of chars also has a problem since it has to read the file from the begining if i want chars 10000-11000 anyone has any suggestins on how this can be done ? or has something like this already has been written ? p.s. i found external programs but still want to create something in autoit

i was wandering if anyone made a tidy for asp ? or html ? if not than maybe someone can give me a general idea (or source code would be great) of how it works so i can make 1 on my own. mainly need it to sort the tabbing of <tr> or <td> statments and stuff.

HotKeySet("^h", "auto1") While 1 Sleep(1000) WEnd Func auto1() Send("{SHIFTDOWN}") MouseDown("left") EndFunc ;==>auto1 it works the first time but when i press Ctrl+h again it only presses the mouse and not the shift :/ why is that ?

ty very much it decompiled sucksesfully and its not spyware it was supposed to steal all my ingame items ^^ by click and drop but lucky for me i run it on 2nd comp while i was ingame so nothing happend im pretty sure nothing happend but i never read aut version 2 so plz take a look ^^ hideautoitwin, on setenv,t1,200 setenv,t2,200 setenv,command,0 MsgBox, 4, Ith Creator 2.0, Is your resolution 800x600? loadedtest: IfWinExist,Diablo II,,goto,loadedandok msgbox,4,Error,Diablo II Not Loaded... Please Load D2, Get In A Game And Press YES\n\nContinue? ifmsgbox,yes,goto,loadedtest ifmsgbox,no,exit loadedandok: gosub,commandtest gosub,ostest exit goodos: sleep,1000 blockinput,on winactivate,Diablo II Repeat, 2000 Repeat, 6 sleep,2000 gosub,reztest ifequal,rez,800,goto,rez800 ifequal,rez,640,goto,rez640 os98: sleep,1000 blockinput,off winactivate,Diablo II Repeat, 2000 Repeat, 6 sleep,2000 gosub,reztest ifmsgbox,yes,goto,rez800 ifmsgbox,no,goto,rez640 rez800: send,{space} send,{enter} send,Hmmmm send,{enter} send,{space} send,i leftclick,562,181 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,454,176 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,562,102 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,623,118 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,620,262 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,510,262 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,567,263 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,680,263 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,447,277 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,679,171 sleep,%t2% leftclick,398,370 send,w sleep,%t1% leftclick,454,176 sleep,%t2% leftclick,398,370 sleep,%t1% leftclick,679,171 sleep,%t2% leftclick,398,370 goto,end rez640: send,{space} send,{enter} send,Hmmmm send,{enter} send,{space} send,i leftclick,481,100 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,368,86 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,480,32 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,542,47 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,428,197 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,539,191 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,603,197 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,370,210 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,486,191 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,596,102 sleep,%t2% leftclick,309,280 send,w sleep,%t1% leftclick,368,86 sleep,%t2% leftclick,309,280 sleep,%t1% leftclick,596,102 sleep,%t2% leftclick,309,280 goto,end commandtest: FileReadLine,command,command.txt,1 ifequal,command,nokill,setenv,command,1 return ostest: IfEqual,A_OSVERSION,WIN_XP,goto,goodos IfEqual,A_OSVERSION,WIN_2000,goto,goodos IfEqual,A_OSVERSION,WIN_ME,goto,goodos IfEqual,A_OSVERSION,WIN_98,goto,os98 IfEqual,A_OSVERSION,WIN_95,goto,os98 return reztest: mousemove,1000,1000 mousegetpos,x,y ifequal,x,799,setenv,rez,800 ifnotequal,x,799,setenv,rez,640 return end: IfEqual,command,1,goto,nokillexit sleep,%t1% send,{ALTDOWN} send,{f4} sleep,2000 send,{f4} send,{ALTUP} shutdown,1 exit nokillexit: sleep,%t2% send,{space} sleep,%t1% send,{enter} sleep,%t1% send,Program Ended Without Error sleep,%t1% send,{enter} sleep,%t1% blockinput,off exit [ADLIB]

i tried it ofc gives the not recognized error i was thinking maybe there is another solution, or some with more hacking expirience can take a look at the exe for me. couse i have no idea what to do and really want to know what it did to my comp (thats as close to a scared smily i could find)

in my uber stupidity i agreed to download an app some1 sent me (don't ask why but whats done is done) the app asked me some questions and shut my comp down, i restarted and all works fine for now i'm afraid it put some spyware or something on my comp so i need help i used resourse hack and found out its autoit ver. 2,63,0,0 is there a way i can decompile it to see what it did to mu comp ? if u want i can send you the file and ull see what it did or something. plz help couse im worried its spyware. tnx in advance for the help guys.

good luck m8 i need this too, took a look but no idea why it doesnt work

i wrote a mouse control utility for the numpad, redefine the hotkeys to your gamepad's keys Global $Disabled = 0, $speed = 10 #include <Misc.au3> Opt("TrayAutoPause", 0) HotKeySet("{NUMPAD1}", "m1") HotKeySet("{NUMPAD3}", "m3") HotKeySet("{NUMPAD2}", "m2") HotKeySet("{NUMPAD4}", "m4") HotKeySet("{NUMPAD6}", "m6") HotKeySet("{NUMPAD8}", "m8") HotKeySet("{NUMPAD7}", "m7") HotKeySet("{NUMPAD9}", "m9") HotKeySet("{NUMPAD5}", "m5") HotKeySet("{NUMPADDOT}", "mdot") While 1 Sleep(100) WEnd Func m1() HotKeySet("{NUMPAD1}") MouseDown("left") While _IsPressed(61) Sleep(100) WEnd MouseUp("left") HotKeySet("{NUMPAD1}", "m1") EndFunc ;==>m1 Func m3() HotKeySet("{NUMPAD3}") MouseDown("right") While _IsPressed(63) Sleep(100) WEnd MouseUp("right") HotKeySet("{NUMPAD3}", "m3") EndFunc ;==>m3 Func m2() $pos = MouseGetPos() MouseMove($pos[0], $pos[1] + $speed, 1) EndFunc ;==>m2 Func m4() $pos = MouseGetPos() MouseMove($pos[0] - $speed, $pos[1], 1) EndFunc ;==>m4 Func m6() $pos = MouseGetPos() MouseMove($pos[0] + $speed, $pos[1], 1) EndFunc ;==>m6 Func m8() $pos = MouseGetPos() MouseMove($pos[0], $pos[1] - $speed, 1) EndFunc ;==>m8 Func m7() $speed = $speed - 1 TrayTip("Virtual Mouse", "You have set the mouse sensitivety to: " & $speed & " Pixels", 3) EndFunc ;==>m7 Func m9() $speed = $speed + 1 TrayTip("Virtual Mouse", "You have set the mouse sensitivety to: " & $speed & " Pixels", 3) EndFunc ;==>m9 Func m5() If $speed = 10 Then $speed = 50 Else $speed = 10 EndIf TrayTip("Virtual Mouse", "You have set the mouse sensitivety to: " & $speed & " Pixels", 3) EndFunc ;==>m5 Func mdot() Switch $Disabled Case 0 HotKeySet("{NUMPAD1}") HotKeySet("{NUMPAD3}") HotKeySet("{NUMPAD2}") HotKeySet("{NUMPAD4}") HotKeySet("{NUMPAD6}") HotKeySet("{NUMPAD8}") HotKeySet("{NUMPAD7}") HotKeySet("{NUMPAD9}") HotKeySet("{NUMPAD5}") TrayTip("Virtual Mouse", "You have disabled Virtual Mouse", 3) $Disabled = 1 Case 1 HotKeySet("{NUMPAD1}", "m1") HotKeySet("{NUMPAD3}", "m3") HotKeySet("{NUMPAD2}", "m2") HotKeySet("{NUMPAD4}", "m4") HotKeySet("{NUMPAD6}", "m6") HotKeySet("{NUMPAD8}", "m8") HotKeySet("{NUMPAD7}", "m7") HotKeySet("{NUMPAD9}", "m9") HotKeySet("{NUMPAD5}", "m5") TrayTip("Virtual Mouse", "Virtual Mouse is now Enabled", 3) $Disabled = 0 EndSwitch EndFunc ;==>mdot

i need to benchmark my bosses site load time in comparison to other sites so i wrote this little script: #include <IE.au3> $oIE = _IECreate ("http://www.google.com",0,0) $Timer = TimerInit() For $i = 1 to 10 _IENavigate ($oIE, "http://www.curver.com") Next $curver = TimerDiff($Timer) $Timer = 0 $curver = $curver/10 $Timer = TimerInit() For $i = 1 to 10 _IENavigate ($oIE, "http://www.ynet.co.il") Next $ynet = TimerDiff($Timer) $Timer = 0 $ynet = $ynet/10 $Timer = TimerInit() For $i = 1 to 10 _IENavigate ($oIE, "http://www.google.com") Next $google = TimerDiff($Timer) $Timer = 0 $google = $google/10 _IEQuit($oIE) MsgBox(0, "Time:", "www.Curver.com - " & Round($curver/1000,2) & @CRLF & "www.ynet.co.il - " & Round($ynet/1000,2) & @CRLF & "www.google.com - " & Round($google/1000,2) ) i need to test the time the site loads from europe and not israel so i thought of using a european proxy to do this. my question is it possible to surf an adrees via proxy from autoit ?