Beiträge von UEZ

**UEZ**

Schaue mal hier ein -> AutoIt Windows Screenshooter v1.01 Build 2010-12-16 Final

Wenn du links oben das Menu klickst und auf "About" geht, solltest du so was ähnliches sehen, was du machen willst

Gruß,
UEZ

**UEZ**

Das Beispiel von mir geht teilweise nur die Richtung, da es die Buchstaben aus der Bitmap liest und sie in die GUI schreibt (war eine Frage im engl. Forum).

Wenn ich Zeit habe, code ich was für dich.

Gruß,
UEZ

**UEZ**

Schaue mal hier: [ offen ] bunter Ladebalken auf einer Form mit GDI+

Vielleicht suchst du ja so was ähnliches!

Gruß,
UEZ

**UEZ**

Google ist dein Freund.

Gruß,
UEZ

**UEZ**

Auch von mir ein herzliches

Code

____  ____        _        _______    _______    ____  ____  
|_   ||   _|      / \      |_   __ \  |_   __ \  |_  _||_  _| 
  | |__| |       / _ \       | |__) |   | |__) |   \ \  / /   
  |  __  |      / ___ \      |  ___/    |  ___/     \ \/ /    
 _| |  | |_   _/ /   \ \_   _| |_      _| |_        _|  |_    
|____||____| |____| |____| |_____|    |_____|      |______| 
 ______     _____   _______      _________   ____  ____   ______          _        ____  ____  
|_   _ \   |_   _| |_   __ \    |  _   _  | |_   ||   _| |_   _ `.       / \      |_  _||_  _| 
  | |_) |    | |     | |__) |   |_/ | | \_|   | |__| |     | | `. \     / _ \       \ \  / /   
  |  __'.    | |     |  __ /        | |       |  __  |     | |  | |    / ___ \       \ \/ /    
 _| |__) |  _| |_   _| |  \ \_     _| |_     _| |  | |_   _| |_.' /  _/ /   \ \_     _|  |_    
|_______/  |_____| |____| |___|   |_____|   |____||____| |______.'  |____| |____|   |______|

Alles anzeigen

Gruß,

Code

_ _  ___  ___ 
| | || __||_ / 
| U || _|  /(_ 
|___||___|/___|

**UEZ**

Hier ein Beispiel, was ein wenig in die Richtung zeigt:

Spoiler anzeigen

[autoit]

;coded by UEZ 2010-12-09
#include <EditConstants.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$width = 608
$heigth = 160
$hGUI = GUICreate("Bitmap Font to Screen by UEZ 2010", $width, $heigth, -1, -1)
$bgc = "B0B0F0"
GUISetBkColor("0x" & $bgc, $hGUI)
$Input = GUICtrlCreateInput("", 80, 8, 513, 21)
$Label = GUICtrlCreateLabel("Enter any text:", 8, 8, 72, 17, $SS_CENTERIMAGE)
GUISetState(@SW_SHOW)
_GDIPlus_Startup()
$factor1 = 0.666667
$factor2 = 1 - $factor1
$gfx_w = $width
$gfx_h = $heigth * $factor1
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($gfx_w, $gfx_h, $hGraphic)
$hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
If Not FileExists("fontjs.png") Then Extract_Bitmap()
$hImage = _GDIPlus_ImageLoadFromFile("fontjs.png")
_GDIPlus_GraphicsSetInterpolationMode($hBackbuffer, 5)
_GDIPlus_GraphicsClear($hBackbuffer, 0xFFB0B0F0)

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_COMMAND, 'Print_Bitmap_Font')

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_ImageDispose($hImage)
_GDIPlus_GraphicsDispose($hBackbuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUIDelete($hGUI)
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Print_Bitmap_Font($hWnd, $Msg, $wParam, $lParam)
Local $fw = 16, $fh = 16, $size = 1, $dx = 9.5 * $size
Local $chk

[/autoit] [autoit][/autoit] [autoit]

$chk = BitAND($wParam, 0x0000FFFF)
Switch $chk
Case $Input
$inp = GUICtrlRead($Input)
$inp_len = StringLen($inp)
If $inp_len < Ceiling($width / $dx - 2) Then
$aInp = StringSplit($inp, "", 2)
_GDIPlus_GraphicsClear($hBackbuffer, "0xFF" & $bgc)
For $i = 0 To $inp_len - 1
$x = Mod(Asc($aInp[$i])-32, 32)
$y = Floor((Asc($aInp[$i])-32) / 32)
_GDIPlus_GraphicsDrawImageRectRect($hBackbuffer, $hImage, $x * $fw, $y * $fh, $fw -1, $fh -1, $fw + $i * $dx, $gfx_h / 2 - ($fh * $size / 2), $fw * $size, $fh * $size)
Next
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, $heigth * $factor2, $gfx_w, $gfx_h)
EndIf
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

