Login script und speicher.ini

  • Hiho bin neu ihr und habe mir was Vogenommen und Hoffe ihr könnt mir ein Bischen helfen ^^

    also

    Wenn ich den Button save Drücke soll er was in input 1 und 2 in die ini Gespeicher werden und wenn man das Programm startet soll er es wieder Auslesen und schon Drine Stehen ^^

    Ihr mal mein script aja ich bin anfanger bitte kein spam ^^ Danke ^^

    [autoit]

    ^#include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Login", 413, 128, 303, 172)
    $Input1 = GUICtrlCreateInput("", 16, 48, 297, 21)
    $Input2 = GUICtrlCreateInput("", 16, 96, 297, 21)
    $Password = GUICtrlCreateLabel("Password", 16, 72, 66, 17)
    $Nickname = GUICtrlCreateLabel("Nickname", 16, 24, 52, 17)
    $Save = GUICtrlCreateButton("Save", 328, 16, 73, 25, 0)
    $Login = GUICtrlCreateButton("Login", 328, 56, 73, 65, 0)
    $Group1 = GUICtrlCreateGroup("Loginbox", 8, 8, 401, 113)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    EndSwitch
    WEnd

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

    $save(@ScriptDir & "\Config.ini", "Logindaten", "User", $Input1)
    $save(@ScriptDir & "\Config.ini", "", "Password", $Input2)

    $Input1 = IniRead(@ScriptDir & "\Config.ini", "Logindaten", "User", "0")
    $Input2 = IniRead(@ScriptDir & "\Config.ini", "", "Password", "0")

    [/autoit]
    • Offizieller Beitrag

    So geht's:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form2 = GUICreate("Login", 413, 128, 303, 172)
    $Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "User", ""), 16, 48, 297, 21)
    $Input2 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Password", ""), 16, 96, 297, 21)
    $Password = GUICtrlCreateLabel("Password", 16, 72, 66, 17)
    $Nickname = GUICtrlCreateLabel("Nickname", 16, 24, 52, 17)
    $Save = GUICtrlCreateButton("Save", 328, 16, 73, 25, 0)
    $Login = GUICtrlCreateButton("Login", 328, 56, 73, 65, 0)
    $Group1 = GUICtrlCreateGroup("Loginbox", 8, 8, 401, 113)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Save
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", GUICtrlRead($Input1))
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", GUICtrlRead($Input2))
    EndSwitch
    WEnd

    [/autoit]
  • hi danke ^^ Das das so geht hatte ich jetzt nicht gedacht mhh naja muss noch Üben ^^DANKE VIEL MALS

    habe noch 1 Frage weiss du wie ich das password so machen kann ******** es soll swar in der ini Drin Stehen aber im Tool mit Den sternchen ?

    aja habe noch ne frage ^^ Fragen nach Fragen ^^ also 2 Sachen wie mache ich das der Firefox Offnet Und Dan auf Die webseite geht
    und Wie kann sachen Löschen die in den Input Drinstehn also wenn man auf delet geht löscht der die sachen in der ini der soll die aber auch im programm Sofort Entfernen ^^ ich bin bis jetzt so weit ^^

    [autoit]

    ^#include <GUIConstants.au3>

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

    #Region ### START Koda GUI section ###
    $Form2 = GUICreate("Login", 414, 133, 304, 173)
    $Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "User", ""), 16, 48, 297, 21)
    $Input2 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Password", ""), 16, 96, 297, 21)
    $Password = GUICtrlCreateLabel("Password", 16, 72, 66, 17)
    $Nickname = GUICtrlCreateLabel("Nickname", 16, 24, 52, 17)
    $Save = GUICtrlCreateButton("Save", 328, 16, 73, 25)
    $Login = GUICtrlCreateButton("Login", 328, 83, 73, 38)
    $Group1 = GUICtrlCreateGroup("Loginbox", 2, 5, 407, 122)
    $Delete = GUICtrlCreateButton("Delete", 327, 48, 75, 31, 0)
    $Input3 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", ""), 174, 18, 136, 21)
    $Webseite = GUICtrlCreateLabel("Webseite :", 120, 21, 52, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Save
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", GUICtrlRead($Input1))
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", GUICtrlRead($Input2))
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", GUICtrlRead($Input3))
    Case $Delete
    Delete = $Input1 , $Input2 , $Input3 ;ihr Sollte eigendlich die Felder Löschen aber Geht nit
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", "")
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", "")
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", "")
    Case $Login
    ; und Iher Firefox Starten oder IE aber Firefox Ware mir Lieber ware aber auch nett wenn es mir Jemmand Sagen Würde wie das mit IE Geht.
    EndSwitch
    WEnd

    [/autoit]

    2 Mal editiert, zuletzt von Unterbilker (16. Mai 2009 um 05:35)

  • hier die angepasste version:

    [autoit]


    #include <GUIConstants.au3>
    #include <EditConstants.au3>

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

    #Region ### START Koda GUI section ###
    $Form2 = GUICreate("Login", 414, 133, 304, 173)
    $Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "User", ""), 16, 48, 297, 21)
    $Input2 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Password", ""), 16, 96, 297, 21, $ES_PASSWORD)
    $Password = GUICtrlCreateLabel("Password", 16, 72, 66, 17)
    $Nickname = GUICtrlCreateLabel("Nickname", 16, 24, 52, 17)
    $Save = GUICtrlCreateButton("Save", 328, 16, 73, 25)
    $Login = GUICtrlCreateButton("Login", 328, 83, 73, 38)
    $Group1 = GUICtrlCreateGroup("Loginbox", 2, 5, 407, 122)
    $Delete = GUICtrlCreateButton("Delete", 327, 48, 75, 31, 0)
    $Input3 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", ""), 174, 18, 136, 21)
    $Webseite = GUICtrlCreateLabel("Webseite :", 120, 21, 52, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Save
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", GUICtrlRead($Input1))
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", GUICtrlRead($Input2))
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", GUICtrlRead($Input3))
    Case $Delete
    GUICtrlSetData ($Input1, "")
    GUICtrlSetData ($Input2, "")
    GUICtrlSetData ($Input3, "")
    ;~ Delete = $Input1 , $Input2 , $Input3 ;ihr Sollte eigendlich die Felder Löschen aber Geht nit
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", "")
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", "")
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", "")
    Case $Login
    ; und Iher Firefox Starten oder IE aber Firefox Ware mir Lieber ware aber auch nett wenn es mir Jemmand Sagen Würde wie das mit IE Geht.
    EndSwitch
    WEnd

    [/autoit]
  • hi danke ^^

    jetzt habe ich versucht das der internet explorer Startet Passirt aber nix mhhh

    Ihr ist mal der script ^^

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <EditConstants.au3>
    #include <IE.au3>

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

    #Region ### START Koda GUI section ###
    $Form2 = GUICreate("Login", 414, 133, 304, 173)
    $Input1 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "User", ""), 16, 48, 297, 21)
    $Input2 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Password", ""), 16, 96, 297, 21, $ES_PASSWORD)
    $Password = GUICtrlCreateLabel("Password", 16, 72, 66, 17)
    $Nickname = GUICtrlCreateLabel("Nickname", 16, 24, 52, 17)
    $Save = GUICtrlCreateButton("Save", 328, 16, 73, 25)
    $Login = GUICtrlCreateButton("Login", 328, 83, 73, 38)
    $Group1 = GUICtrlCreateGroup("Loginbox", 2, 5, 407, 122)
    $Delete = GUICtrlCreateButton("Delete", 327, 48, 75, 31, 0)
    $Input3 = GUICtrlCreateInput(IniRead(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", ""), 174, 18, 136, 21)
    $Webseite = GUICtrlCreateLabel("Webseite :", 120, 21, 52, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Save
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", GUICtrlRead($Input1))
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", GUICtrlRead($Input2))
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", GUICtrlRead($Input3))
    Case $Delete
    GUICtrlSetData ($Input1, "")
    GUICtrlSetData ($Input2, "")
    GUICtrlSetData ($Input3, "")
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "User", "")
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Password", "")
    IniWrite(@ScriptDir & "\Config.ini", "Logindaten", "Webseite", "")
    Case $Login ;Ab ihr
    $Input3 = ''$Input3 = "http://exitv2.pytalhost.net/hp/noweb.php" ;wenn man nichts einträgt wird die diese URL genommen
    $sUsername = $Input1
    $sPassword = $Input2
    $oIE = _IECreate ($Input3,0,0)
    $oform = _IEFormGetObjByName($oIE, "loginform")
    $ologin = _IEFormElementGetObjByName($oform, "log")
    $opassword = _IEFormElementGetObjByName($oform, "pwd")
    _IEFormElementSetValue($ologin, $sUsername)
    _IEFormElementSetValue($opassword, $sPassword)
    _IEFormSubmit($oform)
    EndSwitch ; Biss ihr was muss ich machen ?
    WEnd

    [/autoit]

    2 Mal editiert, zuletzt von Unterbilker (16. Mai 2009 um 14:00)