Beiträge von Kleiner

Kleiner

Hi!

SEuBo
11 sec. na hopla!
_ArrayMultiDisplay

MSDN

Lg kleiner

Kleiner

Hi!

Ich mache das oft über WMI kleines Beispiel!
Caption; WriteTransferCount; WorkingSetSize rund 0,300 msc.

Spoiler anzeigen

[autoit]

#include <_ArrayMultiDisplay.au3>

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

Local $iTimer = TimerInit()

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

Global $obWMI = ObjGet('winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2')
Local $co = $obWMI.ExecQuery('SELECT * FROM Win32_Process')

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

Dim $Prozess[$co.Count][3], $i = 1
For $ob In $co
$Prozess[$i - 1][0] = $ob.Caption
$Prozess[$i - 1][1] = $ob.WriteTransferCount
$Prozess[$i - 1][2] = $ob.WorkingSetSize
$i += 1
Next

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

_ArrayMultiDisplay($Prozess, Round(TimerDiff($iTimer)))

[/autoit]

natürlich gibt es auch ander möglichkeiten schau mal bei MSDN unter Processe!

Edit:/ finde das beispiel von UZE nicht!

Lg Kleiner

Kleiner

Hi!

Beispiel habe die daten im Ordner(Programme Installieren lassen) da wird ein Ordner mit den Bildern angelegt und die Programmdatein liegen in Programme!
Alle in einen Beispiel StreamPlayer .
Ein Deinstall wehre nicht schlecht, gut wenn du das änderst mit dem einen Ordner ist es nicht schwer den zu löschen aber für andere User.
Meine meinung zum Install ich will keine Unnötigen Datein auf mein Rechner die irgendwo kreuz und Quer RUMLIGEN!

Lg Kleiner

Kleiner

Hi!

~~Zeig bitte dein Skript, und mach bitte ein Hilfe Thema hirzu auf ! DANKE~~ MoD

Zeig bitte dein Skript, es gibt viele möglichkeiten!

Lg Kleiner

Kleiner

Hi, Guten Morgen!

Ich weiss nicht wie du zu den Paramenter kommst bei DllCall, aber hir ein Beispiel!

Spoiler anzeigen

[autoit]

#include <WinAPI.au3>
#include <_ArrayMultiDisplay.au3>

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

Local $aWinList, $aProzes, $aWintilSave
$aWinList = _WinAPI_EnumWindowsTop()
$aProzes = ProcessList()

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

For $i = 2 To $aProzes[0][0]
For $n = 0 To $aWinList[0][0]
If (WinGetProcess($aWinList[$n][0]) = $aProzes[$i][1]) Then $aWintilSave &= '|' & $aProzes[$i][0] & '=' & WinGetTitle($aWinList[$n][0])
Next
Next

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

$aWintilSave = StringSplit(StringTrimLeft($aWintilSave, 1), '|')
_ArrayMultiDisplay($aWintilSave)

[/autoit]

LG Kleiner

Kleiner

Hi!

Habe dein Code noch ein wenig gekürzt!

Spoiler anzeigen

[autoit]

#include-once
; #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

[/autoit]

Lg Kleiner

Kleiner

Hi!

Sehr schön!

Lg Kleiner

Kleiner

Hi!

Ansich nicht schlecht, hir gibt es schon sehr viele darum ( nicht schlecht )
Was ich nicht gut finde ist das beim Install die datenin dem Ordner geschmissen werden den man wählt nur sollten die daten in ein EIGENEN Ordner mit den Bildern zusammen, Fehler abfragen ( wenn kein Bild vom User ausgewählt wurde, solte sich die Einstellung nicht auf standart stellen) und wenn mann die einstellungen löschen will Beendet sich das Skript bei mir!

LG Kleiner

Kleiner

Hi!

Habe deine Func ein wenig erweitert _ProcessGetModulesEx

Spoiler anzeigen

[autoit]

#include-once
#include <_ArrayMultiDisplay.au3>

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

; #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.
; $FilterFlag - 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 - Empty array
; Author.........: [email='pinguin94@autoit.de'][/email], Großvater, Kleiner
; Modified.......: -
; Remarks........: No Array.au3 needed
; Related........: None
; Link...........: None
; Example........: No
; ===============================================================================================================================

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

