please help me with my code

[NELyon]

i got an error after the first message(when i clicked the button)

[dakota]

maby you copied it wrong hear look at this zip

[Don N]

Change this

Func a()
   Send ($a & $chersep)
EndFunc
oÝ÷ Ù:-+ºÚ"µÍ[ÈJ
BÙ[
ÕRPÝXY
    ÌÍØH
H   [È ÌÍØÚÙ
B[[È

[dakota]

this is what i have now but it still does not work

expandcollapse popup

dim $a="a"
dim $b="b"
dim $c="c"
dim $d="d"
dim $e="e"
dim $f="f"
dim $g="g"
dim $h="h"
dim $i="i"
dim $j="j"
dim $k="k"
dim $l="l"
dim $m="m"
dim $n="n"
dim $o="o"
dim $p="p"
dim $q="q"
dim $r="r"
dim $s="s"
dim $t="t"
dim $u="u"
dim $v="v"
dim $w="w"
dim $x="x"
dim $y="y"
dim $z="z"
dim $space=" "
dim $file="key.txt"
dim $chersep=""
HotKeySet("+^!s" , "unhide" )
#include <GuiConstants.au3>

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype


GuiCreate("Key Changer", 512, 299,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

;$file = GuiCtrlCreateInput($file , 10 , 200 ,130, 20)
$space = GuiCtrlCreateInput($space ,10 , 230 ,60, 20)
$Label_28 = GuiCtrlCreateLabel("Space Char",10,210)
$chersep = GuiCtrlCreateInput("" ,80 , 230 ,60, 20)
$Label_29 = GuiCtrlCreateLabel("separator",80,210)
$a = GuiCtrlCreateInput($a, 10, 80, 60, 20)
$b = GuiCtrlCreateInput($b, 80, 80, 60, 20)
$c = GuiCtrlCreateInput($c, 150, 80, 60, 20)
$d = GuiCtrlCreateInput($d, 220, 80, 60, 20)
$e = GuiCtrlCreateInput($e, 290, 80, 60, 20)
$f = GuiCtrlCreateInput($f, 360, 80, 60, 20)
$g = GuiCtrlCreateInput($g, 430, 80, 60, 20)
$h = GuiCtrlCreateInput($h, 10, 110, 60, 20)
$i = GuiCtrlCreateInput($i, 80, 110, 60, 20)
$j = GuiCtrlCreateInput($j, 150, 110, 60, 20)
$k = GuiCtrlCreateInput($k, 220, 110, 60, 20)
$l = GuiCtrlCreateInput($l, 290, 110, 60, 20)
$m = GuiCtrlCreateInput($m, 360, 110, 60, 20)
$n = GuiCtrlCreateInput($n, 430, 110, 60, 20)
$o = GuiCtrlCreateInput($o, 10, 140, 60, 20)
$p = GuiCtrlCreateInput($p, 80, 140, 60, 20)
$q = GuiCtrlCreateInput($r, 150, 140, 60, 20)
$r = GuiCtrlCreateInput($r, 220, 140, 60, 20)
$s = GuiCtrlCreateInput($s, 290, 140, 60, 20)
$t = GuiCtrlCreateInput($t, 360, 140, 60, 20)
$u = GuiCtrlCreateInput($u, 430, 140, 60, 20)
$v = GuiCtrlCreateInput($v, 10, 170, 60, 20)
$w = GuiCtrlCreateInput($w, 80, 170, 60, 20)
$x = GuiCtrlCreateInput($x, 150, 170, 60, 20)
$y = GuiCtrlCreateInput($y, 290, 170, 60, 20)
$z = GuiCtrlCreateInput($z, 220, 170, 60, 20)
$Label_27 = GuiCtrlCreateLabel("Boxes go in alphabetical order. what ever is in the box is wat is going to be used when you press that key.", 20, 20, 230, 40)
$info = GuiCtrlCreateButton("Info", 280, 250, 100, 30)
$done = GuiCtrlCreateButton("Done", 400, 250, 100, 30)


GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $done
    done()
    Case $msg = $info
    info() 
    Case Else
        ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

HotKeySet("+^!s" , "unhide" )
HotKeySet("a", "a")
HotKeySet("b", "b")
HotKeySet("c", "c")
HotKeySet("d", "d")
HotKeySet("e", "e")
HotKeySet("f", "f")
HotKeySet("g", "g")
HotKeySet("h", "h")
HotKeySet("i", "i")
HotKeySet("j", "j")
HotKeySet("k", "k")
HotKeySet("l", "l")
HotKeySet("m", "m")
HotKeySet("n", "n")
HotKeySet("o", "o")
HotKeySet("p", "p")
HotKeySet("q", "q")
HotKeySet("r", "r")
HotKeySet("s", "s")
HotKeySet("t", "t")
HotKeySet("u", "u")
HotKeySet("v", "v")
HotKeySet("w", "w")
HotKeySet("x", "x")
HotKeySet("y", "y")
HotKeySet("z", "z")

;================================================================


While 1
    Sleep(111)
WEnd

;=======================Functions=================
Func unhide()
    GUISetState (@SW_SHOW)
    EndFunc
;-------------------------------------------------
func info()
msgbox (0, "Info", "Created by Dakota V1.0")
endfunc
;--------------------------------------------------
func done()
    Msgbox (0,"Info" , "Press+Shift+Ctrl+Alt+S to open the window." )
    GUISetState (@SW_HIDE)
EndFunc



;===================================================

;==================================================
;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
;==================================================
Func a()
   Send (GUICtrlRead( $a ) & $chersep)
EndFunc 
;==================================================
;bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
;==================================================
Func b()
    Send (GUICtrlRead( $b ) & $chersep)
EndFunc 
;==================================================
;cccccccccccccccccccccccccccccccccccccccccccccccccc
;==================================================
Func c()
    Send (GUICtrlRead( $c ) & $chersep)
EndFunc 
;==================================================
;dddddddddddddddddddddddddddddddddddddddddddddddddd
;==================================================
Func d()
    Send (GUICtrlRead( $d ) & $chersep)
EndFunc 
;==================================================
;eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
;==================================================
Func e()
   Send (GUICtrlRead( $e ) & $chersep)
EndFunc 
;==================================================
;ffffffffffffffffffffffffffffffffffffffffffffffffff
;==================================================
Func f()
    Send (GUICtrlRead( $f ) & $chersep)
EndFunc 
;==================================================
;gggggggggggggggggggggggggggggggggggggggggggggggggg
;==================================================
Func g()
    Send (GUICtrlRead( $g ) & $chersep)
EndFunc
;==================================================
;hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
;==================================================
Func h()
    Send (GUICtrlRead( $h ) & $chersep)
EndFunc 
;==================================================
;iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
;==================================================
Func i()
    Send (GUICtrlRead( $i ) & $chersep)
EndFunc  
;==================================================
;jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj
;==================================================
Func j()
    Send (GUICtrlRead( $j ) & $chersep)
EndFunc 
;==================================================
;kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
;==================================================
Func k()
    Send (GUICtrlRead( $k ) & $chersep)
EndFunc 
;==================================================
;llllllllllllllllllllllllllllllllllllllllllllllllll
;==================================================
Func l()
    Send (GUICtrlRead( $l ) & $chersep)
EndFunc 
;==================================================
;mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
;==================================================
Func m()
   Send (GUICtrlRead( $m ) & $chersep)
EndFunc 
;==================================================
;nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
;==================================================
Func n()
    Send (GUICtrlRead( $n ) & $chersep)
EndFunc 
;==================================================
;oooooooooooooooooooooooooooooooooooooooooooooooooo
;==================================================
Func o()
    Send (GUICtrlRead( $o ) & $chersep)
EndFunc 
;==================================================
;pppppppppppppppppppppppppppppppppppppppppppppppppp
;==================================================
Func p()
    Send (GUICtrlRead( $p ) & $chersep)
EndFunc 
;==================================================
;qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
;==================================================
Func q()
    Send (GUICtrlRead( $q ) & $chersep)
EndFunc 
;==================================================
;rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
;==================================================
Func r()
    Send (GUICtrlRead( $r ) & $chersep)
EndFunc 
;==================================================
;ssssssssssssssssssssssssssssssssssssssssssssssssss
;==================================================
Func s()
    Send (GUICtrlRead( $s ) & $chersep)
EndFunc 
;==================================================
;tttttttttttttttttttttttttttttttttttttttttttttttttt
;==================================================
Func t()
    Send (GUICtrlRead( $t ) & $chersep)
EndFunc 
;==================================================
;uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
;==================================================
Func u()
    Send (GUICtrlRead( $u ) & $chersep)
EndFunc 
;==================================================
;vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
;==================================================
Func v()
    Send (GUICtrlRead( $v ) & $chersep)
EndFunc 
;==================================================
;wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
;==================================================
Func w()
    Send (GUICtrlRead( $w ) & $chersep)
EndFunc 
;==================================================
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;==================================================
Func x()
    Send (GUICtrlRead( $x ) & $chersep)
EndFunc 
;==================================================
;yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
;==================================================
Func y()
    Send (GUICtrlRead( $y ) & $chersep)
EndFunc 
;==================================================
;zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
;==================================================
Func z()
    Send (GUICtrlRead( $z ) & $chersep)
EndFunc

PLEASE HELP

[Uten]

Hi @dakota,

Could you try to explain why you want this?

If I hve got it right you want this:

When your gui is active you want to remap the keys on the keyboard such that a redefined char is sent? As in the user hist a but gets z?

Or is it the other way around? When your application is active the keyboard works as normale but when another window is active the a is a z?

[Don N]

At this point i have no idea what is going on

When you say "This is what I have but it still doesnt work", what is not working or what errors are you getting?

[dakota]

Yes when my gui is open i want it to have the keyboard act like normal. And my script is gust not working ther is no error but when I change what the key should put out it does not change.

Thinks for your help

[dakota]

PLEASE HELP

[Don N]

look at the script in vollyman's sig about only using HotKeySet when a specific window is active, use this to release ur hot keys when ur gui is open and define them when the gui is closed.

[Gyzmok]

this is what i have now but it still does not work

expandcollapse popup

dim $a="a"
dim $b="b"
dim $c="c"
dim $d="d"
dim $e="e"
dim $f="f"
dim $g="g"
dim $h="h"
dim $i="i"
dim $j="j"
dim $k="k"
dim $l="l"
dim $m="m"
dim $n="n"
dim $o="o"
dim $p="p"
dim $q="q"
dim $r="r"
dim $s="s"
dim $t="t"
dim $u="u"
dim $v="v"
dim $w="w"
dim $x="x"
dim $y="y"
dim $z="z"
dim $space=" "
dim $file="key.txt"
dim $chersep=""
HotKeySet("+^!s" , "unhide" )
#include <GuiConstants.au3>

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype
GuiCreate("Key Changer", 512, 299,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

;$file = GuiCtrlCreateInput($file , 10 , 200 ,130, 20)
$space = GuiCtrlCreateInput($space ,10 , 230 ,60, 20)
$Label_28 = GuiCtrlCreateLabel("Space Char",10,210)
$chersep = GuiCtrlCreateInput("" ,80 , 230 ,60, 20)
$Label_29 = GuiCtrlCreateLabel("separator",80,210)
$a = GuiCtrlCreateInput($a, 10, 80, 60, 20)
$b = GuiCtrlCreateInput($b, 80, 80, 60, 20)
$c = GuiCtrlCreateInput($c, 150, 80, 60, 20)
$d = GuiCtrlCreateInput($d, 220, 80, 60, 20)
$e = GuiCtrlCreateInput($e, 290, 80, 60, 20)
$f = GuiCtrlCreateInput($f, 360, 80, 60, 20)
$g = GuiCtrlCreateInput($g, 430, 80, 60, 20)
$h = GuiCtrlCreateInput($h, 10, 110, 60, 20)
$i = GuiCtrlCreateInput($i, 80, 110, 60, 20)
$j = GuiCtrlCreateInput($j, 150, 110, 60, 20)
$k = GuiCtrlCreateInput($k, 220, 110, 60, 20)
$l = GuiCtrlCreateInput($l, 290, 110, 60, 20)
$m = GuiCtrlCreateInput($m, 360, 110, 60, 20)
$n = GuiCtrlCreateInput($n, 430, 110, 60, 20)
$o = GuiCtrlCreateInput($o, 10, 140, 60, 20)
$p = GuiCtrlCreateInput($p, 80, 140, 60, 20)
$q = GuiCtrlCreateInput($r, 150, 140, 60, 20)
$r = GuiCtrlCreateInput($r, 220, 140, 60, 20)
$s = GuiCtrlCreateInput($s, 290, 140, 60, 20)
$t = GuiCtrlCreateInput($t, 360, 140, 60, 20)
$u = GuiCtrlCreateInput($u, 430, 140, 60, 20)
$v = GuiCtrlCreateInput($v, 10, 170, 60, 20)
$w = GuiCtrlCreateInput($w, 80, 170, 60, 20)
$x = GuiCtrlCreateInput($x, 150, 170, 60, 20)
$y = GuiCtrlCreateInput($y, 290, 170, 60, 20)
$z = GuiCtrlCreateInput($z, 220, 170, 60, 20)
$Label_27 = GuiCtrlCreateLabel("Boxes go in alphabetical order. what ever is in the box is wat is going to be used when you press that key.", 20, 20, 230, 40)
$info = GuiCtrlCreateButton("Info", 280, 250, 100, 30)
$done = GuiCtrlCreateButton("Done", 400, 250, 100, 30)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $done
    done()
    Case $msg = $info
    info() 
    Case Else
        ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

HotKeySet("+^!s" , "unhide" )
HotKeySet("a", "a")
HotKeySet("b", "b")
HotKeySet("c", "c")
HotKeySet("d", "d")
HotKeySet("e", "e")
HotKeySet("f", "f")
HotKeySet("g", "g")
HotKeySet("h", "h")
HotKeySet("i", "i")
HotKeySet("j", "j")
HotKeySet("k", "k")
HotKeySet("l", "l")
HotKeySet("m", "m")
HotKeySet("n", "n")
HotKeySet("o", "o")
HotKeySet("p", "p")
HotKeySet("q", "q")
HotKeySet("r", "r")
HotKeySet("s", "s")
HotKeySet("t", "t")
HotKeySet("u", "u")
HotKeySet("v", "v")
HotKeySet("w", "w")
HotKeySet("x", "x")
HotKeySet("y", "y")
HotKeySet("z", "z")

;================================================================
While 1
    Sleep(111)
WEnd

;=======================Functions=================
Func unhide()
    GUISetState (@SW_SHOW)
    EndFunc
;-------------------------------------------------
func info()
msgbox (0, "Info", "Created by Dakota V1.0")
endfunc
;--------------------------------------------------
func done()
    Msgbox (0,"Info" , "Press+Shift+Ctrl+Alt+S to open the window." )
    GUISetState (@SW_HIDE)
EndFunc
;===================================================

;==================================================
;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
;==================================================
Func a()
   Send (GUICtrlRead( $a ) & $chersep)
EndFunc 
;==================================================
;bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
;==================================================
Func b()
    Send (GUICtrlRead( $b ) & $chersep)
EndFunc 
;==================================================
;cccccccccccccccccccccccccccccccccccccccccccccccccc
;==================================================
Func c()
    Send (GUICtrlRead( $c ) & $chersep)
EndFunc 
;==================================================
;dddddddddddddddddddddddddddddddddddddddddddddddddd
;==================================================
Func d()
    Send (GUICtrlRead( $d ) & $chersep)
EndFunc 
;==================================================
;eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
;==================================================
Func e()
   Send (GUICtrlRead( $e ) & $chersep)
EndFunc 
;==================================================
;ffffffffffffffffffffffffffffffffffffffffffffffffff
;==================================================
Func f()
    Send (GUICtrlRead( $f ) & $chersep)
EndFunc 
;==================================================
;gggggggggggggggggggggggggggggggggggggggggggggggggg
;==================================================
Func g()
    Send (GUICtrlRead( $g ) & $chersep)
EndFunc
;==================================================
;hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
;==================================================
Func h()
    Send (GUICtrlRead( $h ) & $chersep)
EndFunc 
;==================================================
;iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
;==================================================
Func i()
    Send (GUICtrlRead( $i ) & $chersep)
EndFunc  
;==================================================
;jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj
;==================================================
Func j()
    Send (GUICtrlRead( $j ) & $chersep)
EndFunc 
;==================================================
;kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
;==================================================
Func k()
    Send (GUICtrlRead( $k ) & $chersep)
EndFunc 
;==================================================
;llllllllllllllllllllllllllllllllllllllllllllllllll
;==================================================
Func l()
    Send (GUICtrlRead( $l ) & $chersep)
EndFunc 
;==================================================
;mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
;==================================================
Func m()
   Send (GUICtrlRead( $m ) & $chersep)
EndFunc 
;==================================================
;nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
;==================================================
Func n()
    Send (GUICtrlRead( $n ) & $chersep)
EndFunc 
;==================================================
;oooooooooooooooooooooooooooooooooooooooooooooooooo
;==================================================
Func o()
    Send (GUICtrlRead( $o ) & $chersep)
EndFunc 
;==================================================
;pppppppppppppppppppppppppppppppppppppppppppppppppp
;==================================================
Func p()
    Send (GUICtrlRead( $p ) & $chersep)
EndFunc 
;==================================================
;qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq
;==================================================
Func q()
    Send (GUICtrlRead( $q ) & $chersep)
EndFunc 
;==================================================
;rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr
;==================================================
Func r()
    Send (GUICtrlRead( $r ) & $chersep)
EndFunc 
;==================================================
;ssssssssssssssssssssssssssssssssssssssssssssssssss
;==================================================
Func s()
    Send (GUICtrlRead( $s ) & $chersep)
EndFunc 
;==================================================
;tttttttttttttttttttttttttttttttttttttttttttttttttt
;==================================================
Func t()
    Send (GUICtrlRead( $t ) & $chersep)
EndFunc 
;==================================================
;uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu
;==================================================
Func u()
    Send (GUICtrlRead( $u ) & $chersep)
EndFunc 
;==================================================
;vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
;==================================================
Func v()
    Send (GUICtrlRead( $v ) & $chersep)
EndFunc 
;==================================================
;wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
;==================================================
Func w()
    Send (GUICtrlRead( $w ) & $chersep)
EndFunc 
;==================================================
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;==================================================
Func x()
    Send (GUICtrlRead( $x ) & $chersep)
EndFunc 
;==================================================
;yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
;==================================================
Func y()
    Send (GUICtrlRead( $y ) & $chersep)
EndFunc 
;==================================================
;zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
;==================================================
Func z()
    Send (GUICtrlRead( $z ) & $chersep)
EndFunc
oÝ÷ ØòÄ!³ÿªê-y8^­è¬uçâ«^&©®åzh§¶¬r^jëh×6
...
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $done
    done()
    Case $msg = $info
    info() 
    Case Else
        ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

HotKeySet("+^!s" , "unhide" )
HotKeySet("a", "a")
...
oÝ÷ Ù»az趦ëÞ®­²Ú-áè´§²IëbËk¹Ëb¢{?n­¶¦vºw-ÚÊ-+)ç¡÷(uè¬j«¨¶w¯z·§v)à²Ú+Ê«¨µ«­¢+Ø(¸¸¸)]¡¥±Ä(M±À ÄÄĤ)]¹(¸¸¸(

but then again it never gets there anyway ...

Edited June 8, 2006 by Gyzmok