bf2forlife Posted June 13, 2008 Share Posted June 13, 2008 (edited) This code needs fixing While 1 $Button = ["s", "a", "o", "i", "e", "l", "p", "t", ".", "b", "c", "d", "h", "k", "m", "n","q", "r", "v", "w", "x", "y", "z"] Select Case $Button $string = StringReplace($string, "s", "$") $string = StringReplace($string, "a", "4") $string = StringReplace($string, "o", "0") $string = StringReplace($string, "i", "!") $string = StringReplace($string, "e", "3") $string = StringReplace($string, "l", "l_") $string = StringReplace($string, "p", "|>") $string = StringReplace($string, "t", "7") $string = StringReplace($string, ".", ",") $string = StringReplace($string, "b", "/3") $string = StringReplace($string, "c", "(") $string = StringReplace($string, "d", "[)") $string = StringReplace($string, "h", "]-[") $string = StringReplace($string, "k", "l<") $string = StringReplace($string, "m", "lvl") $string = StringReplace($string, "n", "/\/") $string = StringReplace($string, "q", "()_") $string = StringReplace($string, "r", "/2") $string = StringReplace($string, "v", "\/") $string = StringReplace($string, "w", "\/\/") $string = StringReplace($string, "x", "><") $string = StringReplace($string, "y", "`/") $string = StringReplace($string, "z", "7_") EndSelect WEnd Edited June 13, 2008 by bf2forlife Link to comment Share on other sites More sharing options...
monoceres Posted June 13, 2008 Share Posted June 13, 2008 This code needs fixing...You don't say... Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
DW1 Posted June 17, 2008 Share Posted June 17, 2008 This one works: expandcollapse popupFor $SETHOTKEY = 97 To 122 HotKeySet(Chr($SETHOTKEY), "_" & Chr($SETHOTKEY)) Next Global $NEWLETTER While 1 Sleep(1000) WEnd Func _A() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "A" Case $INT = 2 $NEWLETTER = "4" Case $INT = 3 $NEWLETTER = "a" EndSelect Send($NEWLETTER) EndFunc Func _B() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "B" Case $INT = 2 $NEWLETTER = "8" EndSelect Send($NEWLETTER) EndFunc Func _C() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "C" Case $INT = 2 $NEWLETTER = "(" Case $INT = 3 $NEWLETTER = "[" EndSelect Send($NEWLETTER) EndFunc Func _D() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "|)" Case $INT = 2 $NEWLETTER = "])" Case $INT = 3 $NEWLETTER = "D" EndSelect Send($NEWLETTER) EndFunc Func _E() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "3" Case $INT = 2 $NEWLETTER = "E" EndSelect Send($NEWLETTER) EndFunc Func _F() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "-F" Case $INT = 2 $NEWLETTER = "F" EndSelect Send($NEWLETTER) EndFunc Func _G() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "G" Case $INT = 2 $NEWLETTER = "g" EndSelect Send($NEWLETTER) EndFunc Func _H() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "H" Case $INT = 2 $NEWLETTER = "h" Case $INT = 3 $NEWLETTER = "|-|" EndSelect Send($NEWLETTER) EndFunc Func _I() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "I" Case $INT = 2 $NEWLETTER = "i" EndSelect Send($NEWLETTER) EndFunc Func _J() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "J" Case $INT = 2 $NEWLETTER = "j" EndSelect Send($NEWLETTER) EndFunc Func _K() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "K" Case $INT = 2 $NEWLETTER = "K" EndSelect Send($NEWLETTER) EndFunc Func _L() $INT = Random(1, 4, 1) Select Case $INT = 1 $NEWLETTER = "1" Case $INT = 2 $NEWLETTER = "{!}" Case $INT = 3 $NEWLETTER = "L" Case $INT = 4 $NEWLETTER = "l" EndSelect Send($NEWLETTER) EndFunc Func _M() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "M" Case $INT = 2 $NEWLETTER = "M" Case $INT = 3 $NEWLETTER = "/\/\" EndSelect Send($NEWLETTER) EndFunc Func _N() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "N" Case $INT = 2 $NEWLETTER = "n" Case $INT = 3 $NEWLETTER = "|\|" EndSelect Send($NEWLETTER) EndFunc Func _O() $INT = Random(1, 5, 1) Select Case $INT = 1 $NEWLETTER = "0" Case $INT = 2 $NEWLETTER = "o" Case $INT = 3 $NEWLETTER = "O" Case $INT = 4 $NEWLETTER = "[]" Case $INT = 5 $NEWLETTER = "()" EndSelect Send($NEWLETTER) EndFunc Func _P() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "P" Case $INT = 2 $NEWLETTER = "p" EndSelect Send($NEWLETTER) EndFunc Func _Q() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "Q" Case $INT = 2 $NEWLETTER = "q" EndSelect Send($NEWLETTER) EndFunc Func _R() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "|2" Case $INT = 2 $NEWLETTER = "R" Case $INT = 3 $NEWLETTER = "r" EndSelect Send($NEWLETTER) EndFunc Func _S() $INT = Random(1, 4, 1) Select Case $INT = 1 $NEWLETTER = "s" Case $INT = 2 $NEWLETTER = "S" Case $INT = 3 $NEWLETTER = "5" Case $INT = 4 $NEWLETTER = "$" EndSelect Send($NEWLETTER) EndFunc Func _T() $INT = Random(1, 4, 1) Select Case $INT = 1 $NEWLETTER = "7" Case $INT = 2 $NEWLETTER = "t" Case $INT = 3 $NEWLETTER = "T" Case $INT = 4 $NEWLETTER = "{+}" EndSelect Send($NEWLETTER) EndFunc Func _U() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "u" Case $INT = 2 $NEWLETTER = "U" Case $INT = 3 $NEWLETTER = "|_|" EndSelect Send($NEWLETTER) EndFunc Func _V() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "v" Case $INT = 2 $NEWLETTER = "V" Case $INT = 3 $NEWLETTER = "\/" EndSelect Send($NEWLETTER) EndFunc Func _W() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "\/\/" Case $INT = 2 $NEWLETTER = "w" Case $INT = 3 $NEWLETTER = "W" EndSelect Send($NEWLETTER) EndFunc Func _X() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "x" Case $INT = 2 $NEWLETTER = "><" Case $INT = 3 $NEWLETTER = "X" EndSelect Send($NEWLETTER) EndFunc Func _Y() $INT = Random(1, 2, 1) Select Case $INT = 1 $NEWLETTER = "y" Case $INT = 2 $NEWLETTER = "Y" EndSelect Send($NEWLETTER) EndFunc Func _Z() $INT = Random(1, 3, 1) Select Case $INT = 1 $NEWLETTER = "z" Case $INT = 2 $NEWLETTER = "Z" Case $INT = 3 $NEWLETTER = "2" EndSelect Send($NEWLETTER) EndFunc AutoIt3 Online Help 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