Return "GUI_RUNDEFMSG"
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode)
Local $aResult = DllCall($ghGDIPDll, "uint", "GdipSetInterpolationMode", "hwnd", $hGraphics, "int", $iInterpolationMode)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0] = 0
EndFunc ;==>_GDIPlus_GraphicsSetInterpolationMode

[/autoit] [autoit][/autoit] [autoit]

Func Extract_Bitmap()
Local _
$Bitmap_Font = '0x89504E470D0A1A0A0000000D49484452000002000000008002030000000039399800000009504C5445FE00FE000000FEFEFE8676FDBE0000000174524E530040E6D866000009EA49444154785EED5A'
$Bitmap_Font &= 'DD6AE4B81296A1E56B0FD80DADA7D1C24CAE3DE0043AD776407E1A2DCC0C24D7DDE1789EF2A8FE285BEAD39BD93DE7ECC5BAE08BD4FAFD5492AACA760C480BE8D39FCF09DE18EB7D0295579896221D6D'
$Bitmap_Font &= '9F6020259826A543EA97F2DDA0E5B7C47ACE04C025757A4D85D118F77B342E5279CDA9F10C15AC7097040F29C18C295D52BF949F172DD759997B828B1901FB4A8DC3BB87DF58EE3CE1D3EF89602C0984'
$Bitmap_Font &= '84D9434AA860C281D0052D6F0DC13C7BEA9A92E99211703FBD09AF8670F5665C11987EF88C004D16028DD906989056EEFA54DE4B3DC310EC35B57B34E6F82D2D4A09D019A8A7944F156E4AF8114D6374'
$Bitmap_Font &= '1B4E8954F79DDA778F5B02CE439E263FB1CAE7848AF34A80C8CD69A11590D52D20398ED4C1BE79DC06A3046070EC0822691D8500E5AB806A15D56BFDA25B30C9028E1EFA91B494E0A13942C797983A42'
$Bitmap_Font &= '6DA98196076833028036D0186D46C00625E07AE84F64ADC934704AEA7F09297D4F049ED704E40C485B39A04A200C94EF56FB2EF5F6B23E03A8413C03CEE704226DC1387BE3120993DD829200EF77942B'
$Bitmap_Font &= '27FB9E5D4FEE17E816A0068237E5161C602F7B639A2E31FDEA37040C23481F5911A8D4ABD1313DA49981F2DA5EED00664BA9B2DF648854C68D19F83519CD2F4B698A9B8D25FEA068DF5276D9A57A64DF'
$Bitmap_Font &= '9D6039ED06824D686DCA7BAA6B5BB168DE3415D4637B4DD1CA79E8436DBF7A4A5B1E130F34A5A6976BF6D3939D17270258082E21386FE69839952A9AB1F6500FED35457F11A10FB57D8F94061E13AF34'
$Bitmap_Font &= 'A59578C2D36334B50C7EE674603C791CCC7936A7171EE0219A900884679C0853E9DF5DFD4D021DA46CC88EE0DC1626302DD138F1D9075CB112A8707071B7BA82B79848AC269274C0761B026296AB05FA'
$Bitmap_Font &= 'AAE774EC6BCCCB2B11987175D459B62074E8389400AFE0250DFCF2A324305F9480A3008726C358614B20C01F2520FB9B696006359704A61FD14CEF488088437A85B370930042634C425BA9066095DB2D'
$Bitmap_Font &= '304A06906FC1F810C163527DCFED30102908D0EA239357022AD34F5C65760899C0B312E8F01052DD5827028EFB193D84931078E695F378759431A13E23707A44C6C5350C065720D71021D769ACF91A4A'
$Bitmap_Font &= 'BB45575DD1B5CC08F0982501BA0EADCD0D11FBEB47AEF30035284DC58648DA5DB19DC6030379D1EA407D2A8E1782A7BD3D46096EA1D160FEBACCFE63CD2210E0D490D1FAEF48F7C166C0B3C55435B0CB'
$Bitmap_Font &= '2E6D964AA6EAF5A7BE2700DC177BAF72D078A008AD4356505FE4A79850C9DF1777E7608B479CFB8C80E5C7690B08943AC80F54DE4A9B96DA775FD6868B0D52AFFDDA368F88A85DFD0DFBAB211AC0141B'
$Bitmap_Font &= '35C10EB0AC7E2FE2A6D99B058907C4746BBBA0BFA15D1911A109566DDA8ACCB3392458E9D06B67A779662D11910EACE0895103B70974171EC39026DC8337D359F66D9189D4E1382F0329EB391604143D'
$Bitmap_Font &= 'D66B3F8D880A975C2DF4B43D9E0C8A7690FCE39F20805B29FD302F0408FE2304447DE7DB04C2E53E81EE225BC0933E7B8D07FAED168CC1ACB7A03C84CE433E2310B604F4106AB85D6B3CB022501EC2A6'
$Bitmap_Font &= 'C5AD26D1070BCCEBB37DD0879163D43C5F2FBDBE410D4CB58A07ACA53ECEDFB986F7C45DFED8E507FE73DF386586E8A35ED8F67FECF25BFA73576C6E8AB56A975DB2A8B85B957B8245783990C6DE0824'
$Bitmap_Font &= '5B418FD8886DD2B09F6E7F333834F45C70EBAEE9331D7F3F902BE96E84D24170416CC48D69D8170FFD0B398DD0E0C98B4130D5552B8FDF003CE83B69A042B34DED152501BB52D20BBE678ED81F166C3B'
$Bitmap_Font &= 'EDD782DAE6AB9AC44A5962D9FC2F526978658FE69100D62928A6187945136B4DE4934702D81F173C6BFF801E6C50A7502F850650DCB4725073C4F60A8A291ADED3C693DDEF067DF0387D8F26F4E247B4'
$Bitmap_Font &= 'BFBBB003194FA506EAA8042C4640E2AED18DAE918BBE67E2F372F05E63855446FD9880FB8D7EB44CA0EDC9D9D451B686BE1FB8E55708A806583456B86AFF3AF2219CCE99CF7F8F1B0D9C406D4162049F'
$Bitmap_Font &= '6F41212E96659D68F02A5BC0046A3A101AF7290100CA387B3E84780DF3435888F565D91CF910BEC921E4F12BBE12239B8129E216882102C1EF07720DED63710D3F249DE76BF845FB554A942A3B48BDF9'
$Bitmap_Font &= '07CA2EBBB4267B27D0EA1371836FD2CABB5DB1A5B372CD18F66650AAFD2D42DF396868EDF59D803E6A915DA897D2BAD56CEBE59BE2CC7032D1B00ECBB5BFFB8D10AAECE3B505677136A6392881702602'
$Bitmap_Font &= 'A7278FDF0BAACAB060196800EBAB842323B006DDB28E73C8C2364DCA3F78844B1002A61567F159DC241318680BA66B24539C3A89BC5CB1B710D00FD8F284FDAA041C1318475824219CB22DC0A0A36722'
$Bitmap_Font &= '17D9027DA31EA09CBFFB767D2A3B471E9CBEAA072F8F5C4AA0CD0840B99B04D916846FE4464F237841590913F80E1AE0817F426CA01AB086CBF0F97F4B20AC1C91E387D5D31B2124389F11703D119897'
$Bitmap_Font &= '8C00C674F4BB7BF2AA0114D240E7138C12704A00EBAC2702F5EC31BE38A63434D9168401D40E1AD86EC184ABC501C8279B2D814AB22B0216B7A028270D38D6C288C53AD9BC48A040655DD0130F523F10'
$Bitmap_Font &= '012D530DA8D038D56BFE359E0EA14D57F7103CA64E6F015DC36EA06B58C9B7A1B00E56F91A56DB32FD9F1295302881A356E13534A0C539429A1937F9916945AC9E4A59D63DE67D954028CCA21C8A0F98'
$Bitmap_Font &= '67DBFF05D3FE59F37765975D2AFE965F01D2C1391C38FFE8F9759DD61F1AF5E39623683B503F6B8A7148AAF51C5CDEAF0E791DF96322E0D598D389F360282ED93FAA8DF20445E513A40BF573BE1807C5'
$Bitmap_Font &= '3EF9D51C545EA9B3D32F990ECCE48556743AC36F6F025A45ADEF06984827EF3C3B98ABB6D371F42D6C97EA8FDFA9AEB56CEAC9B7B0CAF40D29B0041081034CAA9861302F602FF7144D78F2D85F411337'
$Bitmap_Font &= '0D7D471674DDE6533FA432618990460F68D715014844850312EF91229C54AFC089D1F607F9CAAE60D7CEAF735CB88D79F11C1509E43B428627FE6786E70CE0F1C0A9BDDD2110EE10088043A18192C083'
$Bitmap_Font &= 'FC3343891A34F47CA33CCA169027BB89808770A381DB0440D5B3AE5C411A28CB81801E42292C31478E1132C43568BF47E7212D308E9A5748BCC167A0B5FF019DE71821835F810D516321CD41B7602ACB'
$Bitmap_Font &= 'F52368FF673E42FE3FFF85CF9AFFBDECB28BFA71CF7EBCC1BC48190F5099C6030DA11CE7D61C502EF100E5D58F47F6E323E545CA7860EB92DD4828C7E1851CD675502EF100E6A1502AD88FF794B75F28'
$Bitmap_Font &= 'AF7E9E7E3B0F9D251EA0BA97988FA37DED59DEBC535DDB6A3CD05258B485BB30DE3CA45A3750B935FA95D4799AACEB6F8D4304D4F3E18492176724132A6C2074E0E1D684B883F3DB6DB03C98CB103882'
$Bitmap_Font &= '0AE12E7842853A0DF08866DB785E7202D456DB94ED4359AF8BB99AC25369C35459464439817BABE3302EDC2420695E9911E8B378E0FC6B04EA78A71C53D54009FA4690A124A0ABC92187F0763C3073BD'
$Bitmap_Font &= 'F8E8125D42CC4FB7DE022BA0EB54B663C333F5F9D8BC881ED2BF291E502DFE2DF1C0568BBBECB2CB2EBBECB2CB2EBBECF26FA1A2D2830F13B5A20000000049454E44AE426082'
$hFile = FileOpen("fontjs.png", 18)
FileWrite($hFile, $Bitmap_Font)
FileClose($hFile)
EndFunc

