simple Autoit script:
#include [openingBracket]File.au3[closingBracket]
Func _stop()
Beep(440, 500)
Sleep(200)
Exit
EndFunc ;==>_stop
HotKeySet("{ESC}", "_stop")
$counter = 0
Func _do()
Beep(440, 500)
$str = ClipGet()
$index = 0
$file = "words.txt"
FileOpen($file, 0)
$str = StringReplace($str," ","")
$res = ""
$sent = false
For $ii = 1 to _FileCountLines($file)
$line = FileReadLine($file, $ii)
if StringLeft($line,1) = $str Then
$res = $line
if ($index = $counter) then
Send($res & "{Enter}")
$sent = true
endif
$index = $index + 1
endif
Next
if ($sent) Then
$counter = $counter + 1
Else
$counter = 0
EndIf
FileClose($file)
EndFunc ;==>_stop
HotKeySet("{F4}", "_do")
Func _do2()
Beep(440, 500)
$str = ClipGet()
$index = 0
$file = "words.txt"
FileOpen($file, 0)
$str = StringReplace($str," ","")
$res = ""
$sent = false
For $ii = 1 to _FileCountLines($file)
$line = FileReadLine($file, $ii)
if StringLeft($line,1) = $str Then
$res = $line
Send($res & "{Enter}")
$index = $index + 1
endif
Next
if ($sent) Then
$counter = $counter + 1
Else
$counter = 0
EndIf
FileClose($file)
EndFunc ;==>_stop
HotKeySet("{F3}", "_do2")
Sleep(1000)
$exit = False
$a = 0
$b = 1
for $i = 50000000 to 1 step -1
;send($index & "{Enter}")
Sleep(1000)
next
this code is as dirty as possible..
words.txt contains all possible words
here are some words:
http://hastebin.com/oyefobanuk.passelect the starting char in zkl and then press f4 to try one name with that starting char or f3 to try all possible names with that starting char.
Have fun beating Skasi
And
CarRepairer - looking forward to sth new like hangman