Beiträge von Mario2323

  • Check for New Update

    h00k... erst denken dann schreiben.
    ich habe schon maßig scrips gebaut die alle dafür nicht gingen immer n error
    mit Inetget usw. FileRead in Combo mit inetget und so alles ging nicht.
    Von daher frag ich ja aber das mit der 0 und 1 ist ne gute idee hab sogar schon ne idee wie ich das machen könnte

  • Check for New Update

    Hallo ale mit einander.
    Ich bin mal wieder überfragt. Nach Hunderten versuchen hat es nicht geklappt.

    Ich brauche eine Check for nee Update script, damit ich den Usern immer die neusten Funktionen bieten kann.
    Man sollte in eine Menuleiste Checkt for neu Update anklicken können und dann soll das Programm nach der NEUSTEN
    Version suchen und wenn dies so ist ein Fenster erscheinen wo steht es ist eine neue Version verfügbar und dann ein Download Button worüber es man downloaden kann. Wenn nicht dann halt du hast die neuste Version.

    Es wäre sehr nett wennihr mir weiter helfen könnt

    Mario2323

  • Jedes Fenster schließen können

    ich brauch ein script worüber man zbs. about fenster schließen kann und doch immer wieder öffenen kann.
    ich mein klickt man in der Menüleiste auf About dann kommt ein GUI Fenster und das soll geschloßen werden über Close und das ohne den ganzen script zu beenden. aber das fenster sollte sich jederzeit wieder über das About menü öffnen lassen können

  • Jedes Fenster schließen können

    der script ist hilfreich, aber nicht gut für mein projekt ich mein ich öffne über menü (Hife) Die option Anleitung. wenn ich da auf Close klicke geht eszwarweg aber dieser gui ist totalgelösch wegen

    GUIDelete($sub1)

    naja und besser hilfezu kriegen stell ich mal den ganzen script rein. Das ist der File download Script von McPoldy nur halt um einiges erweitert.

    Apropo ich hab mir anders etwas abgeholfen löscht zwar das problem nicht aber wenigsten etwas


    Der Script (paar sachen sind doppelt weil ich 2(Tab) downlad Sectionen gemacht habe):
    Der script ist un unbeschichtich aber hoffe ihr könnt ihn einigermaßen verstehen.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <Array.au3>
    #include <string.au3>
    #NoTrayIcon

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

    ;Server Url
    Dim $ServerUrl = "http://url.de/files/"
    Dim $ServerUrll = "http://url.de/sonstiges/"
    Dim $FileList = "files.txt"
    Dim $FileListt = "file.txt"

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

    ;Speicherpfad für die Liste
    Dim $SaveFileList = @TempDir & "\files.txt"
    Dim $SaveFileListt = @TempDir & "\file.txt"

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

    ;Textdatei laden
    If InetGet($ServerUrl & $FileList, $SaveFileList, 1) = 0 Then
    MsgBox(48, "Fehler", "Fehler beim aktualisieren der Dateiliste")
    Exit 1
    EndIf

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

    If InetGet($ServerUrll & $FileListt, $SaveFileListt, 1) = 0 Then
    MsgBox(48, "Fehler", "Fehler beim aktualisieren der Dateiliste")
    Exit 1
    EndIf

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

    ;Dateiliste zum lesen öffnen
    Dim $fso = FileOpen($SaveFileList, 0)
    Dim $fsoo = FileOpen($SaveFileListt, 0)

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

    ;Inhalt der Datei einlesen
    Dim $txt = FileRead($fso)
    Dim $txtt = FileRead($fsoo)
    ;Dateiliste schliessen
    FileClose($fso)
    FileClose($fsoo)

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

    ;@CRLF aus der $txt Variabele entfernen
    $txt = StringReplace($txt, @CRLF, "|")
    $txtt = StringReplace($txtt, @CRLF, "|")

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

    $txtList = StringSplit($txt, "|")
    $txtListt = StringSplit($txtt, "|")

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

    $txt = ""
    For $i = 1 To $txtList[0]
    $txtlistlen = StringLen($txtList[$i]) + 1
    $txtliststart = StringInStr($txtList[$i], "/") + 1
    If $txtliststart = 0 Then
    $txt = $txt & $i & "-" & $txtlist[$i] & "|"
    Else
    $txtlistcount = $txtlistlen - $txtliststart
    $txtlistresult = StringMid($txtList[$i], $txtliststart, $txtlistcount)
    $txt = $txt & $i & "-" & $txtlistresult & "|"
    EndIf
    Next

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

    $txtt = ""
    For $ii = 1 To $txtListt[0]
    $txtlistlenn = StringLen($txtListt[$ii]) + 1
    $txtliststartt = StringInStr($txtListt[$ii], "/") + 1
    If $txtliststartt = 0 Then
    $txtt = $txtt & $ii & "-" & $txtListt[$ii] & "|"
    Else
    $txtlistcountt = $txtlistlenn - $txtliststartt
    $txtlistresultt = StringMid($txtListt[$ii], $txtliststartt, $txtlistcountt)
    $txtt = $txtt & $ii & "-" & $txtlistresultt & "|"
    EndIf
    Next
    $txt = StringTrimRight($txt, 1)
    $txtt = StringTrimRight($txtt, 1)

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

    ;Form
    $frmMain = GUICreate ("Downloader", 400, 220, -1,-1) ; GUI Fenster Machen

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

    $filemenu = GUICtrlCreateMenu("Datei"); File Menu
    $download1 = GUICtrlCreateMenuItem("Download: Programme", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $download2 = GUICtrlCreateMenuItem("Download: Sonstiges", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $exititem = GUICtrlCreateMenuItem("Schließen", $filemenu)
    $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2)

    $helpmenu = GUICtrlCreateMenu("Hilfe") ; Help Menu
    $elite = GUICtrlCreateMenuItem("Elite-PvPers", $helpmenu)
    GUICtrlSetCursor(-1, 0)
    $help = GUICtrlCreateMenuItem("Anleitung", $helpmenu)
    $about = GUICtrlCreateMenuItem("About", $helpmenu)

    GUICtrlCreateTab (5,5, 390, 190);Tab machen

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

    GUICtrlCreateTabitem ("Download Programme");Tab1 " Downloader "
    $pcbDownload = GUICtrlCreateProgress ( 24, 84, 350, 17)
    $infoLabel = GUICtrlCreateLabel("",152,105,300,25)
    $cmdButton = GUICtrlCreateButton ("Starte Download", 46, 140, 300, 25, 0)
    GUICtrlSetState(-1,$GUI_DISABLE)
    $FileList = GUICtrlCreateCombo ("Datei auswählen", 46, 40, 300, 25)
    GUICtrlSetData (-1, $txt)

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

    $Tab3 = GUICtrlCreateTabitem ("Download Sonstiges");Tab2 "Downloader Sonstiges
    $pcbDownloadd = GUICtrlCreateProgress ( 24, 84, 350, 17)
    $infoLabell = GUICtrlCreateLabel("",152,105,300,25)
    $cmdButtonn = GUICtrlCreateButton ("Starte Download", 46, 140, 300, 25, 0)
    GUICtrlSetState(-1,$GUI_DISABLE)
    $FileListt = GUICtrlCreateCombo ("Datei auswählen", 46, 40, 300, 25)
    GUICtrlSetData (-1, $txtt)

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

    GUICtrlCreateTabitem ("") ;Tab Leiste Ende

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

    $sub1 = GUICreate ("Anletung: Zum Programme downloader", 330, 165, -1,-1); Zusätzliches Fenster 1
    GUICtrlCreateLabel("Anleitung:",10,20)
    GUICtrlCreateLabel("Datei auswählen und auf Starte Download klicken",20,35)
    GUICtrlCreateLabel("Klicke aufs Bild:",60,80)
    $pic1 = GUICtrlCreatePic("bilder\banner2.gif",20,95,234,60)
    GUICtrlSetCursor(-1, 0)
    $ok1 = GUICtrlCreateButton ("Anleitung Schließen", 200, 60);Button

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

    $sub2 = GUICreate ("Credits: Zum Programm downloader", 380, 190, -1,-1); Zusätzliches Fenster 2
    GUICtrlCreateLabel("Dies Programm downloadet euch meine Programme" & @CRLF & "Das Programm habe ich gemacht, damit ihr meine Programme Downloaden könnt" & @CRLF & "Diese Programme werden in keinen Foren ohne meine Erlaubniss veröffentlicht.", 11, 10)
    GUICtrlSetBkColor(-1,0x00ff00)
    GUICtrlCreateLabel("Updates vorenthalten", 10, 100)
    GUICtrlSetBkColor(-1,0xCC0000)
    $pic2 = GUICtrlCreatePic("bilder\scripter.gif", 0,130, 380, 60)
    GUICtrlSetCursor(-1, 0)
    $ok2 = GUICtrlCreateButton (" Dieses Fenster schließen ", 245, 97); Button

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

    ;Zeigt HauptFenster an
    GUISetState(@SW_SHOW, $frmMain)

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

    ;Variable für die derzeit Ausgewählte Datei
    Dim $selectet
    Dim $selectett
    ;Variable für die Dateiendung
    Dim $mediaformat
    Dim $mediaformatt
    ;Speicherort
    Dim $SaveFile
    Dim $SaveFilee
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $help
    GUISetState(@SW_SHOW, $sub1);Helfmenü eintrag Anleitung
    Case $ok1
    GUISetState(@SW_HIDE, $sub1); Button in Sub 1
    Case $about
    GUISetState(@SW_SHOW, $sub2);Helfmenü eintrag Credits
    Case $ok2
    GUISetState(@SW_HIDE, $sub2); Button in Sub 2
    Case $elite
    ShellExecute("http://url/"); Helfmenü eintrag Elite PvPers
    Case $exititem
    Exit
    Case $download2
    $SaveFilee = FileSaveDialog("Datei Speichern...", @DesktopDir, "Datei (*." & $mediaformatt & ")", 2, GUICtrlRead($FileListt))
    If Not @error Then RunDownload1()

    Case $download1
    $SaveFile = FileSaveDialog("Datei Speichern...", @DesktopDir, "Datei (*." & $mediaformat & ")", 2, GUICtrlRead($FileList))
    If Not @error Then RunDownload()

    Case $pic1
    ShellExecute("http://www.url.de");link für Pic 1
    Case $pic2
    ShellExecute("http://www.url.com/");link für Pic 2
    Case $cmdButton
    $SaveFile = FileSaveDialog("Datei Speichern...", @DesktopDir, "Datei (*." & $mediaformat & ")", 2, GUICtrlRead($FileList))
    If Not @error Then RunDownload()

    Case $cmdButtonn
    $SaveFilee = FileSaveDialog("Datei Speichern...", @DesktopDir, "Datei (*." & $mediaformatt & ")", 2, GUICtrlRead($FileListt))
    If Not @error Then RunDownload1()

    Case $FileListt
    GUICtrlSetData($infoLabell,"")
    $id = StringLeft(GUICtrlRead($FileListt),StringInStr(GUICtrlRead($FileListt),"-")- 1)
    $selectett = $ServerUrll & $txtListt[$id]
    InetGetSize($selectett)
    If @error Then
    GUICtrlSetState($cmdButtonn, $GUI_DISABLE)
    GUICtrlSetState($download2, $GUI_DISABLE)
    Else
    GUICtrlSetState($cmdButtonn, $GUI_ENABLE)
    GUICtrlSetState($download2, $GUI_ENABLE)
    EndIf
    $mediaformatt = StringRight(GUICtrlRead($FileListt), 3)

    Case $FileList
    GUICtrlSetData($infoLabel,"")
    $id = StringLeft(GUICtrlRead($FileList),StringInStr(GUICtrlRead($FileList),"-")- 1)
    $selectet = $ServerUrl & $txtList[$id]
    InetGetSize($selectet)
    If @error Then
    GUICtrlSetState($cmdButton, $GUI_DISABLE)
    GUICtrlSetState($download1, $GUI_DISABLE)
    Else
    GUICtrlSetState($cmdButton, $GUI_ENABLE)
    GUICtrlSetState($download1, $GUI_ENABLE)
    EndIf
    $mediaformat = StringRight(GUICtrlRead($FileList), 3)
    EndSwitch
    WEnd

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

    Func RunDownload()
    GUICtrlSetState($cmdButton, $GUI_DISABLE)
    GUICtrlSetState($download1, $GUI_DISABLE)
    GUICtrlSetState($download2, $GUI_DISABLE)
    GUICtrlSetState($cmdButtonn, $GUI_DISABLE)
    $FileSize = InetGetSize($selectet)
    InetGet($selectet, $SaveFile, 1, 1)
    $curSize = 0
    Do
    GUICtrlSetData($pcbDownload, $curSize)
    $curFileSize = FileGetSize($SaveFile)
    $curSize = $curFileSize * 100
    $curSize = $curSize / $FileSize
    $curSize = Ceiling($curSize)
    $curFileSize = Round($curFileSize / 1024 / 1024, 2)
    GUICtrlSetData($infoLabel, $curFileSize & " MB - " & Round($FileSize / 1024 / 1024, 2) & " MB (" & $curSize & "%)")
    Sleep(200)
    Until $curSize >= 99
    GUICtrlSetState($cmdButton, $GUI_ENABLE)
    GUICtrlSetState($download1, $GUI_ENABLE)
    GUICtrlSetState($download2, $GUI_ENABLE)
    GUICtrlSetState($cmdButtonn, $GUI_ENABLE)
    GUICtrlSetData($infoLabel, "Download beendet")
    GUICtrlSetData($pcbDownload, 0)
    EndFunc

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

    Func RunDownload1()
    GUICtrlSetState($cmdButton, $GUI_DISABLE)
    GUICtrlSetState($download1, $GUI_DISABLE)
    GUICtrlSetState($download2, $GUI_DISABLE)
    GUICtrlSetState($cmdButtonn, $GUI_DISABLE)
    $FileSizee = InetGetSize($selectett)
    InetGet($selectett, $SaveFilee, 1, 1)
    $curSizee = 0
    Do
    GUICtrlSetData($pcbDownloadd, $curSizee)
    $curFileSizee = FileGetSize($SaveFilee)
    $curSizee = $curFileSizee * 100
    $curSizee = $curSizee / $FileSizee
    $curSizee = Ceiling($curSizee)
    $curFileSizee = Round($curFileSizee / 1024 / 1024, 2)
    GUICtrlSetData($infoLabell, $curFileSizee & " MB - " & Round($FileSizee / 1024 / 1024, 2) & " MB (" & $curSizee & "%)")
    Sleep(200)
    Until $curSizee >= 99
    GUICtrlSetState($cmdButton, $GUI_ENABLE)
    GUICtrlSetState($download1, $GUI_ENABLE)
    GUICtrlSetState($download2, $GUI_ENABLE)
    GUICtrlSetState($cmdButtonn, $GUI_ENABLE)
    GUICtrlSetData($infoLabell, "Download beendet")
    GUICtrlSetData($pcbDownloadd, 0)
    EndFunc

    [/autoit]

    Ich weis der Script ist nicht der tollste aber für mich reicht es.
    Wäre trotzdem dankbar über hilfe

  • Jedes Fenster schließen können

    Hallo alle zusammen

    Sufu und mein freund Google habe ich benutzt, habe aber nicht gefunden

    Ich komme an ein Projekt nicht weiter.
    Ich habe diesen Skript mit GUIs gemacht.
    Aber ich ab ein Problem.

    Ich habe zu meinem GUI Hauptfenster noch 2 andere angelegt (Anleitung, About).
    Jetzt hab ich das problem, wenn ich diese über das X Symbol Schliessen will, schliesst sich der ganze Script.

    Die Script (für Forum veränderte Version, wegen private inhalte) sieht so aus:

    [autoit]


    $frmMain = GUICreate ("GUI Fenster Haupt", 400, 220, -1,-1) ; Hauptfenster
    GUI inhalt
    ....

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

    $sub1 = GUICreate ("Anletung:", 330, 165, -1,-1) ; Anleitungs Fenster
    GUICtrlCreateLabel("Anleitung:",10,20)
    ....

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

    $sub2 = GUICreate ("Credits", 380, 190, -1,-1) ; Credits Fenster
    GUICtrlCreateLabel("Credits.", 11, 10)
    ....

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

    GUISetState(@SW_SHOW, $frmMain)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    exit
    EndSwitch
    WEnd

    [/autoit]

    Jetzt möchte ich aber das ich jedes Fenster einzelnd schließen kann. Ich möchte auserdem beim Switch bleiben.

    Ich wäre dankbar über hilfe

  • Gutes Tutorial?

    ich brauch das, weil ich die Adresse von Programmen ändern will.

    Ein Beispiel:
    Winamp pro gibt beim Starten jeder Media Datei ein Speicher-error.
    ich weis woran es liegt, und jedes man muss ich eine bestimmte adresse mit "Cheat"-Engine korrigieren.
    Ich möchte dazu jetzt ein Bot machen der das schnell für mich macht.
    Und das ich sowas bauen kann, muss ich n tut lesen

  • PixelSearch

    und damit der auf die gefundene farbe klickt nimmste einfach ein richtigen falschen script.:

    [autoit]


    $coord = PixelSearch( 270, 363, 327, 415, 0xFFFFFF)
    If Not @error Then
    While 1
    MouseClick("left", $coord[0] & "," & $coord[1], $coord[1] & "," & $coord[0], 1, 1)
    WEnd
    EndIf
    If @error Then
    MsgBox(64, "Eingabe", "Test")
    EndIF

    [/autoit]

    eigentlich müsste der ja so aussehen:

    [autoit]


    $coord = PixelSearch( 270, 363, 327, 415, 0xFFFFFF)
    If Not @error Then
    While 1
    MouseClick("left", $coord[0], $coord[1], 1, 1)
    WEnd
    EndIf
    If @error Then
    MsgBox(64, "Eingabe", "Test")
    EndIF

    [/autoit]

    Da gibt er aber ein Error wieder.
    Naja mit n flaschen Code klappt das auch

    hier sucht das falsche "richtige" script nach ein weisen Pixel in 270, 363, 327, 415

  • Gutes Tutorial?

    Hallo allerseit.
    Ich bin neu hier, beschäftige mich aber viel mit AutoIT
    Ich bin momentan dran meine GUI Techniken (ohne Koda) zu verfeinern.
    Aber jetzt habe ich was anderes vor. Ich möchte ein gutes Tutorail (English, Deutsch)
    wo man lernen kann wie man mit Speicheradresse funkgiert.
    Ich habe auf Wiki dazu das durch gelesen und die aktuelle Memory.au3 runtergeladen und ersetzt.
    Nur steht bei wiki nur 2 Beispiele. Es wird nicht erklärt, wie dies eingesetzt wird.
    Wenn jemand n gutes tut hat dann wäre ich sehr dankbar wenn er das Posten würde

    MfG Mario2323