[/autoit]

Gruß,
UEZ

**UEZ**

Herzlichen Glückwunsch und alles Gute zum Geburtstag!

Gruß,
UEZ

**UEZ**

Punkt 1): scheint immer noch buggy zu sein!

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Punkt 3): füge doch ein Opt("MustDeclareVars", 1) ein

Gruß,
UEZ

**UEZ**

Zitat von andygo

nabend,

bisher weder kritik noch bug,...

Tja, das Leben ist manch mal hart zu einem.

Zitat von andygo

also das mit der 30*30 minigui damit der mauszeiger zum markieren nichts
in aktiven fenstern anklicken kann find ich sehr gelungen, auch das sie bis zum markierungsklick "mitwandert". ich hatte das bisher so gelöst das ich eine riesengui über die kompletten bildschirme gelegt hab.

das würd ich im eigenen script so übernehmen wenns genehm ist.

Na klar, kannst aus dem Code alles benutzen, was du willst!

Zitat von andygo

zweite frage: hat deine "interne" bilderzeugung der "greifenden hand" vorteile gegenüber einem fileinclude? oder aus welchem grund diese methode?

Bei Fileinstall werden temp. Dateien angelegt. So wird das Bild direkt vom Speicher ausgelesen ohne irgend welche Dateien auf der Platte zu erzeugen! Der Quellcode wird zwar größer, aber egal.

