Beiträge von McPoldy

  • script in einem minimierten programm laufen lassen?

    hm wohl war :( da war ich wieder mal zu voreilig :)

    so ist nen bissel besser glaub ich :)

    Spoiler anzeigen
    [autoit]


    ;~ Controllsend
    ShellExecute("notepad.exe","",@TempDir,"",@SW_MINIMIZE)
    HotKeySet("{esc}","_exit")

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

    While 1
    $zahl = Random(1,100000,1)
    $str = ControlGetText ( "Unbenannt","","Edit1" )
    $str &= $zahl & @TAB
    ConsoleWrite(ControlSetText("Unbenannt","","Edit1",$str,1) & @LF)
    Sleep(1000)
    WEnd

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

    Func _exit()
    Exit
    EndFunc

    [/autoit]

  • script in einem minimierten programm laufen lassen?

    Mal als Einstiegsbeispiel:

    [autoit]

    ShellExecute("notepad.exe","",@TempDir,"",@SW_MINIMIZE)
    HotKeySet("{esc}","_exit")

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

    While 1
    $zahl = Random(1,100000,1)
    ControlSend("Unbenannt","","",$zahl & @CR)
    Sleep(1000)
    WEnd

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

    Func _exit()
    Exit
    EndFunc

    [/autoit]

  • System daten auslesen

    Hi,

    oder per WMI, hier ein kleines nicht schönes Beispiel:

    [autoit]


    $oWMI = ObjGet("WINMGMTS:\\.\ROOT\CIMV2")
    $colProcs = $oWMI.ExecQuery("select * from Win32_Processor where DeviceID='CPU0'")
    For $oProc In $colProcs
    Dim $strInfoCPU = ""
    $strInfoCPU &= StringFormat("CPU Name: %s",$oProc.name) & @LF
    $strInfoCPU &= StringFormat("Anzahl CPU Cores: %s",$oProc.NumberOfCores) & @LF

    MsgBox(64,"CPU Info",$strInfoCPU)
    Next

    [/autoit]

  • StringRegExpReplace will nicht, wie ich will

    Hi.

    [autoit='Alt']

    StringRegExpReplace ($my_xml, "<\S", "") ;<= Hier soll es passieren - passiert aber nicht.

    [/autoit][autoit='Neu']

    $my_xml = StringRegExpReplace ($my_xml, "<\S*", "") ;<= 1. Es muss wieder in die Variable geschrieben werden, 2. Um alle Zeichen zu erwischen muss hinter dem S noch ein *

    [/autoit]

    Raus kommt bei mir dann: AbsatzID="27" IP="127.0.0.1" WertID="" Wert2ID="" Wert3ID="" Wert4ID="false" Wert5ID="66.97"/>

  • Bisschen MineSweeper gefällig?

    Sehr nett, hab mir mal erlaubt es etwas zu erweitern, kommen ja recht schlechte Ergebnisse bei raus ;) passte grade recht gut da ich mir das Tut im Autoit Wiki angesehen habe :)

    Erweiterte Version mit nomadmemory
    [autoit]


    #include <nomadmemory.au3>;<--- McPoldy Erweiterung
    HotKeySet("{F1}","start") ;HotKeySet für Start, belegt auf der Taste 'F1'
    HotKeySet("{esc}","_exit") ;HotKeySet für Ende, belegt auf der Taste 'ESC'
    MsgBox("","MineSweeper","Um zu starten, drücken Sie 'F1'")
    while 1
    WEnd

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

    func start()
    run(@SystemDir & "\winmine.exe") ;MineSweeper Start
    MsgBox("","","Klicken Sie OK!") ;MsgBox ....einfach Ok drücken, damit man noch die möglichkeit hat bei MineSweeper etwas zu ändern..(Feldgröße)
    WinActivate("MineSweeper") ;MineSweeper Fenster Activieren
    WinWaitActive("MineSweeper") ;Auf MineSweeper Fenster warten
    send("{X}{y}{z}{z}{y}{backspace}+{backspace}") ;Cheat Aktivieren mittels den Send's (in der reihenfolge aktiviert man einen Cheat)
    ;Der Cheat bewirkt, das wenn man mit der Maus über eines der Kästchen fährt ein weisser Pixel oben links erscheint.
    ;Wenn ein weisser Pixel oben links ist, ist 'KEINE' Mine darunter.
    $WinPos = WinGetPos("MineSweeper") ;MineSweeper Fenster Position ermitteln
    $x = $WinPos[0] + 22 ;MineSweeper Koordinaten werden Modifiziert
    $y = $WinPos[1] + 111
    $z = $WinPos[0] + $WinPos[2] - 10
    $w = $WinPos[1] + $WinPos[3] - 10
    ;<--- McPoldy Erweiterung
    $ProzessID = ProcessExists("winmine.exe")
    $mem = _MemoryOpen($ProzessID)
    $adr = 0x0100579C
    ;---> McPoldy Erweiterung
    for $e = $y to $w step 16
    for $i = $x to $z step 16
    _MemoryWrite("0x0100579C",$mem,"1");<--- McPoldy Erweiterung
    MouseMove($i,$e,1) ;MouseMove über das ganze Feld Koordinaten bekommt er über die 'for-schleifen'
    if PixelGetColor(0,0) = 0xFFFFFF Then MouseClick("left",$i,$e,1,0) ;Wenn Pixel oben links weiss, dann klicken
    next
    Next
    _MemoryClose($mem);<--- McPoldy Erweiterung
    EndFunc

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

    func _exit()
    Exit ;EXIT
    End Func

    [/autoit]

  • Antworten Überprüfen von Foren

    @Pee
    Wie Pinguin schon sagte es geht nicht bei jedem Forum, grade wenn es vielleicht ein selbst gebautes ist.

    Pinguin
    Meinst du wenn man so ein Tool bastelt gibt das mehr Server last, das ist wohl richtig aber man könnte ja mal den Betreiber bitten das es eine kleine Seite hinzufügt die nur die Parameter zurück gibt. Zum Beispiel sowas wie https://autoit.de/threadInfo.php?threadID=6922 und als Rückgabe kommt dann so etwas wie:
    Antworten Überprüfen von Foren
    devildevil3|2008/07/05|23:49
    McPoldy|2008/07/06|00:20
    devildevil3|2008/07/06|09:37
    peethebee|2008/07/06|10:25
    Pinguin|2008/07/06|11:12

    Damit könnte man ja schon viel anfangen, die Belastung ist relativ gering und der Aufwand wäre auch nicht groß.

    devildevil3
    Wenn man es so machen möchte, liest man sich die Daten aus dem Quelltext aus, speichert sich die Daten selber weg und wenn sich die Daten geändert haben, hast du eine neue Antwort im Beitrag.

  • TEst programm nach 30Tgane ablaufen

    Morgen,

    da gibt es verschiedene Möglichkeiten. Zum einen könntest du beim ersten Start des Programms einen Reg-Eintrag machen und diesen bei jedem Programmstart abfragen oder eben eine Datei erstellen wo das Datum drinnen steht. Bei der Datei kann man sich ja einen schönen Dateipfad wie: c:\windows\xxx\xxxxx aussuchen, so das sie nicht sofort gefunden wird. Die Angabe des Datums sollte natürlich nicht im Klartext sein sondern irgendwie verschlüsselt erfolgen, damit gewisse Leute es nicht ganz so einfach haben. Man kann zwar mit Regviewer oder Fileviewer schnell dahinter kommen welche Dateien/Reg-Einträge genutzt werden, aber gegen richtige Cracker sieht man leider eh auf Dauer kein Land. Du könntest natürlich auch etwas wie TotalCommander machen und ein Splash-Screen erstellen, damit hättest du gleich noch etwas Werbung für euer Board/Deine Software.

  • Transparenz-UDF

    Und hier noch mal dein Quellcode, da war beim $gui = .... ein Parameter zu wenig :)

    Spoiler anzeigen
    [autoit]


    #include<WindowsConstants.au3>
    #include<GUIConstants.au3>

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

    $gui = GUICreate("Test", 563, 318, 283, 181, -1, $WS_EX_LAYERED) ;<-- Hier muss noch das , -1 rein
    $slidTrans = GUICtrlCreateSlider(10, 70, 200, 30)
    GUICtrlSetLimit($slidTrans, 255, 0)
    GUICtrlSetData(-1, 255)
    GUISetState(@SW_SHOW)
    _API_SetLayeredWindowAttributes($gui,0x8080ff,255)

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

    ;habe hier noch nen bissel hinzugefügt :)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $slidTrans
    _API_SetLayeredWindowAttributes($gui,0x8080ff,GUICtrlRead($slidTrans))
    EndSwitch
    WEnd

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


    ;===============================================================================
    ;
    ; Function Name: _API_SetLayeredWindowAttributes
    ; Description:: Sets Layered Window Attributes:) See MSDN for more informaion
    ; Parameter(s):
    ; $hwnd - Handle of GUI to work on
    ; $i_transcolor - Transparent color
    ; $Transparency - Set Transparancy of GUI
    ; $isColorRef - If True, $i_transcolor is a COLORREF-Strucure, else an RGB-Color
    ; Requirement(s): Layered Windows
    ; Return Value(s): Success: 1
    ; Error: 0
    ; @error: 1 to 3 - Error from DllCall
    ; @error: 4 - Function did not succeed - use
    ; _WinAPI_GetLastErrorMessage or _WinAPI_GetLastError to get more information
    ; Author(s): Prog@ndy
    ;
    ;===============================================================================
    ;
    Func _API_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $isColorRef = False)

    Local Const $AC_SRC_ALPHA = 1
    Local Const $ULW_ALPHA = 2
    Local Const $LWA_ALPHA = 0x2
    Local Const $LWA_COLORKEY = 0x1
    If Not $isColorRef Then
    $i_transcolor = Hex(String($i_transcolor), 6)
    $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
    EndIf
    Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $LWA_COLORKEY + $LWA_ALPHA)
    Select
    Case @error
    Return SetError(@error,0,0)
    Case $ret[0] = 0
    Return SetError(4,0,0)
    Case Else
    Return 1
    EndSelect
    EndFunc ;==>_API_SetLayeredWindowAttributes

    [/autoit]