bf2forlife Posted June 1, 2008 Posted June 1, 2008 (edited) Ok so im trying to convert a 1337 text translator(Thanks AlmarM) to work with images. I got starting code already but it needs some fixing. expandcollapse popup#include <GUIConstants.au3> #include <ImageSearch.au3> Dim $aWords[22] = ["a", "b", "c", "d", "e", "h","i", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z"] $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) HotKeySet("{F5}", "Imagesearch") HotKeySet("{F7}","_stop") Func Imagesearch() While 1 $x1 = 0 $y1 = 0 $result = _ImageSearch($aWords & ".bmp",1,$x1,$y1,0) if $result=1 Then $string = StringReplace($string, "s.bmp", "s") $string = StringReplace($string, "a.bmp", "a") $string = StringReplace($string, "o.bmp", "o") $string = StringReplace($string, "i.bmp", "i") $string = StringReplace($string, "e.bmp", "e") $string = StringReplace($string, "l.bmp", "l") $string = StringReplace($string, "p.bmp", "p") $string = StringReplace($string, "t.bmp", "t") $string = StringReplace($string, "b.bmp", "b") $string = StringReplace($string, "c.bmp", "c") $string = StringReplace($string, "d.bmp", "d") $string = StringReplace($string, "h.bmp", "h") $string = StringReplace($string, "k.bmp", "k") $string = StringReplace($string, "m.bmp", "m") $string = StringReplace($string, "n.bmp", "n") $string = StringReplace($string, "q.bmp", "q") $string = StringReplace($string, "r.bmp", "r") $string = StringReplace($string, "v.bmp", "v") $string = StringReplace($string, "w.bmp", "w") $string = StringReplace($string, "x.bmp", "x") $string = StringReplace($string, "y.bmp", "y") $string = StringReplace($string, "z.bmp", "z") GUICtrlSetData($input, $string) Endif $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button $string = GUICtrlRead($Input) $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", "|_") $string = StringReplace($string, "p", "|>") $string = StringReplace($string, "t", "7") $string = StringReplace($string, "b", "/3") $string = StringReplace($string, "c", "(") $string = StringReplace($string, "d", "[)") $string = StringReplace($string, "h", "]-[") $string = StringReplace($string, "k", "|<") $string = StringReplace($string, "m", "|v|") $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_") ControlSend("Example", "", "Edit1", $string) EndSelect WEnd Endfunc Func _stop() While 1 Sleep(100) WEnd EndFunc While 1 sleep(10) WEnd So could anyone fix that code? Thanks. Edited June 1, 2008 by bf2forlife
hussert Posted June 1, 2008 Posted June 1, 2008 Image Search ?? Could that be used to Auto Type Image Codes ?? Just kidding Nice Script though ... too bad Iam busy now to try fixing it ...
bf2forlife Posted June 2, 2008 Author Posted June 2, 2008 (edited) Someone? Or can you even do that? Edited June 2, 2008 by bf2forlife
James Posted June 2, 2008 Posted June 2, 2008 You want to replace the text with images? Why not output the result into HTML? Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
bf2forlife Posted June 2, 2008 Author Posted June 2, 2008 You want to replace the text with images? Why not output the result into HTML? What u mean?
James Posted June 2, 2008 Posted June 2, 2008 Well your GUI will have to expand if you want to replace the letters with images in the GUI so why not export it in HTML? Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
bf2forlife Posted June 2, 2008 Author Posted June 2, 2008 Well your GUI will have to expand if you want to replace the letters with images in the GUI so why not export it in HTML? Might work, but i dont know how to do it
James Posted June 2, 2008 Posted June 2, 2008 FileOpen(), FileWrite() and FileClose(). Then just write HTML code to a *.html file. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ
bf2forlife Posted June 2, 2008 Author Posted June 2, 2008 (edited) Mind to post example? my help file is bugging (not opening) Edited June 2, 2008 by bf2forlife
bf2forlife Posted June 2, 2008 Author Posted June 2, 2008 (edited) Got it working, so what ur exactly want to do with HTML? I understanded that u want write the result in .html file? But why? Edited June 3, 2008 by bf2forlife
bf2forlife Posted June 3, 2008 Author Posted June 3, 2008 Its my first time i gotta bump second time before respond
bf2forlife Posted June 23, 2008 Author Posted June 23, 2008 Well i took break from this script and im back. I have fixed the script but there are still some bugs. here is the script. expandcollapse popup#include <GUIConstants.au3> #include <ImageSearch.au3> Dim $aWords[22] = ["a", "b", "c", "d", "e", "h","i", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z"] $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) HotKeySet("{F5}", "start") HotKeySet("{F7}","_stop") Func start() While 1 $var = GUICtrlRead($input) $x1 = 0 $y1 = 0 $result = _ImageSearch("s.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "s") else $result = _ImageSearch("a.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "a") else $result = _ImageSearch("o.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "o") else $result = _ImageSearch("i.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "i") else $result = _ImageSearch("e.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "e") else $result = _ImageSearch("l.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "l") else $result = _ImageSearch("p.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "p") else $result = _ImageSearch("t.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "t") else $result = _ImageSearch("b.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "b") else $result = _ImageSearch("c.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "c") else $result = _ImageSearch("d.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "d") else $result = _ImageSearch("h.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input, $var & "h") else $result = _ImageSearch("k.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "k") else $result = _ImageSearch("m.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "m") else $result = _ImageSearch("n.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "n") else $result = _ImageSearch("q.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "q") else $result = _ImageSearch("r.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "r") else $result = _ImageSearch("v.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "v") else $result = _ImageSearch("w.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "w") else $result = _ImageSearch("x.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input, $var & "x") else $result = _ImageSearch("y.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "y") else $result = _ImageSearch("z.bmp",1,$x1,$y1,0) if $result=1 Then GUICtrlSetData($input,$var & "z") Endif endif EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit EndSelect $string = GUICtrlRead($Input) $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", "|_") $string = StringReplace($string, "p", "|>") $string = StringReplace($string, "t", "7") $string = StringReplace($string, "b", "/3") $string = StringReplace($string, "c", "(") $string = StringReplace($string, "d", "[)") $string = StringReplace($string, "h", "]-[") $string = StringReplace($string, "k", "|<") $string = StringReplace($string, "m", "|v|") $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_") Send($string) Send("{ENTER}") GUICtrlSetData($input,"") WEND Endfunc Func _stop() While 1 Sleep(100) WEnd EndFunc While 1 sleep(10) WEnd Well the bug is that when i for example write "ad" then it starts sending 4 all the time, and not [) at all.
Belfigor Posted August 9, 2008 Posted August 9, 2008 Very interesting script!!! I am new in AutoIt and i cannot tell u anything. But im working at script that will read text too [size="1"]My bear is so cute asleep in the closet, not even drinking vodka. My nuclear bomb name is Natasha.[/size]
Zedna Posted August 9, 2008 Posted August 9, 2008 (edited) Just corrected part with FOR NEXT loop (not tested): expandcollapse popup#include <GUIConstants.au3> #include <ImageSearch.au3> Dim $aWords[22] = ["a", "b", "c", "d", "e", "h", "i", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z"] $GUI = GUICreate("1337 Text Translator", 200, 90, -1, -1) $Input = GUICtrlCreateInput("", 10, 60, 180, 20) $Button = GUICtrlCreateButton("1337 My Text", 10, 30, 180, 25) $Label = GUICtrlCreateLabel("", 10, 10, 180, 20) GUISetState(@SW_SHOW) HotKeySet("{F5}", "Imagesearch") HotKeySet("{F7}", "_stop") Func Imagesearch() While 1 $x1 = 0 $y1 = 0 For $i = 0 To 21 $result = _ImageSearch($aWords[$i] & ".bmp", 1, $x1, $y1, 0) If $result = 1 Then $string = StringReplace($string, $aWords[$i] & ".bmp", $aWords[$i]) GUICtrlSetData($Input, $string) ExitLoop EndIf Next $nMsg = GUIGetMsg() Select Case $nMsg = $GUI_EVENT_CLOSE Exit Case $nMsg = $Button $string = GUICtrlRead($Input) $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", "|_") $string = StringReplace($string, "p", "|>") $string = StringReplace($string, "t", "7") $string = StringReplace($string, "b", "/3") $string = StringReplace($string, "c", "(") $string = StringReplace($string, "d", "[)") $string = StringReplace($string, "h", "]-[") $string = StringReplace($string, "k", "|<") $string = StringReplace($string, "m", "|v|") $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_") ControlSend("Example", "", "Edit1", $string) EndSelect WEnd EndFunc ;==>Imagesearch Func _stop() While 1 Sleep(100) WEnd EndFunc ;==>_stop While 1 Sleep(10) WEnd Edited August 9, 2008 by Zedna Resources UDF ResourcesEx UDF AutoIt Forum Search
bf2forlife Posted August 9, 2008 Author Posted August 9, 2008 the main problem is that it puts the first found letter in multiple times. I want it to only put it once and then search for diffrent letter, but even if it were fixed, what would happen if the word has 2 same letters?
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