Danke für dein Feedback!

Gruß,
UEZ

**UEZ**

Da schließe ich mich an und wünsche dir alles Gute und viel Gesundheit zum Geburtstag!

Gruß,
UEZ

**UEZ**

Habe 3 Fehler auf die Schnelle entdeckt!

1) Ansicht -> Werkzeugleiste arbeitet genau anders rum
2) Hilfe -> Über sieht so aus:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

3) Irgendwann kommt eine Fehlermeldung: Line 6467 (c:\...\h2au3.exe), Error: Variable used without being declared

Getestet mit AutoIt3.3.6.1 auf Win7 x64 EE

Gruß,
UEZ

**UEZ**

Probiere es mal hier mit:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Include <WinAPI.au3>
#include <GDIpProgress.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $hGUI, $hImage, $hGraphic, $hImage
Global Const $SC_DRAGMOVE = 0xF012
Global $iImagePfad = @ScriptDir & "\", $i
_GDIPlus_StartUp()
; Load PNG image
$hImage = _GDIPlus_ImageLoadFromFile($iImagePfad & "bg.png")
$iWidth = _GDIPlus_ImageGetWidth($hImage)
$iHeight = _GDIPlus_ImageGetHeight($hImage)
ConsoleWrite($iWidth & " / " & $iHeight)
; Create GUI
$hGUI = GUICreate("Show PNG", $iWidth, $iHeight, 0,0, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST)
$hGUI_child = GUICreate("", $iWidth, $iHeight, 0, 0, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST + $WS_EX_MDICHILD, $hGUI)
GUISetBkColor(0, $hGUI_child)
GUISetState(@SW_SHOW, $hGUI)
GUISetState(@SW_SHOW, $hGUI_child)
SetTransparentBitmap($hGUI, $hImage)
_WinAPI_SetLayeredWindowAttributes($hGUI_child, 0x00, 0xff)

