Wo das Case??

  • Hey ich (hauptsächlich Freund von mir) hat mal diesen Script hier erstellt...

    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    $Form1 = GUICreate("PC-Informations", 615, 395)
    GUICtrlCreateTab(8, 8, 601, 369)
    $TabSheet1 = GUICtrlCreateTabItem("Login")
    $user = GUICtrlCreateInput("Benutzername", 40, 64, 121, 21)
    $pw = GUICtrlCreateInput("Passwort", 40, 96, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
    $login = GUICtrlCreateButton("Login", 40, 128, 75, 25)
    $TabSheet2 = GUICtrlCreateTabItem("Register")
    $Label1 = GUICtrlCreateLabel("Hier siehst du den Reg.", 32, 56, 153, 17)
    $usernew = GUICtrlCreateInput("Benutzername", 40, 80, 121, 21)
    $pwnew = GUICtrlCreateInput("Passwort", 40, 112, 121, 21)
    $register = GUICtrlCreateButton("Register", 40, 140, 75, 25)
    $TabSheet3 = GUICtrlCreateTabItem("PC-Info-Tool")
    $text = GUICtrlCreateLabel("Nicht eingeloggt", 32, 48,99999999999)
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $login
    $user = GUICtrlRead ($user)
    $pw = GUICtrlRead ($pw)
    If Not FileReadLine (@ScriptDir & "\Datenbank\" & $user & ".txt") = $pw Then
    MsgBox (16,"","Inkorrekte Logindaten")
    ShellExecute (@ScriptFullPath)
    Exit
    Else
    MsgBox (0,"","Du hast dich erfolgreich eingeloggt, " & $user)
    GUICtrlSetData ($text,FileReadLine (@ScriptDir & "\Datenbank\" & $user & ".txt",2))
    EndIf
    Case $register
    $usernew = GUICtrlRead ($usernew)
    $pwnew = GUICtrlRead ($pwnew)
    If $pwnew = "" Or $usernew = "" Then
    MsgBox (16,"","Fehlende Daten")
    ShellExecute (@ScriptFullPath)
    Exit
    EndIf

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

    FileWrite (@ScriptDir & "\Datenbank\" & $usernew & ".txt",$pwnew &@CRLF & "Das ist nur für dich " & $usernew)
    MsgBox (0,"","Sie haben sich erfolgreich registriert und können sich nun einloggen.")
    EndSwitch
    WEnd

    [/autoit]

    Ich möchte jetzt wissen wo ich das Case für den PC-Info-Tool mache. Das heißt ich möchte wenn man auf PC-Info-Tool klickt das dann halt mein System-Info kommt :D

  • Bei 'Case $TabSheet3:' wurde auf den PC-Info-Tool Tab geklickt. Dann kannst du deine Infos anzeigen.

    Gruss Shadowigor

  • Wieso versuchen immer alle leute irgend was zu Scripten und haben KEINERLEI Eigeninitiative ... schau dir doch erst mal Tutorials an usw..

    1. Dein Script ist von nem Freund
    2. du hast nicht mal BasicWissen in Autoit

    .. wie wäre es also damit einfach mal mit Grundlegenden Funktionen anzufangen und sich dann selber eine Lösung zu erarbeiten anstatt sich das von anderen machen zu lassen...

    HIER DIE LÖSUNG!

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    $Form1 = GUICreate("PC-Informations", 615, 395)
    $tab = GUICtrlCreateTab(8, 8, 601, 369)
    $TabSheet1 = GUICtrlCreateTabItem("Login")
    $user = GUICtrlCreateInput("Benutzername", 40, 64, 121, 21)
    $pw = GUICtrlCreateInput("Passwort", 40, 96, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
    $login = GUICtrlCreateButton("Login", 40, 128, 75, 25)
    $TabSheet2 = GUICtrlCreateTabItem("Register")
    $Label1 = GUICtrlCreateLabel("Hier siehst du den Reg.", 32, 56, 153, 17)
    $usernew = GUICtrlCreateInput("Benutzername", 40, 80, 121, 21)
    $pwnew = GUICtrlCreateInput("Passwort", 40, 112, 121, 21)
    $register = GUICtrlCreateButton("Register", 40, 140, 75, 25)
    $TabSheet3 = GUICtrlCreateTabItem("PC-Info-Tool")
    $text = GUICtrlCreateLabel("Nicht eingeloggt", 32, 48,99999999999)
    GUICtrlCreateTabItem("")
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $tab
    If GUICtrlRead($tab) = 2 Then
    ShellExecute(@ScriptDir & '\sysinfo.exe') ;################# hier der name der EXE
    EndIf
    Case $login
    $user = GUICtrlRead ($user)
    $pw = GUICtrlRead ($pw)
    If Not FileReadLine (@ScriptDir & "\Datenbank\" & $user & ".txt") = $pw Then
    MsgBox (16,"","Inkorrekte Logindaten")
    ShellExecute (@ScriptFullPath)
    Exit
    Else
    MsgBox (0,"","Du hast dich erfolgreich eingeloggt, " & $user)
    GUICtrlSetData ($text,FileReadLine (@ScriptDir & "\Datenbank\" & $user & ".txt",2))
    EndIf
    Case $register
    $usernew = GUICtrlRead ($usernew)
    $pwnew = GUICtrlRead ($pwnew)
    If $pwnew = "" Or $usernew = "" Then
    MsgBox (16,"","Fehlende Daten")
    ShellExecute (@ScriptFullPath)
    Exit
    EndIf

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

    FileWrite (@ScriptDir & "\Datenbank\" & $usernew & ".txt",$pwnew &@CRLF & "Das ist nur für dich " & $usernew)
    MsgBox (0,"","Sie haben sich erfolgreich registriert und können sich nun einloggen.")
    EndSwitch
    WEnd

    [/autoit]
  • @lucasboy: Was machst du denn da? Ein Loginsystem für das Systeminfoteil? Willst du etwa immernoch das Programm verkaufen?

    BTW: Script ist Neutrum, es heißt also das Script und nicht der Script (ist mir jetzt schon öfters bei dir aufgefallen)

  • @Protex tut mir Leid aber wie soll ich sagen?! Was geht dich das an? Es ist doch wohl meine Sache was ich mache. Ich möchte dir gegenüber nicht unfreundlich werden aber meine Frage konntest du auch nicht beantworten. Ich will, dass das Programm nur kommt wenn man sich eingeloggt und auf PC-Info-Tool geklickt hat...

  • XD das wir ja immer besser, du wolltest wie man es macht dass man sobald man auf den Tab einen Klick macht dass sich das Programm öffnet, genau das habe ich gemacht .. wenn du jetzt auch noch mehr haben willst , dann mach es doch einfach? also sowas bringt mich auf die Palme muss ich sagen wie kann man denn die ankommen und ein fertigen Code erwarten was ist doch lächerlich-.-, kein wunder dass sich so viele aus der Com. hier aus diesem beantworten der Threads ausnehmen bei solchen Anfragen was ist doch ein witz

    ...