Beiträge von DeepRed92

DeepRed92

Hi,

so sollte es funktionieren:

[autoit]

ShellExecute('wmplayer.exe', 'http://www.youtube.com/v/l_Uw6EIpzDY')

[/autoit]

DeepRed92

Zitat

Aber ich fände es toll wenn man Hotkys definieren könnte für:
- Pause/Play
- Fenster ein/ausblenden

Hab jetzt paar Updates gemacht. Jetzt kann man n paar Einstellungen zu den HotKeys machen.
Sieht nun folgend aus:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Weitere Änderungen:

- Ein Fehler bei der Einstellung der Transparenz behoben.
- Der RS-Manager kann nun über den Traymenu aufgerufen werden.
- Ein Fehler bei der Feedback -Funktion behoben
- Sender können auch unter Einstellungen verändert werden.
- Beim hinzufügen und bearbeiten von Sendern, wird die Liste automatisch aktualisiert, ohne das man das Programm neustarten muss.

DeepRed92

Einfach die Zeile mit Global Const $GENERIC_READ auskommentieren.

DeepRed92

Hi, dazu musst du erstmal auf die neueste Version updaten. Danach Desktop Radio ausführen und einmal neustarten. Jetzt müssten die Sender ganz unten in der Liste erscheinen

DeepRed92

Zitat von Schnuffel

wenn ich nach dem Start die Lautstärke über das Menü im Systray verändern will kommt die Fehlermeldung:
Line 17599: Error: Unknown macro

Fixed. Nach dem Update müsste es funktionieren!

DeepRed92

FM4, Ö3 und Radio 105 hinzugefügt! Allerdings müsst ihr vorerst einen Update machen, da mir ein Fehler bei der Senderaktualisierung unterlaufen ist..

edit: TechnoBase.fm funktioniert wieder!

DeepRed92

Neue Version verfügbar!

Thread 1

DeepRed92

Uii das ist ja echt gut gemacht. Vielen Dank dafür, das werde ich mir gleich mal genauer angucken

Sehr cool

DeepRed92

Woah vielen Dank Schnuffel. Mein Fehler war, dass ich dort überall 64 angehängt habe.

Hier das fertige Script, dass unter Autoit 32 und 64 lauffähig ist:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: Burak Keskin

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

Script Function:
None.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

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

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

Global Const $WM_EXITSIZEMOVE = 0x0232
Global Const $SC_MOVE = 0xF010
Global Const $SC_SIZE = 0xF000

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

Global $nRange = 20
Global $IsSideWinStick = False ;True for sticking to all visible windows ( it's hangs up CPU).

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

$hGUI = GUICreate("GUI Stickable!", 280, 150)
GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND")
GUIRegisterMsg($WM_EXITSIZEMOVE, "WM_EXITSIZEMOVE")
GUIRegisterMsg($WM_WINDOWPOSCHANGING, "WM_WINDOWPOSCHANGING")

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

$Stickable_CB = GUICtrlCreateCheckbox("Stickable", 20, 20)
GUICtrlSetState(-1, $GUI_CHECKED)

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

$StickableToAll_CB = GUICtrlCreateCheckbox("Stickable to all windows (High CPU usage)", 20, 40)

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

$Range_Input = GUICtrlCreateInput($nRange, 20, 70, 40, 20, $ES_READONLY)
$UpDown = GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 80, 5)

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

GUISetState()

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

GUICreate("Some extra window", 320, 180, 0, 0)
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Stickable_CB
If GUICtrlRead($Stickable_CB) = $GUI_CHECKED Then
GUIRegisterMsg($WM_WINDOWPOSCHANGING, "WM_WINDOWPOSCHANGING")
GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND")
GUIRegisterMsg($WM_EXITSIZEMOVE, "WM_EXITSIZEMOVE")
Else
GUIRegisterMsg($WM_WINDOWPOSCHANGING, "")
GUIRegisterMsg($WM_SYSCOMMAND, "")
GUIRegisterMsg($WM_EXITSIZEMOVE, "")
EndIf
Case $StickableToAll_CB
If GUICtrlRead($StickableToAll_CB) = $GUI_CHECKED Then
$IsSideWinStick = True
Else
$IsSideWinStick = False
EndIf
Case $UpDown
$nRange = GUICtrlRead($Range_Input)
EndSwitch
WEnd

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

