Lakes
Active Members-
Posts
1,830 -
Joined
-
Last visited
-
Days Won
9
Lakes last won the day on October 22 2017
Lakes had the most liked content!
Profile Information
-
Location
UK
Lakes's Achievements
Universalist (7/7)
243
Reputation
-
TSP Art picture of a brain.
- 10 replies
-
- art
- travelling salesman problem
-
(and 1 more)
Tagged with:
-
Love it! Just wait, UEZ the GDI+ Master will be here soon, I bet.
- 14 replies
-
Fair enough, trust in your Yubikey! (Any further comments should be moved to chat really).
-
You can still make a Yubikey like device with Arduino.
-
Yubikey = £41!, make a cheaper one with an Arduino, most of which can act as a usb keyboard, loads of tutorials on how to do it. Arduino Rubber Ducky.
-
A true Autoit compiler will never happen, this has been discussed many times before. Autoit is fast enough for most things and there's always FreeBASIC if you need more speed.
-
A Freebasic version?
-
Thanks.
-
@UEZ, that FreeBasic 3D SinePlot got me interested, do you use one of the FreeBasic IDEs and if so, which one?
-
Needs a bit of tweaking to get to the full hour, but this does the job for now. #include <FileConstants.au3> $hrs = 0 $mins = 0 $secs = 0 $StartCount = 0 Global $hFile = FileOpen("File.txt", $FO_OVERWRITE ) For $iCount = 1 To 3599 FileWriteLine($hFile, StringFormat("%03i", $iCount)) ;Sends 00:00:00:000 ---> 00:00:01:000 FileWriteLine($hFile, StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs, 000) & @TAB & "---> " & StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs + 1, 000) ) FileWriteLine($hFile, StringFormat("%02i:%02i", $mins, $secs) ) $StartCount += 1 $secs += 1 if $secs > 59 then $secs = 0 $mins +=1 EndIf If $mins > 59 then $secs = 0 $mins = 0 $hrs +=1 EndIf Next FileWriteLine($hFile, "Finished!" ) FileClose($hFile) ShellExecute("File.txt") #cs 1 00:00:00,000 --> 00:00:01,000 1:00:00 #ce
-
Not at all, many thanks.
-
Sometimes it prints a random character in the output to notepad, it's probably a fault in my script.
-
A very rough script which needs more work on the time roll over, but I noticed that stringformat prints odd characters sometimes, Run("notepad.exe") $hWnd = WinWaitActive("[CLASS:Notepad]") $hrs = 0 $mins = 0 $secs = 0 $StartCount = 0 For $iCount = 1 To 120 ControlSend($hWnd, "", "Edit1", StringFormat("%02i", $iCount)) ControlSend($hWnd, "", "Edit1", "{ENTER}") ;Sends 00:00:00:000 ---> 00:00:01:000 ControlSend($hWnd, "", "Edit1", StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs, 000)) ControlSend($hWnd, "", "Edit1"," ---> " &StringFormat("%02i:%02i:%02i:%03i", $hrs, $mins, $secs+1, 000)) ControlSend($hWnd, "", "Edit1", "{ENTER}") ControlSend($hWnd, "", "Edit1", StringFormat("%02i:%02i", $mins, $secs)) ControlSend($hWnd, "", "Edit1", "{ENTER}") ControlSend($hWnd, "", "Edit1", "{ENTER}") $StartCount += 1 $secs += 1 if $secs > 59 then $secs = 0 $mins = $secs/60 EndIf If $mins > 59 then $secs = 0 $mins = $secs/60 $hrs = $mins/60 EndIf Next ControlSend($hWnd, "", "Edit1", "Finished!") #cs 1 00:00:00,000 --> 00:00:01,000 1:00:00 #ce