Akkuzustand im Label aktualisieren

#include <ButtonConstants.au3>#include <DateTimeConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <StaticConstants.au3>#include <WindowsConstants.au3>#include <MsgBoxConstants.au3>#include <GuiStatusBar.au3>#include <Date.au3>
Global $SYSTEM_POWER_STATUS = DllStructCreate("byte;byte;byte;byte;int;int") ;Akkuzustand
Global $test = DllCall("kernel32.dll", "int", "GetSystemPowerStatus", _ ;Akkuzustand "ptr", DllStructGetPtr($SYSTEM_POWER_STATUS))
If $test[0] Then Global $Akku = DllStructGetData($SYSTEM_POWER_STATUS, 3) EndIf
$v1 = InputBox("Security","Enter password:","","*",300,150) ;SecuritycheckIf $v1 = ("TakeOff") Then
$frmSplash = GUICreate("",300,150,-1,-1,BitOR($WS_SYSMENU,$WS_POPUP),0) ;PopUp Checking password... $proSplash = GUICtrlCreateProgress(56,104,193,9) GUICtrlCreateLabel("Checking password...",97,50) GUISetState(@SW_SHOW,$frmSplash)
For $i = 1 to 99 Step 9 ;Anhang Prozessbar GUICtrlSetData($proSplash,$i) Sleep(75) Next GUISetState(@SW_HIDE,$frmSplash)
#Region ### START Koda GUI section ### Form=c:\users\asus\desktop\helppanel.kxf ;Hauptform$frmHaupt = GUICreate("Help Panel", 455, 471, -1, -1)$Start = GUICtrlCreateMenu("&Start")$Exit = GUICtrlCreateMenuItem("Exit", $Start)$Hilfe = GUICtrlCreateMenu("&Hilfe")$Google = GUICtrlCreateMenuItem("???", $Hilfe)GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)GUISetBkColor(0x0066CC)$Button1 = GUICtrlCreateButton("Facebook", 10, 10, 105, 30)GUICtrlSetFont(-1, 14, 400, 0, "Palatino Linotype")$Button2 = GUICtrlCreateButton("Payday 2", 130, 10, 105, 30)GUICtrlSetFont(-1, 14, 400, 0, "Palatino Linotype")$Button3 = GUICtrlCreateButton("Notepad++", 10, 45, 105, 30)GUICtrlSetFont(-1, 14, 400, 0, "Palatino Linotype")$Button4 = GUICtrlCreateButton("DC Universe Online", 130, 45, 105, 30)GUICtrlSetFont(-1, 8, 400, 0, "Palatino Linotype")$Input1 = GUICtrlCreateInput("", 15, 150, 200, 21)$YouTubeLabel = GUICtrlCreateLabel("YouTube Suche:", 15, 125, 85, 17)$Button5 = GUICtrlCreateButton("Los!", 240, 150, 80, 20)GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")$Input2 = GUICtrlCreateInput("", 15, 210, 200, 21)$GoogleLabel = GUICtrlCreateLabel("Google Suche:", 15, 185, 75, 17)$Button6= GUICtrlCreateButton("Los!", 240, 210, 80, 20)GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")$Button7 = GUICtrlCreateButton("Opera-Browser", 10, 80, 105, 30)GUICtrlSetFont(-1, 11, 400, 0, "Palatino Linotype")$Button8 = GUICtrlCreateButton("Skype", 130, 80, 105, 30)GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")$Button11 = GUICtrlCreateButton("Playlist", 335, 206, 105, 30,$WS_GROUP)GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")$Button13 = GUICtrlCreateButton("TV-Programm", 250, 10, 105, 30)GUICtrlSetFont(-1, 11, 400, 0, "Palatino Linotype")$MonthCal1 = GUICtrlCreateMonthCal("", 240, 250, 200, 164)$Statusbar = GUICtrlCreateLabel(" Security ASAP", 0, 431, 372, 20)GUICtrlSetFont(-1, 15, 400, 0, "Fixedsys")GUICtrlSetColor(-1, 0x000000)GUICtrlSetBkColor(-1, 0xA6CAF0)$Akkuzustand = GUICtrlCreateLabel("Ladezustand: " & $Akku & "%", 336, 180, 110, 25)GUICtrlSetFont(-1, 9, 400, 0, "Palatino Linotype")$zeit = GUICtrlCreateLabel(_NowTime(), 372, 431, 100, 20)GUICtrlSetFont(-1, 12, 400, 0, "Fixedsys")GUICtrlSetColor(-1, 0x000000)GUICtrlSetBkColor(-1, 0x3399FF)$Note = GUICtrlCreateEdit("", 15, 250, 200, 164)GUICtrlSetFont(-1, 20, 400, 0, "Script")GUICtrlSetColor(-1, 0x0000FF)GUICtrlSetBkColor(-1, 0xC0C0C0)GUICtrlSetCursor (-1, 5)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###
AdlibRegister("_UpdateZeit", 1000)AdlibRegister("_UpdateAkku", 5000)
Else ;password falsch dann.. $frmSplash = GUICreate("",300,150,-1,-1,BitOR($WS_SYSMENU,$WS_POPUP),0) ;PopUp Checking password... $proSplash = GUICtrlCreateProgress(56,104,193,9) GUICtrlCreateLabel("Checking password...",97,50) GUISetState(@SW_SHOW,$frmSplash)
For $i = 1 to 99 Step 9 ;Anhang Prozessbar GUICtrlSetData($proSplash,$i) Sleep(75) Next GUISetState(@SW_HIDE,$frmSplash) MsgBox(64,"Alert","Wrong password!") ExitEndIf
#Region ;Youtube Playlist Form$frmYoutube = GUICreate("Youtube", 372, 377, -1, -1)GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)$Label1 = GUICtrlCreateLabel("Beats", 15, 10, 40, 26)GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")GUICtrlSetCursor (-1, 0)$Label2 = GUICtrlCreateLabel("Chiller", 205, 10, 49, 26)GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")GUICtrlSetCursor (-1, 0)$List1 = GUICtrlCreateList("", 8, 40, 161, 276)GUICtrlSetData(-1, "6AM (Aidan Dao & Anthony Taratsas Remix) - Shameless|Call The Police (Original Mix) - Giuseppe Visciano|Cigarette (Original Mix) - Giuseppe Visciano|Crack (Original Mix) - Gee G|De Ja Vu - Keesh & Scotty Lee|Drugs - Matty Lincoln|Ecstasy - Maguta|Ghost (Jakobs Whoomp Booty) - Alex Zand|I Dont Have A Job (Original Mix) - Mandragora|I Surrender (Original Mix) - Matty Lincoln|JetFuel (Original Mix) - Uberjakd & Joel Fletcher|Minimal Feeling - Luigi Peretti|Noises (Uberjakd VIP Mix) - Uberjakd ft Sarah Bodle|Pop Dat (Original Mix) - Ish Kariuki|The Octopuss - Johannes Heil & Len Faki|Two Faced (Original Mix) - Djuro|Ultra Dope (Original Mix) - Abel Nesian|What (Original mix) - Giuseppe Visciano|When The Bass Go - SCNDL|White Vox (Anthony Taratsas Remix) - Dont Stop|Yep! (Original Mix) - Daniel Healey")GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")GUICtrlSetBkColor(-1, 0xBFCDDB)GUICtrlSetCursor (-1, 0)$List2 = GUICtrlCreateList("", 200, 40, 161, 276)GUICtrlSetData(-1, "Abu Dhabi - Krizz Kaliko feat 816 Boyz|B.I.T.C.H. - Tech N9ne feat. T-Pain|Chin Check - N.W.A. feat. Snoop Dogg|Damn It Feels Good To Be A Taylor - Wiz Khalifa|Gin & Juice - Snoop Dogg|Girls like that - Krizz Kaliko feat. Bizzy|Grave Digga - Stevie Stone|I been Dope - Kutt Calhoun feat. Tech N9ne|Im SwizZzle Bitch - SwizZz (Rack City Remix)|Playback - Collie Buddz|Red Nose - Tech N9ne|Smoke the weed - Snoop Lion ft. Collie Buddz|So dope - Tech N9ne feat. Wrekonize, Twisted Insane & Snow Tha Product|Still D.R.E - Dr Dre feat. Snoop Dogg|STU - Wiz Khalifa|Switch Lanes - Tyga feat. The Game|Thats All She Wrote - T.I. feat. Eminem|The Kid Frankie - Wiz Khalifa|The tweak is heavy - Wiz Khalifa|Till Im Gone - Tinie Tempah feat. Wiz Khalifa|Whats my name - Snoop Dogg|Work Hard Play Hard - Wiz Khalifa")GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")GUICtrlSetBkColor(-1, 0xBFCDDB)GUICtrlSetCursor (-1, 0)$Button9 = GUICtrlCreateButton("Los!", 42, 326, 75, 25)$Button10 = GUICtrlCreateButton("Los!", 242, 326, 75, 25)$Button12 = GUICtrlCreateButton("Exit", 148, 352, 75, 25)#EndRegion
GUISwitch($frmHaupt)
While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button11 GUISetState(@SW_SHOW,$frmYoutube) GUISetState(@SW_HIDE,$frmHaupt) GUISwitch($frmYoutube) Case $Button12 GUISetState(@SW_SHOW,$frmHaupt) GUISetState(@SW_HIDE,$frmYoutube) GUISwitch($frmHaupt) Case $Button1 _Func1() Case $Button2 _Func2() Case $Button3 _Func3() Case $Button4 _Func4() Case $Button5 _Func5() Case $Button6 _Func6() Case $Button7 _Func7() Case $Button8 _Func8() Case $Button9 _Func9() Case $Button10 _Func10() Case $Button13 _Func13() Case $Exit _FuncExit() Case $Google _FuncGoogle() EndSwitchWEnd
Func _UpdateAkku() ;Update Akku <===muss überarbeitet werden Global $SYSTEM_POWER_STATUS = DllStructCreate("byte;byte;byte;byte;int;int")
Global $test = DllCall("kernel32.dll", "int", "GetSystemPowerStatus", _ "ptr", DllStructGetPtr($SYSTEM_POWER_STATUS))
If $test[0] Then Global $Akku = DllStructGetData($SYSTEM_POWER_STATUS, 3) EndIfEndFunc
Func _UpdateZeit() ;Update Uhrzeit GUICtrlSetData($zeit, _NowTime())EndFunc
Func _Func1 () ;Facebook starten MouseClick("",0,900) MouseClick("",555,353)EndFunc
Func _Func2 () ;Payday 2 starten MouseClick("",0,900) MouseClick("",1100,231)EndFunc

