Hi,
Deine Menüleiste schiebt die Statusbar zu weit nach unten.
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.10.2
Author: Pad
Script:
-Lautstärkeregler (wird vermutlich nicht funktionieren)
-Statusbar (Uhrzeit,Akku,Akku lädt?)
#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>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <GuiStatusBar.au3>
Global $aParts[3] = [124, 124, 124]
[/autoit] [autoit][/autoit] [autoit]Global $hBitmap, $hImage, $hGraphic, $hFamily, $hFont, $tLayout, $hFormat, $aInfo, $hBrush1, $hBrush2, $iWidth, $iHeight, $hPen ;Screenshotvariablen
Global $sString = " Created with AutoIt "
Global $SYSTEM_POWER_STATUS = DllStructCreate("byte;byte;byte;byte;int;int") ;Akkuzustand
Global $test = DllCall("kernel32.dll", "int", "GetSystemPowerStatus", _
"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 ;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("Favoriten", 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")
$ButtonScreenshot = GUICtrlCreateButton("Screenshot", 335, 145, 105, 30)
GUICtrlSetFont(-1, 11, 400, 0, "Palatino Linotype")
$MonthCal1 = GUICtrlCreateMonthCal("", 240, 250, 200, 164)
$Akkuzustand = GUICtrlCreateLabel("Ladezustand: " & $Akku & "%", 337, 180, 110, 25)
GUICtrlSetFont(-1, 9, 400, 0, "Palatino Linotype")
$Note = GUICtrlCreateEdit("", 15, 250, 200, 164)
GUICtrlSetFont(-1, 20, 400, 0, "Script")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor(-1, 5)
$Statusbar = _GUICtrlStatusBar_Create($frmHaupt)
_GUICtrlStatusBar_SetParts($Statusbar, $aParts)
$Datum = _GUICtrlStatusBar_SetText($Statusbar, @MDAY & "." & @MON & "." & @YEAR, 1)
$Zeit = _GUICtrlStatusBar_SetText($Statusbar, @HOUR & ":" & @MIN & ":" & @SEC, 2)
;~ $VolumeSlider = GUICtrlCreateSlider(414, 30, 25, 113, BitOR($GUI_SS_DEFAULT_SLIDER,$TBS_VERT,$TBS_TOP,$TBS_LEFT,$TBS_BOTH,$TBS_NOTICKS,$TBS_FIXEDLENGTH))
;~ GUICtrlSetLimit(-1, 100, 0)
;~ GUICtrlSetCursor (-1, 2)
;~ GUICtrlSetBkColor(-1,0x0066CC)
;~ $VolumeLabel = GUICtrlCreateLabel($VolumeSlider, 415, 11, 22, 17, $SS_CENTER)
GUISetState(@SW_SHOW, $frmHaupt)
#EndRegion ;Hauptform
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, 403, -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!", 50, 326, 75, 25)
$Button10 = GUICtrlCreateButton("Los!", 244, 326, 75, 25)
$Button12 = GUICtrlCreateButton("Exit", 244, 370, 75, 25)
$Button14 = GUICtrlCreateButton("Zurück", 50, 370, 75, 25)
#EndRegion ;Youtube Playlist Form
#Region ;Internetseiten Form
$Internetseiten = GUICreate("Internet - Favoriten", 260, 470, 200, 300)
GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)
$Button16 = GUICtrlCreateButton("Exit", 93, 440, 75, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
$Button15 = GUICtrlCreateButton("Playlist", 30, 25, 75, 25, $BS_CENTER)
GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
$TreeView = GUICtrlCreateTreeView(30, 80, 200, 350, BitOR($GUI_SS_DEFAULT_TREEVIEW, $TVS_NOTOOLTIPS), $WS_EX_CLIENTEDGE)
$TreeView_0 = GUICtrlCreateTreeViewItem("Google", $TreeView)
$TreeView_1 = GUICtrlCreateTreeViewItem("Google Bilder", $TreeView_0)
$TreeView_2 = GUICtrlCreateTreeViewItem("Google Übersetzer", $TreeView_0)
$TreeView_3 = GUICtrlCreateTreeViewItem("Google Maps", $TreeView_0)
$TreeView_4 = GUICtrlCreateTreeViewItem("Youtube", $TreeView)
$TreeView_5 = GUICtrlCreateTreeViewItem("Facebook", $TreeView)
$TreeView_6 = GUICtrlCreateTreeViewItem("AutoIT", $TreeView)
$TreeView_7 = GUICtrlCreateTreeViewItem("Elitepvpers", $TreeView)
$TreeView_8 = GUICtrlCreateTreeViewItem("Pirate Perfection", $TreeView)
#EndRegion ;Internetseiten Form
#Region
$frmScreenshot = GUICreate("Screenshot", 100, 61, 302, 218, $WS_MINIMIZEBOX)
GUISetIcon("C:\Program Files (x86)\TERA\tera-launcher.exe", -1)
$ButtonScreen = GUICtrlCreateButton("Screen!", 30, 3, 75, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Palatino Linotype")
#EndRegion
GUISwitch($frmHaupt)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonScreenshot
GUISetState(@SW_SHOW, $frmScreenshot)
GUISetState(@SW_HIDE, $frmHaupt)
Case $Button14 ;Zurückbutton
GUISetState(@SW_HIDE, $frmYoutube)
GUISetState(@SW_SHOW, $frmHaupt)
GUISetState(@SW_SHOW, $Internetseiten)
Case $Button11 ;Favoritenbutton
GUISetState(@SW_SHOW, $frmHaupt)
GUISetState(@SW_SHOW, $Internetseiten)
GUISwitch($frmHaupt, $Internetseiten)
Case $Button12 ;Exitbutton
GUISetState(@SW_SHOW, $frmHaupt)
GUISetState(@SW_HIDE, $frmYoutube)
GUISetState(@SW_HIDE, $Internetseiten)
GUISwitch($frmHaupt)
Case $Button15 ;Playlistbutton
GUISetState(@SW_HIDE, $frmHaupt)
GUISetState(@SW_HIDE, $Internetseiten)
GUISetState(@SW_SHOW, $frmYoutube)
Case $Button16 ;Exitbutton
GUISetState(@SW_HIDE, $Internetseiten)
Case $Button1 ;Facebookbutton
_Func1()
Case $Button2 ;Payday2 - Button
_Func2()
Case $Button3 ;Notepad++ - Button
_Func3()
Case $Button4 ;DC Universe Online - Button
_Func4()
Case $Button5 ;Losbutton Youtubesuche
_Func5()
Case $Button6 ;Losbutton Googlesuche
_Func6()
Case $Button7 ;Operabrowser - Button
_Func7()
Case $Button8 ;Skype - Button
_Func8()
Case $Button9 ;Losbutton Youtubeplaylist Beats
_Func9()
Case $Button10 ;Losbutton Youtubeplaylist Chiller
_Func10()
Case $Button13 ;TV-Programm - Button
_Func13()
Case $ButtonScreen
_FuncScreen() ;Screenshot - Button
;~ Case $Exit
;~ _FuncExit()
;~ Case $Google
;~ _FuncGoogle()
;~ Case $VolumeSlider <===============================================================
;~ _FuncVolume()
Case $TreeView_0
_TreeView_Google()
Case $TreeView_1
_TreeView_GoogleBilder()
Case $TreeView_2
_TreeView_GoogleUEbersetzer()
Case $TreeView_3
_TreeView_GoogleMaps()
Case $TreeView_4
_TreeView_Youtube()
Case $TreeView_5
_TreeView_Facebook()
Case $TreeView_6
_TreeView_AutoIT()
Case $TreeView_7
_TreeView_Elitepvpers()
Case $TreeView_8
_TreeView_PiratePerfection()
EndSwitch
WEnd
Func _UpdateAkku() ;Update Akku
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
GUICtrlSetData($Akkuzustand, "Ladezustand: " & $Akku & "%")
_GUICtrlStatusBar_SetText($Statusbar, "Ladezustand: " & $Akku & "%")
EndFunc ;==>_UpdateAkku
Func _UpdateZeit() ;Update Uhrzeit
_GUICtrlStatusBar_SetText($Statusbar, @HOUR & ":" & @MIN & ":" & @SEC, 2)
EndFunc ;==>_UpdateZeit
Func _Func1() ;Facebook starten
MouseClick("", 0, 900)
MouseClick("", 555, 353)
EndFunc ;==>_Func1
Func _Func2() ;Payday 2 starten
MouseClick("", 0, 900)
MouseClick("", 1100, 231)
EndFunc ;==>_Func2
Func _Func3() ;Notepad++ starten
Run("C:\Program Files (x86)\Notepad++\notepad++.exe")
EndFunc ;==>_Func3
Func _Func4() ;DC Universe Online starten
Run("C:\Users\Public\Sony Online Entertainment\Installed Games\DC Universe Online\LaunchPad.exe")
EndFunc ;==>_Func4
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 ;==>_Func5
Func _Func6() ;Googlesuche starten
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send(GUICtrlRead($Input2))
Send("{ENTER}")
EndFunc ;==>_Func6
Func _Func7() ;Opera starten
Run("C:\Program Files (x86)\Opera\launcher.exe")
EndFunc ;==>_Func7
Func _Func8() ;Skype starten
MouseClick("", 0, 900)
MouseClick("", 264, 618)
EndFunc ;==>_Func8
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 ;==>_Func9
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 ;==>_Func10
Func _Func13() ;TV-Programm starten
MouseClick("", 0, 900)
MouseClick("", 560, 606)
Sleep(1500)
MouseClick("", 210, 242)
EndFunc ;==>_Func13
Func _FuncExit() ;Menü, Start,Exit
Exit
EndFunc ;==>_FuncExit
Func _FuncGoogle() ;Menü, Hilfe,???
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("www.google.de")
Send("{ENTER}")
EndFunc ;==>_FuncGoogle
;~ Func _FuncVolume() ;Lautstärkenregler <== muss überarbeitet werden
;~ $SetVolume = GUICtrlRead($VolumeSlider)
;~ GUICtrlSetData($VolumeLabel,GUICtrlRead($VolumeSlider))
;~ Sleep(500)
;~ SoundSetWaveVolume($SetVolume)
;~ EndFunc
Func _TreeView_Google() ;TreeView Google
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("www.google.de")
Send("{ENTER}")
EndFunc ;==>_TreeView_Google
Func _TreeView_GoogleBilder() ;TreeView GoogleBilder
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("http://www.google.de/imghp?hl=de&tab=wi&ei=wgB1U83GKYTe4QSt8YHIDg&ved=0CAQQqi4oAg")
Send("{ENTER}")
EndFunc ;==>_TreeView_GoogleBilder
Func _TreeView_GoogleUEbersetzer() ;TreeView GoogleÜbersetzer
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("https://translate.google.de/?hl=de")
Send("{ENTER}")
EndFunc ;==>_TreeView_GoogleUEbersetzer
Func _TreeView_GoogleMaps() ;TreeView GoogleMaps
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("https://www.google.de/maps/@48.6618471,9.0036649,8z?hl=de")
Send("{ENTER}")
EndFunc ;==>_TreeView_GoogleMaps
Func _TreeView_Youtube() ;TreeView Youtube
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("http://www.youtube.com")
Send("{ENTER}")
EndFunc ;==>_TreeView_Youtube
Func _TreeView_Facebook() ;TreeView Facebook
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("www.facebook.de")
Send("{ENTER}")
EndFunc ;==>_TreeView_Facebook
Func _TreeView_AutoIT() ;TreeView AutoIT
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("www.autoit.de")
Send("{ENTER}")
EndFunc ;==>_TreeView_AutoIT
Func _TreeView_Elitepvpers() ;TreeView Elitepvpers
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("www.elitepvpers.com")
Send("{ENTER}")
EndFunc ;==>_TreeView_Elitepvpers
Func _TreeView_PiratePerfection() ;TreeView PiratePerfection
Run("C:\Program Files (x86)\Opera\launcher.exe")
WinWaitActive("Schnellwahl - Opera")
Sleep(500)
Send("www.pirateperfection.com")
Send("{ENTER}")
EndFunc ;==>_TreeView_PiratePerfection
Func _FuncScreen() ;Take Screenshot
; Initialize GDI+ library
_GDIPlus_Startup()
; Capture screen
$hBitmap = _ScreenCapture_Capture(@MyDocumentsDir & '\AutoItImage.bmp')
; Load image and emboss text
$hImage = _GDIPlus_ImageLoadFromFile(@MyDocumentsDir & '\AutoItImage.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, @MyDocumentsDir & '\AutoItImage2.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 " & '"' & @MyDocumentsDir & '\AutoItImage2.bmp"')
GUISetState(@SW_SHOW, $frmHaupt)
GUISetState(@SW_HIDE, $frmScreenshot)
EndFunc ;==>_FuncScreen
Hier noch ein Beispiel:
Spoiler anzeigen
#include <Date.au3>
#include <GuiStatusBar.au3>
#region ### START GUI section ###
$hGui = GUICreate("StatusBar", 585, 215, 418, 155)
$Button1 = GUICtrlCreateButton("Button1", 56, 20, 200, 35)
$Button2 = GUICtrlCreateButton("Button2", 56, 65, 200, 35)
$tatusBar = _GUICtrlStatusBar_Create($hGui)
Global $tatusBar_PartsWidth[2] = [500, -1]
_GUICtrlStatusBar_SetParts($tatusBar, $tatusBar_PartsWidth)
_GUICtrlStatusBar_SetText($tatusBar, "hallo", 0)
;~ _GUICtrlStatusBar_SetText($tatusBar, @TAB & @TAB & "welt", 1)
_GUICtrlStatusBar_SetMinHeight($tatusBar, 20)
GUISetState(@SW_SHOW)
#endregion ### END GUI section ###
;~ _zeit()
AdlibRegister("_zeit", 1000)
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3 ;$GUI_EVENT_CLOSE
Exit
Case $Button1
$txt = InputBox('Eingabe', 'Gib was ein....')
_GUICtrlStatusBar_SetText($tatusBar, $txt, 0)
Case $Button2
$txt = _GUICtrlStatusBar_GetText($tatusBar, 0)
MsgBox(64, 'Info', $txt)
EndSwitch
WEnd
Func _zeit()
Local $zeit = _DateTimeFormat(_NowCalc(), 5)
_GUICtrlStatusBar_SetText($tatusBar, @TAB & $zeit, 1)
;~ _GUICtrlStatusBar_SetText($tatusBar, @TAB & @TAB & $zeit, 1)
EndFunc ;==>_zeit