Beiträge von Schnuffel

  • kleines problem mit pixelsearch

    Du musst aus der Schleife natürlich wieder raus, sonst macht Dein Programm dass solange der Bildpunkt die angegebene Farbe hat.

    Spoiler anzeigen
    [autoit]

    While 1
    sleep(1)
    $Coord = PixelSearch(167,95,743,440, 0xF0D965)
    If Not @error Then
    Mouseclick("left", $Coord[0], $Coord[1],1)
    ExitLoop; Beendet die Schleife!
    EndIf
    Wend

    [/autoit]

  • Mit autoit Origramminstallationen Automatisieren

    Hallo Blacky911 und willkommen im Forum,

    Zitat

    ist sowas einfach zu bewerkställigen oder soll ichs lieber sein lassen?


    das mit dem einfach ist natürlich so eine Sache ....

    Ich glaube, dass es z.Zt keine bessere, flexiblere, umfangreichere und leichter zu erlernende Scriptsprache gibt als AutoIt.
    (war ein bisschen viel auf einmal, aber wenn's stimmt :D )

    Schau Dir mal in der deutschen Hilfe (findest Du im Forum auf der linken Seite im Kästchen AutoIt Downloads)
    das Tutorial zu WinZip Installation an.

    Das mit den "wechselnden" Fenstern ist kein Problem, wenn Dein Script mal so weit ist, dann stell es einfach in's Forum und Du erhälst sicher in kürzester Zeit kompetente Antwort und Hilfestellung.

    ALSO: Nicht schon vor dem Start verzagen und VIEL SPASS :rock:

  • Top 30 Der am meisten gestiegenen werte ausrechnen

    Hallo Hollywood,
    ich würde die Differenz Deiner Ordnergrößen (aktueller Monat - vorheriger Monat)
    in ein Array schreiben ([1] .... [35] .... [78] ...) und diese Differenzwerte dann mit _ArraySort aufsteigend sortieren.
    Kannst ja die Werte in MB speichern, dann ist die Sortierung vielleich genauer ...

    Die Ausgabe der Array-Werte [1] - [30] sollte dann kein Problem mehr darstellen ;)

  • Mit inetgetsource Zeilen aus einer Online-Datei lesen

    probier mal so weiter.....

    aber bitte lesen und versuchen zu verstehen, sonst macht das nicht viel Sinn.

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    #include <file.au3>
    $variable=97
    $filelokal="test.txt"
    $inetpfad="http://www.transit.ru/mailform.txt"
    $sHTML=InetGet($inetpfad,$filelokal,1,0)
    $istvorhanden=0
    Dim $aRecords
    _FileReadToArray(@ScriptDir&"\"&$filelokal,$aRecords)
    For $i = 1 To UBound($aRecords)-1
    If StringInStr($aRecords[$i],$variable) Then $istvorhanden = 1
    Next
    If $istvorhanden = 1 Then
    hierweitermachen()
    Else
    MsgBox(0x40, "Error", "Nicht vorhanden!")
    Exit
    EndIf

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

    Func hierweitermachen()

    ;Deine weiteren Befehle ....
    EndFunc

    [/autoit]

  • Mit inetgetsource Zeilen aus einer Online-Datei lesen

    jetzt muß ich Dich mal ausbremsen.....

    Du erwartest jetzt nicht, dass ich Dir Dein Script schreibe, oder wie?
    Ich helfe gerne soweit ich kann. Wenn ich aber merke, dass von der hilfesuchenden Seite
    keinerlei Eigeninitiative kommt ist mein Interesse begrenzt.

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    #include <file.au3>
    $variable = 22
    $filelokal="test.txt"
    $inetpfad="www.XXXXX.XX.funpic.de/TESTSCAN50.txt"
    $sHTML=InetGet($inetpfad,$filelokal,1,0)
    Dim $aRecords
    _FileReadToArray(@ScriptDir&"\"&$filelokal,$aRecords)
    For $i = 1 To UBound($aRecords)-1
    If Not StringInStr($aRecords[$i],$variable) Then MsgBox(0,"", "Fehler!"&@CRLF&"Variable ist nicht vorhanden")
    Next
    FileDelete(@ScriptDir&"\"&$filelokal); temporäre Datei löschen

    [/autoit]

  • Mit inetgetsource Zeilen aus einer Online-Datei lesen

    tut mir Leid, wenn Du mein Beispiel nicht verstanden hast.
    Die MsgBox steht nur zur Verdeutlichung dass das Ereignis erkannt wird und verarbeitet werden kann.
    Selbstverständlich kannst Du das ersetzen durch einen Funktioneaufruf, ohne das der Anwender das sieht, oder irgendetwas machen muß. :D

    Die Anzeige am Schluß ist nur ein _ArrayDisplay(), dass Dir verdeutlichen sollte, wie das ganze als Aufsplittung in einzelne Array-Felder funktioniert.
    Die Zeile kannst Du natürlich einfach löschen.
    Der "Unsinn" der da drinnen steht ist der Inhalt einer *.txt-Datei, die ich im Internet gefunden habe.
    ;)

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    #include <file.au3>
    $variable = 22
    $filelokal="test.txt"
    $inetpfad="www.XXXXX.XX.funpic.de/TESTSCAN50.txt"
    $sHTML=InetGet($inetpfad,$filelokal,1,0)
    Dim $aRecords
    _FileReadToArray(@ScriptDir&"\"&$filelokal,$aRecords)
    For $i = 1 To UBound($aRecords)-1
    If StringInStr($aRecords[$i],$variable) Then MsgBox(0, '', "Variable ist vorhanden in Zeile: "&$i,1)
    Next
    FileDelete(@ScriptDir&"\"&$filelokal); temporäre Datei löschen

    [/autoit]

    Edit: ich hab mal Deinen Pfad eingefügt und Deine Wert, nachdem Du suchst.

  • Mit inetgetsource Zeilen aus einer Online-Datei lesen

    nachdem ich Deine Datei ja nicht testen kann, hab oich mal mit irgendeiner *.txt Datei aus dem Internet gespielt.
    Das ist dabei herausgekommen.
    Um das temporäre zwischenspeichern kommst Du nicht herum, da Du die geladene Datei nicht ohne erheblichen Aufwand direkt in den Speicher laden und darauf referenzieren kannst.
    Du kannst der lokalen Datei ja einen unverfänglichen Namen geben und außerdem wird diese ja innerhalb von 2-3 sek. wieder gelöscht.
    Da müsste einer schon verdammt schnell sein, die Datei zu kopieren ;)

    Spoiler anzeigen
    [autoit]

    #Include <Array.au3>
    #include <file.au3>
    $variable=97
    $filelokal="test.txt"
    $inetpfad="http://www.transit.ru/mailform.txt"
    $sHTML=InetGet($inetpfad,$filelokal,1,0)
    Dim $aRecords
    _FileReadToArray(@ScriptDir&"\"&$filelokal,$aRecords)
    For $i = 1 To UBound($aRecords)-1
    If StringInStr($aRecords[$i],$variable) Then MsgBox(0, '', "Variable ist vorhanden in Zeile: "&$i)
    Next
    FileDelete(@ScriptDir&"\"&$filelokal); temporäre Datei löschen
    _ArrayDisplay($aRecords)

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

  • Sprung in Auswahl- Munue

    vereinfacht und ohne große Prüfungen würde ich das so machen:

    Spoiler anzeigen
    [autoit]

    If Not WinExists("Geräte-Manager") Then
    ShellExecute("devmgmt.msc")
    WinWait("Geräte-Manager")
    EndIf

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

    WinActivate("Geräte-Manager")
    send("{TAB}")
    send("Laufwerke")
    send("{RIGHT}")

    [/autoit]

    Edit: ich gehe dabei davon aus, dass es sich um eine deutsche Version von Windows handelt. ...

  • Maximieren etwas anders...

    Hallo MatthiasG,
    ich denke Du suchst sowas:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #region - GUI Create
    $fenster = GUICreate('',200 ,90 ,-1,-1,$WS_MAXIMIZEBOX)
    GUISetState()
    #endregion

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

    #region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = -6
    WinMove($fenster,"",0,0,@DesktopWidth,90,1)

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

    EndSelect
    WEnd
    #endregion

    [/autoit]

  • Label als Button

    dann verwende doch einfach das Label als Control...

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    GUICreate("My GUI") ; Legt ein Dialogfenster an, das zentriert angezeigt wird
    GUISetState (@SW_SHOW) ; zeigt ein leeres Dialogfenster an

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

    $label = GUICtrlCreateLabel("Test", 10, 10)
    GUICtrlSetBkColor($label, $GUI_BKCOLOR_TRANSPARENT)

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

    ; GUI starten bis der Dialog geschlossen wird
    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $label Then MsgBox("","","Label gedrückt")
    Wend

    [/autoit]