Beiträge von DeepRed92

DeepRed92

Hey, danke dir. Bei mir sieht es schon etwas anders aus- Min ist bei mir 800 und Max. aus so um die 18 Sekunden.. Im Durchschnitt sind es bei mir 1.2 Sekunden.

Vielleicht liegt es daran, dass ich Kaspersky Internet Security installiert habe. Bei den Tests hab ich das natürlich ausgeschaltet.

Mein Betriebssystem: Win7 x64

Ich hab mal eine neue Variante aus Codeschnipsel erstellt:

Spoiler anzeigen

[autoit]

HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12")

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

While 1
$timer = TimerInit()
$getv= _GetVersion()
$diff = TimerDiff($timer)
ConsoleWrite($getv & " ===> " & $diff & @CRLF)
WEnd

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

Func _GetVersion()
TCPStartup()
Local $get
Local $packet = 'GET http://deepsoftware.spacequadrat.de/Products/Deskt…date/Update.txt HTTP/1.1' & @CRLF & _
'Host: http://www.deepsoftware.spacequadrat.de' & @CRLF & _
'User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12' & @CRLF & _
'Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8' & @CRLF & _
'Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3' & @CRLF & _
'Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7' & @CRLF & _
'Keep-Alive: 300' & @CRLF & _
'Content-Type: application/x-www-form-urlencoded' & @CRLF & _
'Connection: keep-alive' & @CRLF & @CRLF
Local $con = TCPConnect(TCPNameToIP("deepsoftware.spacequadrat.de"), 80)

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

TCPSend($con, $packet)

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

Do
$get = TCPRecv($con,2048)
Until $get <> ""

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

Local $split = StringSplit($get, @CRLF)

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

TCPShutdown()

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

Return Number($split[$split[0]])
EndFunc

[/autoit]

Ist bei mir oft bei 250 ms. Schwankt aber sehr viel..

DeepRed92

Hallo,

ich hab zurzeit ein Problem mit InetRead. Also meistens ist es bei mir zu langsam. Es braucht manchmal 1-10 Sekunden, um eine Textdatei herunterzuladen, wo nur eine "4" drinnen steht. Am Server sollte es nicht liegen, da der Ping zum Server ~60 ms ist. Besonders nervig ist es, wenn es manchmal >3 Sekunden dauert, bis es die Datei ausgeselesen hat.

Hier mein Code:

[autoit]

HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12")

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

$timer = TimerInit()
$get = InetRead("http://deepsoftware.spacequadrat.de/Products/Desktop%20Radio/Update/Update.txt",1)
$diff = TimerDiff($timer)

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

MsgBox(0, $diff, BinaryToString($get))

[/autoit]

Hmm ist das bei euch auch so? Kennt jemand eine schnellere Alternative als InetRead?

MfG

DeepRed92

DeepRed92

Zitat

meinst du so?

Ja genau, aber das lässt sich nicht genau an der Stelle verschieben, wo man gerade draufgeklickt hat..

DeepRed92

Hallo,

ich hab eine GUI geschrieben, wo da drinne noch eine GUI ist. Diese soll man durch einen einfachen Klick nach unten oder oben scrollen können. Leider ist das nicht passend zur Maus. Ich tüftle schon die ganzen Zeit damit rum und hab mir zur Hilfe Skizzen gemacht, aber ich krieg das nicht hin
Bitte helft mir!

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIScrollbars.au3>
#include <ScrollBarConstants.au3>
#include <StaticConstants.au3>
#include <Misc.au3>

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

Opt("GUIOnEventMode", 1)

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

Local $OldMove = 0

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

$hGUI = GUICreate("Form1", 386, 386)
GUISetBkColor(0xFFFFFF, $hGUI)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Close")

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

$Button1 = GUICtrlCreateButton("Ok", 304, 352, 75, 25)
GUICtrlSetOnEvent(-1, "_close")

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

$hScrollGUI = GUICreate("", 369, 337, 8, 8, $WS_POPUP, $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0xFFFFFF, $hScrollGUI)
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_Move")

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

