Beiträge von eukalyptus

So kannst du auch die "Einzüge" mitgeben, weil rekursiv

Achtung: muß so gestartet werden:

_auslesen($hTreeView,_GUICtrlTreeView_GetFirstItem($hTreeView))

Func _auslesen($hTreeView,$hParent,$sTab="")
For $i=1 To _GUICtrlTreeView_GetSiblingCount($hTreeView, $hParent)
If $hParent<>0 Then
ConsoleWrite($sTab & _GUICtrlTreeView_GetText($hTreeView, $hParent) & @LF)
_auslesen($hTreeView,_GUICtrlTreeView_GetFirstChild ($hTreeView,$hParent),$sTab & " ")
EndIf
$hParent=_GUICtrlTreeView_GetNextSibling($hTreeView,$hParent)
Next
EndFunc

lgE

In der Hintergrundfarbe drübermalen

Hi

#include <GuiEdit.au3>

GUICreate("Test", 400, 400)
$hEdit = GUICtrlCreateEdit("Zeile 0" & @CRLF & "Zeile 1" & @CRLF & "Zeile 2" & @CRLF & "Zeile 3", 10, 10, 380, 380)
GUISetState()
_GUICtrlEdit_SetSel($hEdit, 0, 0)

While GUIGetMsg() <> -3
$iLine = _GUICtrlEdit_LineFromChar($hEdit)
ToolTip($iLine & @LF & _GUICtrlEdit_GetLine($hEdit, $iLine))
Sleep(50)
WEnd

lgE

Danke

An DevCon hab ich auch schon gedacht.
Werd das irgendwann mal ausprobieren.

thx

Du musst WM_PAINT-message verwenden.

Windows sendet diese message an dein GUI, wenn es sich neuzeichnen soll.

#include <GDIPlus.au3>
#include <WindowsConstants.au3>

_GDIPlus_Startup()
$hGUI = GUICreate("GUI")
GUISetState()

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsDrawRect($hGraphic, 50, 50, 100, 100)

GUIRegisterMsg($WM_PAINT, "WM_PAINT")

While GUIGetMsg() <> -3
WEnd

_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()

Func WM_PAINT($hWnd, $Msg, $wParam, $lParam)
_GDIPlus_GraphicsDrawRect($hGraphic, 50, 50, 100, 100)
EndFunc ;==>WM_PAINT

lgE

So sieht das Ergebnis bei mir aus:

Window.LocationName:

Eigene Dateien
Test
WINDOWS

Window.LocationUrl:

file:///C:/Dokumente und Einstellungen/GreyGoa/Eigene Dateien
file:///D:/Test
file:///C:/WINDOWS

lgE

EDIT: hab jetzt erst bemerkt, daß Progandy das mit LocationUrl schon geschrieben hat
Sollte die Posts doch genauer lesen

Hi

Bei mir klappt das nicht
Es fehlen z.b. die Laufwerksbuchstaben...("Test" statt "D:\Test")

Brauchbare Ergebnisse liefert bei mir jedoch

.LocationUrl

Und JA, die Groß u Kleinschreibweise bei Variablen ist eigentlich egal.
Aber je länger man programmiert, desto mehr achtet man (unbewusst) auf die gleiche Schreibweise

lgE

Ich hab XP.

Hab aber grad was entdeckt:
Es ist ein Unterschied, ob man den Explorer via Start-Rechtklick öffnet, oder mit Doppelklick auf einen Ordner.
Jenachdem lautet die Class "ExploreWClass" oder "CabinetWClass"

Da find ich es dann doch einfacher den WindowTitle auszulesen...

Aber bei z.B. "Eigene Dateien" steht da nur "Eigene Dateien" und nicht der Pfad. Sowohl im Edit1 wie auch im WindowTitle.

lgE

Das geht bei mir nicht...
Das Script findet nur die "Eigenen Dateien", und da bekommt man auch keinen Pfad heraus

Meine _BigNum_Mul Funktion hat tatsächlich eine Beschränkung. (ich dachte aber, die liegt bei min 6000 Stellen und das nur wenn man mit 99999... rechnet...)
Probiers mal mit der von Oscar ausm µit-September!

