Beiträge von hellboy3

[autoit]

SplashTextOn("Loading...","GUI is loading...",150,50)

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

Opt("GUIOnEventMode",1)

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

$hwnd = GUICreate ("GUI", 250, 250)
GUISetOnEvent(-3,"_Exit")
Sleep(5000) ; Simuliert deine Wartezeit
GUISetState()
SplashOff()

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

While Sleep(20)
WEnd

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

Func _Exit()
Exit
EndFunc

[/autoit]

[autoit]

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

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

$aSound = _SoundOpen("C:\Test.mp3")

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

$Form1 = GUICreate("Form1", 194, 58, 192, 124)
$Button1 = GUICtrlCreateButton("Ton an", 16, 16, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Ton aus", 104, 16, 75, 25, 0)
GUISetState()

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

_SoundPlay($aSound, 0)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_SoundResume($aSound)
Case $Button2
_SoundPause($aSound)
EndSwitch
WEnd

[/autoit]

[autoit]

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

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

InetGet("http://upload.wikimedia.org/wikipedia/commons/7/7a/Basketball.png",@ScriptDir & "\Ball.png")

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

Opt('GUIOnEventMode', 1)

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

$hGUI = GUICreate("",350,350); Gui elemte ausblenden
GUISetOnEvent(-3,"_Exit")
GUISetBkColor(0xFF7F24)
$guibk = GUICtrLCreatePng($hGUI,@ScriptDir & "\Ball.png",20,20)
GUICtrlSetOnEvent(-1,"_Basketfunc")

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

GUISetState(@SW_SHOW)

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

While Sleep(50)
WEnd

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

Func GUICtrlCreatePng($hWnd, $sPath, $iX, $iY) ; SEuBo
_GDIPlus_Startup()
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend, $hGUI
Local $hImage = _GDIPlus_ImageLoadFromFile($sPath), $iWidth = _GDIPlus_ImageGetWidth($hImage), $iHeight = _GDIPlus_ImageGetHeight($hImage)
$hGUI = GUICreate("", $iWidth, $iHeight, $iX, $iY, 0x80000000, BitOR(0x40, 0x80000), $hWnd)
$cLabel = GUICtrlCreateLabel("", 0, 0, $iWidth, $iHeight)
GUICtrlSetBkColor(-1, -2)
GUISetState(@SW_SHOWNOACTIVATE, $hGUI)
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate("int X;int Y")
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", $iWidth)
DllStructSetData($tSize, "Y", $iHeight)
$tSource = DllStructCreate("int X;int Y")
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate("byte Op;byte Flags;byte Alpha;byte Format")
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", 255)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
GUISwitch($hWnd)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
Return SetError(0,$hGUI,$cLabel)
EndFunc ;==>GUICtrlCreatePng

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

Func _Basketfunc()
MsgBox(0,"","Du hast den Ball angeklickt!")
EndFunc

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

Func _Exit()
Exit
EndFunc

[/autoit]

[autoit]

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

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

$Form1 = GUICreate("Test", 259, 108, 852, 50)
$Button1 = GUICtrlCreateButton("Read", 32, 48, 193, 41)
$Input1 = GUICtrlCreateInput("", 24, 16, 209, 21)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_func1()

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

EndSwitch
WEnd

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

Func _func1()
MsgBox(0,"test",GUICtrlRead($Input1))
EndFunc

[/autoit]

[autoit]

If _isRadioStream("http://www.youtube.com/watch?v=y1iOG6vELGE") Then
MsgBox(0,"","Radiostream!")
Else
MsgBox(0,"","Kein Radiostream!")
EndIf

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

Func _isRadioStream($sURL)
Local $ret
$WMP = ObjCreate("WMPlayer.OCX")
$WMP.URL = $sURL
$WMP.controls.play()
While $WMP.playstate = 9
Sleep(20)
WEnd
If $WMP.playstate <> 10 Then
$ret = True
Else
$ret = False
EndIf
$WMP.controls.stop()
$WMP = 0
Return $ret
EndFunc

[/autoit]