Beiträge von autoBert

  • _post variable mit autoit belegen

    Hallo ohjelma,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deiner Frage, dazu benötigst du afaik die WinHttp.au3, ich habe aber damit noch nichts gemacht. Benutze einfach einmal die boardeigen Suchfunktion. Afair müsste @progandy der Haupverdächtige mit den hilfreichsten ANtworten dazu sein,

    mfg autoBert

  • Fenster ab bestimmte Zeile auslesen

    Hallo Dietus,

    du kannst es so machen:

    Spoiler anzeigen
    [autoit]

    #include <Word.au3>
    WinWait("owvk/RE *Ausgabe angehalten*")

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

    $text = WinGetText("owvk/RE *Ausgabe angehalten*", "")
    $aSplit = StringSplit($text,@crlf,1)
    $sToWord = ""
    For $i = 7 to $aSplit[0]
    $sToWord &= $aSplit[$i] & @CRLF
    Next

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

    Global $oWordApp = _WordCreate (@ScriptDir & "\Briefkopf.dotx", 0, 1, 0)
    Global $oDoc = _WordDocGetCollection ($oWordApp, 0)
    $oDoc.Range.insertAfter ($sToWord)
    WinClose("owvk/RE *Ausgabe angehalten*", "")
    _WordDocSaveAs($oDoc, @ScriptDir & "\Test.doc")

    [/autoit]

    mfg autoBert

  • Webcam im Browser anzeigen mit Quadfunktion

    Hallo thedog73,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Skript: was mir auffält ist, dass du für alle 4 emebedded IEs die gleiche Variable verwendest, das kann m.E. nach nicht gut gehen, nimm lieber für jeden eine eigene und teste dann noch einmal.
    Des weiteren: ist e beabsichtigt, dass sobald eine Kamera-GUI geschlossen wird sich dass komplette Skript beendet?

    mfg autoBert

  • Attribute von _GUIImageList_Add und _GUICtrlListView_AddItem

    so klappts:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.6.1
    Author: myName
    Script Function:
    Template AutoIt script.
    #ce ----------------------------------------------------------------------------
    ; Script Start - Add your code below here
    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.3.4.0
    Author: Sönke Graf
    Program Name: Version_Checker

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

    Script Function:
    This Script searches the Registry Uninstall Path - "$sBase for Specific
    Programs defined in the Variables Section under "$sSearch" - "$sSearch4" -
    the registry is then scanned for the correct Version Number and all
    Information stored in an array. This array then is used for a GUI display
    -ing the Information. The "$sURL" Variables are listed for an update of
    the Software.

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

    #ce ----------------------------------------------------------------------------

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

    ;=======================================================================
    ; INCLUDE CONSTANTS
    ;=======================================================================

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

    #include <GuiListView.au3>
    #include <Misc.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiImageList.au3>

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

    ;=======================================================================
    ; VARIABLES
    ;=======================================================================

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

    Local $hImage
    $sBase = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

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

    ;Five Search Operations

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

    $sSearch = "Adobe Flash"
    $sSearch1 = "Adobe Acrobat "
    $sSearch2 = "Adobe Reader"
    $sSearch3 = "Java"
    $sSearch4 = "UltraVnc"

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

    ;latest Versions

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

    $lVersion = "10.2.152.26"
    $lVersion1 = "10.0.1"
    $lVersion2 = "10.0.1"
    $lVersion3 = "6.0.240"
    $lVersion4 = "1.0.9.5"

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

    ;=======================================================================
    ; Program Code
    ;=======================================================================

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

    ;-----------------------------Search Operation 1------------------------

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

    $iEval = 1
    $iSearch = 0

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

    While 1
    $sVersion = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)
    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch & ".*") Then
    $sVersion = RegRead($sKey, "DisplayVersion")
    $iSearch = 1
    If $iSearch = 1 Then
    $sStatus = "installiert"
    ExitLoop
    ElseIf $iSearch = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch = 0 Then
    $sStatus = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 2------------------------

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

    $iEval = 1
    $iSearch1 = 0

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

    While 1
    $sVersion1 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch1 & ".*") Then
    $sVersion1 = RegRead($sKey, "DisplayVersion")
    $iSearch1 = 1
    If $iSearch1 = 1 Then
    $sStatus1 = "installiert"
    ExitLoop
    ElseIf $iSearch1 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch1 = 0 Then
    $sStatus1 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 3------------------------

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

    $iEval = 1
    $iSearch2 = 0

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

    While 1
    $sVersion2 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch2 & ".*") Then
    $sVersion2 = RegRead($sKey, "DisplayVersion")
    $iSearch2 = 1
    If $iSearch2 = 1 Then
    $sStatus2 = "installiert"
    ExitLoop
    ElseIf $iSearch2 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch2 = 0 Then
    $sStatus2 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 4------------------------

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

    $iEval = 1
    $iSearch3 = 0

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

    While 1
    $sVersion3 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch3 & ".*") Then
    $sVersion3 = RegRead($sKey, "DisplayVersion")
    $iSearch3 = 1
    If $iSearch3 = 1 Then
    $sStatus3 = "installiert"
    ExitLoop
    ElseIf $iSearch3 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch3 = 0 Then
    $sStatus3 = "n/a"
    EndIf

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

    ;-----------------------------Search Operation 5------------------------

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

    $iEval = 1
    $iSearch4 = 0

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

    While 1
    $sVersion4 = ""
    $sDisplay = ""
    $sCurrent = RegEnumKey($sBase, $iEval)

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

    If @error Then ExitLoop
    $sKey = $sBase & $sCurrent
    $sDisplay = RegRead($sKey, "DisplayName")

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

    If StringRegExp($sDisplay, ".*" & $sSearch4 & ".*") Then
    $sVersion4 = RegRead($sKey, "DisplayVersion")
    $iSearch4 = 1
    If $iSearch4 = 1 Then
    $sStatus4 = "installiert"
    ExitLoop
    ElseIf $iSearch4 = 0 Then
    ExitLoop
    EndIf
    EndIf
    $iEval += 1
    WEnd

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

    If $iSearch4 = 0 Then
    $sStatus4 = "n/a"
    EndIf

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

    ;=======================================================================
    ; URL Detection
    ;=======================================================================

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

    ;=======================================================================
    ; CURRENT VERSION ARRAY
    ;=======================================================================

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

    Global $aVersions[5][4]

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

    $aVersions[0][0] = $sSearch
    $aVersions[0][1] = $sStatus
    $aVersions[0][2] = $sVersion
    $aVersions[0][3] = $lVersion

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

    $aVersions[1][0] = $sSearch1
    $aVersions[1][1] = $sStatus1
    $aVersions[1][2] = $sVersion1
    $aVersions[1][3] = $lVersion1

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

    $aVersions[2][0] = $sSearch2
    $aVersions[2][1] = $sStatus2
    $aVersions[2][2] = $sVersion2
    $aVersions[2][3] = $lVersion2

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

    $aVersions[3][0] = $sSearch3
    $aVersions[3][1] = $sStatus3
    $aVersions[3][2] = $sVersion3
    $aVersions[3][3] = $lVersion3

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

    $aVersions[4][0] = $sSearch4
    $aVersions[4][1] = $sStatus4
    $aVersions[4][2] = $sVersion4
    $aVersions[4][3] = $lVersion4

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

    ;=======================================================================
    ; CREATE GUI
    ;=======================================================================

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

    Local $msg

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

    $GUI = GUICreate("Versionsprüfer by Sönke Graf", 800, 371)
    GUISetBkColor(0x99B9E3)

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

    $listview = GUICtrlCreateListView(" Programmname| Status|installierte Version | aktuelle Version Flag", 10, 10, 780, 351)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) ; legt fest, dass Hintergrundfarbe wechselt
    GUICtrlSetBkColor(-1, 0xFFFFCC) ; Hintergrundfarbe 1
    ;
    _GUICtrlListView_SetColumnWidth($listview, 0, 250)
    _GUICtrlListView_SetColumnWidth($listview, 1, 100)
    _GUICtrlListView_SetColumnWidth($listview, 2, 150)
    _GUICtrlListView_SetColumnWidth($listview, 3, 150)
    _GUICtrlListView_SetColumnWidth($listview, 4, 126)

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

    GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)

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

    $hImage = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($hImage, @SystemDir & "\shell32.dll", 110)

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

    For $i = 0 To UBound($aVersions) - 1
    $listitem = GUICtrlCreateListViewItem($aVersions[$i][0] & "|" & $aVersions[$i][1] & "|" & $aVersions[$i][2] & "|" & $aVersions[$i][3], $listview)
    GUICtrlSetBkColor(-1, 0xFFFFFF) ; Hintergrundfarbe 2
    Next

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

    ;#cs unnötig
    For $i = 1 To 10
    $listitem = GUICtrlCreateListViewItem("", $listview)
    ; If $i = 7 Then GUICtrlSetFont($listitem, 14, 800) ;war nur zum Test
    GUICtrlSetBkColor(-1, 0xFFFFFF) ; Hintergrundfarbe 2
    Next
    ;#ce

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

    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    MsgBox(0, "", "Programm wird geschlossen")
    Exit
    Case $nMsg = $GUI_EVENT_MINIMIZE
    MsgBox(0, "", "Dialog minimiert", 2)
    Case $nMsg = $GUI_EVENT_MAXIMIZE
    MsgBox(0, "", "Dialog wieder hergestellt", 2)
    EndSelect
    WEnd

    [/autoit]

    mfg autoBert

  • AutoIt auf remote Rechner

    Hallo yupepa,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deiner Frage: das ganze an einer gesperrten Arbeitsstation zu machen ist m.E. unnsinnig und würde falls es klappt deine Testdaten ad Absurdum führen, denn der User arbeitet später ja auch mit den echten Eingabemasken daher muss die Zeit für deren Aufbau auch in die Zeitmessung einfliessen,

    mfg autoBert

  • Array erst ab [1] befüllen

    Hallo

    ich würde es machen:

    [autoit]

    $aSplit = StringSplit(GUICtrlRead($GUILizNetzVerteiltServerName),@CRLF,1)
    For $i = 1 To $aSplit[0]
    msgbox(0,"",$aSplit[$i])
    Next

    [/autoit]

    dadurch erhälst du ein Array, bei dem die Werte ab dem 1. Element eingetragen sind und $aSpli[0] enthält die Anzahl der Werte,

    mfg autoBert

  • Altes Thema Multitasking

    Hallo AsiX-5,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Skript: Habe dein Skript mal konsequent gekürzt ohne etwas von der derzeitigen Funktionalität einzubüssen:

    [autoit]

    SplashTextOn("Mappe", "Test ob Adlibe Funktioniert")
    Sleep(2000)
    SplashOff()
    Sleep(1000)

    [/autoit]

    Du solltest die Hilfe durcharbeiten, damit du wenigstens die Grundlagen verstehst, danach kannst du auch über "Pseudo-Multithreading" nachdenken und versuchen es in den Skript zu implementiieren,

    mfg autoBert

  • Launcher. | Ein Problem.

    Hallo DaisukeHideki,

    zum Thema Sicherheit beim Downloaden könnte [Tutorial] Login + Registrierung über eine MySql-DB [+ Hilfedateien] von @Jautois interssant für dich sein. In deinem Fall ist die Absicherung des Servers bzw. des darin befindlichen Downloadbereichs wichtiger, der eigentliche Download über ein AutoItscript ist dagegen ein Kinderspiel. Hoffe für dich dass sich Jautois, I2C oder Blume auch noch dazu melden (damit zweifle ich nicht die Kompetenz anderer an, also bitte trotzdem posten)

    mfg autoBert

  • Launcher. | Ein Problem.

    Hallo DaisukeHideki,

    dein Skript ist ja noch sehr ausbauhähig. Spass bei Seite, etwas mehr Infos könnten nicht schaden.
    Sind FTP-Fnktionen möglich/nötig?
    Oder klappt es schon über INetGet.

    Bin aber kein MineCraft-Spieler. Das einfachste dürfte sein du hinterlegst eine INI auf dem Server mit den Versionsinformatinonen, der Launcher lädt es sich herunter vergleicht mit seiner INI und downloaded den Unterschied, danach updatet er seine INI so dass (ausser beim1.mal) immer nur dass nötigste herntergeladen wird.

    [Werbung]Eine Funktion zum Downloaden habe ich ihn meinen NeMP3 (MP3-Player) eingebaut, Link siehe Signatur. Ich benutze daür dieses Board. Das gleiche Schema habe ich auch bei meinem YT-Downloader der aber zur Zeit nicht funktioniert und auch nur als EXE eingestellt ist.[/Werbung]

    mfg autoBert

  • Programm Installation

    Zitat von too231

    Hi,

    noch ne frage zu deinem quellcode, ich versteh noch nicht ganz was mir der Befehl send genau bringen soll, damit kann ich Tastendrücke senden, aber auf mein Problem versteh ich den Lösungansatz irgendwie nicht... :/


    Da laut deinem Skript die Tasten ein Hotkey-Kürzel haben könntest du es auch darüber lösen, das Problem ist aber send sendet an das gerad aktive Fenster, wenn also ein DAU davor sitzt und zu einem anderen Anwendung wechselt geht nichts mehr. Man kann zwar auch das umgehen abe die Lösung über Controlxxxxxxx ist die deutlich geschicktere, beachte die Posts von misterspeed und vor allem Molaynox dann sollte es klappen,

    mfg autoBert

  • Attribute von _GUIImageList_Add und _GUICtrlListView_AddItem

    Zitat von Prickel

    Das Beispielprogramm von Bugfix hatte ich die Tage gesehen als auch angesehen, und dachte, da würde ich den Ansatz finden, die Tabellenzeilen einzufärben, aber ich gestehe, ich habe nicht kapiert, es umzusetzen :huh:


    Wenn du die Zeilen abwechselnd färben möchtest, dann nimm mein Beispiel im Thread vom HamburgerJung. Falls du mehr brauchst das von BugFix. Mein [Beispiel] Icons von System-DLLs in LV darstellen ist eigentlich nur als Vorlage gedacht und natürlich als Hilfe um schnell? passende Icons zu finden die eh auf jedem System installiert sind. Trotzdem danke für deinen Hinweis, weil gute Icons kann man immer gebrauchen.
    Zu der Frage nach der Höhe, ich denke doch dass die LV automatisch an den höchsten Inhalt angepasst wird. Eine Änderung der Schrift dürfte/müsste sich dann genauso auswirken,

    mfg autoBert

  • Graph zeichnen mit zoom

    einfach umrechnen: der grösst möglichste Wert entspricht 100%. Wenn der sichtbare Bereich der Grafik 620 px hoch ist und die 0-Achse bei 20 sichtbar sein soll dann entsprechen 100% 600 pixeln. Der Wert von 10 bei grösstem Wert von 100 wird dann also bei:
    20 (=0Linie) + 600/100 *10
    = 20 + 6 * 10
    = 80
    dargestellt also usw.