[/autoit] [autoit][/autoit] [autoit]

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI_child)
_GDIPlus_GraphicsFillEllipse($hGraphic, 0, 0, 100, 100)
$Progress1 = _ProgressCreate(20, $iHeight-35, $iWidth-40, 27)
_ProgressSetColors($Progress1, 0x09B8F8, 0x09B8F8, 0xFFFFFF, 0xFFFFFF)
_ProgressSetFont($Progress1, "Courier New", 14)

[/autoit] [autoit][/autoit] [autoit]

;~ _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)

[/autoit] [autoit][/autoit] [autoit]

#cs
$Input1 = GUICtrlCreateInput("Input1", 156, 132, 121, 21)
$Input2 = GUICtrlCreateInput("Input2", 156, 156, 121, 21)
$Input3 = GUICtrlCreateInput("Input3", 156, 180, 121, 21)
$Slider1 = GUICtrlCreateSlider(128, 212, 150, 45)
$Button1 = GUICtrlCreateButton("Start", 208, 276, 75, 25)
#ce

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_LBUTTONDOWN, "_WM_LBUTTONDOWN")
;~ GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
AdlibRegister("_IncProgress",1000)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _IncProgress()
if $i < 100 Then $i+=1
_ProgressSet($Progress1, $i)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

; Clean up resources
_GDIPlus_GraphicsDispose($hGraphic)
;~ _GDIPlus_ImageDispose($hImage)
_ProgressDelete($Progress1)
_GDIPlus_ShutDown()
Exit

