Beiträge von chip

Geht mit folgenden Funktionen:

_SoundPlay
_SoundStop
_SoundPause
_SoundResume

DIe letzte Version von Koda (Beta 1.7.2.4 build 214) ist vom 18.02.2010 also von gestern. Keine Ahnung was da nun angestaubt ist *lach*.

Zitat von UEZ

Ich habe mal versucht den LEDs mehr Volumen zu geben!

Hier das Resultat:

Spoiler anzeigen

[autoit]

;http://www.autoit.de/index.php?page=Thread&threadID=17855
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <GDIPlusConstants.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)

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

Global $iX = 0, $iW, $iStep = 24
Global $w = 800, $h = 400
_GDIPlus_Startup()
Global $hGui = GUICreate("LED LaufSchrift", $w, $h)
;~ GUISetBkColor(0x000000)
GUISetOnEvent(-3, "_Exit")
GUISetState()

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

Global $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
Global $hBitmapBuffer = _GDIPlus_BitmapCreateFromGraphics($w, $h, $hGraphics)
Global $hGraphicsBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmapBuffer)
_GDIPlus_GraphicsClear($hGraphics, 0xFF000000)
Global $hBitmapLed = _CreateLedBitmap($hGraphics, "LED Laufschrift mit GDI+ erstellt von Eukalyptus ", $w, $h, $iStep, $iStep, 0xFFFFF030, 0x98101000)
;Global $hBitmapLed = _CreateLedBitmap($hGraphics, "Dies ist eine Laufschrift!", 800, 200, $iStep, $iStep, 0xFF00FF00, 0x66000000)
$iW = @extended

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

GUIRegisterMsg($WM_PAINT, "_WM_PAINT")

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

While 1
$iX -= $iStep
If $iX + $iW < 0 Then $iX += $iW
_GDIPlus_GraphicsDrawImage($hGraphicsBuffer, $hBitmapLed, $iX, 0)
_GDIPlus_GraphicsDrawImage($hGraphicsBuffer, $hBitmapLed, $iX + $iW, 0)
_WinAPI_RedrawWindow($hGui, 0, 0, $RDW_INTERNALPAINT)
Sleep(60)
WEnd

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

Func _WM_PAINT($hWnd, $Msg, $wParam, $lParam)
_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmapBuffer, 0, 0)
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_PAINT

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

Func _CreateLedBitmap($hGraphics, $sText, $iW, $iH, $iLedOffSet, $iLedSize, $iOnColor = 0xF0FFFF00, $iOffColor = 0x88111122, $sFont = "Arial")
$sText = StringUpper(StringReplace($sText,@LF,""))
Local $hBrushOff = _GDIPlus_BrushCreateSolid($iOffColor)
Local $hFormat = _GDIPlus_StringFormatCreate()
Local $hFamily = _GDIPlus_FontFamilyCreate($sFont)
Local $hFont = _GDIPlus_FontCreate($hFamily, $iH, 1, 2)
Local $tLayout = _GDIPlus_RectFCreate($iW, 0, 0, 0)
Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sText, $hFont, $tLayout, $hFormat)
Local $iWidth = Ceiling(DllStructGetData($aInfo[0], "Width")) + $iW
$iWidth -= Mod($iWidth, $iLedOffSet)
Local $iHeight = Ceiling(DllStructGetData($aInfo[0], "Height"))
DllStructSetData($aInfo[0], "Y", -Round(($iHeight - $iH) / 3))
Local $hBitmapTxt = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
Local $hBitmapLed = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics)
Local $hGraphicsTxt = _GDIPlus_ImageGetGraphicsContext($hBitmapTxt)
Local $hGraphicsLed = _GDIPlus_ImageGetGraphicsContext($hBitmapLed)
Local $hBrush = _GDIPlus_BrushCreateSolid($iOnColor)
Local $hPen = _GDIPlus_PenCreate()
_GDIPlus_GraphicsClear($hGraphicsTxt, $iOffColor)
_GDIPlus_GraphicsDrawStringEx($hGraphicsTxt, $sText, $hFont, $aInfo[0], $hFormat, $hBrush)
Local $BitmapData = _GDIPlus_BitmapLockBits($hBitmapTxt, 0, 0, $iWidth, $iHeight, $GDIP_ILMREAD, $GDIP_PXF32ARGB)
Local $Stride = DllStructGetData($BitmapData, "Stride")
Local $Width = DllStructGetData($BitmapData, "Width")
Local $Height = DllStructGetData($BitmapData, "Height")
Local $Scan0 = DllStructGetData($BitmapData, "Scan0")
Local $PixelData, $Color = Hex($iOnColor)
Local $hBrushGrad, $hPath
For $row = 0 To $Height - 1 Step $iLedOffSet
For $col = 0 To $Width - 1 Step $iLedOffSet
$PixelData = DllStructCreate("dword", $Scan0 + ($row * $Stride) + ($col * 4))
If Hex(DllStructGetData($PixelData, 1)) = $Color Then
$hPath = _GDIPlus_CreatePath()
_GDIPlus_AddPathEllipse($hPath, $col, $row, $iLedSize, $iLedSize)
$hBrushGrad = _GDIPlus_CreatePathGradientFromPath($hPath)
_GDIPlus_SetLineGammaCorrection($hBrushGrad, True)
_GDIPlus_SetPathGradientSurroundColorsWithCount($hBrushGrad, $iOffColor)
_GDIPlus_SetPathGradientCenterColor($hBrushGrad, $iOnColor)
_GDIPlus_FillPath($hGraphicsLed, $hBrushGrad, $hPath)
_GDIPlus_ClosePathFigure($hPath)
_GDIPlus_GraphicsDrawEllipse($hGraphicsLed, $col, $row, $iLedSize, $iLedSize, $hPen)
Else
_GDIPlus_GraphicsFillEllipse($hGraphicsLed, $col, $row, $iLedSize, $iLedSize, $hBrushOff)
EndIf
Next
Next
_GDIPlus_BitmapUnlockBits($hBitmapTxt, $BitmapData)
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_PenDispose($hPen)
_GDIPlus_BrushDispose($hBrushGrad)
_GDIPlus_PathDispose($hPath)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_BrushDispose($hBrushOff)
_GDIPlus_BitmapDispose($hBitmapTxt)
_GDIPlus_GraphicsDispose($hGraphicsTxt)
_GDIPlus_GraphicsDispose($hGraphicsLed)
Return SetExtended($iWidth, $hBitmapLed)
EndFunc ;==>_CreateLedBitmap

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