Richtig schnell lassen sich solch große Zahlen mit Autoit sowieso nicht rechnen - also Tür auf für GMP

lgE

Meines Wissens kann man leider den aktuellen Pfad des Explorers nicht auslesen.

folgendes Script stellt alle Ordner wieder her, in welchen im Title der Pfad steht...
Funktioniert also nicht bei "Eigenen Dateien", "Arbeitsplatz" usw...

$Temp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", "REG_DWORD", 0)
$aProcess=ProcessList("Explorer.exe")
$aWindow=WinList()

Global $aFolder[2]=[1,""],$iCnt=1
For $i=1 To $aWindow[0][0]
$hPid=WinGetProcess($aWindow[$i][1])
For $j=1 To $aProcess[0][0]
If $hPid=$aProcess[$j][1] And BitAND(WinGetState($aWindow[$i][1]),2) And StringInStr($aWindow[$i][0],":\") Then
$iCnt+=1
ReDim $aFolder[$iCnt+1]
$aFolder[$iCnt]=$aWindow[$i][0]
EndIf
Next
$aFolder[0]=$iCnt
Next

While ProcessExists("explorer.exe")
ProcessClose("explorer.exe")
WEnd

For $i=1 To $aFolder[0]
Run('explorer.exe ' & $aFolder[$i])
Next

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoRestartShell", "REG_DWORD", $Temp)

lgE

Aber wo liegt jetzt genau der Unterschied, ob du das manuell startest, oder das System es automatisch macht?

Hi

Hab grad das Spiel auf meinem Test-Laptop angetestet und es lief auf Win2k,WinXP,Vista(Ultimate) und Windows7beta reibungslos!
Das wirft jetzt mehr Fragen auf, als es beantwortet

Übrigens: Das Spiel ist echt Klasse - Das würd ich gerne auf dem iPhone haben

lgE

Der Eintrag

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "Shell", "REG_SZ", "Explorer.exe")

bestimmt, welches Programm beim Systemstart gestartet wird.

So hab ich z.b. eine Art InternetCafe-Software gemacht...

@Padmak:

Bei deinem Geschwindigkeitstest kommt ein anderes Ergebnis raus, wenn man die beiden Tests vertauscht

$bla = 1
$bla2 = 2
$timer2 = TimerInit()
Select
Case $bla = 1 Or $bla2 = 2
EndSelect
$timerende2 = TimerDiff($timer2)
$timer = TimerInit()
If $bla = 1 Or $bla2 = 2 Then
EndIf
$timerende = TimerDiff($timer)
MsgBox(0, "", "Von If benötigte Zeit " & $timerende)
MsgBox(0, "", "Von Select benötigte Zeit " & $timerende2)
If $timerende < $timerende2 Then MsgBox(0, "", "If ist schneller")
If $timerende > $timerende2 Then MsgBox(0, "", "Select ist schneller")

Da mich das jetzt interessiert hat, hab ih auch einen Test gemacht:

Global $Timer,$X,$i,$Max=1000000

$Timer=TimerInit()
For $i=1 To $Max
If $i=0 Then MsgBox(0,"","")
Next
ConsoleWrite("IF THEN " & TimerDiff($Timer) & @LF)

$Timer=TimerInit()
For $i=1 To $Max
If $i=0 Then
MsgBox(0,"","")
EndIf
Next
ConsoleWrite("IF THEN ENDIF " & TimerDiff($Timer) & @LF)

$Timer=TimerInit()
For $i=1 To $Max
Switch $i
Case 0
MsgBox(0,"","")
EndSwitch
Next
ConsoleWrite("SWITCH " & TimerDiff($Timer) & @LF)

$Timer=TimerInit()
For $i=1 To $Max
Select
Case $i=0
MsgBox(0,"","")
EndSelect
Next
ConsoleWrite("SELECT " & TimerDiff($Timer) & @LF)

Bei mir ist IF (Ohne Endif) am schnellsten, am langsamsten ist SELECT...

Probiers aus, ob es das macht, was du willst

#include <GDIPlus.au3>
#include <WindowsConstants.au3>

_GDIPlus_Startup()
$hGUI = GUICreate("GUI", 400, 400)
GUISetState()

