So
ich hab jetzt mal ein kleines script geschrieben mit dem man screenshots machen kann
bin auf die idee gekommen weil ich in so nem spiel meinen score screenen wollte
und ja dan dacht ich mir
warum nich auch n datum dazu
und jetz bin ich soweit das man sogar noch n eigenen text eintragen kann :Dweis nich ob jmd was damit anfangen kann aber ich stells halt ma online
Spoiler anzeigen
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#include <ScreenCapture.au3>
#include <Date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <String.au3>
Hotkeyset("{PRINTSCREEN}", "_Main")
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Einstellungen", 490, 274, @DesktopWidth - 500, @DesktopHeight - 334)
$Button1 = GUICtrlCreateButton("Ok", 368, 216, 97, 41, 0)
$Group1 = GUICtrlCreateGroup("Oben Mitte", 8, 8, 153, 129)
$Radio3 = GUICtrlCreateRadio("Anderes", 16, 72, 113, 17)
$Radio1 = GUICtrlCreateRadio("Nichts", 16, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("Aktuelles Datum", 16, 48, 113, 17)
$Input1 = GUICtrlCreateInput("", 16, 96, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Unten Rechts", 169, 8, 153, 129)
$Radio4 = GUICtrlCreateRadio("Anderes", 177, 72, 113, 17)
$Radio5 = GUICtrlCreateRadio("Nichts", 177, 24, 113, 17)
$Radio6 = GUICtrlCreateRadio("Aktuelles Datum", 177, 48, 113, 17)
$Input2 = GUICtrlCreateInput("", 177, 96, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Unten Links", 330, 8, 153, 129)
$Radio7 = GUICtrlCreateRadio("Nichts", 338, 24, 113, 17)
$Radio8 = GUICtrlCreateRadio("Aktuelles Datum", 338, 48, 113, 17)
$Radio9 = GUICtrlCreateRadio("Anderes", 338, 72, 113, 17)
$Input3 = GUICtrlCreateInput("", 338, 96, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Speicherort", 8, 152, 473, 49)
$Input4 = GUICtrlCreateInput("", 16, 168, 353, 21)
$Button2 = GUICtrlCreateButton("Durchsuchen", 374, 166, 97, 25, 0)
$Input5 = GUICtrlCreateInput("", 200, 232, 97, 21)
$Group5 = GUICtrlCreateGroup("Speichername", 192, 208, 139, 57)
$Label3 = GUICtrlCreateLabel(".JPG", 298, 236, 27, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Farbe", 8, 208, 169, 57)
$Label4 = GUICtrlCreateLabel("", 130, 224, 36, 33)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("Auswählen", 21, 228, 97, 25, 0)
GUISetState(@SW_hide)
#EndRegion ### END Koda GUI section ###
TraySetClick (8)
Opt("TrayMenuMode", 1)
$settings = TrayCreateItem("Einstellungen")
TrayCreateItem("")
$exit = TrayCreateItem("Exit")
While 1
$tmsg = TrayGetMsg()
Switch $tmsg
Case $exit
Exit
Case $settings
$Read1 = Iniread("Data.ini", "Oben Mitte", "Option", "0")
$Read2 = Iniread("Data.ini", "Rechts Unten", "Option", "0")
$Read3 = Iniread("Data.ini", "Links Unten", "Option", "0")
$Read4 = Iniread("Data.ini", "Oben Mitte", "Text", "")
$Read5 = Iniread("Data.ini", "Rechts Unten", "Text", "")
$Read6 = Iniread("Data.ini", "Links Unten", "Text", "")
$Read7 = IniRead("Data.ini", "Speichern", "Ordner", @desktopdir)
$Read8 = IniRead("Data.ini", "Speichern", "Name", "Bild")
$Read9 = IniRead("Data.ini", "Zeichnen", "Farbe", "FF0000")
GUICtrlSetBkColor($Label4, "0x" & $Read9)
GUICtrlSetData($Input4, $Read7)
GUICtrlSetData($Input5, $Read8)
If $Read1 = "0" Then
GUICtrlSetState($Radio1, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_Disable)
ElseIf $Read1 = "1" Then
GUICtrlSetState($Radio2, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_Disable)
Elseif $Read1 = "2" Then
GUICtrlSetState($Radio3, $GUI_CHECKED)
GUICtrlSetData($Input1, $Read4)
GUICtrlSetState($Input1, $GUI_Enable)
Else
GUICtrlSetState($Radio1, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_Disable)
EndIf
If $Read2 = "0" Then
GUICtrlSetState($Radio5, $GUI_CHECKED)
GUICtrlSetState($Input2, $GUI_Disable)
ElseIf $Read2 = "1" Then
GUICtrlSetState($Radio6, $GUI_CHECKED)
GUICtrlSetState($Input2, $GUI_Disable)
Elseif $Read2 = "2" Then
GUICtrlSetState($Radio4, $GUI_CHECKED)
GUICtrlSetData($Input2, $Read5)
GUICtrlSetState($Input2, $GUI_Enable)
Else
GUICtrlSetState($Radio5, $GUI_CHECKED)
GUICtrlSetState($Input2, $GUI_Disable)
EndIf
If $Read3 = "0" Then
GUICtrlSetState($Radio7, $GUI_CHECKED)
GUICtrlSetState($Input3, $GUI_Disable)
ElseIf $Read3 = "1" Then
GUICtrlSetState($Radio8, $GUI_CHECKED)
GUICtrlSetState($Input3, $GUI_Disable)
Elseif $Read3 = "2" Then
GUICtrlSetState($Radio9, $GUI_CHECKED)
GUICtrlSetData($Input3, $Read6)
GUICtrlSetState($Input3, $GUI_Enable)
Else
GUICtrlSetState($Radio1, $GUI_CHECKED)
GUICtrlSetState($Input3, $GUI_Disable)
EndIf
GUISetState(@Sw_Show, $Form1)
EndSwitch
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_hide)
Case $Button2
$folder = FileSelectFolder("Ordner wählen", "", 1)
GUICtrlSetData($Input4, $folder)
Case $Button1
If GUICtrlRead($Input5) = "" Then
Msgbox(0, "Error", "Bitte tragen sie einen Namen ein!")
Else
Iniwrite("Data.ini", "Speichern", "Name", GUICtrlRead($Input5))
EndIf
If GUICtrlRead($Input4) = "" Then
Msgbox(0, "Error", "Bitte geben sie einen Speicherort an!")
Else
IniWrite("Data.ini", "Speichern", "Ordner", GUICtrlRead($Input4))
EndIf
If GUICtrlRead($Radio1) = 1 Then
IniWrite("Data.ini", "Oben Mitte", "Option", "0")
Elseif GUICtrlRead($Radio2) = 1 Then
IniWrite("Data.ini", "Oben Mitte", "Option", "1")
Else
IniWrite("Data.ini", "Oben Mitte", "Option", "2")
IniWrite("Data.ini", "Oben Mitte", "Text", GUICtrlRead($Input1))
EndIf
If GUICtrlRead($Radio5) = 1 Then
IniWrite("Data.ini", "Rechts Unten", "Option", "0")
Elseif GUICtrlRead($Radio6) = 1 Then
IniWrite("Data.ini", "Rechts Unten", "Option", "1")
Else
IniWrite("Data.ini", "Rechts Unten", "Option", "2")
IniWrite("Data.ini", "Rechts Unten", "Text", GUICtrlRead($Input2))
EndIf
If GUICtrlRead($Radio7) = 1 Then
IniWrite("Data.ini", "Links Unten", "Option", "0")
Elseif GUICtrlRead($Radio8) = 1 Then
IniWrite("Data.ini", "Links Unten", "Option", "1")
Else
IniWrite("Data.ini", "Links Unten", "Option", "2")
IniWrite("Data.ini", "Links Unten", "Text", GUICtrlRead($Input3))
EndIf
GUISetState(@SW_hide, $Form1)
Case $Radio3
GUICtrlSetState($Input1, $GUI_Enable)
Case $Radio4
GUICtrlSetState($Input2, $GUI_Enable)
Case $Radio9
GUICtrlSetState($Input3, $GUI_Enable)
Case $Radio2
GUICtrlSetState($Input1, $GUI_Disable)
Case $Radio1
GUICtrlSetState($Input1, $GUI_Disable)
Case $Radio6
GUICtrlSetState($Input2, $GUI_Disable)
Case $Radio5
GUICtrlSetState($Input2, $GUI_Disable)
Case $Radio8
GUICtrlSetState($Input3, $GUI_Disable)
Case $Radio7
GUICtrlSetState($Input3, $GUI_Disable)
Case $Button3
$color = _ChooseColor(2, 0xFF0000, 2, $Form1)
$Stringtrimcolor = StringTrimLeft($color, 2)
Iniwrite("Data.ini", "Zeichnen", "Farbe", $Stringtrimcolor)
GUICtrlSetBkColor($Label4, $color)
EndSwitch
WEnd
Func _Main()
$Read1 = Iniread("Data.ini", "Oben Mitte", "Option", "0")
$Read2 = Iniread("Data.ini", "Rechts Unten", "Option", "0")
$Read3 = Iniread("Data.ini", "Links Unten", "Option", "0")
$Read4 = Iniread("Data.ini", "Oben Mitte", "Text", "")
$Read5 = Iniread("Data.ini", "Rechts Unten", "Text", "")
$Read6 = Iniread("Data.ini", "Links Unten", "Text", "")
$Read7 = IniRead("Data.ini", "Speichern", "Ordner", @desktopdir)
$Read8 = IniRead("Data.ini", "Speichern", "Name", "Bild")
$Read9 = IniRead("Data.ini", "Zeichnen", "Farbe", "FF0000")
$String = _StringToHex("0x"& $Read9)
$String1 = _StringInsert($String, "6666", 4)
$combi = "0xFF"&$Read9
;~ Msgbox(0,"", $combi)
$s = 1
$save = $Read7 & "\" & $Read8 & $s & ".jpg"
While 2
If FileExists($save) Then
$s = $s + 1
$save = $Read7 & "\" & $Read8 & $s & ".jpg"
Else
ExitLoop
EndIf
WEnd
; Draw a string
_GDIPlus_Startup ()
$hBitmap1 = _ScreenCapture_Capture('')
$hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap1)
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage1)
$hBrush = _GDIPlus_BrushCreateSolid ($combi)
$hFormat = _GDIPlus_StringFormatCreate ()
$hFamily = _GDIPlus_FontFamilyCreate ("Arial")
$hFont = _GDIPlus_FontCreate ($hFamily, 20, 1)
$hStringFormat = _GDIPlus_StringFormatCreate()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If $Read1 = "0" Then
$sString1 = ""
ElseIf $Read1 = "1" Then
$sString1 = _Now()
Else
$sString1 = $Read4
Endif
$tLayout = _GDIPlus_RectFCreate (@DesktopWidth / 2, 25, 0, 0)
_GDIPlus_StringFormatSetAlign($hStringFormat, 1)
$aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic, $sString1, $hFont, $tLayout, $hStringFormat)
_GDIPlus_GraphicsDrawStringEx ($hGraphic, $sString1, $hFont, $aInfo[0], $hStringFormat, $hBrush)
If $Read2 = "0" Then
$sString2 = ""
ElseIf $Read2 = "1" Then
$sString2 = _Now()
Else
$sString2 = $Read5
Endif
$tLayout = _GDIPlus_RectFCreate (@DesktopWidth - 50, @DesktopHeight - 50, 0, 0)
_GDIPlus_StringFormatSetAlign($hStringFormat, 2)
$aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic, $sString2, $hFont, $tLayout, $hStringFormat)
_GDIPlus_GraphicsDrawStringEx ($hGraphic, $sString2, $hFont, $aInfo[0], $hStringFormat, $hBrush)
If $Read3 = "0" Then
$sString3 = ""
ElseIf $Read3 = "1" Then
$sString3 = _Now()
Else
$sString3 = $Read6
Endif
$tLayout = _GDIPlus_RectFCreate (50, @DesktopHeight - 50, 0, 0)
_GDIPlus_StringFormatSetAlign($hStringFormat, 0)
$aInfo = _GDIPlus_GraphicsMeasureString ($hGraphic, $sString3, $hFont, $tLayout, $hStringFormat)
_GDIPlus_GraphicsDrawStringEx ($hGraphic, $sString3, $hFont, $aInfo[0], $hStringFormat, $hBrush)
_GDIPlus_ImageSaveToFile($hImage1, $save)
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_FontDispose ($hFont)
_GDIPlus_FontFamilyDispose ($hFamily)
_GDIPlus_StringFormatDispose ($hFormat)
_GDIPlus_BrushDispose ($hBrush)
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_ImageDispose($hImage1)
_WinAPI_DeleteObject($hBitmap1)
_GDIPlus_Shutdown ()
EndFunc ;==>_Main
autoit.de/wcf/attachment/7665/
Ach ja
Ein danke geht noch an Oscar und Cartan12