Func _Exit()
_GDIPlus_BitmapDispose($hBitmapLed)
_GDIPlus_GraphicsDispose($hGraphicsBuffer)
_GDIPlus_BitmapDispose($hBitmapBuffer)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Exit

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

Func _GDIPlus_CreatePath()
Local $hPath, $res
$hPath = DllCall($ghGDIPDll, "int", "GdipCreatePath", "int", 0, "int*", 0)
Local $res = "GdipCreatePath " & Hex($hPath[2]) & @CRLF
Return $hPath[2]
EndFunc

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

Func _GDIPlus_AddPathEllipse($hPath, $iX, $iY, $iWidth, $iHeight)
Local $aResult, $res
$aResult = DllCall($ghGDIPDll, "int", "GdipAddPathEllipse", "hwnd", $hPath, "int", _WinAPI_FloatToInt($iX), "int", _WinAPI_FloatToInt($iY), "int", _WinAPI_FloatToInt($iWidth), "int", _WinAPI_FloatToInt($iHeight))
EndFunc

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

Func _GDIPlus_CreatePathGradientFromPath($hPath)
Local $hBrushGrad
$hBrushGrad = DllCall($ghGDIPDll, "int", "GdipCreatePathGradientFromPath", "hwnd", $hPath, "int*", 0)
Return $hBrushGrad[2]
EndFunc

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

Func _GDIPlus_SetLineGammaCorrection($hBrush, $useGammaCorrection = True)
Local $aResult
$aResult = DllCall($ghGDIPDll, "int", "GdipSetLineGammaCorrection", "hwnd", $hBrush, "int", $useGammaCorrection)
Return $aResult[0]
EndFunc

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

Func _GDIPlus_SetPathGradientCenterColor($hBrush, $iARGB)
Local $aResult
$aResult = DllCall($ghGDIPDll, "int", "GdipSetPathGradientCenterColor", "hwnd", $hBrush, "int", $iARGB)
If @error Then Return SetError(@error, @extended, False)
Return $aResult
EndFunc

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

Func _GDIPlus_FillPath($hGraphic, $hBrushGrad, $hPath)
DllCall($ghGDIPDll, "int", "GdipFillPath", "hwnd", $hGraphic, "hwnd", $hBrushGrad, "hwnd", $hPath)
Return
EndFunc

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

Func _GDIPlus_SetPathGradientSurroundColorsWithCount($hBrush, $aArgb)
Local $iI, $iCount, $aResult, $res, $x, $pArgb
If IsArray($aArgb) Then
$iCount = UBound($aArgb)
$tArgb = DllStructCreate("int[" & $iCount & "]")
$pArgb = DllStructGetPtr($tArgb)
For $iI = 0 To $iCount - 1
DllStructSetData($tArgb, 1, $aArgb[$iI], $iI + 1)
Next
Else
$iCount = 1
$tArgb = DllStructCreate("int")
$pArgb = DllStructGetPtr($tArgb)
DllStructSetData($tArgb, 1, $aArgb, 1)
EndIf
$aResult = DllCall($ghGDIPDll, "int", "GdipSetPathGradientSurroundColorsWithCount", "hwnd", $hBrush, "int", $pArgb, "int*", $iCount)
If @error Then Return SetError(@error, @extended, 0)
Return $aResult
EndFunc

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

