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 ?

tnx i figured it out alredy, btw the window is hidden and the pop up shows up alone.

yea but there isn't any name to get anyhows i made some progress, i used this : $oIE = _IECreate ("http://10.0.0.138/status.html") $oForm = _IEFormGetCollection ($oIE, 0) _IEFormSubmit ($oForm) and it works but i still got a few gliches. 1) when it opens it asks for a pass and although i said remember i still need to press ok, how to i feed a pass with IE Create or an alternative ? 2) how do i make the whole process minimized or without a window all together ? SOLVED with IECREATE("",0,0) tnx again for the help guys kinda new to IE manipulation.

Downloaded the DebugBar but no luck as u can see in the source it has no name or ID any other ideas on how to press it ?

tnx ill download it now hope it helps

ok i looked at the sorce and theres a prob... CODE<FORM method="post" ACTION="/status-welcome-common.html/connect"> <INPUT type="hidden" name="EmWeb_ns:vim:3" value="/status.html"> <INPUT type="hidden" name="EmWeb_ns:vim:5.ImServices.wanlink.1:enabled" value="true"> <INPUT type="hidden" name="EmWeb_ns:vim:19" value="true"> <INPUT type="submit" value="Connect" class="formbutton"> the button i need to press is in the last line : <INPUT type="submit" value="Connect" class="formbutton"> but the command is Obj by name and i dont see its name in that line.

i didn't see examples there of getting obj and stuff, tnx @ Nahuel for the example

as i said i haven't used IE manupilation so ill appritiate if some could write me a simple example that i can modify for my needs. for example open Google and press the button "Google search". i dont know how to get the objects from there and stuff.

I've been playing with autoit for a couple of months but haven't touched the IE manipulation. so my question is can i press a button on a page without opening it ? i mean a button that looks like the browse button here a GRAY button, not a link. basically i need to open my routers address and press a button twice, can it be done with IE manipulation ???

i wrote before i remade the first post that UTorrents RSS didnt work for me and gave me hell, so for all ya out there with the same problem besides this is made in autoit so its much more customizable if u know ur way around here.

Big Update