Beiträge von PenGuin

Einfach beide ToolTips hintereinander hinschreiben
Der User merkt doch die Millisekunde dazwischen gar nicht :o

Hab hier mal ne Funktion gebastelt. Vllt. nicht optimal programmiert, aber sie funktioniert

Func _ListDoubleNumbers($sText)
Local $a = 1, $b = 0, $c = 0
Local $aMatches[1]
Local $aRegEx = StringRegExp($sText, "(\d+)", 3)
Local $aTest = _ArrayUnique($aRegEx)
Do
For $b = 0 To UBound($aRegEx) - 1
If ($aTest[$a] = $aRegEx[$b]) And ($a <> ($b+1)) Then $c += 1
Next
If $c = 1 Then _ArrayAdd($aMatches, $aTest[$a])
$c = 0
$a += 1
Until $a = $aTest[0]
Return $aMatches
EndFunc

Ansonsten gibts ja auch noch sowas wie wm_command, falls man ein wichtiges Ereignis abfangen will, fast wie ein interupt in asm

:O

Ziemlich geniales Programm!

Zitat von AspirinJunkie

Wobei ich zugeben muss dass ich es wahrscheinlich auch nicht gefunden hätte wenn ich nicht gewusst hätte dass ich es mal geschrieben hatte. (wow - das waren mal viele Perfekt-Termini... )

Wenn du die Zeit "Perfekt" meinst, dann waren es gar nicht soviele. Nämlilch haste genau 1 mal Perfekt benutzt, der Rest ist Konjunktiv
Das musste ich mal eben gesagt haben
/Deutsch-besser-wisser off

Und für Fragen sind wir ja da, wenn wir genug Eigenleistung sehen

Wie gesagt, erst Anfangsphase

Da würde es 7 hoch 7 Möglichkeiten geben (richtig gerechnet? :D)
Glaub ich ziemlich schwer realisierbar^^

Hab zwar nicht nachgeschaut, obs schon so eine UDF gibt, aber hab auch mal eine geschrieben

Sie ist noch im Anfangsstadium... Ich werde sie noch erweitern und verbessern.
Und mit GDI+ bin ich noch nicht so gut dabei, also Rücksicht

Ich war auch bis jetzt noch zu faul ein Funktionsheader zu schreiben, in dem die Funktion erklärt wird. Ich liefere einfach erstmal ein Testscript mit

UDF:

Und hier das Testscript:

Bugs dürfen genannt werden!
Ich hoffe es gefällt euch

MfG

Aber Andy $Struct ist doch im 2. Script nicht mehr definiert, d.h. man müsste irgendwie den Speicher auslesen, denn man mit Virtual Alloc Ex freigegeben hat...

Andy:
VirtualAllocEx oder wie meinste das?

Zitat von mipez

Das IsVisible muss man allerdings auf _WinAPI_IsWindowVisible(...) umändern...

Woher hast du das denn

Mach mal ein Bild davon wie du Window Info Tool offen hast und dieses OBD!
Vielleicht findet man dann den Fehler...

Global $hUser32 = DllOpen("user32.dll")
Global $pCallBack = DllCallbackRegister("_EnumWindows", "int", "hwnd;lParam")

Do
DllCall($hUser32, "int", "EnumWindows", "ptr", DllCallbackGetPtr($pCallBack), "lparam", 0)
Sleep(50)
Until False
DllClose($hUser32)
DllCallbackFree($pCallBack)

Func _EnumWindows($hWnd, $lParam)
;deine function
EndFunc

Habs mal geändert

Hab noch paar Fehlerabfragen eingebaut

Hier die Funktion von mir, optimiert und erweitert durch Kleiner und Großvater

