Beiträge von PenGuin

  • FileInstall? installiert nicht

    Er hatte Button2 2mal drin, so hab ich das mit dem Exit rausgelöscht und durch Button1 ersetzt. (Wozu eigentlich Exit und dahinter direkt ExitLoop? )

  • FileInstall? installiert nicht

    Gehts so?

    Spoiler anzeigen
    [autoit]

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

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

    MsgBox(0, "! ! ! !", "ACHTUNG: Sie müssen anschließend ein Passwort eingeben...")
    $pw1 = InputBox("Passwortcheck", "Bitte geben Sie das Passwort ein: (5 - stellig)", "", "*")

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

    If $pw1 = "K4H81" Then
    MsgBox(0, "INFORMATION", "Sie haben das richtige Passwort eingegeben! Drücken Sie OK um fortzufahren")
    #cs
    ProgressOn("Der Installer lädt einen kleinen Moment bitte", "Bitte warten ...")

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

    For $i = 0 To 500
    ProgressSet($i / 500 * 100, Int($i / 500 * 100) & "%")
    Sleep(10)
    Next
    ProgressOff()
    #ce

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

    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("GTA vice city - INSTALLATION", 420, 162, 194, 124)
    GUISetBkColor(0xABABAB)
    $Label1 = GUICtrlCreateLabel("GTA Intaller: hier können sie GTA vice city installieren !", 8, 8, 401, 22)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial Black")
    $Label2 = GUICtrlCreateLabel("GTA vice city wird in folgendem Pfad installiert:", 8, 32, 279, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("C:\GTA vice city.zip", 288, 32, 119, 20)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    $Button1 = GUICtrlCreateButton("Installieren !", 216, 64, 193, 89, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    $Button2 = GUICtrlCreateButton("Doch nicht !", 8, 64, 201, 89, 0)
    GUICtrlSetFont(-1, 20, 400, 0, "Arial")
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    MsgBox(0, "INFO", "INFO: Sobald die Installation fertig ist, kommt eine Meldung!")
    FileInstall("C:\Users\Sandro\Desktop\GTA vice city.zip", "C:\GTA vice city.zip", 1)
    MsgBox(0, "FERTIG !", "Die Installation ist fertig! Sie müssen nur noch das .zip Archiv entpacken und schon können sie losspielen !")
    EndSwitch
    WEnd
    EndIf

    [/autoit]

    Bring das EndSwitch/WEnd nicht durcheinander ;)

    Ich frag mich wozu du das Progress Dings drin hast...

    €: Hab mal Rechtschreibfehler im Script entfernt :P

  • Programm multilingual machen

    Tipp: So:

    Spoiler anzeigen
    Zitat von nuts

    Einfaches Konzept:
    -> \Sprache Ordner im Skriptverzeichnis
    -> dort wird jede Sprache als .txt abgelegt
    -> in der Konfig. ini steht welche beim Startup geladen werden soll
    -> beim Startup wird die .txt eingelesen und die Variablen bekommen ihren Wert zugewiesen.

    :D
    Einfach jeden Text deines Programmes in eine Variable tun und dann schaust du in der txt einfach jedesmal deine Variable nach, und änderst sie ggf.

  • _InetGetSource() Bestimmte stelle auslesen

    Hier ein Beispiel kombiniert mit einem Hilfe Beispiel, unten ist das Beispiel von mir, oben das Beispiel aus der Hilfe:

    Spoiler anzeigen
    [autoit]

    ; *******************************************************
    ; Example 1 - Create an empty browser, write customer HTML to it - in this case a
    ; FRAMESET - and then update the contents of each of the frames
    ; *******************************************************
    ;
    #include <IE.au3>
    #include <String.au3>
    $oIE = _IECreate ()
    $sHTML = ""
    $sHTML &= "<HTML>" & @CR
    $sHTML &= "<HEAD>" & @CR
    $sHTML &= "<TITLE>_IE_Example('frameset')</TITLE>" & @CR
    $sHTML &= "</HEAD>" & @CR
    $sHTML &= "<FRAMESET rows='25,200'>" & @CR
    $sHTML &= " <FRAME NAME=Top SRC=about:blank>" & @CR
    $sHTML &= " <FRAMESET cols='100,500'>" & @CR
    $sHTML &= " <FRAME NAME=Menu SRC=about:blank>" & @CR
    $sHTML &= " <FRAME NAME=Main SRC=about:blank>" & @CR
    $sHTML &= " </FRAMESET>" & @CR
    $sHTML &= "</FRAMESET>" & @CR
    $sHTML &= "</HTML>"
    _IEDocWriteHTML ($oIE, $sHTML)
    _IEAction ($oIE, "refresh")
    Local $oFrameTop = _IEFrameGetObjByName ($oIE, "Top")
    Local $oFrameMenu = _IEFrameGetObjByName ($oIE, "Menu")
    Local $oFrameMain = _IEFrameGetObjByName ($oIE, "Main")
    _IEBodyWriteHTML ($oFrameTop, '$oFrameTop = _IEFrameGetObjByName($oIE, "Top")')
    _IEBodyWriteHTML ($oFrameMenu, '$oFrameMenu = _IEFrameGetObjByName($oIE, "Menu")')
    _IEBodyWriteHTML ($oFrameMain, '$oFrameMain = _IEFrameGetObjByName($oIE, "Main")')

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

    ;********************************************************
    ;Beispiel Ende
    ;********************************************************

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

    $Source = _IEDocReadHTML($oIE) ;Liest Quellcode aus
    ConsoleWrite($Source & @CRLF & @CRLF) ;Schreibt ihn in die Konsole
    $sResult = _StringBetween($Source, '<TITLE>', '</TITLE>') ;Liest den Titel des Quellcodes mit StringBetween aus
    MsgBox(0, "Titel", $sResult[0]) ;Zeigt den Titel an $sResult, da _StringBetwwen ein Array liefert.

    [/autoit]

  • _InetGetSource() Bestimmte stelle auslesen

    Du kannst den Source immer nur aktuell ziehen, also musst du in regelmäßigen Abständen den Quellcode ziehen und an der Stelle / den Stellen immer schauen ob sich was verändert hat.
    Oder du lässt die Internetseite offen und arbeitest irgendwie mit PixelSearch...
    Aber um eine Stelle in einem Quellcode auszulesen musst du immer _StringBetween (wahlweise StringRegExp) und _InetGetSource verbinden.