Paste2 Logo
  1. #cs
  2. Autore: Red Skull 92
  3. Web : Www.RedSkull92.Wordpress.Com
  4. mail : RedSkull92@gmail.com
  5. #ce
  6.  
  7. #include <GUIConstants.au3>
  8.  
  9.  
  10. Global $Form = GUICreate("Nick Converter By Red Skull 92", 336, 177, -1, -1, -1)
  11. Global $nick = GUICtrlCreateInput("", 8, 48, 321, 21)
  12. GUICtrlSetTip(-1, "Inserisci il tuo nick")
  13. Global $mod = GUICtrlCreateInput("", 8, 144, 321, 21)
  14. GUICtrlSetTip(-1, "Nick modificato")
  15. Global $conv = GUICtrlCreateButton("Converti", 104, 96, 100, 30)
  16. GUICtrlSetTip(-1, "premi per convertire")
  17. Global $Label1 = GUICtrlCreateLabel("Nick Converter ", 56, 0, 225, 47)
  18. GUICtrlSetFont(-1, 26, 800, 2, "Myriad Pro Light")
  19. GUICtrlSetColor(-1, 0xFF0000)
  20. GUISetState(@SW_SHOW)
  21.  
  22.  
  23. While 1
  24.         $nMsg = GUIGetMsg()
  25.         Switch $nMsg
  26.                 Case $GUI_EVENT_CLOSE
  27.                         Exit
  28.                 Case $conv
  29.                         GUICtrlSetData($mod,"")
  30.                         $leggo=GUICtrlRead($nick)
  31.                         $a=StringReplace($leggo,"a", "å",0,1)
  32.                         $b=StringReplace($a,"A","/\",0,1)
  33.                         $c=stringreplace($b,"b","b",0,1)
  34.                         $d=StringReplace($c,"B","ß",0,1)
  35.                         $e=StringReplace($d,"c","c",0,1)
  36.                         $f=StringReplace($e,"C","©",0,1)
  37.                         $g=StringReplace($f,"d","d",0,1)
  38.                         $h=StringReplace($g,"D","Ð",0,1)
  39.                         $i=StringReplace($h,"e", "€",0,1)
  40.                         $j=StringReplace($i, "E", "Ê",0,1)
  41.                         $k=StringReplace($j, "f", "ƒ",0,1)
  42.                         $l=StringReplace($k,"F", "F",0,1)
  43.                         $m=StringReplace($l,"g", "g",0,1)
  44.                         $n=StringReplace($m,"G", "G",0,1)
  45.                         $o=StringReplace($n, "h", "h",0,1)
  46.                         $p=StringReplace($o, "H", "[]-[]",0,1)
  47.                         $q=StringReplace($p, "i", "i",0,1)
  48.                         $r=StringReplace($q, "I", "[]",0,1)
  49.                         $s=StringReplace($r, "l", "l",0,1)
  50.                         $t=StringReplace($s, "L", "[_",0,1)
  51.                         $u=StringReplace($t, "m", "m",0,1)
  52.                         $v=StringReplace($u, "M", "]\/[",0,1)
  53.                         $w=StringReplace($v, "n", "ñ",0,1)
  54.                         $x=StringReplace($w, "N", "]\[",0,1)
  55.                         $y=StringReplace($x, "o", "ø",0,1)
  56.                         $z=StringReplace($y, "O", "Ø",0,1)
  57.                         $1=StringReplace($z, "p", "Þ",0,1)
  58.                         $2=StringReplace($1, "P", "þ",0,1)
  59.                         $3=StringReplace($2, "q", "q",0,1)
  60.                         $4=StringReplace($3, "Q", "Q",0,1)
  61.                         $5=StringReplace($4, "r", "®",0,1)
  62.                         $6=StringReplace($5, "R", "R",0,1)
  63.                         $7=StringReplace($6, "s", "$",0,1)
  64.                         $8=StringReplace($7, "S", "§",0,1)
  65.                         $9=StringReplace($8, "t", "†",0,1)
  66.                         $10=StringReplace($9, "T", "']['",0,1)
  67.                         $11=StringReplace($10, "u", "u",0,1)
  68.                         $12=StringReplace($11, "U", "Ú",0,1)
  69.                         $13=StringReplace($12, "v", "v",0,1)
  70.                         $14=StringReplace($13, "V", "\/",0,1)
  71.                         $15=StringReplace($14, "z", "z",0,1)
  72.                         $16=StringReplace($15, "Z", "Z",0,1)
  73.                         $17=StringReplace($16, "x", "x",0,1)
  74.                         $18=StringReplace($17, "X", "X",0,1)
  75.                         $19=StringReplace($18, "w", "w",0,1)
  76.                         $20=StringReplace($19, "W", "\x/",0,1)
  77.                         $21=StringReplace($20, "y", "ý",0,1)
  78.                         $22=StringReplace($21, "Y", "Ÿ",0,1)
  79.                         $23=StringReplace($22, "j", "j",0,1)
  80.                         $24=StringReplace($23, "J", "J",0,1)
  81.                         $25=StringReplace($24, "k", "k",0,1)
  82.                         $26=StringReplace($25, "K", "!<",0,1)
  83.                         GUICtrlSetData($mod,$26)
  84.         EndSwitch
  85. WEnd
  86.  

Piccolo programma in grado di convertire una parola /nick o altro con caratteri speciali By Red Skull 92