#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Program Files\AutoIt3\Icons\MyAutoIt3_Red.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#comments-start

  Autor: Pad
  Version: 1.0
  Kommentare: ...

#comments-end


#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>

HotKeySet("{NUMPADSUB}", "_exit")
HotKeySet("{NUMPADADD}", "_hide")
Global $v1 = 1

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

#Region ### Hauptform ###
$haupt_frm = GUICreate("", 1921, 112, 0, -8, BitOR($WS_SYSMENU,$WS_POPUP))
GUISetBkColor(0x000000)
$btn_test = GUICtrlCreateButton("", 0, 0, 1, 1, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0xffffff)
$btn_sense = GUICtrlCreateButton("Sense", 8, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_cpu = GUICtrlCreateButton("CPU", 88, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_gpu = GUICtrlCreateButton("GPU", 168, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_killer = GUICtrlCreateButton("Killer", 248, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_crypt = GUICtrlCreateButton("Crypt", 328, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_txtcrypt = GUICtrlCreateButton("txtCrypt", 408, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_network = GUICtrlCreateButton("Network", 488, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_kas = GUICtrlCreateButton("Kaspersky", 568, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_mb = GUICtrlCreateButton("Maleware", 648, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_fmod = GUICtrlCreateButton("ModForest", 728, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_spotify = GUICtrlCreateButton("Spotify", 808, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_steamfiles = GUICtrlCreateButton("Steamfiles", 888, 8, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_note = GUICtrlCreateButton("Notepad++", 8, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_browser = GUICtrlCreateButton("360Browser", 88, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_trainer = GUICtrlCreateButton("Trainer", 168, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_steam = GUICtrlCreateButton("Steam", 248, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_screen = GUICtrlCreateButton("Screen", 328, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_cracker = GUICtrlCreateButton("RAR Cracker", 408, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_ce = GUICtrlCreateButton("CheatEngine", 488, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_office = GUICtrlCreateButton("Office", 568, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_wireshark = GUICtrlCreateButton("Wireshark", 648, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_tor = GUICtrlCreateButton("Tor Browser", 728, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_vm = GUICtrlCreateButton("VM", 808, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$btn_maps = GUICtrlCreateButton("Maps", 888, 40, 75, 25, -1, $WS_EX_STATICEDGE)
GUICtrlSetColor(-1, 0x000000)
$google = GUICtrlCreateInput("search", 84, 73, 200, 31, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 13, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0x000000)
$lbl_google = GUICtrlCreateLabel("Google", 8, 73, 68, 31, $SS_CENTER)
GUICtrlSetFont(-1, 15, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$lbl_duck = GUICtrlCreateLabel("DuckDuckGo", 313, 73, 126, 31, $SS_CENTER)
GUICtrlSetFont(-1, 15, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$duck = GUICtrlCreateInput("search", 447, 73, 200, 31, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 13, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0x000000)
$lbl_yt = GUICtrlCreateLabel("YouTube", 672, 73, 86, 31, $SS_CENTER)
GUICtrlSetFont(-1, 15, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$yt = GUICtrlCreateInput("search", 763, 73, 200, 31, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 13, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0x000000)
$notes = GUICtrlCreateInput("", 968, 8, 329, 95, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 10, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0x000000)
$lbl_uhr = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 1792, 8, 110, 42, $SS_CENTER)
GUICtrlSetFont(-1, 22, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$lbl_akku = GUICtrlCreateLabel($Akku & "%", 1848, 56, 39, 26, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$lbl_datum = GUICtrlCreateLabel(@MDAY & "." & @MON & "." & @YEAR, 1742, 56, 100, 26, $SS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$lbl_logo = GUICtrlCreateLabel("PREDATOR", 1328, 4, 400, 97, $SS_CENTER)
GUICtrlSetFont(-1, 55, 400, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0x05a1fc)
GUISetState(@SW_SHOW)
#EndRegion ### Hauptform ###

AdlibRegister("_update", 1000)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $duck
			_duck()
		Case $yt
			_yt()
		Case $google
			_google()
		Case $btn_sense
			_sense()
		Case $btn_cpu
			_cpu()
		Case $btn_gpu
			_gpu()
		Case $btn_killer
			_killer()
		Case $btn_crypt
			_crypt()
		Case $btn_txtcrypt
			_txtcrypt()
		Case $btn_network
			_network()
		Case $btn_kas
			_kas()
		Case $btn_mb
			_mb()
		Case $btn_fmod
			_fmod()
		Case $btn_spotify
			_spotify()
		Case $btn_steamfiles
			_steamfiles()
		Case $btn_note
			_note()
		Case $btn_browser
			_browser()
		Case $btn_trainer
			_trainer()
		Case $btn_steam
			_steam()
		Case $btn_screen
			_screen()
		Case $btn_cracker
			_cracker()
		Case $btn_ce
			_ce()
		Case $btn_office
			_office()
		Case $btn_wireshark
			_wireshark()
		Case $btn_tor
			_tor()
		Case $btn_vm
			_vm()
		Case $btn_maps
			_maps()
		Case $notes
			_clear()
	EndSwitch
WEnd

Func _hide()
	If $v1 = 1 Then
		GUISetState(@SW_HIDE, $haupt_frm)
		Global $v1 = 0
	Else
		GUISetState(@SW_SHOW, $haupt_frm)
		Global $v1 = 1
	EndIf
EndFunc

Func _update()
	GUICtrlSetData($lbl_uhr, @HOUR & ":" & @MIN & ":" & @SEC)
	GUICtrlSetData($lbl_datum, @MDAY & "." & @MON & "." & @YEAR)
	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 _duck()
	$textduck = GUICtrlRead($duck)
	Run(@ScriptDir & "\browser.exe")
	$wdw = WinWaitActive("Webbrowser")
	Sleep(3000)
	MouseMove(870, 609)
	MouseDown("left")
	Sleep(100)
	MouseUp("left")
	Sleep(50)
	Send($textduck)
	Sleep(50)
	Send("{ENTER}")
	GUICtrlSetData($duck, "search")
EndFunc

Func _google()
	$html = ("https://www.google.de/")
	$textgoogle = GUICtrlRead($google)
	MouseMove(122, 1079)
	Sleep(250)
	MouseClick("left", 122, 1079)
	WinWait("Neuer Tab ‎- Microsoft Edge")
	Send("https://www.google.com")
	Send("{ENTER}")
	Sleep(1000)
	WinWait("Google ‎- Microsoft Edge")
	Send($textgoogle)
	Send("{ENTER}")
	GUICtrlSetData($google, "search")
EndFunc


Func _yt()
	$textyt = GUICtrlRead($yt)
	MouseMove(122, 1079)
	Sleep(250)
	MouseClick("left", 122, 1079)
	WinWait("Neuer Tab ‎- Microsoft Edge")
	Send("https://www.youtube.com/results?search_query=" & $textyt)
	Send("{ENTER}")
	GUICtrlSetData($yt, "search")
EndFunc

Func _sense()
	Run("C:\Program Files\WindowsApps\AcerIncorporated.PredatorSenseV30_3.0.3005.0_x64__48frkmn4z8aw4\Win32\PredatorSense")
EndFunc

Func _cpu()
	Run("C:\Program Files\CPUID\CPU-Z\cpuz.exe")
EndFunc

Func _gpu()
	Run("C:\Program Files\GPU-Z\GPU-Z.exe")
EndFunc

Func _killer()
	Run("C:\Program Files\Killer Networking\Killer Control Center\KillerControlCenter")
EndFunc

Func _crypt()
	Run("C:\Program Files\VeraCrypt\VeraCrypt.exe")
EndFunc

Func _txtcrypt()
	Run(@ScriptDir & "\txtcrypt.exe")
EndFunc

Func _network()
	If WinExists("Netzwerkmonitor") Then
		WinActivate("Netzwerkmonitor")
	Else
		If WinExists("Kaspersky Internet Security") Then
			WinClose("Kaspersky Internet Security")
		EndIf
	Run("C:\Program Files (x86)\Kaspersky Lab\Kaspersky Internet Security 19.0.0\avpui.exe")
	WinWaitActive("Kaspersky Internet Security")
	Sleep(300)
	Global $xy = PixelSearch(0, 1080, 1920, 0, 0xA8EBFC)
	If Not @error Then
		MouseClick("left", $xy[0], $xy[1])
		EndIf
		Sleep(1000)
		Send("{TAB}")
		Sleep(50)
		Send("{DOWN}")
		Sleep(50)
		Send("{DOWN}")
		Sleep(50)
		Send("{TAB}")
		Sleep(50)
		Send("{TAB}")
		Sleep(50)
		Send("{DOWN}")
		Sleep(50)
		Send("{DOWN}")
		Sleep(50)
		Send("{DOWN}")
		Sleep(50)
		Send("{ENTER}")
		Sleep(500)
		WinClose("Kaspersky Internet Security")
	EndIf
EndFunc

Func _kas()
	Run("C:\Program Files (x86)\Kaspersky Lab\Kaspersky Internet Security 19.0.0\avpui.exe")
EndFunc

Func _mb()
	Run("C:\Program Files\Malwarebytes\Anti-Malware\mbam.exe")
EndFunc

Func _fmod()
	ShellExecute("D:\Games\MODAPI_The Forest")
EndFunc

Func _spotify()
	Run("C:\Program Files\WindowsApps\SpotifyAB.SpotifyMusic_1.91.183.0_x86__zpdnekdrzrea0\spotify")
EndFunc

Func _steamfiles()
	ShellExecute("D:\Steam\steamapps\common")
EndFunc

Func _note()
	Run("C:\Program Files\Notepad++\notepad++.exe")
EndFunc

Func _browser()
	Run("C:\Users\phili\AppData\Local\360Browser\Browser\Application\360browser")
EndFunc

Func _trainer()
	ShellExecute("D:\Trainer")
EndFunc

Func _steam()
	Run("D:\Steam\Steam.exe")
EndFunc

Func _screen()
	GUISetState(@SW_HIDE, $haupt_frm)
	Sleep(500)
	Global $hBitmap, $hImage, $hGraphic, $hFamily, $hFont, $tLayout, $hFormat, $aInfo, $hBrush1, $hBrush2, $iWidth, $iHeight, $hPen
	Global $sString = ""

	; Initialize GDI+ library
	_GDIPlus_Startup()

	Sleep(3500)

		; Capture screen
	$hBitmap = _ScreenCapture_Capture(@ScriptDir & '\RenameMeToSave.bmp')
		; Load image and emboss text
	$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & '\RenameMeToSave.bmp')
	$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage)
	$hFamily = _GDIPlus_FontFamilyCreate("Arial")
	$hFont = _GDIPlus_FontCreate($hFamily, 16, 1)
	$tLayout = _GDIPlus_RectFCreate(0, 0)
	$hFormat = _GDIPlus_StringFormatCreate(2)
	$hBrush1 = _GDIPlus_BrushCreateSolid(0xA2FFFFFF)
	$hBrush2 = _GDIPlus_BrushCreateSolid(0xC4FF0000)
	$hPen = _GDIPlus_PenCreate(0xC4000000, 2)
	$aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $sString, $hFont, $tLayout, $hFormat)
	$iWidth = DllStructGetData($aInfo[0], "Width")
	$iHeight = DllStructGetData($aInfo[0], "Height")
	_GDIPlus_GraphicsFillRect($hGraphic, 0, 0, $iWidth, $iHeight, $hBrush1)
	_GDIPlus_GraphicsDrawRect($hGraphic, 1, 1, $iWidth, $iHeight, $hPen)
	_GDIPlus_GraphicsDrawStringEx($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush2)
		; Save image
	_GDIPlus_ImageSaveToFile($hImage, @ScriptDir & '\RenameMeToSave.bmp')
		; Free resources
	_GDIPlus_PenDispose($hPen)
	_GDIPlus_BrushDispose($hBrush1)
	_GDIPlus_BrushDispose($hBrush2)
	_GDIPlus_StringFormatDispose($hFormat)
	_GDIPlus_FontDispose($hFont)
	_GDIPlus_FontFamilyDispose($hFamily)
	_GDIPlus_GraphicsDispose($hGraphic)
	_GDIPlus_ImageDispose($hImage)
	_GDIPlus_Shutdown()
		; Show image
	Run("MSPaint.exe " & '"' & @ScriptDir & '\RenameMeToSave.bmp"')
	GUISetState(@SW_SHOW, $haupt_frm)
EndFunc

Func _cracker()
	Run("C:\Program Files (x86)\Elcomsoft Password Recovery\Advanced Archive Password Recovery\ARCHPR.exe")
EndFunc

Func _ce()
	Run("C:\Program Files\Cheat Engine 6.8.1\Cheat Engine.exe")
EndFunc

Func _office()
	Run("C:\Program Files\OpenOffice 4\program\soffice.exe")
EndFunc

Func _wireshark()
	Run("C:\Program Files\Wireshark\Wireshark.exe")
EndFunc

Func _tor()
	Run("C:\Program Files\Tor Browser\Browser\firefox")
EndFunc

Func _vm()
	Run("X:\vm\VirtualBox.exe")
EndFunc

Func _maps()
	MouseMove(123, 1079,1)
	Sleep(250)
	MouseClick("left", 123, 1079)
	WinWait("Neuer Tab ‎- Microsoft Edge")
	Send("https://www.openstreetmap.de/karte.html")
	Sleep(250)
	Send("{ENTER}")
EndFunc

Func _clear()
	ClipPut("")
EndFunc

Func _exit()
	Exit
EndFunc