WIP:Screenmaker

geRRus

Guten Tag
da es zur Zeit im Forum nciht viel los ist, wollte ich das ändern:)

Ich sitze zur Zeit an einem einfachen Programm das mir Screenshots mach.Eigentlich habe ich vor das Programm so zuschreiben das es nach dem "Screenshotmachen" ,den Screenshot direckt auf irgenteinen Pichoster lädt und ein Link ind die Zwischenablage kopiert.
Soweit so gut.
Nur leider habe ich auch die ersten Probleme.

Problem Nambar wan: siehe Punkt 1 im Code

Also ich muss ehrlich sagen das ich als Hilfe den Code von Herrn pastl genommen habe. (was er mir hoffentlich verzeiht )
Das Problem ist das es beim Kompliemieren zum Fehler kommt, "Unknown function name".Habe ich vergessen was zu includen oder woran liegt das?

Problem Number tu: Na ja kein wirkliches Problem zu mindestens noch nicht:).Es ist eigentlich eine Schwierigkeit. Ich mit der Funktion Fenster() quasi nur von einem Fenster Screen machen. Die Schwierigkeit liegt darin das ich das ohne ein Hotkey realisieren will .Das heißt ich drücken den Button Fenster und danach will ich das Fenster Auswählen von dem ich ein Screen machen will.
Kann mir jemand evtl. mal ein kurzes Beispiel Code Posten?

Naja soweit so gut.
Wie gesagt ist WIP. Deswegen werde ich hier meine Erfolge posten.(falls es welche gibt:) )

Code

#include <GUIConstants.au3>
#Include <Constants.au3>