Func _GDIPlus_ClosePathFigure($hPath)
$aResult1 = DllCall($ghGDIPDll, "int", "GdipClosePathFigure", "hwnd", $hPath)
Return
EndFunc

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

Func _GDIPlus_PathDispose($hPath)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipDeletePath", "hwnd", $hPath)

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

If @error Then Return SetError(@error, @extended, False)
$GDIP_STATUS = $aResult[0]
Return $aResult[0] = 0
EndFunc

[/autoit]

Gruß,
UEZ

Alles anzeigen

Hat schon was lustiges inzwischen. Wieder eine modifizierte Sache von dir, die bei mir unter Win 7 nicht geht XD.

Weil es ja auch anderer Casezweig ist.

Ah fein gut zu wissen da es neuere ADS-UDF gibt :).

P.s. in Beispiel zu _AD_Open() ist genau das was suchst :).

Hast dir den Link angeschaut den ich gepostet habe ?

Also wenn die Ordner bei dir lokal auch so hast dann ist das dein Fehler:

FileInstall("C:\main.swf",@scriptdir & "\DataSnaX\main.swf")
FileInstall("C:\loader.swf",@scriptdir & "\DataSnaX\loader.swf")
FileInstall("C:\image1.bmp",@scriptdir & "\DataSnaX\image1.bmp")

da Fehlt das "Data".

Und hier

$Flash.Movie = @Scriptdir & "\DataSnaX\loader.swf?mainfile=C:\main.swf"

du entpackst das nach dem starten ja nach

@scriptdir & "\DataSnaX\main.swf"

Willst du nun ADSIEdit über Autoit steuern oder direkt mit Autoit auf die ADS zugreifen?

Für den zweiten Fall schau mal hier: http://www.autoitscript.com/forum/index.php?showtopic=37378&hl=Active+Directory

Achso dann ist

_GUICtrlListBox_Sort

das was du suchst.

*g* durch deine Modifikationen gehts garnichtmehr.

IniRead
IniWrite
GUICtrlSetData

Bis zum ersten, kann auch wie gesagt daher nicht gehen da die Class erst nach einem Click in das Feld sich zu "Edit" ändert und davor "ToolbarWindow32" ist.

Oben steht aber WIn 7 und nicht Vista ;).

Zitat von dost0011

Ich möchte bei Windows7 (64Bit HomePremium) den Explorer steuern und eine andere Adresse "eingeben".

Zitat von SEuBo

[autoit]

$hExplorer = ExplorerNavigate("Musik","C:\")
ExplorerNavigate($hExplorer,"D:\Musik")

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

Func ExplorerNavigate($hWnd,$sPath)
If Not IsHWnd($hWnd) Then $hWnd = WinGetHandle($hWnd)
If @error Then Return SetError(1,0,0)
$cHwnd = ControlGetHandle($hWnd, "", "[CLASS:Edit; INSTANCE:1]")
ControlSetText($hWnd, "", $cHwnd, $sPath)
ControlSend($hWnd,"",$cHwnd,"{ENTER}")
Return SetError(0,0,$hWnd)
EndFunc

[/autoit]

Alles anzeigen

Also unter Win 7 geht das mal nicht.

Korregiere mich bitte wenn ich mich irre, aber das ist doch im Grunde einfach eine art Notizblock oder nicht? Was hat das mit dem " Managen von Telefonaten" zu tuen?

Dann zeig mal deinen Code her den bis jetzt hast.

Zitat von Pinguin94

EDIT: @Sprenger: Dann könnte ich ihn aber nicht anpingen

Anpingen auf die IP geht dann trotzdem, nur der Rechner teilt dem "Netzwerk" nicht seinen Namen mit.

Der Eingabezeile ist doch die ID 1001 zugeordnet. Darfst nur den Pfad nicht mit ControlSend rein schreiben:

$oShell = ObjCreate("shell.application")
$oShell.Explore("C:\")
sleep(1000)
ControlClick("Lokaler Datenträger (C:)","",1001, "left", 1, 400)
sleep(1000)
Send("D:\")
sleep(1000)
Send("{Enter}")

Mh ist komisch weil SQLite.dll in 99% der Fälle auf jedem Rechner drauf ist. Hab mal die #include <SQLite.dll.au3> im Code hinzugefügt, dann wird die SQLite.dll wenn sie Fehlt erstellt.

Da bist mit einer Firma wie dieser hier besser dran die sich genau auf so etwas speziallisiert haben: http://www.secutrac.de/