Func WM_WINDOWPOSCHANGING($hWnd, $Msg, $wParam, $lParam)
Local $sAdd = ''
If @AutoItX64 Then $sAdd = '64'
Local $stWinPos = DllStructCreate("uint" & $sAdd & ";uint" & $sAdd & ";int;int;int;int;uint", $lParam)
Local $nLeft = DllStructGetData($stWinPos, 3)
Local $nTop = DllStructGetData($stWinPos, 4)

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

Local $aCurWinPos = WinGetPos($hWnd)
Local $aWorkArea = _GetWorkingArea()

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

;Left
If Abs($aWorkArea[0] - $nLeft) <= $nRange Then DllStructSetData($stWinPos, 3, $aWorkArea[0])
;Right
If Abs($nLeft + $aCurWinPos[2] - $aWorkArea[2]) <= $nRange Then DllStructSetData($stWinPos, 3, $aWorkArea[2] - $aCurWinPos[2])
;Top
If Abs($aWorkArea[1] - $nTop) <= $nRange Then DllStructSetData($stWinPos, 4, $aWorkArea[1])
;Bottom
If Abs($nTop + $aCurWinPos[3] - $aWorkArea[3]) <= $nRange Then DllStructSetData($stWinPos, 4, $aWorkArea[3] - $aCurWinPos[3])

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

If Not $IsSideWinStick Then Return 0

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

Local $ahWnd = WinList()

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

For $i = 1 To UBound($ahWnd) - 1
If $ahWnd[$i][1] = $hWnd Or Not BitAND(WinGetState($ahWnd[$i][1]), 2) Then ContinueLoop

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

$aSideWinPos = WinGetPos($ahWnd[$i][1])
If UBound($aSideWinPos) < 3 Then ContinueLoop

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

Local $XPoint = $aSideWinPos[0] + 15
Local $YPoint = $aSideWinPos[1] + 15

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

If $XPoint < 0 Then $XPoint = 5
If $YPoint < 0 Then $YPoint = 5

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

If $aCurWinPos[1] + $aCurWinPos[3] >= $aSideWinPos[1] And $aCurWinPos[1] <= $aSideWinPos[1] + $aSideWinPos[3] Then
;Left
If Abs(($aSideWinPos[0] + $aSideWinPos[2]) - $nLeft) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 3, $aSideWinPos[0] + $aSideWinPos[2])

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

;Right
If Abs($nLeft + $aCurWinPos[2] - $aSideWinPos[0]) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 3, $aSideWinPos[0] - $aCurWinPos[2])
EndIf

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

If $aCurWinPos[0] + $aCurWinPos[2] >= $aSideWinPos[0] And $aCurWinPos[0] <= $aSideWinPos[0] + $aSideWinPos[2] Then
;Top
If Abs(($aSideWinPos[1] + $aSideWinPos[3]) - $nTop) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 4, $aSideWinPos[1] + $aSideWinPos[3])

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

;Bottom
If Abs($nTop + $aCurWinPos[3] - $aSideWinPos[1]) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 4, $aSideWinPos[1] - $aCurWinPos[3])
EndIf
Next

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

Return 0
EndFunc ;==>WM_WINDOWPOSCHANGING

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

Func WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
Switch BitAND($wParam, 0xFFF0)
Case $SC_SIZE, $SC_MOVE
DllCall("user32.dll", "int", "SystemParametersInfo", "int", 37, "int", 1, "ptr", 0, "int", 2)
EndSwitch
EndFunc ;==>WM_SYSCOMMAND

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

Func WM_EXITSIZEMOVE($hWnd, $Msg, $wParam, $lParam)
Local $Old_Show_Content_Param = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "DragFullWindows")
DllCall("user32.dll", "int", "SystemParametersInfo", "int", 37, "int", $Old_Show_Content_Param, "ptr", 0, "int", 2)
EndFunc ;==>WM_EXITSIZEMOVE

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

Func WindowFromPoint($XPoint, $YPoint)
Local $aResult = DllCall("User32.dll", "hwnd", "WindowFromPoint", "int", $XPoint, "int", $YPoint)
Return $aResult[0]
EndFunc ;==>WindowFromPoint

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