Global Const $LIST_MODULES_32BIT = 0x01 ; Liste der 32-Bit-Module.
Global Const $LIST_MODULES_64BIT = 0x02 ; Liste der 64-Bit-Module.
Global Const $LIST_MODULES_ALL = 0x03 ; Liste aller Module.
Global Const $LIST_MODULES_DEFAULT = 0x0 ; Verwenden Sie das Standardverhalten.

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

Dim $aP = ProcessList()
Dim $aP
For $i = 1 To UBound($aP) - 1
$aPrEx = _ProcessGetModulesEx($aP[$i][1],1,3)
_ArrayMultiDisplay($aPrEx)
Next

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

Func _ProcessGetModulesEx($iPID, $iMode = 1, $FilterFlag = 0)
If ProcessExists($iPID) Then
Switch $iMode
Case 1, 2
Case Else
Return SetError(1, 0, 0)
EndSwitch
Local $Kernel32 = DllOpen('kernel32.dll')
Local $PsAPI = DllOpen('psapi.dll')
Local $hOpen = DllCall($Kernel32, "handle", "OpenProcess", "int", 0x0400 + 0x0010, "int", 0, "int", $iPID)
Local $Struct = DllStructCreate("int[1024]")
Local $aEnum = DllCall($PsAPI, 'int', 'EnumProcessModulesEx', 'handle', $hOpen[0], 'ptr', DllStructGetPtr($Struct), 'int', DllStructGetSize($Struct), 'int*', 0, 'dword', $FilterFlag)
Local $iMax = $aEnum[4] / 4
Local $aModules[$iMax + 1]
Local $aTemp, $i, $iMod = 0
For $i = 1 To $iMax
$aTemp = DllCall($PsAPI, 'int', 'GetModuleFileNameEx', 'handle', $hOpen[0], 'int', DllStructGetData($Struct, 1, $i), 'str', '', 'int', 2048)
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, 'int', 'CloseHandle', 'handle', $hOpen[0])
DllClose($Kernel32)
DllClose($PsAPI)
Return $aModules
EndIf
Return SetError(1, 0, -1)
EndFunc ;==>_ProcessGetModulesEx

[/autoit]

LG Kleiner

Kleiner

Hi!

Was man dazu braucht, ist eigentlich nur das Handle des Buttons. Diese erhält man über die WinAPI's

LG Kleiner

Kleiner

Hi!

Kennst du dein DB wert der Leitung? 180 ist eine BB 1000!
Hört sich an als würdest du zuweit vom Verteiler Wohnen.
Ist dein DB wert zu hoch sei froh das du eine BB 1000 hast ansonsten gibt es nur die ausweichmöglichkeit HSPA oder noch 2-5 Jahre dann haben wir bis zu 100MB über Funk.
Bei welchen anbieter bist du???

LG Kleiner

Kleiner

Hi!

Kijan
Hättest du ein wenig die Suche genutzt würdes du Transparente Combobox (OwnCombo) von funkey Finden ein wenig umschreiben und FERTIG!

Klick Mich >>>

LG Kleiner

Kleiner

Hi!

Probier so!

[autoit]

FileOpen("test.txt", 1)
FileWrite

[/autoit]

Lg Kleiner

Kleiner

Hi!

Soweit schon mal in die richtige richtung gedacht, mein vorschlag !

[autoit]

Local $aCtrlCreate[1][2]
$aCtrlCreate[0][0] = GUICtrlCreateButton
$aCtrlCreate[0][1] = ; Button - Name

[/autoit]

oder

[autoit]

Local $aCtrlCreate[1] = GUICtrlCreateButton
GUICtrlRead($aCtrlCreate[0],1) ; Des control´s auslesn wobei das nicht mit jedem geht

[/autoit]

Edit:/ Beispiel, vieleicht noch groß-klein Schreibung prüfen!

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Local $aCtrlCreate[3], $Input
Global $Form = GUICreate('Button', 300, 200, -1, -1)

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

$aCtrlCreate[0] = GUICtrlCreateButton('Enter', 20, 10, 80, 20)
$aCtrlCreate[1] = GUICtrlCreateButton('OK', 20, 40, 80, 20)
$Input = GUICtrlCreateInput('', 120, 40, 100, 20)

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

GUISetState()

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