Local $ClientSize = WinGetClientSize($hScrollGUI)
Local $Middle = ($ClientSize[0] / 2)

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

_Schrift('Desktop Radio', 130, 0x005ACE, True)
_Schrift('Version: 3.3.0.0', 145, 0x005ACE, False)
_Schrift('Copyright © bla', 145, 0x005ACE, False)
_Schrift('e-Mail: emaladdress@host.de', 170, 0x005ACE, False)
GUICtrlCreateLabel("", 0 + 20, 200, $ClientSize[0] - 40, 2, -1, $WS_EX_STATICEDGE)

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

_GUIScrollBars_Init($hScrollGUI)
_GUIScrollBars_ShowScrollBar($hScrollGUI, $SB_HORZ, False)
_GUIScrollBars_ShowScrollBar($hScrollGUI, $SB_VERT, False)

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

GUISetState(@SW_SHOW, $hScrollGUI)
GUISetState(@SW_SHOW, $hGUI)

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

AdlibRegister("_auto", 100)

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

While 1
Sleep(100)
WEnd

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

Func _auto()
_GUIScrollBars_ScrollWindow($hScrollGUI, 0, -1)
$OldMove =- 1
EndFunc

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

Func _Move()
AdlibUnRegister("_auto")

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

Local $Cursor1 = GUIGetCursorInfo($hScrollGUI)
Local $Cursor2

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

While _IsPressed("01")
$Cursor2 = GUIGetCursorInfo($hScrollGUI)

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

If ($Cursor2[1] - $Cursor1[1]) <> $OldMove Then
ConsoleWrite(($Cursor2[1] - $Cursor1[1]) & @CRLF)
_GUIScrollBars_ScrollWindow($hScrollGUI, 0, ($Cursor2[1] - $Cursor1[1]))
$OldMove = ($Cursor2[1] - $Cursor1[1])
EndIf
WEnd
AdlibRegister("_auto", 100)
EndFunc

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

Func _calc($vaule1, $vaule2)
Return $vaule2 - $vaule1
;~ If $vaule1 < $vaule2 Then Return $vaule2 - $vaule1
EndFunc

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

Func _Schrift($Text, $YPos, $Farbe = 0x005ACE, $Fett = False)
If $Fett Then
Local $Bold = 800
Else
Local $Bold = 400
EndIf

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

GUICtrlCreateLabel($Text, 0, $YPos, $ClientSize[0], 17, $SS_CENTER)
GUICtrlSetFont(-1, Default, $Bold , 0, "MS Sans Serif", 5)
GUICtrlSetColor(-1, $Farbe)
EndFunc

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

Func _Close()
Exit
EndFunc

[/autoit]

DeepRed92

Hallo,

weiß jemand, wie man mit der WinHTTP.au3 alle Dateitypen downloaden kann?
Ich hab gerade hier im Forum gesucht und nur das gefunden (habs umgeändert):

[autoit]

#include <WinHTTP.au3>

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

$hw_open = _WinHttpOpen(" Einloggen")
$hw_connect = _WinHttpConnect($hw_open, "www.google.de")
$h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", "/index.html","HTTP/1.1", "http://www.google.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF)
_WinHttpReceiveResponse($h_openRequest)

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

Local $data=""
Do
$data&=_WinHttpReadData($h_openRequest)
Until @error

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

MsgBox(0, "Inhalt", $data)

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

_WinHttpCloseHandle($h_openRequest)
_WinHttpCloseHandle($hw_connect)
_WinHttpCloseHandle($hw_open)

[/autoit]

Hier kann man den Inhalt einer Website anzeigen, aber wie mache ich das z.B. bei anderen Dateien?

DeepRed92

Hallo,

soweit ich weiß kann man PNGs NICHT in GUICtrlCreatePic verwenden. Diese Funktion:

Spoiler anzeigen

[autoit]