;===============================================================================
;
; Function Name: _GetWorkingArea()
; Description: Returns the coordinates of desktop working area rectangle
; Parameter(s): None
; Return Value(s): On Success - Array containing coordinates:
; $a[0] = left
; $a[1] = top
; $a[2] = right
; $a[3] = bottom
; On Failure - 0
;
;BOOL WINAPI SystemParametersInfo(UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni);
;uiAction SPI_GETWORKAREA = 48
;===============================================================================
Func _GetWorkingArea()
Local Const $SPI_GETWORKAREA = 48
Local $stRECT = DllStructCreate("long; long; long; long")
Local $SPIRet = DllCall("User32.dll", "int", "SystemParametersInfo", _
"uint", $SPI_GETWORKAREA, "uint", 0, "ptr", DllStructGetPtr($stRECT), "uint", 0)
If @error Then Return 0
If $SPIRet[0] = 0 Then Return 0

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

Local $sLeftArea = DllStructGetData($stRECT, 1)
Local $sTopArea = DllStructGetData($stRECT, 2)
Local $sRightArea = DllStructGetData($stRECT, 3)
Local $sBottomArea = DllStructGetData($stRECT, 4)

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

Local $aRet[4] = [$sLeftArea, $sTopArea, $sRightArea, $sBottomArea]
Return $aRet
EndFunc ;==>_GetWorkingArea

[/autoit]

DeepRed92

Hallo liebe AutoIt.de Gemeinde!

Ich versuche vergeblich, dieses Script unter Windows 7 x64 zum laufen zu bringen. Mit Autoit32 funktioniert das, aber leider nicht unter Autoit64.
Das Problem liegt an Local $nLeft = DllStructGetData($stWinPos, 3) und Local $nTop = DllStructGetData($stWinPos, 4), da diese in Zeile 76 und 77 unter Autoit64 nur 0 zurückgeben, was bei Autoit32 nicht der Fall ist. Ich wüsste auch keine Möglichkeit, dies zu umgehen. Wie kann ich das auch unter Autoit64 zum laufen bringen?

Das Script:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Run_AU3Check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: Burak Keskin

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

Script Function:
None.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

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

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

Global Const $WM_EXITSIZEMOVE = 0x0232
Global Const $SC_MOVE = 0xF010
Global Const $SC_SIZE = 0xF000

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

Global $nRange = 20
Global $IsSideWinStick = False ;True for sticking to all visible windows ( it's hangs up CPU).

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

$hGUI = GUICreate("GUI Stickable!", 280, 150)
GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND")
GUIRegisterMsg($WM_EXITSIZEMOVE, "WM_EXITSIZEMOVE")
GUIRegisterMsg($WM_WINDOWPOSCHANGING, "WM_WINDOWPOSCHANGING")

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

$Stickable_CB = GUICtrlCreateCheckbox("Stickable", 20, 20)
GUICtrlSetState(-1, $GUI_CHECKED)

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

$StickableToAll_CB = GUICtrlCreateCheckbox("Stickable to all windows (High CPU usage)", 20, 40)

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

$Range_Input = GUICtrlCreateInput($nRange, 20, 70, 40, 20, $ES_READONLY)
$UpDown = GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 80, 5)

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

GUISetState()

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

GUICreate("Some extra window", 320, 180, 0, 0)
GUISetState()

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

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Stickable_CB
If GUICtrlRead($Stickable_CB) = $GUI_CHECKED Then
GUIRegisterMsg($WM_WINDOWPOSCHANGING, "WM_WINDOWPOSCHANGING")
GUIRegisterMsg($WM_SYSCOMMAND, "WM_SYSCOMMAND")
GUIRegisterMsg($WM_EXITSIZEMOVE, "WM_EXITSIZEMOVE")
Else
GUIRegisterMsg($WM_WINDOWPOSCHANGING, "")
GUIRegisterMsg($WM_SYSCOMMAND, "")
GUIRegisterMsg($WM_EXITSIZEMOVE, "")
EndIf
Case $StickableToAll_CB
If GUICtrlRead($StickableToAll_CB) = $GUI_CHECKED Then
$IsSideWinStick = True
Else
$IsSideWinStick = False
EndIf
Case $UpDown
$nRange = GUICtrlRead($Range_Input)
EndSwitch
WEnd

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

Func WM_WINDOWPOSCHANGING($hWnd, $Msg, $wParam, $lParam)
Local $stWinPos = DllStructCreate("uint;uint;int;int;int;int;uint", $lParam)
Local $nLeft = DllStructGetData($stWinPos, 3)
Local $nTop = DllStructGetData($stWinPos, 4)

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

Local $aCurWinPos = WinGetPos($hWnd)
Local $aWorkArea = _GetWorkingArea()

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

