Beiträge von Ghostleader

  • Label statt MsgBox als Update Prüfung vor Programm Öffnung

    Hallo ihr beiden,

    Schnitzel

    jop so ungefähr hatte ich mir das gedacht. ;)


    misterspeed

    vielden dank für diese super tolle Demo GUI! :thumbup:


    misterspeed zum zweiten

    jop habe im nachhinein auch nochmal nachgesehen, ich war nur so erschrocken 8| weil es extrem furchtbar aussah!
    Aber nichts desto trotz hat es mir nicht so gut gefallen wie die Label Variante!

    Zitat von misterspeed

    Naja ein Blick in die Hilfe würde manchmal eben auch nicht schaden. Im Gegensatz zur Msgbox kann man bei SplashTextOn nämlich jedemenge am Aussehen verändern, wie Fenstergröße, Umrandung, Schriftart, Schriftgröße und Ausrichtung der Schrift.

    Mfg Ghostleader

  • Label statt MsgBox als Update Prüfung vor Programm Öffnung

    Hallo,

    also mein hauptproblem ist das sich die Gui samt Label einfach nicht schliest (ohne Buttons also selbstständig) und mit dem Programm fortfährt wenn kein Update vorhanden ist!

    Hier der aktuelle update code:

    Spoiler anzeigen

    Dim $ver = "1.1.0"
    $FormUpdate = GUICreate("Update Prüfung", 350, 130, 192, 139)
    GUICtrlCreatePic("data\Backround\Background.tgx", 0, 0, 350, 130)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlCreateLabel("Es wird geprüft ob ein Update vorhanden ist!",22, 45, 350, 40)
    GUICtrlSetFont(-1, 10, 600)
    GUICtrlSetColor(-1, 16777215)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    InetGet("http://test.de/test/update.txt", @Scriptdir & "\data\update.txt", 1, 0)
    $file = FileOpen(@Scriptdir & "\data\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2 = FileReadLine($file, 2)
    $line2 = 1
    If $line = $ver Then
    FileClose($file)
    Else
    $fg = MsgBox(52, "Es ist eine neue Version vorhanden!", "Möchtest du jetzt Updaten?")
    If $fg = 6 Then
    InetGet("http://test.de/test/test.sfx.exe", @ScriptDir & "\test.sfx.exe", 1, 0)
    MsgBox(48, "Update abgeschlossen", "Du hast nun die Aktuellste Version!: (" & $ver & ")")
    FileClose($file)
    Run(@ScriptDir & "\test.sfx.exe")
    Exit
    EndIf
    EndIf

    Mfg Ghostleader

    Ps:
    Und nicht falsch verstehen ich bin dir dankbar für deine Hilfe und die Vorschläge, jedoch passt es einfach net zu dem Script von mir. :rock:

  • Label statt MsgBox als Update Prüfung vor Programm Öffnung

    Hallo Schnitzel,

    danke erstmal für deine Rückmeldung.
    Ja nachdem du es sagtest viel es mir auch auf das ich alles nach dem Update Check gesetzt habe oje.
    Zu deiner Variante muss ich sagen das sie für mich net in Frage, denn da kommt ja ein riesen Fenster was absolut kacke aussieht.
    Auch funktioniert dein Sleep so nicht!

    Ich hätte es doch wie schon gesagt gerne über die Form mit aufgesetztem Label, entweder mit Ok Button zum beenden oder (was besser wäre) das es sagen wir nach der Prüfung verschwindet und das Programm normal weiter startet.
    Fals ein Update vorhanden ist kommt ja die MsgBox die ich dann auch noch ersetzen mag durch eben auch eine Form mit Label und Button ja und nein!

    Ich hoffe das noch wer ne Lösung für meine Variante parrat hat!

    Mfg Ghostleader

  • Label statt MsgBox als Update Prüfung vor Programm Öffnung

    Hallo zusammen,

    vielen Dank erstmal für eure Antworten.

    Natürlich habe ich vergessen die Form zu erstellen schähm. Habe es nun soweit umgebaut das alles kommt, jedoch bekomme ich es gerade net hin das wenn ich nun auf ok klicke sich das label schliesst und das tool weiter ganz normal startet.

    Spoiler anzeigen

    Dim $ver = "1.1.0"
    InetGet("http://test.de/test/update.txt", @Scriptdir & "\data\update.txt", 1, 0)
    $file = FileOpen(@Scriptdir & "\data\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2 = FileReadLine($file, 2)
    $line2 = 1
    If $line = $ver Then
    $FormUpdate = GUICreate("Update Prüfung", 350, 130, 192, 139)
    GUICtrlCreatePic("data\Backround\Background.tgx", 0, 0, 350, 130)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlCreateLabel("Es wird geprüft ob ein Update vorhanden ist!",22, 45, 350, 40)
    GUICtrlSetFont(-1, 10, 600)
    GUICtrlSetColor(-1, 16777215)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $FrageButtonUpdate = GUICtrlCreateButton("Ok", 135, 75, 70, 20)
    FileClose($file)
    Else
    $fg = MsgBox(52, "Es ist eine neue Version vorhanden!", "Möchtest du jetzt Updaten?")
    If $fg = 6 Then
    InetGet("http://test.de/test/test.sfx.exe", @ScriptDir & "\test.sfx.exe", 1, 0)
    MsgBox(48, "Update abgeschlossen", "Du hast nun die Aktuellste Version!: (" & $ver & ")")
    FileClose($file)
    Run(@ScriptDir & "\test.sfx.exe")
    Exit
    EndIf
    EndIf

    Noch besser währe es natürlich wenn statt des Ok Buttons sich das Label sagen wir nach 2 Sec selber schliest falls kein Update vorhanden ist!

    Mfg Ghostleader

  • Label statt MsgBox als Update Prüfung vor Programm Öffnung

    Hallo zusammen,

    ich möchte gern statt einer MsgBox die da sagt --> MsgBox(64, "", "Es wird geprüft ob ein Update vorhanden ist") <-- ein Label setzen.

    Das setzen des Labels ist kein Problem --> GUICtrlCreateLabel("Es wird geprüft ob ein Update vorhanden ist!",130, 140, 230, 40) <--

    Was mich nun stört ist, das wenn ich es mit der MsgBox mache das Programm nicht schon im Hintergrund zu sehen ist (<--so möchte ich es), setze ich aber das Label statt der Box so ist das Programm schon zu sehen und das Label hängt davor.

    Kann man das irgendwie einstellen, das dem nicht so ist und das Label genauso fungiert wie die MsgBox und dieses wenn kein Update vorhanden ist verschwindet?

    Hier der Codeausschnitt:

    Spoiler anzeigen

    Dim $ver = "1.1.0"
    InetGet("http://test.de/test/update.txt", @Scriptdir & "\data\update.txt", 1, 0)
    $file = FileOpen(@Scriptdir & "\data\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2 = FileReadLine($file, 2)
    $line2 = 1
    If $line = $ver Then
    GUICtrlCreateLabel("Es wird geprüft ob ein Update vorhanden ist!",130, 140, 230, 40)
    FileClose($file)
    Else

    Mfg Ghostleader

  • Frage zur Update Funktion

    Hallo an euch beide,

    vielen dank für eure Antworten und Hilfe.

    Das Problem ist nun gelöst und daher werde ich auch gleich das Thema als gelöst markieren bevor ich es wieder vergesse. ;)

    Gelöst wird es nun über ein selbtentpackendes Archiv, was ja deiner Variante 2 ähnelt @ misterspeed!

    Mfg Ghostleader

  • Frage zur Update Funktion

    Hallo zusammen,

    ich bins mal wieder und zwar heute mit einer Frage zur Update Funktion in meinem Skript.

    Was macht es so wie es jetzt ist?
    Also die download funktion so wie sie im Original Script ist funktioniert auch bei mir, mit einem Hacken. Die Version (Dim $ver = "1.0.0") im Skript wird bei mir nicht (wie in der update.txt vorgegeben) auf Dim $ver = "1.1.0" geändert und ich weiss nicht warum. Daher startet er das Update immerwieder!
    Die Test.ini läd er erfolgreich in den angegeben Ordner!

    So was soll es eigentlich machen?
    Die aktualisierte Update.txt soll bei mir im Ordner erhalten bleiben und daher habe ich die lösch Funktion der update.txt aus dem Code gelöscht!
    Es soll nicht eine Test.ini runterladen, sondern eine von mir aktualisierte Version (eine Exe) des Tools indem auch die Updatfunktion drin ist und die alte mit der neuen ersetzen.

    Ich hoffe ihr wisst wie ich das meine und könnt mir dabei helfen!

    Also setze mal alles folgender Massen:

    1. Original Code den ich als Grund verwende.

    Spoiler anzeigen

    Dim $ver = "1.0.0"
    HttpSetUserAgent('Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10')
    InetGet("http://trap-making.bplaced.net/update.txt", @Scriptdir & "\update.txt", 1, 0)
    $file = FileOpen(@Scriptdir & "\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2 = FileReadLine($file, 2)
    $line2 = 1
    If $line = $ver Then
    MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
    FileClose($file)
    FileDelete(@Scriptdir & "\update.txt")
    Else
    MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
    $fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
    If $fg = 6 Then
    HttpSetUserAgent('Firefox')
    InetGet("http://www.trap-making.bplaced.net/Test.ini", @ScriptDir & "\Test.ini", 1, 0)
    MsgBox(0,"",FileRead(@ScriptDir & "\test.ini"))
    FileDelete(@Scriptdir & "\update.txt")
    EndIf
    EndIf

    2. Von mir abgeänderten Code.

    Spoiler anzeigen

    Dim $ver = "1.0.0"
    InetGet("http://bboalmanach.de/update.txt", @Scriptdir & "\update.txt", 1, 0)
    $file = FileOpen(@Scriptdir & "\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2 = FileReadLine($file, 2)
    $line2 = 1
    If $line = $ver Then
    MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
    FileClose($file)
    Else
    MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
    $fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
    If $fg = 6 Then
    InetGet("http://www.bboalmanach.de/BBO Almanach Ressourcen Rechner.exe", @ScriptDir & "BBO Almanach Ressourcen Rechner.exe", 1, 0)
    MsgBox(0, "Du Benutzt nun die Aktuellste Version", "")
    EndIf
    EndIf

    Mfg Ghostleader

  • Hintergrund Bild für´s Label (Die Grund Form)

    Hallo wiedermal AutoIt´ler,

    dank viel Unterstützung durch blubbstar habe ich nun schon einen sehr schönen Code für meinen Rechner hinbekommen, aber habe wieder ein problem was ich nicht gelöst bekomme!

    Diesmal geht es wie die Überschrift schon sagt um ein dauerhaften Labelhintergund in Bild Form.
    Zwar habe ich es schonmal mit GUICtrlCreatePic hin bekommen ein Bild einzubringen, konnte dann jedoch die ListViewItems net mehr anwählen.

    Also das Bild soll ausgelesen werden aus volgendem Pfad:
    Data\Backround\Backround.jpg

    Wie gesagt es soll als Labelhintergrund sein und die gesammt grösse der Gui haben!

    Achso ja der Code ;) :

    Spoiler anzeigen

    #region
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_LegalCopyright=Ghostleader and Team Almanach
    #endregion
    #region Includes
    #include <GUIConstantsEx.au3>
    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <ListviewConstants.au3>
    #include <EditConstants.au3>
    #include <GuiListView.au3>
    #include <StaticConstants.au3>
    #endregion Includes

    #region GUI + ListView
    $Form1 = GUICreate("Materialien Rechner", 633, 195, 193, 125)
    GUICtrlCreateLabel("© By Team and Friend´s", 440, 180, -1, 15)
    GUICtrlSetBkColor(-1, 15658734)
    GUICtrlCreateLabel(" ", 10, 10, 200, 170)
    GUICtrlSetBkColor(-1, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $listview = GUICtrlCreateListView("Klick an was du hertellen willst!", 20, 20, 180, 150, $LVS_SINGLESEL, $LVS_EX_FULLROWSELECT)
    GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
    GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
    _GUICtrlListView_SetColumnWidth($listview, 0, 200)
    #endregion GUI + ListView

    #region ListViewItems Label Start
    $h_l1 = GUICtrlCreateLabel("", 460, 10, 230, 20)
    $h_l2 = GUICtrlCreateLabel("", 460, 30, 230, 20)
    $h_l3 = GUICtrlCreateLabel("", 460, 50, 230, 20)
    $FrageLabel = GUICtrlCreateLabel("", 225, 15, 220, 30)
    $GrundLabel = GUICtrlCreateLabel("", 225, 45, 220, 30)
    $FrageInput = GUICtrlCreateInput("", 230, 120, 200, 20, $ES_NUMBER)
    $FrageButton = GUICtrlCreateButton("Ok", 235, 150, 70, 20)
    $BeendenButton = GUICtrlCreateButton("Beenden", 320, 150, 100, 20)
    #endregion ListViewItems Label End

    #region ListViewItems start
    Global $iCurNum = ''
    Local $aDaten[45][7] = [["Salat", "Makaroni: ", 5, "Gurke: ", 10, "Zwiebel: ", 20], _
    ["test2", 10, 10, 10], _
    ["test3", 10, 10, 10], _
    ["test4", 10, 10, 10], _
    ["test5", 10, 10, 10], _
    ["test6", 10, 10, 10], _
    ["test7", 10, 10, 10], _
    ["test8", 10, 10, 10], _
    ["test9", 10, 10, 10], _
    ["test10", 10, 10, 10], _
    ["test11", 10, 10, 10], _
    ["test12", 10, 10, 10], _
    ["test13", 10, 10, 10], _
    ["test14", 10, 10, 10], _
    ["test15", 10, 10, 10], _
    ["test16", 10, 10, 10], _
    ["test17", 10, 10, 10], _
    ["test18", 10, 10, 10], _
    ["test19", 10, 10, 10], _
    ["test20", 10, 10, 10], _
    ["test21", 10, 10, 10], _
    ["test22", 10, 10, 10], _
    ["test23", 10, 10, 10], _
    ["test24", 10, 10, 10], _
    ["test25", 10, 10, 10], _
    ["test26", 10, 10, 10], _
    ["test27", 10, 10, 10], _
    ["test28", 10, 10, 10], _
    ["test29", 10, 10, 10], _
    ["test30", 10, 10, 10], _
    ["test31", 10, 10, 10], _
    ["test32", 10, 10, 10], _
    ["test33", 10, 10, 10], _
    ["test34", 10, 10, 10], _
    ["test35", 10, 10, 10], _
    ["test36", 10, 10, 10], _
    ["test37", 10, 10, 10], _
    ["test38", 10, 10, 10], _
    ["test39", 10, 10, 10], _
    ["test40", 10, 10, 10], _
    ["test41", 10, 10, 10], _
    ["test42", 10, 10, 10], _
    ["test43", 10, 10, 10], _
    ["test44", 10, 10, 10], _
    ["test45", 10, 10, 10]]
    Local $aLV[UBound($aDaten)]
    For $i = 0 To UBound($aLV) - 1
    $aLV[$i] = GUICtrlCreateListViewItem($aDaten[$i][0], $listview)
    Next

    GUISetState(@SW_SHOW)

    #endregion ListViewItems End


    #region While Schleifen
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE, $BeendenButton
    Exit
    Case $FrageButton
    GUICtrlSetData($h_l1, $aDaten[$iCurNum][1] & $aDaten[$iCurNum][2] * GUICtrlRead($FrageInput))
    GUICtrlSetData($h_l2, $aDaten[$iCurNum][3] & $aDaten[$iCurNum][4] * GUICtrlRead($FrageInput))
    GUICtrlSetData($h_l3, $aDaten[$iCurNum][5] & $aDaten[$iCurNum][6] * GUICtrlRead($FrageInput))
    EndSwitch
    For $i = 0 To UBound($aLV) - 1
    If $nMsg = $aLV[$i] Then
    $iCurNum = $i
    _Anzeige($aDaten[$i][0])
    EndIf
    Next
    WEnd
    Exit
    #endregion While Schleifen

    #region Functionen
    Func _Anzeige($sName)
    GUICtrlSetState($FrageInput, $GUI_SHOW)
    GUICtrlSetState($FrageButton, $GUI_SHOW)
    GUICtrlSetState($BeendenButton, $GUI_SHOW)
    GUICtrlSetData($FrageLabel, StringReplace("Wie viel %sName% möchtest du herstellen?", "%sName%", $sName))
    GUICtrlSetData($GrundLabel, StringReplace("Für ein %sName% wird folgendes benötigt!", "%sName%", $sName))
    EndFunc ;==>_Anzeige

    #endregion Functionen

    Mfg Ghostleader

  • Mehrfach Ergebnisausgabe in MsgBox oder anders

    Hallo name22

    Oje Oje ich merke schon es wird ja immer schwieriger und das obwohl ich noch so ziemlich am Anfang stehe.
    (ihre ControlIDs in ein Array zu packen - das ganze von Hand zu machen)

    Von hand stimmt schon aber wenn man so ziemlich am Anfang steht erleichtert einem der Koda das ganze etwas wie ich finde! Sicherlich lernt man es von Hand besser duch das immer wieder eingeben.

    Gut währe es wenn ich wenigstens an Hand eines Buttons + Funktion und die auslese und ausgabe Funktionen für die Ergebnisse ein Beispiel hätte woran ich mich Orrientieren könnte, was mir den Anfang sicherlich etwas erleichtern würde!

    Wegen wichtige Links habe ich falsch gelesen :whistling: ich las unten du schriebst aber unter.

    Mfg Ghostleader

  • Mehrfach Ergebnisausgabe in MsgBox oder anders

    Hallo name22,

    vielen dank erstmal für deine Antwort.

    Mit erstellen einer GUI meinst du sicherlich die Hintergrund Umgebeung, die ich ja zb. auch mit Coda erstellen kann nichtwar? Diese Idee ist natürlich eine sehr schöne.
    Aber kommen wir zu dem, warum diese MsgBox garnet so schlecht ist von der Art und weise her.

    Ich möchte einen Hintergrund erstellen, auf dem sich ca. 43 Buttons befinden werden denn soviele sachen gibt es die berechnet werden können aber immer eine andere Grund Rohstoff zusammensetzung haben.
    Die MsgBox steht ja immer im Fordergrund was in dem Falle ja dann gut währe. Ich müsste mal sehen wie gross der Hintergrund wird wenn alle Buttons drauf sind.
    Werde mal fix mit Coda was erstellen!

    Nun soll ja der jeweisl dafür umgeschriebene rechner erst starten wenn man auf den Button klickt. (wie ich das genau dann machen muss weiss ich leider auch noch net :whistling: aber dazu vielleicht dann später mal noch ein zwei fragen.

    Mfg Ghostleader

    PS:
    Wo links unten finde ich denn Wichtige Links, kann sie net finden!

  • Mehrfach Ergebnisausgabe in MsgBox oder anders

    Hallo AutoIt´ler,

    ich habe eine Frage zu einem kleinen Script.

    Spoiler anzeigen

    $Anzahl = InputBox("Stahlbarren Herstellung", "Bitte gib hier ein, wieviel Stahlbarren du herstellen möchtest!")
    $Holzkohle = 5
    $Feineseisenerz = 10
    $Steinkohle = 20
    $ergebnis1 = $Holzkohle * $Anzahl
    $ergebnis2 = $Feineseisenerz * $Anzahl
    $ergebnis3 = $Steinkohle * $Anzahl
    MsgBox (0, "Holzkohle", $ergebnis1)
    Msgbox (0, "Feineseisenerz", $ergebnis2)
    MsgBox (0, "Steinkohle", $ergebnis3)

    Und zwar werden in diesem Script ja 3 Ergebnisse berechnet.
    Mein Problem ist das momentan jedes Ergebnis in einer extra Msgbox nacheinander wiedergegeben wird, ich aber gerne alle drei Ergebnisse in einer (am besten mit Namen zum Ergebnis) MsgBox wiedergegeben haben möchte, da diese zusammen gehören.

    Ich hoffe das jemand eine Idee dazu hat.
    Falls das mit einer MsgBox nicht machbar ist bin ich auch offen für andere Vorschläge!

    Mfg Ghostleader

  • Bild statt schwarz weiss Label als Hintergrund verwenden

    Hallo zusammen,

    ich brauche wiedermal eure Hilfe für das Projekt des Almanachs. ( https://autoit.de/www.bboalmanach.de )
    Und zwar geht es diesmal darum, statt einem schwarz/weiss Label Hintergund ein Bild als Hintergrund zu verwenden.

    Der momentane Code für das schwarz/weiss Label ist folgender:

    Code
    $TEMP[2] = GUICtrlCreateLabel(" ", 484, 9 + 36, 373, 465)  ;(Hintergrundlabel Schwarz)
					GUICtrlSetBkColor(-1, 0)
					GUICtrlSetState(-1, $GUI_DISABLE)
					$TEMP[3] = GUICtrlCreateLabel(" ", 485, 10 + 36, 371, 463) ;(Hintergundlabel Weiß)
					GUICtrlSetState(-1, $GUI_DISABLE)


    Warum schwarz und weiss? Da es hier eine Schwarze Umrandung gibt, was in folgendem Bildlink zu sehen sein sollte:
    --> http://img51.imageshack.us/img51/426/bildalshintergrund.png <--
    Alles sollte mit eine Pfad angabe funktionieren, da wir einen Ordner in dem gesammten Programm haben wo alle Bilder drin sind.
    --> Bsp. data\graphics\bild.jpg

    Ich hoffe das ihr mir dabei helfen könnt und einen Code dafür wisst, sodass da bald ein Bild statt des Hintergrundes erscheinen kann!

    Mfg Ghostleader

  • Passwort geschützten Ordner auslesen

    Hallo blubbstar,

    sorry erstmal das ich erst jetzt antworten kann, aber eher war es mir leider nicht möglich.

    Also die Idee mit den mysql usw klingt zwar gut, kommt aber für uns net in frage.

    Die andere Sache mit der zip bzw. rar datei klingt gut. Ist das jetzt so gemeint das der eigendliche Programmordner gepackt und dabei mit passwort versehen wird?
    Wenn ja wie kann denn dann das Programm starten bzw auslesen?
    Also ich meine wie kann ich ein gepackten ordner der mit PW versehen ist durch den Code Auslesen lassen?

    Mfg Ghostleader