#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.10.2
 Author:         Pad

 Script:
 -Akkuzustand Update

#ce ----------------------------------------------------------------------------
#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)							;Securitycheck
If $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!")
	  Exit
EndIf

#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()
   EndSwitch
WEnd

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)
	  EndIf
EndFunc

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
   Exit
EndFunc

Func _FuncGoogle()					;Menü, Hilfe,???
   Run ("C:\Program Files (x86)\Opera\launcher.exe")
   WinWaitActive ("Schnellwahl - Opera")
   Sleep(500)
   Send("www.google.de")
   Send("{ENTER}")
EndFunc