Kleines Auswahlmenü

  • Hey, ich habe mir von einer anderen Seite einen Übersetzer in der Sprache AutoIt runtergeladen.
    Soweit so gut, nun bin ich aber noch ein Neuling was AutoIt angeht (was sich derzeit ändert ;)).

    Mit dem Script kann man viele Sprachen von Deutsch in eine andere Übersetzen.
    Hier mal die Source:

    [autoit]

    ; Title: Übersetzer
    ; Published: 21.12.09
    ; Downloaded: 19.06.10
    ; Type: UDF

    [/autoit][autoit][/autoit][autoit]

    $eingabe=InputBox("Übersetzer","Gib einen Satz in Deutsch ein:","","")
    MsgBox(0,"",Translate($eingabe,"de-fr"))

    [/autoit][autoit][/autoit][autoit]

    ;===============================================================================
    ;
    ; Function Name: Translate()
    ; Description: ?ersetzt einen Satz von der einen zur anderen Sprache
    ; Parameter(s): $satz = Ihr Satz
    ; $language = Von Sprache - In Sprache:
    ; de-en, en-de, zh-en, zh-zt, zt-en, zt-zh,
    ; en-zh, en-zt, en-nl, en-fr, en-el, en-it,
    ; en-ja, en-ko, en-pt, en-ru, en-es, nl-en,
    ; nl-fr, fr-nl, fr-en, fr-de, fr-el, fr-it,
    ; fr-pt, fr-es, de-fr, el-en, el-fr, it-en,
    ; it-fr, ja-en, ko-en, pt-en, pt-fr, ru-en,
    ; es-en, es-fr
    ; Return Value(s): On Success - Gibt die ?ersetzung zur?
    ; On Failure - Gibt "0" zur?
    ;
    ;===============================================================================

    [/autoit][autoit][/autoit][autoit]

    Func Translate($satz,$language)
    Local $translate, $i, $escaped
    For $i=1 To StringLen($satz)
    If "0x"&Hex(Asc(StringMid($satz,$i,1)),2)<0x21 Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)=0x25 Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)=0x2f Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)>0x7f Then
    $escaped=$escaped&'%'&Hex(Asc(StringMid($satz,$i,1)),2)
    Else
    $escaped=$escaped&Chr("0x"&Hex(Asc(StringMid($satz,$i,1)),2))
    EndIf
    Next
    InetGet("http://babelfish.yahoo.com/translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&tt=urltext&trtext="&$escaped&"&lp="&StringReplace($language,"-","_")&"&btnTrTxt=Translate",@TempDir&"translate.dll")
    $translate=FileRead(@TempDir&"translate.dll")
    FileDelete(@TempDir&"translate.dll")
    $translate=StringMid($translate,StringInStr($translate,'<div id="result">'))
    $translate=StringMid($translate,StringInStr($translate,'>')+1)
    $translate=StringMid($translate,StringInStr($translate,'>')+1)
    $translate=StringLeft($translate,StringInStr($translate,'<')-1)
    Return $translate
    EndFunc

    [/autoit]

    Und ich möchte, dass beim Start des Scripts ein Menü kommt, wo ich die Sprache auswählen kann, in welche übersetzt werden soll.
    Wäre wirklich genial wenn mir jemand zeigen könnte, wie sowas geht, damit ich das auch für andere Scripte anwenden kann :)

    Viielen Dank im Voraus.
    Beste Grüße,
    c0der.

    Einmal editiert, zuletzt von c0der (19. Juni 2010 um 20:58)

  • Sorry, aber ich verstehe nicht so ganz was du meinst :\
    Bin noch sehr neu in dem Gebiet, ich lese gerade alle Anfängertutorials & Anleitungen :)


    Grüße,
    c0der.


    //okay, ich bin gerade am Rumprobieren :)

  • Mit GUICreate() erstellst du eine GUI. Mit GUICtrlCreateCombo() kannst du dann die Comboliste erstellen.
    Beispiel:

    Spoiler anzeigen
    [autoit]

    Opt("GUIOnEVentMode", 1)
    $hGUI = GUICreate("Combo Box Beispiel", 357, 73, 192, 124)
    GUISetOnEvent(-3, "_exit")
    GUICtrlCreateLabel("Bitte wählen sie eine Sprache aus.", 8, 8, 167, 17)
    $Combo = GUICtrlCreateCombo("", 200, 8, 145, 25)
    GUICtrlSetData(-1, "Deutsch|Englisch|Französisch")
    $start = GUICtrlCreateButton("Start", 72, 40, 75, 25)
    GUICtrlSetOnEvent(-1, "testfunc")
    GUISetState(@SW_SHOW)
    While True
    WEnd
    Func testfunc()
    MsgBox(64, "Combo Box Beispiel", "Es wurde "&GUICtrlRead($combo)&" ausgewählt.")
    EndFunc
    Func _exit()
    Exit
    EndFunc

    [/autoit]
  • So, also ich habe es mal mit der GuiCtrlRead() probiert und bin eetwas weiter gekommen.

    [autoit][/autoit][autoit][/autoit][autoit]

    #include <GUIConstantsEx.au3>

    [/autoit][autoit][/autoit][autoit]

    Opt('MustDeclareVars', 1)

    [/autoit][autoit][/autoit][autoit]

    Example()

    [/autoit][autoit][/autoit][autoit]

    Func Example()
    Local $menu1, $n1, $n2, $msg, $menustate, $menutext

    [/autoit][autoit][/autoit][autoit]

    GUICreate("Multi-Übersetzer") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

    [/autoit][autoit][/autoit][autoit]

    $menu1 = GUICtrlCreateMenu ("")

    [/autoit][autoit][/autoit][autoit]

    $n1 = GUICtrlCreateList("", 10, 10, -1, 100)
    GUICtrlSetData(-1, "Deutsch - Englisch|Deutsch - Französisch|Englisch - Französisch", "")

    [/autoit][autoit][/autoit][autoit]

    $n2 = GUICtrlCreateButton("Weiter", 10, 150, 50)
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button

    [/autoit][autoit][/autoit][autoit]

    GUISetState() ; Zeigt das leere GUI-Fenster
    ; Führt das GUI aus, bis der Dialog geschlossen wird
    Do
    $msg = GUIGetMsg()
    If $msg = $n2 Then
    MsgBox(0, "Ausgewählter Listbox-Eintrag", GUICtrlRead($n1)) ; Zeigt den ausgewählten Listbox-Eintrag an
    $menustate = GUICtrlRead($menu1) ; Rückgabe des Zustandes des Menüpunktes
    $menutext = GUICtrlRead($menu1, 1) ; Rückgabe des Textes des Menüpunktes
    MsgBox(0, "Status und Text des Menüpunktes", "Status:" & $menustate & @LF & "Text:" & $menutext)
    EndIf
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example

    [/autoit]

    So, nun will ich, wenn man "Deutsch - Englisch" auswählt, dass z.B. "de-fr.exe" ausgeführt wird.
    Ihr seid echt klasse Leute (Y)


    Grüße,
    c0der.

  • Dateien ausführen kannst du mit ShellExecute() . Aber du kannst auch statt einer Datei eine Funktion in deinem Programm aufrufen lassen, dann braucht man, wenn man dein Programm ausführen will nicht 20 Dateien, sondern nur eine ;)

  • Funktioniert das mit If?

    [autoit][/autoit][autoit][/autoit][autoit]

    #include <GUIConstantsEx.au3>

    [/autoit][autoit][/autoit][autoit]

    Opt('MustDeclareVars', 1)

    [/autoit][autoit][/autoit][autoit]

    Example()

    [/autoit][autoit][/autoit][autoit]

    Func Example()
    Local $menu1, $n1, $n2, $msg, $menustate, $menutext

    [/autoit][autoit][/autoit][autoit]

    GUICreate("Multi-Übersetzer") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

    [/autoit][autoit][/autoit][autoit]

    $menu1 = GUICtrlCreateMenu ("")

    [/autoit][autoit][/autoit][autoit]

    $n1 = GUICtrlCreateList("", 10, 10, -1, 100)
    GUICtrlSetData(-1, "Deutsch - Englisch|Deutsch - Französisch|Englisch - Französisch", "")

    [/autoit][autoit][/autoit][autoit]

    $n2 = GUICtrlCreateButton("weiter", 10,150,50)
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button

    [/autoit][autoit][/autoit][autoit]

    If GUICtrLSetData(-1, "Deutsch - Englisch", "")
    Then
    Func Translate($satz,$language)
    Local $translate, $i, $escaped
    For $i=1 To StringLen($satz)
    If "0x"&Hex(Asc(StringMid($satz,$i,1)),2)<0x21 Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)=0x25 Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)=0x2f Or "0x"&Hex(Asc(StringMid($satz,$i,1)),2)>0x7f Then
    $escaped=$escaped&'%'&Hex(Asc(StringMid($satz,$i,1)),2)
    Else
    $escaped=$escaped&Chr("0x"&Hex(Asc(StringMid($satz,$i,1)),2))
    EndIf

    [/autoit][autoit][/autoit][autoit]

    $n2 = GUICtrlCreateButton("Weiter", 10, 150, 50)
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button

    [/autoit][autoit][/autoit][autoit]

    Next
    InetGet("http://babelfish.yahoo.com/translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&tt=urltext&trtext="&$escaped&"&lp="&StringReplace($language,"-","_")&"&btnTrTxt=Translate",@TempDir&"translate.dll")
    $translate=FileRead(@TempDir&"translate.dll")
    FileDelete(@TempDir&"translate.dll")
    $translate=StringMid($translate,StringInStr($translate,'<div id="result">'))
    $translate=StringMid($translate,StringInStr($translate,'>')+1)
    $translate=StringMid($translate,StringInStr($translate,'>')+1)
    $translate=StringLeft($translate,StringInStr($translate,'<')-1)
    Return $translate
    EndFunc
    EndIf

    [/autoit][autoit][/autoit][autoit]

    GUISetState() ; Zeigt das leere GUI-Fenster
    ; Führt das GUI aus, bis der Dialog geschlossen wird
    Do
    $msg = GUIGetMsg()
    If $msg = $n2 Then
    MsgBox(0, "Übersetzt", GUICtrlRead($n1)) ; Zeigt den ausgewählten Listbox-Eintrag an
    $menustate = GUICtrlRead($menu1) ; Rückgabe des Zustandes des Menüpunktes

    [/autoit][autoit][/autoit][autoit]

    EndIf
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example

    [/autoit]

    Sagen wir, wenn "Deutsch - Englisch" auswähle, und auf "weiter" klicke, öffnet sich ein neues Fenster, undzwar der Übersetzer.
    Aber irgendwie bekomm ich da zwei Fehlermeldungen :\
    Ist das so überhaupt korrekt?

  • Du kannst keine Func in eine Func einbauen ;) So geht es z.b.:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    Global $n2, $satz
    Opt('MustDeclareVars', 1)

    [/autoit] [autoit][/autoit] [autoit]

    Example()

    [/autoit] [autoit][/autoit] [autoit]

    Func Example()
    Local $menu1, $n1, $msg, $menustate, $menutext

    [/autoit] [autoit][/autoit] [autoit]

    GUICreate("Multi-Übersetzer") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

    [/autoit] [autoit][/autoit] [autoit]

    $menu1 = GUICtrlCreateMenu("")

    [/autoit] [autoit][/autoit] [autoit]

    $n1 = GUICtrlCreateList("", 10, 10, -1, 100)
    GUICtrlSetData(-1, "Deutsch - Englisch|Deutsch - Französisch|Englisch - Französisch", "")
    GUICtrlCreateLabel("Satz:", 10, 125, -1, 15)
    $satz=GUICtrlCreateInput("", 40, 120, 90, 20)
    $n2 = GUICtrlCreateButton("Weiter", 10, 150, 50)
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState() ; Zeigt das leere GUI-Fenster
    ; Führt das GUI aus, bis der Dialog geschlossen wird
    Do
    $msg = GUIGetMsg()
    If $msg = $n2 Then
    If GUICtrlRead($n1)="Deutsch - Englisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "de-en"))
    If GUICtrlRead($n1)="Deutsch - Französisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "de-fr"))
    If GUICtrlRead($n1)="Englisch - Französisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-fr"))
    EndIf
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example

    [/autoit] [autoit][/autoit] [autoit]

    Func Translate($satz, $language)
    Local $translate, $i, $escaped
    For $i = 1 To StringLen($satz)
    If "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) < 0x21 Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) = 0x25 Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) = 0x2f Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) > 0x7f Then
    $escaped = $escaped & '%' & Hex(Asc(StringMid($satz, $i, 1)), 2)
    Else
    $escaped = $escaped & Chr("0x" & Hex(Asc(StringMid($satz, $i, 1)), 2))
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $n2 = GUICtrlCreateButton("Weiter", 10, 150, 50)
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button

    [/autoit] [autoit][/autoit] [autoit]

    Next
    InetGet("http://babelfish.yahoo.com/translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&tt=urltext&trtext=" & $escaped & "&lp=" & StringReplace($language, "-", "_") & "&btnTrTxt=Translate", @TempDir & "translate.dll")
    $translate = FileRead(@TempDir & "translate.dll")
    FileDelete(@TempDir & "translate.dll")
    $translate = StringMid($translate, StringInStr($translate, '<div id="result">'))
    $translate = StringMid($translate, StringInStr($translate, '>') + 1)
    $translate = StringMid($translate, StringInStr($translate, '>') + 1)
    $translate = StringLeft($translate, StringInStr($translate, '<') - 1)
    Return $translate
    EndFunc ;==>Translate

    [/autoit]
  • Daaaaaaaaaaaaaaaaaaaaaaanke, du bist der beste !!! :)
    Jetzt funktioniert es zwar, aber wenn ich den bereits übersetzten Text lösche & einen neuen übersetzen möchte, dann wird er nicht übersetzt.
    Kannst es ja mal probieren, es passiert einfach nichts mehr wenn man auf "übersetzen" klickt.

    Natürlich bekommt ihr die erweiterte Source :)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    Global $n2, $satz
    Opt('MustDeclareVars', 1)

    [/autoit] [autoit][/autoit] [autoit]

    Example()

    [/autoit] [autoit][/autoit] [autoit]

    Func Example()
    Local $menu1, $n1, $msg, $menustate, $menutext

    [/autoit] [autoit][/autoit] [autoit]

    GUICreate("Multi-Übersetzer") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

    [/autoit] [autoit][/autoit] [autoit]

    $menu1 = GUICtrlCreateMenu("")

    [/autoit] [autoit][/autoit] [autoit]

    $n1 = GUICtrlCreateList("", 10, 10, -1, 100)
    GUICtrlSetData(-1, "Deutsch - Englisch|Deutsch - Französisch|Englisch - Deutsch|Englisch - Französisch|Englisch - Niederländisch|Englisch - Griechisch|Englisch - Italienisch|Englisch - Spanisch|Englisch - Russisch", "")
    GUICtrlCreateLabel("Satz:", 10, 125, -1, 15)
    $satz=GUICtrlCreateInput("", 40, 120, 90, 20)
    $n2 = GUICtrlCreateButton("übersetzen", 10, 150, 70)
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState() ; Zeigt das leere GUI-Fenster
    ; Führt das GUI aus, bis der Dialog geschlossen wird
    Do
    $msg = GUIGetMsg()
    If $msg = $n2 Then
    If GUICtrlRead($n1)="Deutsch - Englisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "de-en"))
    If GUICtrlRead($n1)="Deutsch - Französisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "de-fr"))
    If GUICtrlRead($n1)="Englisch - Deutsch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-de"))
    If GUICtrlRead($n1)="Englisch - Französisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-fr"))
    If GUICtrlRead($n1)="Englisch - Niederländisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-nl"))
    If GUICtrlRead($n1)="Englisch - Griechisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-el"))
    If GUICtrlRead($n1)="Englisch - Italienisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-it"))
    If GUICtrlRead($n1)="Englisch - Spanisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-es"))
    If GUICtrlRead($n1)="Englisch - Russisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-ru"))
    EndIf
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example

    [/autoit] [autoit][/autoit] [autoit]

    Func Translate($satz, $language)
    Local $translate, $i, $escaped
    For $i = 1 To StringLen($satz)
    If "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) < 0x21 Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) = 0x25 Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) = 0x2f Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) > 0x7f Then
    $escaped = $escaped & '%' & Hex(Asc(StringMid($satz, $i, 1)), 2)
    Else
    $escaped = $escaped & Chr("0x" & Hex(Asc(StringMid($satz, $i, 1)), 2))
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    $n2 = GUICtrlCreateButton("übersetzen", 10, 150, 70)
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button

    [/autoit] [autoit][/autoit] [autoit]

    Next
    InetGet("http://babelfish.yahoo.com/translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&tt=urltext&trtext=" & $escaped & "&lp=" & StringReplace($language, "-", "_") & "&btnTrTxt=Translate", @TempDir & "translate.dll")
    $translate = FileRead(@TempDir & "translate.dll")
    FileDelete(@TempDir & "translate.dll")
    $translate = StringMid($translate, StringInStr($translate, '<div id="result">'))
    $translate = StringMid($translate, StringInStr($translate, '>') + 1)
    $translate = StringMid($translate, StringInStr($translate, '>') + 1)
    $translate = StringLeft($translate, StringInStr($translate, '<') - 1)
    Return $translate
    EndFunc ;==>Translate

    [/autoit]
  • Danke, aber der beste bin ich noch lange nicht ^^.
    Warum deine Methode nicht klappt weiß ich leider nicht, aber so geht es:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    Global $menu1, $n1, $satz, $n2
    Opt("GUIOnEventMode", 1)
    Opt('MustDeclareVars', 1)
    GUICreate("Multi-Übersetzer") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
    GUISetOnEvent(-3, "_exit")
    $menu1 = GUICtrlCreateMenu("")
    $n1 = GUICtrlCreateList("", 10, 10, -1, 100)
    GUICtrlSetData(-1, "Deutsch - Englisch|Deutsch - Französisch|Englisch - Deutsch|Englisch - Französisch|Englisch - Niederländisch|Englisch - Griechisch|Englisch - Italienisch|Englisch - Spanisch|Englisch - Russisch", "")
    GUICtrlCreateLabel("Satz:", 10, 125, -1, 15)
    $satz=GUICtrlCreateInput("", 40, 120, 90, 20)
    $n2 = GUICtrlCreateButton("Übersetzen", 10, 150, 70)
    GUICtrlSetOnEvent(-1, "n2")
    GUICtrlSetState(-1, $GUI_FOCUS) ; Der Fokus liegt auf diesem Button
    GUISetState() ; Zeigt das leere GUI-Fenster
    While true
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func n2()
    If GUICtrlRead($n1)="Deutsch - Englisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "de-en"))
    If GUICtrlRead($n1)="Deutsch - Französisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "de-fr"))
    If GUICtrlRead($n1)="Englisch - Deutsch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-de"))
    If GUICtrlRead($n1)="Englisch - Französisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-fr"))
    If GUICtrlRead($n1)="Englisch - Niederländisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-nl"))
    If GUICtrlRead($n1)="Englisch - Griechisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-el"))
    If GUICtrlRead($n1)="Englisch - Italienisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-it"))
    If GUICtrlRead($n1)="Englisch - Spanisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-es"))
    If GUICtrlRead($n1)="Englisch - Russisch" Then MsgBox(0, "Übersetzung", translate(GUICtrlRead($satz), "en-ru"))
    EndFunc
    Func Translate($satz, $language)
    Local $translate, $i, $escaped
    For $i = 1 To StringLen($satz)
    If "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) < 0x21 Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) = 0x25 Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) = 0x2f Or "0x" & Hex(Asc(StringMid($satz, $i, 1)), 2) > 0x7f Then
    $escaped = $escaped & '%' & Hex(Asc(StringMid($satz, $i, 1)), 2)
    Else
    $escaped = $escaped & Chr("0x" & Hex(Asc(StringMid($satz, $i, 1)), 2))
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    Next
    InetGet("http://babelfish.yahoo.com/translate_txt?ei=UTF-8&doit=done&fr=bf-res&intl=1&tt=urltext&trtext=" & $escaped & "&lp=" & StringReplace($language, "-", "_") & "&btnTrTxt=Translate", @TempDir & "translate.dll")
    $translate = FileRead(@TempDir & "translate.dll")
    FileDelete(@TempDir & "translate.dll")
    $translate = StringMid($translate, StringInStr($translate, '<div id="result">'))
    $translate = StringMid($translate, StringInStr($translate, '>') + 1)
    $translate = StringMid($translate, StringInStr($translate, '>') + 1)
    $translate = StringLeft($translate, StringInStr($translate, '<') - 1)
    Return $translate
    EndFunc ;==>Translate
    Func _exit()
    Exit
    EndFunc

    [/autoit]