;Left
If Abs($aWorkArea[0] - $nLeft) <= $nRange Then DllStructSetData($stWinPos, 3, $aWorkArea[0])
;Right
If Abs($nLeft + $aCurWinPos[2] - $aWorkArea[2]) <= $nRange Then DllStructSetData($stWinPos, 3, $aWorkArea[2] - $aCurWinPos[2])
;Top
If Abs($aWorkArea[1] - $nTop) <= $nRange Then DllStructSetData($stWinPos, 4, $aWorkArea[1])
;Bottom
If Abs($nTop + $aCurWinPos[3] - $aWorkArea[3]) <= $nRange Then DllStructSetData($stWinPos, 4, $aWorkArea[3] - $aCurWinPos[3])

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

If Not $IsSideWinStick Then Return 0

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

Local $ahWnd = WinList()

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

For $i = 1 To UBound($ahWnd) - 1
If $ahWnd[$i][1] = $hWnd Or Not BitAND(WinGetState($ahWnd[$i][1]), 2) Then ContinueLoop

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

$aSideWinPos = WinGetPos($ahWnd[$i][1])
If UBound($aSideWinPos) < 3 Then ContinueLoop

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

Local $XPoint = $aSideWinPos[0] + 15
Local $YPoint = $aSideWinPos[1] + 15

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

If $XPoint < 0 Then $XPoint = 5
If $YPoint < 0 Then $YPoint = 5

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

If $aCurWinPos[1] + $aCurWinPos[3] >= $aSideWinPos[1] And $aCurWinPos[1] <= $aSideWinPos[1] + $aSideWinPos[3] Then
;Left
If Abs(($aSideWinPos[0] + $aSideWinPos[2]) - $nLeft) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 3, $aSideWinPos[0] + $aSideWinPos[2])

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

;Right
If Abs($nLeft + $aCurWinPos[2] - $aSideWinPos[0]) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 3, $aSideWinPos[0] - $aCurWinPos[2])
EndIf

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

If $aCurWinPos[0] + $aCurWinPos[2] >= $aSideWinPos[0] And $aCurWinPos[0] <= $aSideWinPos[0] + $aSideWinPos[2] Then
;Top
If Abs(($aSideWinPos[1] + $aSideWinPos[3]) - $nTop) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 4, $aSideWinPos[1] + $aSideWinPos[3])

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

;Bottom
If Abs($nTop + $aCurWinPos[3] - $aSideWinPos[1]) <= $nRange And _
WindowFromPoint($XPoint, $YPoint) = $ahWnd[$i][1] Then _
DllStructSetData($stWinPos, 4, $aSideWinPos[1] - $aCurWinPos[3])
EndIf
Next

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

Return 0
EndFunc ;==>WM_WINDOWPOSCHANGING

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

Func WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
Switch BitAND($wParam, 0xFFF0)
Case $SC_SIZE, $SC_MOVE
DllCall("user32.dll", "int", "SystemParametersInfo", "int", 37, "int", 1, "ptr", 0, "int", 2)
EndSwitch
EndFunc ;==>WM_SYSCOMMAND

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

Func WM_EXITSIZEMOVE($hWnd, $Msg, $wParam, $lParam)
Local $Old_Show_Content_Param = RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "DragFullWindows")
DllCall("user32.dll", "int", "SystemParametersInfo", "int", 37, "int", $Old_Show_Content_Param, "ptr", 0, "int", 2)
EndFunc ;==>WM_EXITSIZEMOVE

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

Func WindowFromPoint($XPoint, $YPoint)
Local $aResult = DllCall("User32.dll", "hwnd", "WindowFromPoint", "int", $XPoint, "int", $YPoint)
Return $aResult[0]
EndFunc ;==>WindowFromPoint

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

;===============================================================================
;
; Function Name: _GetWorkingArea()
; Description: Returns the coordinates of desktop working area rectangle
; Parameter(s): None
; Return Value(s): On Success - Array containing coordinates:
; $a[0] = left
; $a[1] = top
; $a[2] = right
; $a[3] = bottom
; On Failure - 0
;
;BOOL WINAPI SystemParametersInfo(UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni);
;uiAction SPI_GETWORKAREA = 48
;===============================================================================
Func _GetWorkingArea()
Local Const $SPI_GETWORKAREA = 48
Local $stRECT = DllStructCreate("long; long; long; long")
Local $SPIRet = DllCall("User32.dll", "int", "SystemParametersInfo", _
"uint", $SPI_GETWORKAREA, "uint", 0, "ptr", DllStructGetPtr($stRECT), "uint", 0)
If @error Then Return 0
If $SPIRet[0] = 0 Then Return 0

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