While 1 * Sleep(10)
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $aCtrlCreate[0]
MsgBox(0, 0, GUICtrlRead($aCtrlCreate[0], 1) & ' ' & 'Wurde geklickt!')
Case $aCtrlCreate[1]
For $i = 0 To UBound($aCtrlCreate) - 1
If GUICtrlRead($aCtrlCreate[$i], 1) <> GUICtrlRead($Input) And GUICtrlRead($Input) <> '' Then $aCtrlCreate[$i] = GUICtrlCreateButton(GUICtrlRead($Input), 20, 60, 80, 20)
Next
EndSwitch
WEnd

[/autoit]

Lg Kleiner

Kleiner

Hi!

Nach einem Glückwunsch ist mir heut zumute:
Dem Geburtstagskind alles Gute!

LG Kleiner

Kleiner

Hi!

Eine Func vom BugFix!

Spoiler anzeigen

[autoit]

;==================================================================================================
; Function Name: _AnimButton($IDgui, $IDbtn [, $delay=150])
; Description: animiert ein Pic, wie einen geklickten Button
; Parameter(s): $IDgui ID der GUI
; $IDbtn ID des Picture als Button
; Authot: BugFix
;==================================================================================================
Func _AnimButton($IDgui, $IDbtn)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos(GUICtrlGetHandle($IDbtn))
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1] + 1, $pos[2] - 1, $pos[3] - 1)
Local $tmpGui = GUICreate('', $pos[2], $pos[3], $pWin[0], $pWin[1], $WS_POPUP, $WS_EX_TOOLWINDOW)
WinSetTrans($tmpGui, '', 120)
GUISetState(@SW_SHOWNOACTIVATE, $tmpGui)
$return = 1
Do
$x = GUIGetCursorInfo($IDgui)
If $x[4] <> $IDbtn Then $return = 0
Sleep(10)
Until $x[2] = 0
GUIDelete($tmpGui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
Return $return
EndFunc ;==>_AnimButton

[/autoit]

LG Kleiner

Kleiner

Hi!

Stell den Status auf gelöst wenn du KEINE Hilfe mehr benötigst!
Danke!

LG Kleiner

Kleiner

Hi!

Die Button sehen ein wenig http aus aber sehr schön!

Lg Kleiner

Kleiner

Hi!

Okay war nicht ganz!

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>
#include <GUIConstants.au3>
$width = 375
$height = 354
$po = 0
$i = 1
$time = 3000
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", $width, $height, 223, 148)
$Slider1 = GUICtrlCreateSlider(70, 310, 209, 40)
GUICtrlSetLimit(-1, 3000, 180000)
GUICtrlSetData(-1, 3000)
$stop = GUICtrlCreateButton("Stop", 340, 315)
$Start = GUICtrlCreateButton("Start", 300, 315)
GUISetBkColor(0xA6CAF0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$height -= 50
$pics = _FileListToArray("G:\Bilder\SAMMLUNG\JPG", "*.jpg", 1)
Local $iTimer = TimerInit()

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

While 1
If Round(TimerDiff($iTimer)) > $time And $po Then
GUICtrlCreatePic('G:\Bilder\SAMMLUNG\JPG\' & $pics[$i], 0, 0, $width, $height)
$i += 1
$iTimer = TimerInit()
EndIf
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $stop
$po = 0
Case $nMsg = $Start
$po = 1
GUICtrlCreatePic('G:\Bilder\SAMMLUNG\JPG\' & $pics[$i], 0, 0, $width, $height)
$i += 1
Case $nMsg = $Slider1
$time = StringReplace(GUICtrlRead($Slider1), '-', '')
EndSelect
WEnd

[/autoit]

LG Kleiner

Kleiner

Hi!

Habe ich Verstanden, aber nicht gleich beim Ersten mal habe mein ersten Post schon ein Edit gesetzt!

Lg Kleiner

Beiträge von Kleiner

Speicher eines Prozesses auslesen (Win 2008 SRV R2)

Speicher eines Prozesses auslesen (Win 2008 SRV R2)

StreamPlayer

Mehrere Childs andocken

PDF Titel auslesen

_ProcessGetModulesEx()

_ProcessGetModulesEx()

StreamPlayer

Arrayfehler in Funktion

Start Button unter Win7 anklicken

TCPOptimizer - Empfehlenswert?

Combobox mit Checkbox

Dateien mit bestimmten Endungen löschen

ultimative Variablenfunktion

Happy Birthday Progandy

GUIGetMsg bei GDIPlus Grafik

Hilfe bei sleep

"Grafische" GUI-Buttons

Hilfe bei sleep

Hilfe bei sleep