Func _SetBitmapToCtrl($CtrlId, $hBitmap)
Local Const $STM_SETIMAGE = 0x0172
Local Const $IMAGE_BITMAP = 0
Local Const $SS_BITMAP = 0xE
Local Const $GWL_STYLE = -16

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

Local $hWnd = GUICtrlGetHandle($CtrlId)
If $hWnd = 0 Then Return SetError(1, 0, 0)

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

Local $oldStyle = DllCall("user32.dll", "long", "GetWindowLong", "hwnd", $hWnd, "int", $GWL_STYLE)
If @error Then Return SetError(2, 0, 0)
DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $hWnd, "int", $GWL_STYLE, "long", BitOR($oldStyle[0], $SS_BITMAP))
If @error Then Return SetError(3, 0, 0)

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

Local $oldBmp = DllCall("user32.dll", "hwnd", "SendMessage", "hwnd", $hWnd, "int", $STM_SETIMAGE, "int", $IMAGE_BITMAP, "int", $hBitmap)
If @error Then Return SetError(4, 0, 0)
If $oldBmp[0] <> 0 Then DllCall("GDI32.dll", "int", "DeleteObject", "int", $oldBmp[0])
Return 1
EndFunc

[/autoit]

brachte mich auf die Idee, eine weitere Funktion zu schreiben (GUICtrlPicSetPng($File)). Mein Problem ist jetzt, dass ich von GDIPlus überhaupt keine Ahnung habe. Ok nur ein bischchen ^^. Also meine Frage wäre: Wie kann ich mit GDIPlus ein Bild (*.png) laden und es in Bitmap convertieren, so das es mit der oberen Funktion funkioniert? Ich will jetzt nicht unbedingt ein fertiges Script, aber so Stichworte bzw. welche Funktionen nötig sind, wären sehr hilfreich.

DeepRed92

Hallo,

mit wechen Befehlen kann man auslesen, ob Firefox z.B. auf der Seite google.de ist? Und wie kann man den Quellcode dieser Seite bekommen? Also wenn man einen Rechtsklick auf Internetseiten macht, kann man ja auf "Seitenqualltext anzeigen" klicken. Wie macht man das mit der FF.au3 in AutoIt?

DeepRed92

Du hast da einen Fehler in der UDF. Die Zahlen werden falsch rum zurückgegeben.

Beispiel:

563456456 => 000100111001010110101001100001

DeepRed92

Zitat

Rechts klick auf den Desktop dann Anpassung dann auf Fensterfabe danach die Farbintensität umstellen :0

Ne, damit hat das nichts zu tun. Die anderen Fenster werden ja richtig angezeigt (Explorer usw.)

DeepRed92

Zitat

Das ist doch das was du meinst oder=

genau

Zitat

Das ist doch das was du meinst oder=

Du kannstja einstellen wie viel durch"schimmert" und wie viel nicht :0

Was, wo denn??

DeepRed92

Ach ist egal. Dann lass ich das einfach mit der Aero-Oberfläche. Ist ja auch doof, wenn es beim einen richtig angezeigt wird und beim anderen nicht. :pinch:

DeepRed92

Kann man das nicht gleich so machen?

Spoiler anzeigen

[autoit]

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

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

$GUI = GUICreate('GUI', -1, 100, -1, -1, Default, $GUI_WS_EX_PARENTDRAG)
GUISetBkColor(0xAAAAAA)
$Slider = GUICtrlCreateSlider(150, 10, 200, 20)
GUICtrlSetData(-1, 255 / 2.55 / 2)

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

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

WinSetTrans($Child, '', 255 / 2)

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

GUISetState(@SW_SHOW, $Child)
GUISetState(@SW_SHOW, $GUI)

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $Slider
WinSetTrans($Child, '', GUICtrlRead($Slider) * 2.55)
EndSwitch
WEnd

[/autoit]

Ok, ist nicht das gleiche, aber so ähnlich

DeepRed92

Villt liegt es auch an der UDF. So sieht es bei Opera aus:

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