$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Test.jpg")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsDrawImageRectRect($hGraphic, $hImage, 50, 50, 400, 400, 0, 0, 400, 400)

GUIRegisterMsg($WM_PAINT, "WM_PAINT")

While GUIGetMsg() <> -3
WEnd

_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

Func WM_PAINT($hWnd, $Msg, $wParam, $lParam)
_GDIPlus_GraphicsDrawImageRectRect($hGraphic, $hImage, 50, 50, 400, 400, 0, 0, 400, 400)
EndFunc ;==>WM_PAINT

lgE

Hi

Schau dir mal

_GDIPlus_GraphicsDrawImageRectRect

an

lgE

Hab das mal mit dem Internet Explorer probiert...

leider lässt dich die Scrollbar nicht immer ausblenden

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>

Global $iDX=@DesktopWidth
Global $iDY=@DesktopHeight

SplashTextOn("Erstelle Snapshot","Bitte warten...",250,70)

$oIE = _IECreateEmbedded()
$hGUI=GUICreate("Embedded Web control Test", $iDX, $iDY,0,0,BitOR($WS_CLIPCHILDREN, $WS_POPUP));,$WS_EX_TOPMOST)
$hObj=GUICtrlCreateObj($oIE, -2, -2, $iDX+4, $iDY+4)
GUISetState(@SW_SHOW)

_IENavigate($oIE,"www.autoit.de")
_IELoadWait($oIE,1000)

SplashOff()

$oIE.Document.body.Scroll = "no"
$oIE.document.body.style.border = "0px"
$iX=$oIE.document.body.scrollWidth
$iY=$oIE.document.body.scrollHeight
If $iX < $oIE.document.body.clientWidth Then $iX=$oIE.document.body.clientWidth
If $iY < $oIE.document.body.clientHeight Then $iY=$oIE.document.body.clientHeight
If $iX < $iDX Then $iX=$iDX
If $iY < $iDY Then $iY=$iDY

_GDIPlus_Startup()
$tempGraph = _GDIPlus_GraphicsCreateFromHWND(_WinAPI_GetDesktopWindow())
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($iX,$iY,$tempGraph)
_GDIPlus_GraphicsDispose($tempGraph)
$hGraphics = _GDIPlus_ImageGetGraphicsContext($hBitmap)

$iSX=Floor($iX/$iDX)
$iSY=Floor($iY/$iDY)
$iRX=Mod($iX,$iDX)
$iRY=Mod($iY,$iDY)
For $i=0 To $iSX
For $j=0 To $iSY
$oIE.document.parentWindow.scroll($i*$iDX,$j*$iDY)
_ScreenCapture_CaptureWnd(@TempDir & "\TempSnapshot.bmp",$hGUI,0,0,-1,-1,False)
$hImage=_GDIPlus_ImageLoadFromFile(@TempDir & "\TempSnapshot.bmp")
$iTX=$i*$iDX
If $i=$iSX Then $iTX-=$iDX-$iRX
$iTY=$j*$iDY
If $j=$iSY Then $iTY-=$iDY-$iRY
_GDIPlus_GraphicsDrawImage($hGraphics,$hImage,$iTX,$iTY)
_GDIPlus_ImageDispose($hImage)
Next
Next
_GDIPlus_ImageSaveToFile($hBitmap,@ScriptDir & "\Snapshot.bmp")
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_Shutdown()
FileDelete(@TempDir & "\TempSnapshot.bmp")

StringLen

Hi

Sehr schön
sowas hab ich schon gesucht (und leider damals übersehen ;))

Ich hab das jetzt nicht extra überprüft, aber ich nehme mal an, daß du alle Variablen, welche in einer Global/Local/Dim-Zeile stehen als schon deklariert betrachtest...
In folgender Zeile wird jedoch nur $AccelKeys deklariert:

Dim $AccelKeys[5][2]=[["{UP}", $AccUp], ["{DOWN}", $AccDown], ["{TAB}", $AccTab], ["+{TAB}", $AccSTab], ["{Enter}", $AccEnter]]

alle weiteren nicht, trotzdem von deinem Script übersprungen.

Solche Fälle sollten aber eher die Ausnahme sein;
Aber wenn du Lust und Zeit hast, dann könntest du dieses Feature noch hinzufügen...

lgE