[/autoit] [autoit][/autoit] [autoit]

; Draw PNG image
Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
_WinAPI_RedrawWindow($hGUI, 0, 0, 1)
Return $GUI_RUNDEFMSG
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _WM_LBUTTONDOWN($hWnd, $iMsg, $wParam, $lParam)
_SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, 0)
EndFunc ;==>_WM_LBUTTONDOWN

[/autoit] [autoit][/autoit] [autoit]

Func SetTransparentBitmap($hGUI, $hImage, $iOpacity = 0xFF)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGUI, 0, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
EndFunc ;==>SetBitmap

[/autoit]

Gruß,
UEZ

**UEZ**

Ich würde vorschlagen, dass du eine komplette Liste lieferst, da ansonsten die Hilfe sehr schwer wird.

Wenn da vertrauliche Daten stehen, dann die durch irgend etwas ersetzen.

Gruß,
UEZ

**UEZ**

Warum nimmst du nicht SQLite dafür?

Gruß,
UEZ

**UEZ** · [UDF] GUICtrlPic - Update am 27.12.2010 **UEZ** 6. Dezember 2010 um 15:11

Tolle Arbeit!

Gruß,
UEZ

**UEZ**

Sieht klasse aus

Da du ja TC kennst, kannst ja ein paar Ideen implementieren, wie z.B. das Verändern der Spaltengröße in beiden Fenstern gleichzeitig, Dateierweiterungen direkt an den Namen hängen, Tabs, etc.

Gruß,
UEZ

**UEZ**

AutoIt Windows Screenshooter Feature List:

Erstellt ein Screenshot von

jedem sichtbaren Fenster auch als AVI Film (ohne Audio)
einer Region auf dem Desktop inkl. Freihand Selektierung
von GUI Controls und GUI Menüs
von Web Seiten (läuft nur, wenn Aero aktiviert ist!)
etc.

Zusätzliche Features:

Vorschau des Bildes inkl. Zoom Optionen
kopiert das Bild in den Zwischenspeicher
speichert in verschieden Formaten inkl. PDF!
Aufnahme eines Bereiches alle x Sekunden über eine Zeit von y Sekunden
Erstellen einer GIF Animation von den gespeicherten Bildern (verfügbar nur für Vista oder höhere Betriebssysteme)
fügt ein Zeitstempel in das gespeicherte Bild ein
simple Bildbearbeitung (Umwandlung in Graustufen, Schwarz/Weiß, Negativ, Rotation um 90°)
öffnet das Standard Mail Programm, damit das Bild dort eingefügt werden kann
Drucken des Bildes
Multimonitor fähig
Simples Lineal zum Messen eines Bereiches
Simples Bildbearbeitungsprogramm
Wasserzeichen hinzufügen
frei von zusätzlichen DLLs oder Exe Dateien (pur WinAPI)
keine Installation nötig
Mulit Sprachen Option (Eng, Deu, Tur, Fra, Rus)

Einige Funktionen sind unter WinXP und Win Server 2003 nur eingeschränkt oder gar nicht verfügbar!

Haupt GUI:

Screenshooter.jpg

About GUI:

Screenshooter_About.jpg

Image Editor:

Screenshooter_ImageEditor.jpg

Watermark:

Watermark.jpg

Watermark als separates Tools einfach hier klicken: Watermark Image

Download Source Code: <klick mich an>

7-Zip Archiv bitte mit neuster 7-Zip Version öffen, da Archiv mit LZMA2 Komprimierungsmethode komprimiert wurde!
Ferner läuft der Code nur ab Version 3.3.12.0!

Tastatur Befehle:

Haupt Fenster:
Numpad 8: Vorschaufenster nach oben verschieben
Numpad 2: Vorschaufenster nach unten verschieben
Numpad 4: Vorschaufenster nach links verschieben
Numpad 6: Vorschaufenster nach rechts verschieben
Numpad +: Vorschaufenster vergrößern (oder Mausrad zurück)
Numpad -: Vorschaufenster verkleinern (oder Mausrad vor)

