Sign in to follow this  
Followers 0
ashley

GUICtrlSetData resets input box

11 posts in this topic

#1 ·  Posted (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 by ashley

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

I fixed the numbers only. You do the rest.

-edit-

Fixed the whole thing.

#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 by Nahuel

Share this post


Link to post
Share on other sites

#3 ·  Posted (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":

#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 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]

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

Look, I replaced the 'Space' key for 'Backspace'

Edited by Nahuel

Share this post


Link to post
Share on other sites

#6 ·  Posted (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 by Nahuel

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Code Removed as pm'd requested by ashley...

Sorry didn't mean to offend anyone

Edited by smashly

Share this post


Link to post
Share on other sites

Hi, a slightly shorter version of your script...

#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!

Share this post


Link to post
Share on other sites

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 clean

heres the post

Share this post


Link to post
Share on other sites

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

#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)


NEWHeader1.png

Share this post


Link to post
Share on other sites

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

Know 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 you

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0