Local $sLeftArea = DllStructGetData($stRECT, 1)
Local $sTopArea = DllStructGetData($stRECT, 2)
Local $sRightArea = DllStructGetData($stRECT, 3)
Local $sBottomArea = DllStructGetData($stRECT, 4)

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

Local $aRet[4] = [$sLeftArea, $sTopArea, $sRightArea, $sBottomArea]
Return $aRet
EndFunc ;==>_GetWorkingArea

[/autoit]

DeepRed92

Guten Abend,

wie kann ich mit AutoIt ein WinRar SFX -Archiv mit Passwort, mit AutoIt entpacken? Hier mein bisheriger Code:

Spoiler anzeigen

[autoit]

#include <Constants.au3>

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

Local $passwort = 'fea02fea-ae1f-407b-8827-e4024ac7994f'
Local $pid = Run(@ScriptDir & '\install.exe', @ScriptDir, @SW_SHOW, $STDIN_CHILD + $STDOUT_CHILD)

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

StdinWrite($pid, $passwort)
StdinWrite($pid)

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

Local $read
While True
$read = StdoutRead($pid)
If $read <> '' Then ConsoleWrite($read & @CRLF)
If @error Then ExitLoop
Sleep(25)
WEnd

[/autoit]

Im Anhang findet ihr in der Zip-Datei die Au3 + die SFX.

Statt es zu entpacken und die Dateien auszulesen, die gerade entpackt werden, bekomme ich nur diese Fehlermeldung:

Code

Passwort eingeben (wird nicht angezeigt) fr install.exe: 
Verschlsselte Datei: CRC-Fehler in C:\Users\[xxx]\Desktop\install.exe (Falsches Passwort?).


Entpacke aus C:\Users\[xxx]\Desktop\install.exe


Keine Dateien zum Entpacken.

Das Passwort ist aber definititv richtig und wenn ich es manuel entpacke klappt das auch, aber wie mache ich das mit AutoIt? :wacko:

DeepRed92

Ja, weil die Unterordner dabei nicht einbezogen werden!

DeepRed92

Hallo,
da ich die ursprüngliche Funktion aus versehen gelöscht hatte, musste ich selber eine neue schreiben. Also es wird ein Arrayzurückgegeben mit dem Pfad zu den einzelnen Dateien. Doch leider funktioniert das nicht, wenn man bestimmte Suchkriterien als Parameter festlegt. Beispiel "*.mp3". "*.*" funktioniert aber
Mein Script mit Beispiel:

[autoit]

#include <Array.au3>

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

Local $Path2Music = 'C:\Users\' & @UserName & '\Music'
Local $Array

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

;Geht nicht!
$Array = _FileSearch($Path2Music, '*.mp3') ;Bsp.1
_ArrayDisplay($Array)

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

;Funktioniert!!!
$Array = _FileSearch($Path2Music, '*.*') ;Bsp.2
_ArrayDisplay($Array)

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

