Beiträge von Schnuffel

  • Zeilen exportieren

    Hallo Alina,

    probier das mal:

    Spoiler anzeigen
    [autoit]

    $file = FileOpen("neu.txt", 0)
    $neu1 = FileOpen("neu1.txt", 1)
    $neu2 = FileOpen("neu2.txt", 1)
    $erstefuenf = 0
    ; Check if file opened for reading OK
    If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
    EndIf

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

    ; Read in lines of text until the EOF is reached
    While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    $text = StringLeft($line,8)
    If $text = "no_26190" Then
    If $erstefuenf = 0 Then
    FileWriteLine($neu1,$line&@CRLF)
    Else
    FileWriteLine($neu2,$line&@CRLF)
    EndIf
    Else
    $erstefuenf = 1
    FileWriteLine($neu2,$line&@CRLF)
    EndIf
    Wend

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

    FileClose($file)
    FileClose($neu1)
    FileClose($neu2)

    [/autoit]

    läßt sich bestimmt noch ausbauen...

  • Code der nur "Progres" anzeigt

    Hallo TjaSchicksal,
    probier das mal so...

    Spoiler anzeigen
    [autoit]

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

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

    guicreate("Progressbar",370,40,-1,-1,$WS_POPUP)
    GUISetBkColor(0xffffff); Hintergrundfarbe der GUI

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

    $name = guictrlcreateprogress(0,0,370,40); Progressbar
    GUICtrlSetBkColor(-1,0xffffff); Hintergrundfarbe der Progressbar

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

    guisetstate(); Gui anzeigen
    $r = 1; Variable deklarieren für den Progresszähler
    AdlibEnable("progress",40); ruft alle 40mx die Funktion "progress" auf

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

    Do
    $msg = GUIGetMsg()
    Until $msg = $GUI_EVENT_CLOSE Or $r = 100

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

    If $r = 100 Then; wird ausgeführt, wenn die Schleife beendet ist
    MsgBox(0,"Progressbar","Progressbar beendet.")
    Else
    MsgBox(0,"Progressbar","Progressbar abgebrochen.")
    EndIf

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

    Func progress(); Funktion die die Progressbar aktualisiert und den Zähler hochzählt.
    guictrlsetdata($name,$r)
    $r+=1; erhöht den Zähler jeweils um 1
    EndFunc

    [/autoit]

  • Lizenz für Skripte

    ich muß Raupi da Recht geben.

    Zitat

    das lauscht ob ein bestimmtes Programm...


    klingt nicht, als ob das Programm von Dir wäre.
    Du willst doch nicht für Programme von Anderen eine Sperre einbauen?

    Da könnte man ja auf ganz andere Ideen kommen... :rolleyes:

    Ich möchte ja nicht immer gleich was unterstellen.
    Aber bei so grenzwertigen Themen ist es Recht sinnvoll den Umstand etwas genauer zu beschreiben.

    Wenn der Fenstertitel immer gleich bleibt, kann Dir das vielleicht weiterhelfen:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    $Test = GUICreate("Test", 213, 106, 347, 179)
    GUISetState(@SW_SHOW)
    If WinExists("Test") Then
    sleep(2000)
    ;dient nur der Veranschauloichung, dass Fenster existiert
    WinSetState("Test","",@SW_HIDE)
    sleep(2000)
    ; Abfrage von was auch immer...
    WinSetState("Test","",@SW_SHOW)
    EndIf

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

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

    [/autoit]

    Mit der Prüfung würde ich einen Timestamp erstellen in der Registry und über Atomzeit vergleichen.
    Nachteil: kein Internet --> kein Program...

    zweiter Ansatz:
    Arbeite nicht mit Zeit sondern mit einer festen Anzahl Aufrufe des Programms.
    Dazu sind die meisten kommerziellen Programmierer auch übergegangen eben wegen der Zeitverstell-Probleme.

  • Script "Registry-Activator"-Include "kelöscher" + Frage

    Hallo videotuner und willkommen,

    versuch es doch mal so:

    Spoiler anzeigen
    [autoit]

    Local $var, $var2, $input
    $input = InputBox("Programmführer", "Tippen Sie OK ein.")

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

    Switch $input
    Case "OK"
    $var = MsgBox(0, "Sie haben OK eingegeben", "Sie haben OK eingegeben")
    Case Else
    $var2 = MsgBox(0, "Sie haben nicht OK eingegeben", "Sie haben nicht OK eingegeben")
    EndSwitch

    [/autoit]

  • Mehrere Probleme; z.B. Farbe erkennen

    ich bitte mein Mißtrauen zu entschuldigen.
    Aber wer kaum die Funktion MouseClick kennt, und damit ein ganzes Speil programmiert, da bin ich echt beeindruckt. :whistling:

    Hab selten eine so "nette" Story gehört, um den PixelSearch erklärt zu bekommen. :thumbup:
    Ich will ja nicht behaupten, dass es dabei "nur" um einen BOT geht... :rolleyes:

    Könntest Du Dein Spiel mal posten juby?

  • Brauche Idee für mein Erstes Projekt

    Hallo xXTobi93Xx,
    ich denke die beste Motivation kommt von innen.
    Ich bin sicher, dass auch Dir manche Dinge an Deinem Windows-System nicht 100% gefallen.
    Dass wäre doch der beste Ansatz um etwas umzusetzen.

    Stell Dir vor Du gehst zu einem Autohändler und kaufst ein Auto.
    Kaum hast Du den Schlüssel in der Hand fragst Du den Händler:
    Wo soll ich jetzt hinfahren?
    ...

    Da frage ich mich dann, warum Du ein Auto gekauft hast...
    ( ist nicht Ernst gemeint :D )

    Edit:
    Natürlich wünsche ich auch Dir einen GUTEN RUTSCH in's neue Jahr...

    PS: Sobald Du eine Idee hast kannst Du sicher sein, dass Du hier alle Unterstützung erhälst.

  • PNG dateien anzeigen

    Ich hab Dein Bild mal in meine Demo von oben eingebaut.

    Bitte die Unterschiede selber überprüfen und dementsprechend anpassen ;)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>

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

    Global $hGUI, $hImage, $hGraphic, $hImage1

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

    ; Create GUI
    $hGUI = GUICreate("Show PNG", 450, 550,-1,-1, BitOR($WS_POPUP,$DS_MODALFRAME,$WS_EX_LAYERED),$WS_EX_ACCEPTFILES);,$DS_SETFOREGROUND))

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

    ; Load PNG image
    _GDIPlus_StartUp()
    $hImage = _GDIPlus_ImageLoadFromFile("Back.png")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)

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

    GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
    GUISetState()

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

    ; Loop until user exits
    do
    until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    ; Clean up resources
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_ShutDown()

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

    ; Draw PNG image
    Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
    _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
    _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]

  • PNG dateien anzeigen

    steht in der Hilfe:
    GUICtrlCreatePic:

    PNG can be used with GDI+. See example 3.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #Include <WinAPI.au3>

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

    Global $hGUI, $hImage, $hGraphic, $hImage1

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

    ; Create GUI
    $hGUI = GUICreate("Show PNG", 350, 301)

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

    ; Load PNG image
    _GDIPlus_StartUp()
    $hImage = _GDIPlus_ImageLoadFromFile("MAIN.png")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)

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

    GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
    GUISetState()

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

    ; Loop until user exits
    do
    until GUIGetMsg() = $GUI_EVENT_CLOSE

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

    ; Clean up resources
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_ShutDown()

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

    ; Draw PNG image
    Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
    _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
    _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
    _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]

  • SQLiteMore.au3

    Hallo BugFix,
    für die _SQLite_EXEC brauchst Du eigentlich keine @error-Abfrage.
    Die steht doch schon in der Funktion _SQLITE_EXEC selbst drin, oder?

    Spoiler anzeigen

    If @error > 0 Then
    Return SetError(1, 0, $SQLITE_MISUSE) ; DllCall Error
    EndIf

  • 2 While schleifen gleichzeitig durchlaufen

    ich denke in Vertretung aller kann man auf Deine Frage nur antworten:
    NEIN.

    Ich fürchte aber, dass Du den Fehler begehst, etwas machen zu wollen und Deine Lösungssuche schon von vornherein einschränkst, ?(
    indem Du die Lösung Deiner Wahl schon präsentierst und nur noch hinterfragst ob das auch geht, anstatt einfach Dein Problem zu schildern.

    Man kann fast alles machen. :D
    Die Lösung sieht aber meistens anders aus, als man sich das selber mit dem vorhandenen Wissen vorstellen kann.

    Daher mein Vorschlag:
    Stelle Dein Problem vor und lass andere für Dich denken.
    Von den Ideen können wir dann alle profitieren. ;)

  • filexists

    irgendein Zeilenumbruch ist da schon drin.
    Siehe:

    Spoiler anzeigen
    [autoit]

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

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

    $Form1 = GUICreate("Form1", 352, 82, 374, 242,-1, 0x10)
    $input = GUICtrlCreateInput("", 34, 16, 200, 21)
    guictrlsetstate(-1,8)
    $edit = GUICtrlCreateEdit("", 34, 42, 200, 21)
    guictrlsetstate(-1,8)
    $start1 = GUICtrlCreateButton("start1", 264, 16, 75, 25, 0)
    $start2 = GUICtrlCreateButton("start2", 264, 40, 75, 25, 0)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $start1
    variante1()
    case $start2
    variante2()
    EndSwitch
    WEnd

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

    func variante1()
    $bla = GUICtrlRead($input)
    ConsoleWrite("-"&$bla&"-" & @CRLF)
    if not FileExists($bla) Then
    MsgBox(48,"Achtung!", $bla)
    Else
    MsgBox(48,"Achtung!", "alles ok")
    EndIf
    EndFunc

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

    func variante2()
    $bla = GUICtrlRead($edit)
    ConsoleWrite("-"&$bla&"-" & @CRLF)
    if not FileExists($bla) Then
    MsgBox(48,"Achtung!", $bla)
    Else
    MsgBox(48,"Achtung!", "alles ok")
    EndIf
    EndFunc

    [/autoit]

    Wenn Du den Text aus Control 1 in das Edit-Control kopierst, funktioniert Deine Abfrage.
    Nur bei Drag&Drop wird automatisch ein Zeilenumbruch eoingefügt.
    Ob man den unterdrücken kann weiß ich leider nicht. Hab iin der Hilfe so nix gesehen.

  • guictrllistview item markieren?!

    Hi,

    hab nur einen kleinen Verbesserungsvorschlag:
    Damit die Fortschrittsanzeige beim Indexieren egal bei wieviel Elementen immer bis zum Ende läuft...
    Deine Zeile 327 ersetzt:

    Spoiler anzeigen
    [autoit]

    ProgressSet(100/UBound($array)*$i, $i & " von " & UBound($array) -1 & " Elemente gespeichert.")

    [/autoit]

    ;)