ashley Posted September 24, 2007 Share Posted September 24, 2007 (edited) ok im makinga nother program for runescape this time if in case u think that you have a keylogger, you can type in your password without using your keyboard.. but i have come across a little hicup... when any button is pressed it resets the input box... thats not what i want. i want it to add the number/letter into the input box. Also when F1 is pressed it is ment to send what it in the input box... it dont for some reaseon... Any help is accepted here is my code *Removed* thanks in advance Edited September 24, 2007 by ashley Free icons for your programs Link to comment Share on other sites More sharing options...
Nahuel Posted September 24, 2007 Share Posted September 24, 2007 (edited) I fixed the numbers only. You do the rest. -edit- Fixed the whole thing. expandcollapse popup#include <GUIConstants.au3> HotKeySet("{F1}", "sendpass") #Region ### START Koda GUI section ### Form= $Hiddenkeys = GUICreate("Hiddenkeys", 353, 173, 193, 115) GUISetBkColor(0x000000) $one = GUICtrlCreateButton("1", 16, 8, 27, 25, 0) $two = GUICtrlCreateButton("2", 48, 8, 27, 25, 0) $three = GUICtrlCreateButton("3", 80, 8, 27, 25, 0) $four = GUICtrlCreateButton("4", 112, 8, 27, 25, 0) $five = GUICtrlCreateButton("5", 144, 8, 27, 25, 0) $six = GUICtrlCreateButton("6", 176, 8, 27, 25, 0) $seven = GUICtrlCreateButton("7", 208, 8, 27, 25, 0) $eight = GUICtrlCreateButton("8", 240, 8, 27, 25, 0) $nine = GUICtrlCreateButton("9", 272, 8, 27, 25, 0) $zero = GUICtrlCreateButton("0", 304, 8, 27, 25, 0) $q = GUICtrlCreateButton("q", 16, 40, 27, 25, 0) $w = GUICtrlCreateButton("w", 48, 40, 27, 25, 0) $e = GUICtrlCreateButton("e", 80, 40, 27, 25, 0) $r = GUICtrlCreateButton("r", 112, 40, 27, 25, 0) $t = GUICtrlCreateButton("t", 144, 40, 27, 25, 0) $y = GUICtrlCreateButton("y", 176, 40, 27, 25, 0) $u = GUICtrlCreateButton("u", 208, 40, 27, 25, 0) $i = GUICtrlCreateButton("i", 240, 40, 27, 25, 0) $o = GUICtrlCreateButton("o", 272, 40, 27, 25, 0) $p = GUICtrlCreateButton("p", 304, 40, 27, 25, 0) $a = GUICtrlCreateButton("a", 16, 72, 27, 25, 0) $s = GUICtrlCreateButton("s", 48, 72, 27, 25, 0) $d = GUICtrlCreateButton("d", 80, 72, 27, 25, 0) $f = GUICtrlCreateButton("f", 112, 72, 27, 25, 0) $g = GUICtrlCreateButton("g", 144, 72, 27, 25, 0) $h = GUICtrlCreateButton("h", 176, 72, 27, 25, 0) $j = GUICtrlCreateButton("j", 208, 72, 27, 25, 0) $k = GUICtrlCreateButton("k", 240, 72, 27, 25, 0) $l = GUICtrlCreateButton("l", 272, 72, 27, 25, 0) $z = GUICtrlCreateButton("z", 16, 104, 27, 25, 0) $x = GUICtrlCreateButton("x", 48, 104, 27, 25, 0) $c = GUICtrlCreateButton("c", 80, 104, 27, 25, 0) $v = GUICtrlCreateButton("v", 112, 104, 27, 25, 0) $b = GUICtrlCreateButton("b", 144, 104, 27, 25, 0) $n = GUICtrlCreateButton("n", 176, 104, 27, 25, 0) $m = GUICtrlCreateButton("m", 208, 104, 27, 25, 0) $Space = GUICtrlCreateButton("Space", 240, 104, 91, 25, 0) $Input1 = GUICtrlCreateInput("", 8, 144, 329, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ;numbers Case $one $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"1") Case $two $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"2") Case $three $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"3") Case $four $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"4") Case $five $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"5") Case $six $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"6") Case $seven $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"7") Case $eight $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"8") Case $nine $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"9") Case $zero $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"0") ;letters - row one Case $q $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"q") Case $w $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"w") Case $e $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"e") Case $r $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"r") Case $t $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"t") Case $y $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"y") Case $u $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"u") Case $i $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"i") Case $o $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"o") Case $p $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"p") ;letters - row two Case $a $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"a") Case $s $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"s") Case $d $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"d") Case $f $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"f") Case $g $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"g") Case $h $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"h") Case $j $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"j") Case $k $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"k") Case $l $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"l") ;letters - row three Case $z $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"z") Case $x $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"x") Case $c $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"c") Case $v $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"v") Case $b $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"b") Case $n $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"n") Case $m $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"m") ;others Case $Space $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&" ") EndSwitch WEnd Func Sendpass() Send(GUICtrlRead($Input1)) EndFunc You should add a 'backspace' key. A 'shift' key would be cool too, I have some passwords in capitals. Edited September 24, 2007 by Nahuel Link to comment Share on other sites More sharing options...
Monamo Posted September 24, 2007 Share Posted September 24, 2007 (edited) I fixed the numbers only. You do the rest. Beat me to it... here was my variation (only did an example for keys "1" and "2": expandcollapse popup#include <GUIConstants.au3> HotKeySet("{F1}", "sendpass") #Region ### START Koda GUI section ### Form= $Hiddenkeys = GUICreate("Hiddenkeys", 353, 173, 193, 115) GUISetBkColor(0x000000) $newChar="" $one = GUICtrlCreateButton("1", 16, 8, 27, 25, 0) $two = GUICtrlCreateButton("2", 48, 8, 27, 25, 0) $three = GUICtrlCreateButton("3", 80, 8, 27, 25, 0) $four = GUICtrlCreateButton("4", 112, 8, 27, 25, 0) $five = GUICtrlCreateButton("5", 144, 8, 27, 25, 0) $six = GUICtrlCreateButton("6", 176, 8, 27, 25, 0) $seven = GUICtrlCreateButton("7", 208, 8, 27, 25, 0) $eight = GUICtrlCreateButton("8", 240, 8, 27, 25, 0) $nine = GUICtrlCreateButton("9", 272, 8, 27, 25, 0) $zero = GUICtrlCreateButton("0", 304, 8, 27, 25, 0) $q = GUICtrlCreateButton("q", 16, 40, 27, 25, 0) $w = GUICtrlCreateButton("w", 48, 40, 27, 25, 0) $e = GUICtrlCreateButton("e", 80, 40, 27, 25, 0) $r = GUICtrlCreateButton("r", 112, 40, 27, 25, 0) $t = GUICtrlCreateButton("t", 144, 40, 27, 25, 0) $y = GUICtrlCreateButton("y", 176, 40, 27, 25, 0) $u = GUICtrlCreateButton("u", 208, 40, 27, 25, 0) $i = GUICtrlCreateButton("i", 240, 40, 27, 25, 0) $o = GUICtrlCreateButton("o", 272, 40, 27, 25, 0) $p = GUICtrlCreateButton("p", 304, 40, 27, 25, 0) $a = GUICtrlCreateButton("a", 16, 72, 27, 25, 0) $s = GUICtrlCreateButton("s", 48, 72, 27, 25, 0) $d = GUICtrlCreateButton("d", 80, 72, 27, 25, 0) $f = GUICtrlCreateButton("f", 112, 72, 27, 25, 0) $g = GUICtrlCreateButton("g", 144, 72, 27, 25, 0) $h = GUICtrlCreateButton("h", 176, 72, 27, 25, 0) $j = GUICtrlCreateButton("j", 208, 72, 27, 25, 0) $k = GUICtrlCreateButton("k", 240, 72, 27, 25, 0) $l = GUICtrlCreateButton("l", 272, 72, 27, 25, 0) $z = GUICtrlCreateButton("z", 16, 104, 27, 25, 0) $x = GUICtrlCreateButton("x", 48, 104, 27, 25, 0) $c = GUICtrlCreateButton("c", 80, 104, 27, 25, 0) $v = GUICtrlCreateButton("v", 112, 104, 27, 25, 0) $b = GUICtrlCreateButton("b", 144, 104, 27, 25, 0) $n = GUICtrlCreateButton("n", 176, 104, 27, 25, 0) $m = GUICtrlCreateButton("m", 208, 104, 27, 25, 0) $Space = GUICtrlCreateButton("Space", 240, 104, 91, 25, 0) $Input1 = GUICtrlCreateInput($newChar, 8, 144, 329, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY)) GUICtrlSetColor(-1, 0xFF00FF) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ;numbers Case $one $newChar = "1" AppendChar() Case $two $newChar = "2" AppendChar() ; follow example for the rest of the characters... EndSwitch WEnd Func AppendChar() $updatefield = GUICtrlRead($Input1) & $newChar GUICtrlSetData($Input1, $updatefield) EndFunc ;==>AppendChar Func Sendpass() Send(GUICtrlRead($Input1)) EndFunc ;==>Sendpass Edit: Oh, as for the "why" - With your original code, you weren't appending new keys to the existing $Input1, you were replacing them outright. And for your Send() command, as Nahuel mentioned in the code comment, your original Send($Input1) would have only sent the ControlID of the input box. Edited September 24, 2007 by Monamo - MoChr(77)& Chr(97)& Chr(100)& Chr(101)& Chr(32)& Chr(121)& Chr(97)& Chr(32)& Chr(108)& Chr(111)& Chr(111)& Chr(107)-------I've told you 100,000 times not to exaggerate!-------Don't make me hit you with my cigarette hand...-------My scripts:Random Episode Selector, Keyboard MouseMover, CopyPath v2.1, SmartRename for XP,Window Tracer[sup]New![/sup] Link to comment Share on other sites More sharing options...
aslani Posted September 24, 2007 Share Posted September 24, 2007 thanks for the fix and the ideas... ill add caps and back space... just one question how could i do backspace tho Send("{BS}") [font="Georgia"]Chances are, I'm wrong.[/font]HotKey trouble?Stringregexp GuideAutoIT Current Version Link to comment Share on other sites More sharing options...
Nahuel Posted September 24, 2007 Share Posted September 24, 2007 (edited) Look, I replaced the 'Space' key for 'Backspace' Edited September 24, 2007 by Nahuel Link to comment Share on other sites More sharing options...
Nahuel Posted September 24, 2007 Share Posted September 24, 2007 (edited) Well.. besides the 'Shift' key, maybe make it look more like a keyboard and place the Space key at the bottom. I think that using the letters in capitals would make it look better. Other than that, I really like it. Hope you don't mind if I keep it as an example. -edit- Oh and if it is for sending passwords, you could use a "*" as the password char in the input control. Edited September 24, 2007 by Nahuel Link to comment Share on other sites More sharing options...
smashly Posted September 24, 2007 Share Posted September 24, 2007 (edited) Code Removed as pm'd requested by ashley... Sorry didn't mean to offend anyone Edited September 24, 2007 by smashly Link to comment Share on other sites More sharing options...
Nahuel Posted September 24, 2007 Share Posted September 24, 2007 Hi, a slightly shorter version of your script...expandcollapse popup#include <GUIConstants.au3> Opt("MustDeclareVars", 1) Opt("GUIOnEventMode", 1) HotKeySet("{F1}", "Sendpass") Global $Key = StringSplit("1|2|3|3|5|6|7|8|9|0|q|w|e|r|t|y|u|i|o|p|a|s|d|f|g|h|j|k|l|z|x|c|v|b|n|m|Space|<---", "|") Global $Hiddenkeys, $Button[$Key[0] + 1], $bx = 16, $by = 8, $bw = 27, $bh = 25, $Input1 $Hiddenkeys = GUICreate("Hiddenkeys", 353, 173, 193, 115) GUISetBkColor(0x000000) For $i = 1 To $Key[0] If $i = 11 Or $i = 21 Or $i = 30 Then $bx = 16 If $i = 11 Then $by = 40 If $i = 21 Then $by = 72 If $i = 30 Then $by = 104 If $i = 37 Then $bw = 43 If $i = 38 Then $bx += 16 $Button[$i] = GUICtrlCreateButton($Key[$i], $bx, $by, $bw, $bh) GUICtrlSetOnEvent(-1, "Buttonclick") $bx += 32 Next $Input1 = GUICtrlCreateInput("", 8, 144, 329, 21, BitOR($ES_AUTOHSCROLL, $ES_READONLY, $BS_CENTER)) GuiSetOnEvent($GUI_EVENT_CLOSE, "Close", $Hiddenkeys) GUISetState(@SW_SHOW) While 1 Sleep(100) Wend Func Buttonclick() For $i = 1 To $Key[0] If @GUI_CtrlId = $Button[$i] And GUICtrlRead($Button[$i]) = "Space" Then GUICtrlSetData($Input1, GUICtrlRead($Input1) & " ") ElseIf @GUI_CtrlId = $Button[$i] And GUICtrlRead($Button[$i]) = "<---" Then GUICtrlSetData($Input1, StringTrimRight(GUICtrlRead($Input1), 1)) ElseIf @GUI_CtrlId = $Button[$i] And GUICtrlRead($Button[$i]) <> "Space" And GUICtrlRead($Button[$i]) <> "<---" Then GUICtrlSetData($Input1, GUICtrlRead($Input1) & GUICtrlRead($Button[$i])) EndIf Next EndFunc ;==>Buttonclick Func Sendpass() Send(GUICtrlRead($Input1)) EndFunc ;==>Sendpass Func Close() Exit EndFunc ;==>Close Cheers Very nice! Link to comment Share on other sites More sharing options...
ashley Posted September 24, 2007 Author Share Posted September 24, 2007 please go to this post and post your views there... if you got any of my code please dont release it...ALso please confirm that there clean... ill upload scan pics but could you alos say there cleanheres the post Free icons for your programs Link to comment Share on other sites More sharing options...
Valuater Posted September 24, 2007 Share Posted September 24, 2007 Smash... I tried that with this guy, he doesn't understand and won't use it @ ash... This has back and it has cap lock on the first row expandcollapse popup#include <GUIConstants.au3> HotKeySet("{F1}", "sendpass") Global $caps #Region ### START Koda GUI section ### Form= $Hiddenkeys = GUICreate("Hiddenkeys", 353, 173, 193, 115) GUISetBkColor(0x000000) $one = GUICtrlCreateButton("1", 16, 8, 27, 25, 0) $two = GUICtrlCreateButton("2", 48, 8, 27, 25, 0) $three = GUICtrlCreateButton("3", 80, 8, 27, 25, 0) $four = GUICtrlCreateButton("4", 112, 8, 27, 25, 0) $five = GUICtrlCreateButton("5", 144, 8, 27, 25, 0) $six = GUICtrlCreateButton("6", 176, 8, 27, 25, 0) $seven = GUICtrlCreateButton("7", 208, 8, 27, 25, 0) $eight = GUICtrlCreateButton("8", 240, 8, 27, 25, 0) $nine = GUICtrlCreateButton("9", 272, 8, 27, 25, 0) $zero = GUICtrlCreateButton("0", 304, 8, 27, 25, 0) $q = GUICtrlCreateButton("q", 16, 40, 27, 25, 0) $w = GUICtrlCreateButton("w", 48, 40, 27, 25, 0) $e = GUICtrlCreateButton("e", 80, 40, 27, 25, 0) $r = GUICtrlCreateButton("r", 112, 40, 27, 25, 0) $t = GUICtrlCreateButton("t", 144, 40, 27, 25, 0) $y = GUICtrlCreateButton("y", 176, 40, 27, 25, 0) $u = GUICtrlCreateButton("u", 208, 40, 27, 25, 0) $i = GUICtrlCreateButton("i", 240, 40, 27, 25, 0) $o = GUICtrlCreateButton("o", 272, 40, 27, 25, 0) $p = GUICtrlCreateButton("p", 304, 40, 27, 25, 0) $a = GUICtrlCreateButton("a", 16, 72, 27, 25, 0) $s = GUICtrlCreateButton("s", 48, 72, 27, 25, 0) $d = GUICtrlCreateButton("d", 80, 72, 27, 25, 0) $f = GUICtrlCreateButton("f", 112, 72, 27, 25, 0) $g = GUICtrlCreateButton("g", 144, 72, 27, 25, 0) $h = GUICtrlCreateButton("h", 176, 72, 27, 25, 0) $j = GUICtrlCreateButton("j", 208, 72, 27, 25, 0) $k = GUICtrlCreateButton("k", 240, 72, 27, 25, 0) $l = GUICtrlCreateButton("l", 272, 72, 27, 25, 0) $z = GUICtrlCreateButton("z", 16, 104, 27, 25, 0) $x = GUICtrlCreateButton("x", 48, 104, 27, 25, 0) $c = GUICtrlCreateButton("c", 80, 104, 27, 25, 0) $v = GUICtrlCreateButton("v", 112, 104, 27, 25, 0) $b = GUICtrlCreateButton("b", 144, 104, 27, 25, 0) $n = GUICtrlCreateButton("n", 176, 104, 27, 25, 0) $m = GUICtrlCreateButton("m", 208, 104, 27, 25, 0) $Space = GUICtrlCreateButton("Space", 240, 104, 45, 25, 0) $Back = GUICtrlCreateButton("Back", 288, 104, 45, 25, 0) $Input1 = GUICtrlCreateInput("", 8, 144, 329, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY)) $CLock = GUICtrlCreateButton("cap", 304, 72, 27, 25, 0) $CLabel = GUICtrlCreateLabel("", 334, 75, 15, 15, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit ;numbers Case $one $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"1") Case $two $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"2") Case $three $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"3") Case $four $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"4") Case $five $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"5") Case $six $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"6") Case $seven $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"7") Case $eight $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"8") Case $nine $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"9") Case $zero $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"0") ;letters - row one Case $q $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"Q") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"q") Case $w $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"W") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"w") Case $e $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"E") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"e") Case $r $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"R") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"r") Case $t $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"T") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"t") Case $y $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"Y") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"y") Case $u $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"U") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"u") Case $i $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"I") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"i") Case $o $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"O") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"o") Case $p $CharsUp=GUICtrlRead($Input1) If $caps Then GUICtrlSetData($Input1,$CharsUp&"P") ContinueLoop EndIf GUICtrlSetData($Input1,$CharsUp&"p") ;letters - row two Case $a $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"a") Case $s $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"s") Case $d $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"d") Case $f $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"f") Case $g $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"g") Case $h $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"h") Case $j $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"j") Case $k $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"k") Case $l $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"l") ;letters - row three Case $z $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"z") Case $x $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"x") Case $c $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"c") Case $v $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"v") Case $b $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"b") Case $n $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"n") Case $m $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&"m") ;others Case $Space $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,$CharsUp&" ") Case $Back $CharsUp=GUICtrlRead($Input1) GUICtrlSetData($Input1,StringTrimRight($CharsUp, 1)) Case $CLock If $caps = 0 Then GUICtrlSetBkColor($CLabel, 0xff0000) $caps = 1 Else GUICtrlSetBkColor($CLabel, "") $caps = 0 EndIf EndSwitch WEnd Func Sendpass() Send(GUICtrlRead($Input1));Using Send($Input1) would send the ControlID of the input. EndFunc 8) Link to comment Share on other sites More sharing options...
Valuater Posted September 24, 2007 Share Posted September 24, 2007 ok im makinga nother program for runescapethis time if in case u think that you have a keylogger, you can type in your password without using your keyboard.. but i have come across a little hicup...when any button is pressed it resets the input box... thats not what i want. i want it to add the number/letter into the input box.Also when F1 is pressed it is ment to send what it in the input box... it dont for some reaseon...Any help is acceptedhere is my code*Removed*thanks in advanceKnow something!!!I help for free, if youi are going to remove posts so you can sell the program, and ask me to remove my posts so others dont steal your program...You need to pay me, then I will remove my posts... other-wise I work to help in the forums, not just you8) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now