Func _FileSearch($dir, $Ext = "*.*", $sep = "|", $flag = 0)
Local $first = FileFindFirstFile($dir & '\' & $Ext), $next, $data ;FileFindFirstFile gibt beim 1. Bsp. -1 zurück!
While 1
$next = FileFindNextFile($first)
If @error Or StringLen($next) < 1 Then ExitLoop
If StringInStr(FileGetAttrib($dir & "\" & $next), "D") Then
$data &= _FileSearch($dir & '\' & $next, $Ext, $sep, 1)
Else
$data &= $dir & '\' & $next & $sep
EndIf
WEnd
FileClose($first)
If $flag Then Return $data
Local $split = StringSplit($data, $sep, 2)
If UBound($split) > 1 Then ReDim $split[UBound($split) -1]
Return $split
EndFunc

[/autoit]

DeepRed92

Spoiler anzeigen

Ich werde jedoch immer nach einer kurzen Zeit - <1m - aus dem Chat geworfen.
Weißt du / Weiß jemand woran das liegen kann?

Hi, erstmal schön, dass es dir gefällt
Also das Problem ist mir schon länger bekannt. Hab schon total oft versucht diesen Fehler zu beseitigen, doch es klappt nicht
Aber ab der nächsten Version wird es den Chat nicht mehr geben

DeepRed92

Hey danke dir. Jetzt klappt der Download endlich
So habs gleich mal getestet. Ist wirklich super geworden Das einzige was man bemängeln kann ist, dass das Spiel einmal kurz "laggt", wenn man auf so einen Balken springt. Ich kann mir aber gut vorstellen, dass es anders nicht möglich ist, da sowas in AutoIt ja ziemlich begrenzt ist.

Ach ja. Wenn man bei Google.de "Doodle Jump Pc " eingibt, ist dieser Thread sofort auf Platz 1 .

DeepRed92

Zitat

Ich habe mal die aktuellste Version, die ich bei mir finden konnte hochgeladen:
http://rapidshare.com/files/429407259/Doodle_7.zip

Bei mir gehts nicht. Ich kann es nicht herunterladen. Da steht immer "Sie können nicht parallele Downloads durchführen", obwohl ich nichts dort heruntergeladen habe. Kann es bitte jemand woanders uploaden pls?

DeepRed92

Zitat

Edit: Bevor jetzt wieder absolut unsinnige Kommentare wie decompilieren ist verboten kommen....

Decompilieren ist nicht nur verboten sondern gleichzeitig auch eine Straftat, sofern es durch den Autor untersagt wurde .

Molaynox: So eine ähnliche Idee hatte ich auch mal. Ich hatte dabei aber eine andere Variante im Kopf. Also zuerst wird eine mitgelieferte verschlüsselte Zip-Datei via FileInstall nach @TempDir kopiert und dort auch entpackt. Die Entpackte Datei könnte z.B. eine Ini-Datei sein, das nur MD5-Hashwerte von gültigen Seriennummern enthält. Dadurch kann niemand alle Serials in die Finger bekommen.
So, dann wird die eingegebene Serialnummer in einen MD5 Hashwert umgewandelt und mit den in der Ini-Datei verglichen. Stimmt einer mit den überein, ist das eben gültig. Wenn man jetzt nicht weiß, dass man das Programm dekompilieren kann, ist es schon ziemlich sicher

DeepRed92

Was ich auch noch komisch finde ist, dass die Buttons so lange einen Kästchen haben, bis man die Codezeile mit der ChildGUI löscht. Wenn man es nur auskommentiert, ist es immer noch in einem gepunkteten Kästchen.

Um es zu verdeutlichen, was ich meine:

http://www.youtube.com/watch?v=g5bfm8v0D7U

DeepRed92

Zitat

Schon mal versucht, den Style 0 für die Buttons zu setzen? (nur ein blinder Schuss)

Ja, ist aber alles genauso wie vorher. Es liegt irgendwie am ChildGUI. Lässt man es weg, tauchen die gepunktete "Kästchen" nicht mehr auf..

DeepRed92

Hallo,

wenn man mit AutoIt eine GUI+ChildGUI erstellt, bekommen alle ausgewählten Buttons gepunktete Kästchen, was ohne eine ChildGUI nicht der Fall war. Das alles sieht dann so aus:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Meine Frage ist, wie man die Buttons so hin bekommt, dass sie keine gepunktete Kästchen mehr haben.

Hier mein Quellcode:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

$Form1 = GUICreate("Form1", 354, 232, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Button1 = GUICtrlCreateButton("Button1", 8, 8, 75, 25)
$Button2 = GUICtrlCreateButton("Button2", 8, 40, 75, 25)
$Button3 = GUICtrlCreateButton("Button3", 8, 72, 75, 25)
GUISetState(@SW_SHOW)

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

GUICreate("", 0, 0, 0, 0, $WS_CHILD, -1, $Form1)
GUISetState()

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

While 1
Sleep(100)
WEnd

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

Func Form1Close()
Exit
EndFunc

[/autoit]

Beiträge von DeepRed92

Youtube in Windows Media player

Desktop Radio 3.9

Datenrollout auf mehrer FTPs

Desktop Radio 3.9

Desktop Radio 3.9

Desktop Radio 3.9

Desktop Radio 3.9

Steganografie

GUI am Bildschirmrand Taskbar unter Win64 andocken geht nicht

GUI am Bildschirmrand Taskbar unter Win64 andocken geht nicht

WinRar SFX mit Passwort entpacken (Console)

Alle Dateien von einem Pfad als Array zurückgeben klappt nicht!

Alle Dateien von einem Pfad als Array zurückgeben klappt nicht!

Desktop Radio 3.9

Doodle Jump für Pc

Doodle Jump für Pc

CheckSerial UDF

Buttons ohne gepunktete "Kästchen"

Buttons ohne gepunktete "Kästchen"

Buttons ohne gepunktete "Kästchen"