Tutorial Tool

    hi da ich Garde anfange wollte ich was mit Msgbox machen komme aber nit Weiter Könnt iher mir helfen

    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Tutorial", 137, 66, 193, 125)
    $Tutorial = GUICtrlCreateButton("Tutorial", 6, 6, 124, 52, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Tutorial
    MsgBox(68,"Tutorial","Willst du das Tutorial Starten klicke Auf ja Wenn Nicht auf Nein",0,0)
    if = 4 = Exit ; Wenn man auf Nein Klickt benndet Sich alles
    Then = 0 = MsgBox(64, "Einstieg","Ihr Steht der 1 TexT",0,0); Wenn man auf ja geklick hatt Kom Diese MSg box
    Then = 0 = MsgBox(68, "Downlaod","hast Du Schon das Tool ? wenn ja glick auf nein wen nicht Klick auf ja Und Du lädst es herunter",0,0)
    ;wenn man Ja Drückt Soll er das Downaloden
    If Not FileExists(@ScriptDir & "") Then
    InetGet("", @ScriptDir & "", 0, 1)
    TrayTip("", ' ""', 10)
    While @InetGetActive = 1
    Sleep(100)
    WEnd
    EndIf
    FileExists(@ScriptDir & "\")
    ;Wenn NeiN dann solst iher weiter gehen
    Msgbox(64"Jetzt Gehts LOSSSSS","Jetzt gehts Loss ^^",0,0)

    EndSwitch
    WEnd

    [/autoit]

    du hast so viele fehler.. man müsste das neu umschreiben
    ich gib dir mal ein Tipp..
    Fang mal neu an, und ab der Stelle wo es bei dir nicht mehr funzt postest du es hier rein

    kannst du mir sagen wie ich das machen soll weil ich weiss ja nicht was ich machen muss z.b wenn man bei der msgbox ja oder nein klickt das der den nächsten Befehl ausführt z.b für ja andre msgbox für nein Close all ?

    Ich habe mal was gemacht ;)

    Du must nur deine Internet seite angeben ;)

    [autoit]

    #cs ----------------------------------------------------------------------------

    AutoIt Version: 3.2.13.13 (beta)
    Author: myName

    Script Function:
    Template AutoIt script.

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("TuT", 137, 66, -1, -1)
    $Tutorial = GUICtrlCreateButton("Tutorial", 6, 6, 124, 52, 0)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Tutorial

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

    $alex = MsgBox(8196, "Tutorial", "Wenn du weiter willst klicke auf Yes oder No")

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

    Select
    Case $alex = 6 ;Yes
    MsgBox(0, "", "Yes")
    checken()

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

    Case $alex = 7 ;No
    Exit

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

    EndSelect

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

    EndSwitch
    WEnd

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

    Func checken()
    If Not FileExists(@ScriptDir & "\DeinOrdner\Deine Datei") Or Not FileExists(@ScriptDir & "\DeinOrdner\Deine Zweite Datei") Then
    If MsgBox(4, "Sicher", "Willst du die Sachen downloaden?" & @CRLF & "Bist du dir Sicher?") = 6 Then
    DirCreate(@ScriptDir & "\DeinOrdner")
    If Not FileExists(@ScriptDir & "\DeinOrdner\Deine Datei") Then
    $size = InetGetSize("http://www.DEINESEITE.de/DeinOrdner/Deine Datei")
    InetGet("http://www.DEINESEITE.de/DeinOrdner/Deine Datei", @ScriptDir & "\DeinOrdner\wie deine Datei heißen soll", 0, 1)
    While @InetGetActive = 1
    TrayTip('Downloading "DEIN NAME DER DATEI"', Round(@InetGetBytesRead / 1024, 0) & "/" & Round($size / 1024, 0) & " KB downloaded.", 3)
    Sleep(500)
    WEnd
    EndIf
    TrayTip("", "Downloading finished", 3)
    EndIf
    EndIf
    EndFunc ;==>checken

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

    Ehh ja hier mal halbwegs fehlerfrei (Warn aber wirklich ne Meeenge drin :D)->
    Ich würde tuttifrutti's nehmen, aber geh mal zum Lernzweck meine Berichtigung durch ;)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Tutorial", 137, 66, 193, 125)
    $Tutorial = GUICtrlCreateButton("Tutorial", 6, 6, 124, 52, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Tutorial
    If MsgBox(68,"Tutorial","Wollen Sie das Tutorial starten?") = 7 Then
    Exit
    Else
    MsgBox(64, "Einstieg","1ter Text")
    If MsgBox(68, "Download","Willst du das Tutorial-Tool herunterladen?") = 6 Then
    If Not FileExists(@ScriptDir & "\Tutorial-Tool.exe") Then
    ;~ InetGet("URL", @ScriptDir & "\Tutorial-Tool.exe")
    While @InetGetActive
    TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
    Sleep(200)
    WEnd
    EndIf
    Msgbox(64,"Let's get ready to rumble!","Jetzt gehts los..")
    EndIf
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    EDIT: Auf spezielle Hinweisungen über PN's, hab ich die fehlende Raute dazugefügt :D

    2 Mal editiert, zuletzt von ChaosKeks (17. Mai 2009 um 13:47)

    Schon mal die Taste "F1" gedrückt im SciTe-Editor? Oder allgemein schon mal in die "Hilfe" geschaut bevor du angefangen hast? Denn in der Hilfe sind solche Beispiele genannt und da kann man (fast) nichts mehr falsch machen. ;) Du kannst dir auch das Buch von peethebee mal anschauen.