Ob man das so ähnlich mit AutoIt hinbekommen könnte? Opera muss das doch auch irgendwie mit der Hilfe von Windows das machen!?

DeepRed92

Zitat

Bei mir kommt der Fehler nicht, habe das Script unter Win7/64 laufen.

Ok, evtl. liegt es an meiner Grafikkarte!? Hab eine GeForce 7200 GS (Jaja ist alt, aber meine neue ist kaputt :wacko: ). Was hast Du denn für eine? ATI?

DeepRed92

Zitat

Wenn man das testen will, dann braucht man auch alle Includes

Ups, mein Fehler. Jetzt müsste es funktionieren.

DeepRed92

Hallo,

ich möchte eine GUI erstellen, das die Areo-Effekte von Vista und Windows 7 nutzt. Leider ist das nicht so einfach wie es aussieht.
Bis jetzt sieht es bei mir so aus:

[Blockierte Grafik: http://deepsoftware.kilu.de/GUI.png]

Problem dabei ist halt, dass das Menu falsch dargestellt wird.

Hier mein Code:

Spoiler anzeigen

[autoit]

#NoTrayIcon

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

;Includes
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <Constants.au3>
#include <WinAPI.au3>
#include <GUIStatusBar.au3>
#include <Array.au3>
#include <GUIListView.au3>

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

;Klassen
#include <class\rsmgui.au3>
#include <class\ini.au3>
#include <class\radio station.au3>

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

#include <include\aero.au3>

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

;Optionen
Opt("GUIOnEventMode", 1)
OnAutoItExitRegister("_BeendeProgramm")

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

;Verzeichnisse
Global Const $ScriptDir = @ScriptDir
Global Const $ScriptFullPath = @ScriptFullPath
Global Const $ComponentDir = $ScriptDir & "\components"
Global Const $AppDataDir = @AppDataDir & "\DeepSoftware\Desktop Radio"
Global Const $Compiled = @Compiled
Global Const $AutoItPID = @AutoItPID

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

;Erstellt wichtige Objekte.
Local $inipath = _ReadConfig("Settings", "PathToIni")
Local $hotkey = _New_IniObject($inipath & "\Hotkeys.ini")
Local $setting = _New_IniObject($inipath & "\Settings.ini")
Local $data = _New_IniObject($inipath & "\Data.ini")

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

;Objekte erzeugen
Local $rsmgui = _New_RSMGUI()
$rsmgui.create()
$rsmgui.GUISetOnEvent($GUI_EVENT_CLOSE, "_BeendeProgramm")
$rsmgui.loadSettings($data)
$rsmgui.show(True)

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

Global $MyArea[4] = [0, 0, 64, 0]
_DWM_Aero_ApplyGlassArea(HWnd($rsmgui.handle), $MyArea)

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

While 1
Sleep(100)
WEnd

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

Func _BeendeProgramm()
Exit
EndFunc

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

Func _GUIImageList_AddIconSize($hWnd, $sFile, $iSize=64) ;By Progandy!
Local $hIcon = _WinAPI_LoadImage(0, $sFile, $IMAGE_ICON, $iSize, $iSize, $LR_LOADFROMFILE)
Local $iResult = _GUIImageList_ReplaceIcon($hWnd, -1, $hIcon)
_WinAPI_DestroyIcon($hIcon)
Return $iResult
EndFunc ;==>_GUIImageList_AddIcon

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

Func _ReadConfig($Section, $Key)
Return Execute(IniRead($ScriptDir & "\config.ini", $Section, $Key, $AppDataDir))
EndFunc

[/autoit]

und hier die Aero.au3:

Spoiler anzeigen

[autoit]

Global Const $DWM_BB_ENABLE = 0x00000001
$Struct = DllStructCreate("int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;")
$sStruct = DllStructCreate("dword;int;ptr;int")

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

; #FUNCTION#;===============================================================================
;
; Name...........: _DWM_Aero_ApplyGlass
; Description ...: Applys glass effect to a window
; Syntax.........: _DWM_Aero_ApplyGlass($hWnd, [$bColor)
; Parameters ....: $hWnd - Window handle:
; $bColor - Background color
; Return values .: Success - No return
; Failure - Returns 0
; Author ........: James Brooks
; Modified.......:
; Remarks .......: Thanks to weaponx!
; Related .......:
; Link ..........;
; Example .......; Yes
;
;;==========================================================================================
Func _DWM_Aero_ApplyGlass($hWnd, $bColor = 0x000000)
If Not _IsWinAero() Then
SetError(0, 0, -1)
Return 0
Else
GUISetBkColor($bColor); Must be here!
$Ret = DllCall("dwmapi.dll", "long", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "long*", DllStructGetPtr($Struct))
If @error Then
SetError(0)
Return 0
Else
Return $Ret
EndIf
EndIf
EndFunc ;==>_DWM_Aero_ApplyGlass

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

; #FUNCTION#;===============================================================================
;
; Name...........: _DWM_Aero_ApplyGlassArea
; Description ...: Applys glass effect to a window area
; Syntax.........: _DWM_Aero_ApplyGlassArea($hWnd, $Area, [$bColor)
; Parameters ....: $hWnd - Window handle:
; $Area - Array containing area points
; $bColor - Background color
; Return values .: Success - No return
; Failure - Returns 0
; Author ........: James Brooks
; Modified.......:
; Remarks .......: Thanks to monoceres!
; Related .......:
; Link ..........;
; Example .......; Yes
;
;;==========================================================================================
Func _DWM_Aero_ApplyGlassArea($hWnd, $Area, $bColor = 0x000000)
If Not _IsWinAero() Then
SetError(0, 0, -1)
Return 0
Else
If _DWM_ICE() Then
ConsoleWrite("ICE ENABLED!" & @CRLF)
If IsArray($Area) Then
DllStructSetData($Struct, "cxLeftWidth", $Area[0])
DllStructSetData($Struct, "cxRightWidth", $Area[1])
DllStructSetData($Struct, "cyTopHeight", $Area[2])
DllStructSetData($Struct, "cyBottomHeight", $Area[3])
GUISetBkColor($bColor); Must be here!
$Ret = DllCall("dwmapi.dll", "long*", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "ptr", DllStructGetPtr($Struct))
If @error Then
SetError(0, 0, 1)
Return 0
Else
Return $Ret
EndIf
Else
ConsoleWrite("ICE DISABLED!" & @CRLF)
SetError(1)
Return 0
EndIf
Else
SetError(2, 0, 2)
Return 0
EndIf
EndIf
EndFunc ;==>_DWM_Aero_ApplyGlassArea

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

; #FUNCTION#;===============================================================================
;
; Name...........: _DWM_Aero_EnableBlurBehind
; Description ...: Enables the blur effect on the provided window handle.
; Syntax.........: _DWM_Aero_EnableBlurBehind($hWnd)
; Parameters ....: $hWnd - Window handle:
; Return values .: Success - No return
; Failure - Returns 0
; Author ........: James Brooks
; Modified.......:
; Remarks .......: Thanks to komalo
; Related .......:
; Link ..........;
; Example .......; Yes
;
;;==========================================================================================
Func _DWM_Aero_EnableBlurBehind($hWnd, $bColor = 0x000000)
If Not _IsWinAero() Then
SetError(0, 0, -1)
Return 0
Else
DllStructSetData($sStruct, 1, $DWM_BB_ENABLE)
DllStructSetData($sStruct, 2, "1")
DllStructSetData($sStruct, 4, "1")

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

GUISetBkColor($bColor); Must be here!
$Ret = DllCall("dwmapi.dll", "int", "DwmEnableBlurBehindWindow", "hwnd", $hWnd, "ptr", DllStructGetPtr($sStruct))
If @error Then
SetError(0, 0, 1)
Return 0
Else
Return $Ret
EndIf
EndIf
EndFunc ;==>_DWM_Aero_EnableBlurBehind

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

; #FUNCTION#;===============================================================================
;
; Name...........: _DWM_ICE
; Description ...: Returns 1 if DWM is enabled or 0 if not
; Syntax.........: _DWM_ICE()
; Parameters ....:
; Return values .: Success - Returns 1
; Failure - Returns 0
; Author ........: James Brooks
; Example .......; Yes
;
;;==========================================================================================
Func _DWM_ICE()
If Not _IsWinAero() Then
$ICEStruct = DllStructCreate("int;")
$Ret = DllCall("dwmapi.dll", "int", "DwmIsCompositionEnabled", "ptr", DllStructGetPtr($ICEStruct))
If @error Then
SetError(0, 0, -1) ; DWM is not active
Return 0
Else
Return DllStructGetData($ICEStruct, 1)
EndIf
Else
SetError(1, 0, 1) ; Not running Windows 6.1 or above
Return 1
EndIf
EndFunc ;==>_DWM_Aero_ICE

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

; #FUNCTION#;===============================================================================
;
; Name...........: __GetVersionEx
; Description ...: Returns version number of OS
; Syntax.........: _GetVersionEx()
; Parameters ....:
; Return values .: Success - Returns version integer
; Failure - Returns 0
; Author ........: James Brooks
;
;;==========================================================================================
Func _IsWinAero()
Local $__iVer = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentVersion")
If $__iVer >= 6.1 Then
Return 1
Else
Return 0
EndIf
EndFunc

[/autoit]

DeepRed92

Von ganz oben bis ca. mitte

[Blockierte Grafik: http://www.kingstar-music.com/rockfest/gfx/lineup.jpg]

DeepRed92

Zitat

Ich frage mich nur, wie du die Onlinestrams abspielst.

Das mache ich mit dem Windows Media Com-Objekt! Also mit ObjCreate(..)

Zitat

Wenn ich im Music Manager einen Song hinzufüge und in anschließend abspielen will kommt [...]

Ja, ich werde mir das später nochmal ansehen. Ich bastel gerade an der neuen Version

Zitat

Und "Favoriten" schreibt man so.

Ok, danke für den Hinweis!

---------
Ich wollte mal fragen, ob evtl. jemand interesse daran hätte, beim "programmieren" etwas zu helfen. Hab nämlich vorgestern viele Projektdateien verloren, da Windows (Chkdsk) die Dateien auf der Festplatte zerstört hat. Sie lassen sich zwar wiederherstellen, aber nur in tausenden Textdateien..
Wer wäre bereit, etwas mitzuhelfen? (Schreibt mich dann bitte per PN an )

DeepRed92

Achso ok
Tipp, ich würde es so machen, dass man mit Hilfe der ProgressBar auf eine beliebige Stelle vor bzw. zurückspulen kann. Ich glaub Oscar hatte dafür mal eine passende Funktion geschrieben. An sonsten ganz gut gemacht. Funktioniert auch unter Windows 7 64 Bit

DeepRed92

Hmm Ich würde einen andern Namen als NeMP nehmen, da es schon sowas gibt:
http://www.gausi.de/nemp.html

Beiträge von DeepRed92

InetRead langsam?

InetRead langsam?

GUI in GUI scollen durch Mausklick

GUI in GUI scollen durch Mausklick

WinHTTP.au3 - Inhalt einer Website auslesen!

PNG in GUICtrlCreatePic

FF.au3 - Auslesen, auf welcher Seite man ist

Zahlensysteme (2 bis 36) Convert UDF

Windows Areo Problem

Windows Areo Problem

Windows Areo Problem

Transparente Combobox (OwnCombo)

Windows Areo Problem

Windows Areo Problem

Windows Areo Problem

Windows Areo Problem

Welche Musik hört ihr?

Desktop Radio 3.9

[Beispiel] NeMP3-P (MP3-Player) Version 0.8.4.7

[Beispiel] NeMP3-P (MP3-Player) Version 0.8.4.7