; #FUNCTION# ====================================================================================================================
; Name...........: _ProcessGetModulesEx
; Description....: Retrieves the currently loaded modules in the target process.
; Syntax.........: _ProcessGetModules($iPID, $iMode, $iFlag)
; Parameters.....: $iPID - The PID of the target process.
; $iMode - Changes the returns in the array. This parameter can be:
; 1: Retrieves an array with the fullpath of the modules.
; 2: Retrieves an array with the modules only.
; $iFlag - The filter criteria. This parameter can be one of the following values
; 1: List the 32-bit modules.
; 2: List the 64-bit modules.
; 3: List all modules.
; 0: Use the default behavior.
; Return values..: Success - An array with the loaded modules.
; Failure - Returns -1 if the PId isn't valid
; Returns -2 if $iMode is not 1 or 2
; Returns -3 if the function couldn't open the target process
; Returns -4 if the function coudln't enumerate the modules
; Returns "Couldn't retrieve the modulename of xxxx" in the array where the function couldn't get the module name.
; Author.........: [email='pinguin94@autoit.de'][/email]
; Modified.......: Großvater, Kleiner
; Remarks........: None
; Related........: None
; Link...........: None
; Example........: No
; ===============================================================================================================================
Func _ProcessGetModulesEx($iPID, $iMode = 1, $iFlag = 0)
If Not ProcessExists($iPID) Then Return SetError(1, 0, -1)
If Not $iMode Or $iMode > 2 Then Return SetError(1, 0, -2)
Local $hOpen = DllCall('kernel32.dll', 'handle', 'OpenProcess', 'int', 0x0400 + 0x0010, 'int', 0, 'int', $iPID)
If @error Then Return SetError(1, 0, -3)
Local $Struct = DllStructCreate('int[1024]')
Local $aEnum = DllCall('psapi.dll', 'int', 'EnumProcessModulesEx', 'handle', $hOpen[0], 'ptr', DllStructGetPtr($Struct), 'int', DllStructGetSize($Struct), 'dword*', 0, 'dword', $iFlag)
If @error Then Return SetError(1, 0, -4)
Local $iMax = $aEnum[4] / 4
Local $aModules[$iMax + 1]
Local $aTemp, $iMod = 0
For $i = 1 To $iMax
$aTemp = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'handle', $hOpen[0], 'int', DllStructGetData($Struct, 1, $i), 'str', '', 'int', 2048)
If @error Then
$iMod += 1
$aModules[$i] = "Couldn't retrieve the modulename of " & DllStructGetData($Struct, 1, $i)
ContinueLoop
EndIf
If $aTemp[3] Then
$iMod += 1
Switch $iMode
Case 1
$aModules[$i] = $aTemp[3]
Case Else
$aModules[$i] = StringMid($aTemp[3], StringInStr($aTemp[3], '\', 0, -1) + 1)
EndSwitch
EndIf
Next
$aModules[0] = $iMod
DllCall('kernel32.dll', 'int', 'CloseHandle', 'handle', $hOpen[0])
Return $aModules
EndFunc ;==>_ProcessGetModulesEx

Beschreibung steht im Funktionsheader.

Diese Funktion listet alle geladenen Module in dem Zielprozess auf.

MfG

Sehr gut

Aber war es jetzt so nötig in EnumProcessModulesEx, einfach nur ein $iFlag mit zu übergeben?
Wäre ja jetzt nicht so die Hürde für einen, der noch mehr will eben das Flag hinzuzufügen. Aber gut ich glaub ich stell die UDF mal rein in den Skripte Bereích mit special thanks an euch

Hab mal Thread auf gelöst gesetzt

@m-obi: Das liegt daran, dass mein RegExp nur alle .dlls gefiltert hat, wobei ja auch andere Dateien als Module geladen werden können. Wenn du das optimierte Script von Großvater nimmst sollte es gehen.
Danke an alle die geholfen haben

Prinzipiell hab ich meine Funktion fertig, nur gibt es einen Fehler den ich nicht erkenne:
Wenn man bei $iMode 2 angibt, gibt es einen Error beim StringRegExp, dass es kein Array ist, obwohl ich es mir mit _ArrayDisplay anschauen kann.
Any thoughts?

#include-once
#include <Array.au3>
; #FUNCTION# ====================================================================================================================
; Name...........: _ProcessGetModules
; Description....: Retrieves the currently loaded modules in the target process.
; Syntax.........: _ProcessGetModules($iPID, $iMode)
; Parameters.....: $iPID - The PID of the target process.
; $iMode - 1: Retrieves an array with the fullpath of the modules.
; 2: Retrieves an array with the modules only.
; Return values..: Success - An array with the loaded modules.
; Failure - Empty array
; Author.........: [email='pinguin94@autoit.de'][/email]
; Modified.......: -
; Remarks........: Array.au3 needed
; Related........: None
; Link...........: None
; Example........: No
; ===============================================================================================================================
Func _ProcessGetModules($iPID, $iMode = 1)
Local $aModules[1], $aTemp

Local $Kernel32 = DllOpen("kernel32.dll")
Local $PsAPI = DllOpen("psapi.dll")

Local $hOpen = DllCall($Kernel32, "hwnd", "OpenProcess", "int", BitOR(0x0400, 0x0010), "int", 0, "int", $iPID)
$hOpen = $hOpen[0]
Local $Struct = DllStructCreate("int[1024]")
$aEnum = DllCall($PsAPI, "int", "EnumProcessModules", "hwnd", $hOpen, "ptr", DllStructGetPtr($Struct), "int", DllStructGetSize($Struct), "int*", 0)
$iMax = $aEnum[4] / 4
For $i = 1 To $iMax
$aTemp = DllCall($PsAPI, "int", "GetModuleFileNameEx", "hwnd", $hOpen, "int", DllStructGetData($Struct, 1, $i), "str", "", "int", 2048)
If $aTemp[3] > "" Then
Switch $iMode
Case 1
_ArrayAdd($aModules, $aTemp[3])
Case 2
$RegExp = StringRegExp($aTemp[3], "\\(\w*).dll", 3) ;Soll alle .dll filtern <-- Error!
_ArrayAdd($aModules, $RegExp[0] & ".dll")
EndSwitch
EndIf
Next
DLLCall($Kernel32, "int", "CloseHandle", "int",$hOpen)
DllClose($Kernel32)
DllClose($PsAPI)

Return $aModules
EndFunc

Verbesserungen an der Funktion nehm ich gerne an, die werden direkt umgesetzt.
Vielleicht braucht die Funktion ja wer, damit kann man super Task Manager programmieren, der direkt schaut, welche module geladen sind!

MfG

Geht
Dann hab ich ja gar nicht soviel falsch gemacht