; == GUI generated with Koda ==
$Form1 = GUICreate("ScreenMaker", 283, 276, 234, 276)
$FullscreenB = GUICtrlCreateButton("Volles Bildschirm", 8, 16, 161, 41)
$FensterB = GUICtrlCreateButton("Fenster", 8, 72, 161, 41)
$AuswahlB = GUICtrlCreateButton("Ausschnitt", 8, 128, 161, 41)
GUICtrlCreateLabel("Andrej D.", 180, 112, 48, 17)
$Quali = GUICtrlCreateInput("100", 184, 24, 89, 21, -1, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE

			ExitLoop

		Case $msg = $FullscreenB
			Fullscreen()
		Case $msg = $FensterB
			Fenster()
		Case $msg=$AuswahlB
			Auswahl()
	EndSelect
WEnd
Exit


Func Fullscreen()
	GUISetState(@SW_MINIMIZE)
	DllCall("captdll.dll", "int", "CaptureScreen", "str", "screenshot.jpg", "int", 100)
	GUISetState(@SW_RESTORE)
EndFunc   ;==>Fullscreen


Func Fenster()
	Local $Cwin1 = WinGetHandle("")
	Local $Cwin2 = WinGetPos($Cwin1)
	DllCall("captdll.dll", "int", "CaptureRegion", "str", "screenshotfenster.jpg", "int", $Cwin2[0], "int", $Cwin2[1], "int", $Cwin2[2], "int", $Cwin2[3], "int", 100)

EndFunc   ;==>Fenster






Func Auswahl()
	Local $UserDLL = DllOpen("user32.dll")
	While 1
		If _IsPressed ("01", $UserDLL) Then;<------Punkt 1
			Local $Start_Pos = MouseGetPos()
			draw_label ()
			ExitLoop
		EndIf
	WEnd

	If Not _IsPressed ("01", $UserDLL) Then;<------Punkt 1
		Local $End_Pos = MouseGetPos()

		If $End_Pos[0] < $Start_Pos[0] And $End_Pos[1] > $Start_Pos[1] Then
			$left = $End_Pos[0]
			$top = $Start_Pos[1]
			$with = $Start_Pos[0] - $End_Pos[0]
			$height = $End_Pos[1] - $Start_Pos[1]
		EndIf
	EndIf

	  DllClose($UserDLL)
	  EndFunc

Alles anzeigen

wolkenloser

gib bitte mal die Zeile an die angemeckert wird....

geRRus

Zitat

siehe Punkt 1 im Code

**peethebee**

Hallo!

1. Das Problem ist, dass der Copmpiler nichts von den Funktionen weiß, die aus den PlugIns kommen. In diesem Fall dürfte das das Problem sein. Wenn dem so ist, kann du einfach "Continue" machen, würde dann trotzdem funktionieren.

2. Man könnte einfach warten, bis der User noch mal klickt, nachdem er "Fenster" ausgewählt hat. Wie man das macht, hat Kruemel_02 hier (http://autoit.aufwaerts.de/thread.php?threadid=15&sid=) beschrieben. Es geht über die UDF _IsPressed.
Andere Möglichkeit wäre es, mittels WinGetClassList eine Liste der Fenster zur Auswahl anzubieten. Da hier aber viele Fenster auftauchen, die man entweder gar nicht sieht, oder auch nicht "screenshotten" kann, müsste man hier von Hand relativ viel filtern...

peethebee

**Gun-Food**

Dir fehlt schlicht und ergreifend die Funktion _IsPressed wie Kruemel_02 geschrieben hat.
Sie lautet:

Code

;====================================================================
===========
;
; Description:    _IsPressed
; Parameter(s): $s_hexKey - key to check for
;                                          $v_dll = Handle to dll or default to user32.dll
;               
; User CallTip:   _IsPressed($s_hexKey[, $v_dll = 'user32.dll']) Check if key has been pressed. (required: <Misc.au3>)
; Return Value(s):  1 if true
;                                                 0 if false
; Author(s):      ezzetabi and Jon
;
 ;==========================================================================
=====
Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
        ; $hexKey must be the value of one of the keys.
        ; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
        Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
        If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
        Return 0
EndFunc   ;==>_Is_Key_Pressed

Alles anzeigen

einfach am Anfang mit einfügen und es sollte nicht mehr meckern.

geRRus

So das mit _IsPressed habe ich jetzt hin gekriegt.

Problem namba sri:

Und zwar werden die Variablen die für die Mausposition zuständig sind nicht aus der Funktion Auswahl() zurückgegeben bzw nicht geändert von der Funktion?
Warum?ich habe schon überall wo es muss und nicht muss Global vorgeschrieben und trotzdem geht das nicht es wird nur ein Fensterausschnitt erstellt mit den Werten die ich bei Deklaration vergeben habe.
Irgendwo ist da der Wurm.

C

#include <GUIConstants.au3>
#Include <Constants.au3>
#include <Misc.au3>
Global $left=12	
Global $top=12
Global $with=200
Global $height=300
; == GUI generated with Koda ==
$Form1 = GUICreate("ScreenMaker", 283, 276, 234, 276)
$FullscreenB = GUICtrlCreateButton("Volles Bildschirm", 8, 16, 161, 41)
$FensterB = GUICtrlCreateButton("Fenster", 8, 72, 161, 41)
$AuswahlB = GUICtrlCreateButton("Ausschnitt", 8, 128, 161, 41)
GUICtrlCreateLabel("Andrej D.", 180, 112, 48, 17)
$Quali = GUICtrlCreateInput("100", 184, 24, 89, 21, -1, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE

			ExitLoop

		Case $msg = $FullscreenB
			Fullscreen()
		Case $msg = $FensterB
			Fenster()
		Case $msg = $AuswahlB
			AuswahlScreenShot()
	EndSelect
WEnd
Exit


Func Fullscreen()
	GUISetState(@SW_MINIMIZE)
	DllCall("captdll.dll", "int", "CaptureScreen", "str", "screenshot.jpg", "int", 100)
	GUISetState(@SW_RESTORE)
EndFunc   ;==>Fullscreen


Func Fenster()
	Local $Cwin1 = WinGetHandle("")
	Local $Cwin2 = WinGetPos($Cwin1)
	DllCall("captdll.dll", "int", "CaptureRegion", "str", "screenshotfenster.jpg", "int", $Cwin2[0], "int", $Cwin2[1], "int", $Cwin2[2], "int", $Cwin2[3], "int", 100)

EndFunc   ;==>Fenster




Func AuswahlScreenShot()
	Auswahl()




	DllCall("captdll.dll", "int", "CaptureRegion", "str", "screenshotauswahl.jpg", "int", $left, "int", $top, "int", $with, "int", $height, "int", 100)
	If @error Then MsgBox(262160, "Fehler", "Es wurde kein Screenshot erstellt!", 4)

EndFunc   ;==>AuswahlScreenShot




Func Auswahl()
	Local $UserDLL = DllOpen("user32.dll")
	While 1
		If _IsPressed ("01", $UserDLL) Then;<------Punkt 1
			Local $Start_Pos = MouseGetPos()

			ExitLoop
		EndIf
	WEnd

	If Not _IsPressed ("01", $UserDLL) Then;<------Punkt 1
		Local $End_Pos = MouseGetPos()

		If $End_Pos[0] < $Start_Pos[0] And $End_Pos[1] > $Start_Pos[1] Then
			Global $left = $End_Pos[0]
			Global $top = $Start_Pos[1]
			Global $with = $Start_Pos[0] - $End_Pos[0]
			Global $height = $End_Pos[1] - $Start_Pos[1]
		EndIf
	EndIf

	DllClose($UserDLL)
EndFunc   ;==>Auswahl

Alles anzeigen

geRRus

Ach so und nochmal eine ganz andere Frage:
Warum will der Scite nicht im beta-Modus komplimieren?
tasten (alt+F5)->komplimiert zwar aber meckert immer das er die Funktion nicht kennt(jede Beta Funktion)

Ich muss immer im Explorer per rechts-klick und complimier with option machen.

Muss ich da im SciTE was umstellen?

**peethebee**

Ja, es gibt ein Update, das auch SciTE die neuen Funktionen beiibringt. auf https://autoit.de/www.autoitscript.com gibt es eine eigene Rubrik SciTE4AutoIt und da gibt es so Zeug.

peethebee