F1: gleiche Region nochmals fotografieren
F5: Windows Namenliste aktualisieren
PRINTSCREEN: kompletten Desktop fotografieren
ALT+PRINTSCR: aktives Fenster fotografieren
F10: Bild Veränderung wieder zurücknehmen
F11: kompletten Desktop fotografieren inkl. Mauszeiger
F12: kompletten Desktop fotografieren
Strg+Alt+F9 "Grab Screen" Modus starten
Strg+Alt+F12: aktives Fenster mit alternativ Funktion fotografieren (beta)!
Strg+r: Lineal aufrufen
Strg+s: Bild speichern
Strg+x: Programm beenden
Strg+w: Aufruf des Web Grab Eingabefeldes
Strg+i: Aufruf des Image Editors
Strg+m: Aufruf des Watermark Editors
Strg+z: Rückgängig machen der letzten Operation

Bildbearbeitungsfenster:
s: Speichern
c: Kopieren
n: Senden an Standard Email Programm
h: Markierer
p: Stift
r: Rechteck
e: Kreis
a: Pfeil
o: Farbe auswählen
t: Texteingabe
g: Text konfigurieren
Strg+z : Rückgängig machen der letzten Operation

Wasserzeichen Editor:
Strg+z: Rückgängig machen der letzten Operation

Oder alternativ zum Verschieben des Vorschaufensters die Maus benutzen.
Nur für Betriebssysteme mit eingeschaltetem Aero: Doppelklick mit der rechten Maustaste auf Listen Element für alternativ Screenshot (beta)!

Wenn "Grab Screen" geklickt wurde, kann man in den Control Modus wechsel, in dem man die Strg Taste gedrückt hält. Controls unter der Maus werden mit einem roten Rahmen angezeigt. Strg+Shift nimmt den Screenshot vom Control. Ein Klick auf die rechte Maustaste simuliert den Klick auf die linke Maustaste, damit Menüs aufgerufen werden können. Oder nur die Shift Taste gedrückt halten und Freihand markieren. Wenn die Shift Taste losgelassen wird, dann wird nur der markierte Bereich fotografiert.

Nur die kompilierte Exe herunterladen: MediaFire.com, 4shared.com oder Softpedia.com

Kritik? Bugs? Kommentare?

Gruß,
UEZ

You are not allowed to sell this code or just parts of it in a commercial project or modify it and distribute it with a different name!
Distributing copies of the program in compiled format (exe) must be free of any fee!

Historie: siehe hier

**UEZ**

Habe mal ein Test durchgeführt und es kommt zum Hardcrash (Ausnahmefehler) -> C0000005 (!>20:35:34 AutoIT3.exe ended.rc:-1073741819)!

Wenn ich die Mona Lisa (dein Lieblingsbild) lade und die linke obere Ecke in Richtung Mitte bewege, stürzt der Code ab (wenn ein Dreick entsteht)!

Gruß,
UEZ

**UEZ**

Code

o       
   ` /_\ '    
  - (o o) -   
ooO--(_)--Ooo-
        ,--,                 ,-.----.    ,-.----.                  
      ,--.'|    ,---,        \    /  \   \    /  \                 
   ,--,  | :   '  .' \       |   :    \  |   :    \          ,---, 
,---.'|  : '  /  ;    '.     |   |  .\ : |   |  .\ :        /_ ./| 
|   | : _' | :  :       \    .   :  |: | .   :  |: |  ,---, |  ' : 
:   : |.'  | :  |   /\   \   |   |   \ : |   |   \ : /___/ \.  : | 
|   ' '  ; : |  :  ' ;.   :  |   : .   / |   : .   /  .  \  \ ,' ' 
'   |  .'. | |  |  ;/  \   \ ;   | |`-'  ;   | |`-'    \  ;  `  ,' 
|   | :  | ' '  :  | \  \ ,' |   | ;     |   | ;        \  \    '  
'   : |  : ; |  |  '  '--'   :   ' |     :   ' |         '  \   |  
|   | '  ,/  |  :  :         :   : :     :   : :          \  ;  ;  
;   : ;--'   |  | ,'         |   | :     |   | :           :  \  \ 
|   ,/       `--''           `---'.|     `---'.|            \  ' ; 
'---'                          `---`       `---`             `--`  
                                         ,----,                                                          
                                       ,/   .`|         ,--,                                             
    ,---,.     ,---, ,-.----.        ,`   .'  :       ,--.'|     ,---,        ,---,                      
  ,'  .'  \ ,`--.' | \    /  \     ;    ;     /    ,--,  | :   .'  .' `\     '  .' \               ,---, 
