Hi
_StringBetween gibt im Array[0] NICHT die Anzahl der Einträge zurück (wie es bei vielen anderen Funktionen der Fall ist)
daher:
For $x = 0 to UBound($aArray1)-1
[/autoit]Weiters solltest du, wenn du öfters hintereinander etwas in eine Datei schreiben willst, diese vorher mit FileOpen öffnen.
(Bei deiner Version wird jedesmal die Datei geöffnet und wieder geschlossen...)
Und statt call("name") kannst du auch direkt name() aufrufen 
lgE
Irgendwie haben die bei Avira wieder was geändert. Habe eben das neue Update bekommen, und Autoit wird nicht mehr als Trojanerverseucht gefunden
Kann ich nicht bestätigen!
Meine compilierten Autoitprogramme verursachen immer noch Warnmeldungen...
Hab Virendefinition und Programmupdates gemacht..
V8.02.00.83, 17.02.2009
V7.01.02.46, 19.02.2009
weiß jemand, wie man solche Updates rückgängig machen kann?
(außer von einem HDD-Image,
oder Antivir deinstallieren - neu installieren...)
lgE
Hi
wstr bei DllStructCreate gibt es nicht, sollte Char[255] oda so was sein.
Die Classlist, welche an OpenThemeData übergeben wird, muß mit Semikolons getrennt sein - WingetClasslist trennt mit @lf
Trotzdem gibt OpenThemeData kein ThemeHandle zurück...
If no match is found NULL is returnedHier sind die Werte der Konstanten (z.b. TABP_BODY) zu finden:
http://co-project.lboro.ac.uk/users/codm2/wi…TBXUxThemes.pas
Weiter weiß ich jetzt auch grad nicht...
lgE
Schau dir mal die ersten Konstanten in der ProgressConstants.au3 an
lgE
Folgendes Script zeigt, wie man quasi "direkt" auf den Bildschirm malen kann.
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
HotKeySet("{Esc}", "_Exit")
[/autoit] [autoit][/autoit] [autoit]Global $aPos[11][2], $iXOld, $iYOld
[/autoit] [autoit][/autoit] [autoit]$hGui = GUICreate("Mausverfolger", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP, BitOR($WS_EX_TRANSPARENT, $WS_EX_LAYERED, $WS_EX_TOPMOST))
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($hGui, 0xABCDEF, 255)
GUISetState(@SW_SHOW, $hGui)
_GDIPlus_Startup()
$hBrush = _GDIPlus_BrushCreateSolid(0xFFFF9900)
$hBrushDel = _GDIPlus_BrushCreateSolid(0xFFABCDEF)
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
While 1
For $i = 0 To 9
$aPos[$i][0] = $aPos[$i + 1][0]
$aPos[$i][1] = $aPos[$i + 1][1]
Next
$iXOld = $aPos[10][0]
$iYOld = $aPos[10][1]
$aPos[10][0] = MouseGetPos(0)
$aPos[10][1] = MouseGetPos(1)
For $i = 0 To 10
If $i = 10 And $aPos[10][0] = $iXOld And $aPos[10][1] = $iYOld Then ContinueLoop
_GDIPlus_GraphicsFillRect($hGraphics, $aPos[$i][0], $aPos[$i][1], 2.5 * $i, 2.5 * $i, $hBrush)
Next
Sleep(10)
For $i = 0 To 10
If $i < 10 And $aPos[$i][0] = $aPos[10][0] And $aPos[$i][1] = $aPos[10][1] Then ContinueLoop
If $i = 10 And $aPos[10][0] = $iXOld And $aPos[10][1] = $iYOld Then ContinueLoop
_GDIPlus_GraphicsFillRect($hGraphics, $aPos[$i][0], $aPos[$i][1], 2.5 * $i, 2.5 * $i, $hBrushDel)
Next
WEnd
Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
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", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes
Func _Exit()
Exit
EndFunc ;==>_Exit
Viel Spaß
E
Eigentlich sollte es $COLOR_BTNFACE sein...
Edit: Nein! Die verwendete Farbe ist abhängig vom gewählten Design.
http://msdn.microsoft.com/en-us/library/bb773397(VS.85).aspx
Damit sollte es gehen, jedoch bräuchten wir da jemanden, der das in Autoit umsetzen kann...
lgE
den Wert von _WinAPI_GetSysColor mit folgender Funktion umwandeln:
[autoit]Func _BGR2RGB($iColor)
Return BitAND(BitShift(String(Binary($iColor)), 8), 0xFFFFFF)
EndFunc
Warum, weiß ich auch nicht so genau; Möglicherweise liefert _WinAPI_GetSysColor den BGR und nicht den RGB, wie beschrieben!?
Aber es funktioniert...
Mit Hex($Farbe) siehts du dann die RGB Werte (0xRRGGBB)
lgE
Hi
Möglicherweise gibts da schon eine bessere Lösung!?
Meine sieht jedenfalls so aus:
#include <WinAPI.au3>
#include <Array.au3>
$hGui = GUICreate("GUI1")
GUISetState(@SW_SHOW, $hGui)
$hCHild1 = GUICreate("Child 1", -1, -1, -1, -1, -1, -1, $hGui)
GUISetState(@SW_SHOW, $hCHild1)
$hCHild2 = GUICreate("Child 2", -1, -1, -1, -1, -1, -1, $hCHild1)
GUISetState(@SW_SHOW, $hCHild2)
$hCHild3 = GUICreate("Child 3", -1, -1, -1, -1, -1, -1, $hCHild2)
GUISetState(@SW_SHOW, $hCHild3)
$hWndParent = WinGetHandle($hGui)
$aFirstLevelChildren = _WinGetFirstLevelChildren($hWndParent)
$aAllChildren = _WinGetAllChildren($hWndParent)
_ArrayDisplay($aFirstLevelChildren,"First Level Children")
_ArrayDisplay($aAllChildren,"All Children")
Func _WinGetFirstLevelChildren($hWnd = 0)
Local $aWinlist = WinList()
Local $aRet[1][2], $iCnt = 0
For $i = 1 To $aWinlist[0][0]
If _WinAPI_GetParent($aWinlist[$i][1]) = $hWnd Then
$iCnt += 1
ReDim $aRet[$iCnt + 1][2]
$aRet[$iCnt][0] = $aWinlist[$i][0]
$aRet[$iCnt][1] = $aWinlist[$i][1]
EndIf
Next
$aRet[0][0] = $iCnt
Return $aRet
EndFunc
Func _WinGetAllChildren($hWnd = 0)
Local $aWinlist = WinList()
ReDim $aWinlist[$aWinlist[0][0] + 1][3]
Local $aRet[1][2], $iCnt = 0
For $i = 1 To $aWinlist[0][0]
$aWinlist[$i][2] = _WinAPI_GetParent($aWinlist[$i][1])
Next
_WinGetAllChildrenRecursive($aWinlist, $hWnd, $iCnt, $aRet)
$aRet[0][0] = $iCnt
Return $aRet
EndFunc
Func _WinGetAllChildrenRecursive($aWinlist, $hWnd, ByRef $iCnt, ByRef $aRet)
If Not IsArray($aWinlist) Then Return -1
For $i = 1 To $aWinlist[0][0]
If $aWinlist[$i][2] = $hWnd And $aWinlist[$i][0] <> "Default IME" Then
$iCnt += 1
ReDim $aRet[$iCnt + 1][2]
$aRet[$iCnt][0] = $aWinlist[$i][0]
$aRet[$iCnt][1] = $aWinlist[$i][1]
_WinGetAllChildrenRecursive($aWinlist, $aWinlist[$i][1], $iCnt, $aRet)
EndIf
Next
EndFunc
lgE
Aber wie machst du das z.b. wenn der User eine Formel eingeben soll?
Dafür benötigt man dann diese Formelauswertung...
@Pee: du machst doch hoffentlich auch mit !? 
Hi
Hier ist meine Version.
Die Erkennung erfolgt ausschließlich über wmi, also bin ich nicht auf die Registry angewiesen...
Andererseits dauert die Auflistung doch erheblich länger.
Für Devcon verwende ich die InstanceID.
BugFix :
1) Hast du 2 Identische Sticks? Ich kann meine Version leider nicht testen, ob das dann auch funktioniert...
2)was passiert mit deiner Methode, wenn du manuell im Gerätemanager deaktivierst und dann per DevCon aktivierst?
Bei mir (mitder InstanceID) sagt Devcon zwar, daß es geklappt hat, ist aber deinitiv nicht so!?
Thx
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <ProgressConstants.au3>
#include <Constants.au3>
Opt("MustDeclareVars", 1)
Opt("GuiOnEventMode", 1)
Global $Devcon = @ScriptDir & "\Devcon.exe"
[/autoit] [autoit][/autoit] [autoit]Global $hGui, $hListView, $hProgress, $hDummyS, $hDummyE
Global $aUSBDRIVES, $iPGCnt = 0, $B_DESCENDING
$hGui = GUICreate("USB Test", 500, 210)
GUISetOnEvent($GUI_EVENT_CLOSE, "_EXIT")
$hListView = GUICtrlCreateListView("#|Name|State|InstanceID", 10, 10, 350, 170, 0)
_GUICtrlListView_SetColumnWidth($hListView, 0, 20)
_GUICtrlListView_SetColumnWidth($hListView, 1, 250)
_GUICtrlListView_SetColumnWidth($hListView, 2, 75)
_GUICtrlListView_SetColumnWidth($hListView, 3, 400)
$hDummyS = GUICtrlCreateDummy()
GUICtrlCreateButton("Remove", 370, 10, 120, 20)
GUICtrlSetOnEvent(-1, "_REMOVE")
GUICtrlCreateButton("Restart", 370, 40, 120, 20)
GUICtrlSetOnEvent(-1, "_RESTART")
GUICtrlCreateButton("Enable", 370, 70, 120, 20)
GUICtrlSetOnEvent(-1, "_ENABLE")
GUICtrlCreateButton("Disable", 370, 100, 120, 20)
GUICtrlSetOnEvent(-1, "_DISABLE")
GUICtrlCreateButton("Scan", 370, 130, 120, 20)
GUICtrlSetOnEvent(-1, "_SCAN")
GUICtrlCreateButton("Update List", 370, 160, 120, 20)
GUICtrlSetOnEvent(-1, "_UPDATE")
$hDummyE = GUICtrlCreateDummy()
$hProgress = GUICtrlCreateProgress(10, 190, 480, 10)
GUISetState()
_UPDATE()
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(100)
WEnd
Func _ButtonState($State = $GUI_ENABLE)
For $i = $hDummyS To $hDummyE
GUICtrlSetState($i, $State)
Next
GUICtrlSetState($hListView, $GUI_FOCUS)
EndFunc ;==>_ButtonState
Func _Progress()
$iPGCnt += 20
If $iPGCnt > 100 Then $iPGCnt = 0
GUICtrlSetData($hProgress, $iPGCnt)
EndFunc ;==>_Progress
Func _DevCon($Cmd)
_ButtonState($GUI_DISABLE)
Local $aSel = _GUICtrlListView_GetSelectedIndices($hListView, True), $PID, $sStdOut
GUICtrlSetStyle($hProgress, $PBS_MARQUEE)
$iPGCnt = 0
AdlibEnable("_Progress", 10)
For $i = 1 To $aSel[0]
$PID = Run($Devcon & " " & $Cmd & " " & _GUICtrlListView_GetItemText($hListView, $aSel[$i], 3), "", @SW_HIDE, $STDOUT_CHILD)
$sStdOut = ""
While 1
$sStdOut &= StdoutRead($PID)
If @error Then ExitLoop
WEnd
ProcessWaitClose($PID)
If StringInStr($sStdOut, "No matching device") Then ContinueLoop
If $Cmd = "remove" Then _GUICtrlListView_DeleteItem(GUICtrlGetHandle($hListView), $aSel[$i])
If $Cmd = "disable" Then _GUICtrlListView_SetItemText($hListView, $aSel[$i], "DISABLED", 2)
If $Cmd = "enable" Then _GUICtrlListView_SetItemText($hListView, $aSel[$i], "ENABLED", 2)
Next
AdlibDisable()
GUICtrlSetStyle($hProgress, 0)
GUICtrlSetData($hProgress, 0)
_ButtonState($GUI_ENABLE)
EndFunc ;==>_DevCon
Func _UPDATE()
_ButtonState($GUI_DISABLE)
$aUSBDRIVES = _GetUSBDrives()
For $i = 0 To _GUICtrlListView_GetItemCount($hListView)
_GUICtrlListView_SetItemText($hListView, $i, "DISABLED", 2)
Next
_Add2LV($aUSBDRIVES)
_ButtonState($GUI_ENABLE)
EndFunc ;==>_UPDATE
Func _DISABLE()
_DevCon("disable")
EndFunc ;==>_DISABLE
Func _ENABLE()
_DevCon("enable")
EndFunc ;==>_ENABLE
Func _REMOVE()
_DevCon("remove")
EndFunc ;==>_REMOVE
Func _RESTART()
_DevCon("restart")
EndFunc ;==>_RESTART
Func _SCAN()
_ButtonState($GUI_DISABLE)
$iPGCnt = 0
GUICtrlSetStyle($hProgress, $PBS_MARQUEE)
AdlibEnable("_Progress", 10)
RunWait($Devcon & " rescan", "", @SW_HIDE)
AdlibDisable()
GUICtrlSetStyle($hProgress, 0)
GUICtrlSetData($hProgress, 0)
_UPDATE()
EndFunc ;==>_SCAN
Func _Add2LV($aUSB)
If Not IsArray($aUSB) Then Return
Local $iIndex
For $i = 1 To $aUSB[0][0]
$iIndex = _GUICtrlListView_FindInText($hListView, $aUSB[$i][2])
If $iIndex >= 0 Then
_GUICtrlListView_SetItemText($hListView, $iIndex, "ENABLED", 2)
ContinueLoop
EndIf
$iIndex = _GUICtrlListView_AddItem($hListView, $aUSB[$i][0])
_GUICtrlListView_AddSubItem($hListView, $iIndex, $aUSB[$i][1], 1)
_GUICtrlListView_AddSubItem($hListView, $iIndex, "ENABLED", 2)
_GUICtrlListView_AddSubItem($hListView, $iIndex, $aUSB[$i][2], 3)
Next
$B_DESCENDING = True
_GUICtrlListView_SimpleSort($hListView, $B_DESCENDING, 1)
EndFunc ;==>_Add2LV
Func _GetUSBDrives($ComputerName = ".")
Local $wmiServices, $wmiUsbDevice, $wmiDiskDrive, $wmiDiskPartitions, $wmiLogicalDisks
Local $USBDevice, $DiskDrive, $DiskPartition, $LogicalDisk, $aRet[1][3], $iCnt = 0
Local $iSteps = 0, $iStep = 0
$wmiServices = ObjGet("winmgmts:{impersonationLevel=Impersonate}!//" & $ComputerName)
$wmiUsbDevice = $wmiServices.ExecQuery("SELECT * FROM Win32_USBControllerDevice")
For $USBDevice In $wmiUsbDevice
$iSteps += 1
Next
For $USBDevice In $wmiUsbDevice
$iStep += 1
GUICtrlSetData($hProgress, Round($iStep * 100 / $iSteps))
$wmiDiskDrive = $wmiServices.ExecQuery("ASSOCIATORS OF {Win32_PnPEntity.DeviceID=" & StringTrimLeft($USBDevice.Dependent, StringInStr($USBDevice.Dependent, "=")) & "} WHERE ResultClass = Win32_DiskDrive")
For $DiskDrive In $wmiDiskDrive
$wmiDiskPartitions = $wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" & $DiskDrive.DeviceID & "'} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
For $DiskPartition In $wmiDiskPartitions
$wmiLogicalDisks = $wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" & $DiskPartition.DeviceID & "'} WHERE AssocClass = Win32_LogicalDiskToPartition")
For $LogicalDisk In $wmiLogicalDisks
$iCnt += 1
ReDim $aRet[$iCnt + 1][3]
$aRet[$iCnt][0] = $LogicalDisk.DeviceID
$aRet[$iCnt][1] = $DiskDrive.Caption
$aRet[$iCnt][2] = '"@' & StringTrimLeft(StringReplace(StringTrimLeft($USBDevice.Dependent, StringInStr($USBDevice.Dependent, "=")), "\\", "\"), 1)
Next
Next
Next
Next
$aRet[0][0] = $iCnt
GUICtrlSetData($hProgress, 0)
Return $aRet
EndFunc ;==>_GetUSBDrives
Func _EXIT()
Exit
EndFunc ;==>_EXIT
ps.: Und sorry, daß ich dir auch noch das Design geklaut hab
lgE
Hi
kannst du mit dem was anfangen?
[autoit]$ComputerName = "."
$wmiServices = ObjGet("winmgmts:{impersonationLevel=Impersonate}!//" & $ComputerName)
$wmiUsbDevice = $wmiServices.ExecQuery("SELECT * FROM Win32_USBControllerDevice")
For $USBDevice In $wmiUsbDevice
$wmiDiskDrive = $wmiServices.ExecQuery("ASSOCIATORS OF {Win32_PnPEntity.DeviceID=" & StringTrimLeft($USBDevice.Dependent, StringInStr($USBDevice.Dependent, "=")) & "} WHERE ResultClass = Win32_DiskDrive")
For $DiskDrive In $wmiDiskDrive
$wmiDiskPartitions = $wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID='" & $DiskDrive.DeviceID & "'} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
For $DiskPartition In $wmiDiskPartitions
$wmiLogicalDisks = $wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID='" & $DiskPartition.DeviceID & "'} WHERE AssocClass = Win32_LogicalDiskToPartition")
For $LogicalDisk In $wmiLogicalDisks
ConsoleWrite($USBDevice.Dependent & @LF & _
$DiskDrive.Caption & @LF & _
$DiskDrive.DeviceID & @LF & _
$DiskPartition.DeviceID & @LF & _
$LogicalDisk.DeviceID & @LF & @LF)
Next
Next
Next
Next
lgE
Goil !
Supa !
Vielen Dank
Hab grad das Spiel auf der aktuellen ReactOS-Live getestet und...
*trommelwirbel*
*fanfaren*
ES LÄUFT!
(naja, mit kleineren Bugs; z.b. werden beim Restart die alten Kurven nicht gelöscht...)
Das lässt doch hoffen, daß ReactOS wirklich mal ein vernünftiger Windowsersatz werden könnte
lgE
Auf den ersten Blick solltest du bei Ubound noch -1 rechnen...
Dein Script liefert bei mir folgendes:
Was genau passt dir da nicht?
lgE
...
Hm, ist Jabber nicht sowas wie OSCAR?
...
Jabber = Oscar ?!?
Sorry - Musste sein
Vielleicht muß er erst die Ansicht umschalten?!
[autoit]_GUICtrlListView_SetView ($hListView,1)
[/autoit]Probiers ma mit dem:
[autoit]$hPenBk = _GDIPlus_PenCreate(_GetBkColor(), 2)
_GDIPlus_PenSetWidth($hPenBk, 6)
_GDIPlus_GraphicsDrawLine($hGraphic, 10+($Slider * 5), 250, 10+(100*5) , 250, $hPenBk)
_GDIPlus_GraphicsDrawLine($hGraphic, 10, 250, 10 + ($Slider * 5), 250, $hPen)
Func _GetBkColor()
Local $Color=Hex(BitAND(BitShift(String(Binary(_WinAPI_GetSysColor($COLOR_3DFACE))), 8), 0xFFFFFF))
Return "0xFF" & StringTrimLeft($Color,2)
EndFunc
lgE