Func _Func3 () ;Notepad++ starten Run ("C:\Program Files (x86)\Notepad++\notepad++.exe")EndFunc
Func _Func4 () ;DC Universe Online starten Run ("C:\Users\Public\Sony Online Entertainment\Installed Games\DC Universe Online\LaunchPad.exe")EndFunc
Func _Func5 () ;Youtubesuche starten Run ("C:\Program Files (x86)\Opera\launcher.exe") WinWaitActive ("Schnellwahl - Opera") Send ("www.youtube.com") Send ("{ENTER}") Sleep(6000) Send(GUICtrlRead($Input1)) Send ("{ENTER}")EndFunc
Func _Func6 () ;Googlesuche starten Run ("C:\Program Files (x86)\Opera\launcher.exe") WinWaitActive ("Schnellwahl - Opera") Sleep(500) Send (GUICtrlRead($Input2)) Send ("{ENTER}")EndFunc
Func _Func7 () ;Opera starten Run ("C:\Program Files (x86)\Opera\launcher.exe")EndFunc
Func _Func8 () ;Skype starten MouseClick("",0,900) MouseClick("",264,618)EndFunc
Func _Func9 () ;Youtubeplaylist Beats Run ("C:\Program Files (x86)\Opera\launcher.exe") WinWaitActive ("Schnellwahl - Opera") Send ("www.youtube.com") Send ("{ENTER}") Sleep(5500) Send (GUICtrlRead($List1)) Send("{ENTER}") Sleep(2000) MouseClick("",689,235)EndFunc
Func _Func10 () ;Youtubeplaylist Chiller Run ("C:\Program Files (x86)\Opera\launcher.exe") WinWaitActive ("Schnellwahl - Opera") Send ("www.youtube.com") Send ("{ENTER}") Sleep(5500) Send (GUICtrlRead($List2)) Send("{ENTER}") Sleep(2000) MouseClick("",689,235)EndFunc
Func _Func13() ;TV-Programm starten MouseClick("", 0, 900) MouseClick("", 560, 606) Sleep(1500) MouseClick("", 210, 242) EndFunc
Func _FuncExit() ;Menü, Start,Exit ExitEndFunc
Func _FuncGoogle() ;Menü, Hilfe,??? Run ("C:\Program Files (x86)\Opera\launcher.exe") WinWaitActive ("Schnellwahl - Opera") Sleep(500) Send("www.google.de") Send("{ENTER}")EndFunc