Random Keys

[randomboy]

Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
    Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
    If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
    Return 0
EndFunc
$dll = DllOpen("user32.dll")
$r = Send("{BS}p")
While 1
    sleep (50)
        If _IsPressed("41") Then
            Send("{BS}h")
        EndIf

I have been working with the above code and I'm trying to create a script where a user hits a key and the program sends out a random key. I have managed to set the program to send out set letters but not random letters. Can anyone help me?

Thanks

[SmOke_N]

Random + Loop + Chr()

[randomboy]

Thank you very much

[randomboy]

Actually I don't understand what SmOke_N has told me to do. Can someone help?

Edited October 25, 2006 by randomboy

[BigDod]

Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
    Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
    If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
    Return 0
EndFunc
$dll = DllOpen("user32.dll")
;$r = Send("{BS}p")
While 1
    sleep (50)
        If _IsPressed("41") Then
            $key=Random(65,90)
            $key1=chr($key)
            msgbox(0,"Key sent",$key1)
            ;Send("{BS}h")
        EndIf 
Wend

Remember it will still send the original key

[randomboy]

When I tried it it didn't really work.

Edited October 25, 2006 by randomboy

[randomboy]

Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
    Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
    If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
    Return 0
EndFunc
$dll = DllOpen("user32.dll")
While 1
    sleep (50)
        If _IsPressed("41") Then
            $key=Random(65,90)
            Send($key)
        EndIf
Wend

I tried the above code and it gave me the following output.

a75.3041700553149a71.0769480129238a66.9570499367546a80.7049670582637

I think it just gave me random numbers between 65 and 90.

Does anyone know what has happened and what I need to do to solve it?

Edited October 25, 2006 by randomboy

[randomboy]

Not to worry I solved it.

[BigDod]

You forgot

key1=chr($key)
send($key1)

[randomboy]

Yeah I realised I forgot that but thanks anyway.