,---.' .' | |   :  : ;   :    \  .'___,/    ,'  ,---.'|  : ' ,---.'     \   /  ;    '.            /_ ./| 
|   |  |: | :   |  ' |   | .\ :  |    :     |   |   | : _' | |   |  .`\  | :  :       \     ,---, |  ' : 
:   :  :  / |   :  | .   : |: |  ;    |.';  ;   :   : |.'  | :   : |  '  | :  |   /\   \   /___/ \.  : | 
:   |    ;  '   '  ; |   |  \ :  `----'  |  |   |   ' '  ; : |   ' '  ;  : |  :  ' ;.   :   .  \  \ ,' ' 
|   :     \ |   |  | |   : .  /      '   :  ;   '   |  .'. | '   | ;  .  | |  |  ;/  \   \   \  ;  `  ,' 
|   |   . | '   :  ; ;   | |  \      |   |  '   |   | :  | ' |   | :  |  ' '  :  | \  \ ,'    \  \    '  
'   :  '; | |   |  ' |   | ;\  \     '   :  |   '   : |  : ; '   : | /  ;  |  |  '  '--'       '  \   |  
|   |  | ;  '   :  | :   ' | \.'     ;   |.'    |   | '  ,/  |   | '` ,/   |  :  :              \  ;  ;  
|   :   /   ;   |.'  :   : :-'       '---'      ;   : ;--'   ;   :  .'     |  | ,'               :  \  \ 
|   | ,'    '---'    |   |.'                    |   ,/       |   ,.'       `--''                  \  ' ; 
`----'               `---'                      '---'        '---'                                 `--`

Alles anzeigen

und Alles Gute!

Gruß,

Code

___    _      .-''-.     ____..--' 
.'   |  | |   .'_ _   \   |        | 
|   .'  | |  / ( ` )   '  |   .-'  ' 
.'  '_  | | . (_ o _)  |  |.-'.'   / 
'   ( \.-.| |  (_,_)___|     /   _/  
' (`. _` /| '  \   .---.   .'._( )_  
| (_ (_) _)  \  `-'    / .'  (_'o._) 
 \ /  . \ /   \       /  |    (_,_)| 
  ``-'`-''     `'-..-'   |_________|

**UEZ**

Bei mir funzt dein Code nicht! Woran das liegt, habe ich noch nicht erforscht.

Dein English Font sieht bei mir mit Write Text on Bitmap.au3 so aus:
Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Write Text on Bitmap.au3 habe ich noch ein bissl modifiziert. U.a. kann man jetzt auch direkt x und y angeben.

Gruß,
UEZ

Beiträge von UEZ

GDI+ String ändern

GDI+ String ändern

Gdi+ & $Gui_Ws_Ex_Parentdrag

Schach-KI

Happy Birthday jonathan

_GDIPlus_GraphicsDrawString Backspace

Sprenger120 wird 15

h2au3

AutoIt Windows Screenshooter v1.84 Build 2019-08-18

Greenhorn hat Geburtstag.

h2au3

bunter Ladebalken auf einer Form mit GDI+

String Verarbeitung

String Verarbeitung

[UDF] GUICtrlPic - Update am 27.12.2010

FileCommander

AutoIt Windows Screenshooter v1.84 Build 2019-08-18

GDI+ Bitmap "trapezoid" zeichnen / DrawImage_4Points

Happy Birthday Pee und Funkey

Per GDI+ Text auf Bild schreiben