Screenshot speichern in drei Zeilen

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Screenshot speichern in drei Zeilen

Beitrag von rolaf »

Code: Alles auswählen

keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
GetClipboardImage(0)
SaveImage(0, "c:\screenshot.bmp")
8)
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Benutzeravatar
#NULL
Beiträge: 2235
Registriert: 20.04.2006 09:50

Beitrag von #NULL »

:D super.

fünf zeilen mehr, und ein projekt ist vollendet :mrgreen:

Code: Alles auswählen

keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(100)
GetClipboardImage(0)
td.s=GetTemporaryDirectory()
SaveImage(0, td+"screenshot.bmp")
RunProgram(td+"screenshot.bmp")
Delay(100)
DeleteFile(td+"screenshot.bmp")
my pb stuff..
Bild..jedenfalls war das mal so.
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Beitrag von rolaf »

#NULL hat geschrieben::D super.

fünf zeilen mehr, und ein projekt ist vollendet :mrgreen:
Jo, können wir gleich für 10 Euro als Vollversion verkloppen! :mrgreen:
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Falo hat geschrieben: Jo, können wir gleich für 10 Euro als Vollversion verkloppen! :mrgreen:
Müßt ihr noch eine Sharewareversion draus machen, also nochmal 300 Zeilen :mrgreen:
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Benutzeravatar
rolaf
Beiträge: 3843
Registriert: 10.03.2005 14:01

Beitrag von rolaf »

ts-soft hat geschrieben:
Falo hat geschrieben: Jo, können wir gleich für 10 Euro als Vollversion verkloppen! :mrgreen:
Müßt ihr noch eine Sharewareversion draus machen, also nochmal 300 Zeilen :mrgreen:
Ach wo, eine Zeile reicht und in der Shareware wird nur die Hälfte des Screenshot gespeichert. <)

Hier die Shareware:

Code: Alles auswählen

keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(1000)
GetClipboardImage(0)
GrabImage(0, 1, 0, 0, ImageWidth(0) / 2, ImageHeight(0))
td.s = GetTemporaryDirectory()
SaveImage(1, td + "screenshot.bmp")
RunProgram(td + "screenshot.bmp")
Delay(1000)
DeleteFile(td + "screenshot.bmp")
:::: WIN 10 :: PB 5.73 :: (x64) ::::
Benutzeravatar
#NULL
Beiträge: 2235
Registriert: 20.04.2006 09:50

Beitrag von #NULL »

super service: der kunde kann zwischen zwei SchehrWer-versionen wählen:

Code: Alles auswählen

keybd_event_(#VK_SNAPSHOT, 0, 0, 0)
Delay(100)
GetClipboardImage(0)
td.s=GetTemporaryDirectory()
SaveImage(0, td+"screenshot.bmp")
p=RunProgram(td+"screenshot.bmp", "", "", #PB_Program_Open)
Delay(200)
DeleteFile(td+"screenshot.bmp")
Delay(1500)
KillProgram(p)
CloseProgram(p)
my pb stuff..
Bild..jedenfalls war das mal so.
mknjc
Beiträge: 217
Registriert: 09.09.2006 12:59

Beitrag von mknjc »

Ich finde man sollte eher das rausbringen:

Code: Alles auswählen

UseJPEGImageEncoder()

keybd_event_(#VK_SNAPSHOT, 0, 0, 0) 
Delay(1000) 
GetClipboardImage(0) 
td.s = GetTemporaryDirectory() 
SaveImage(0, td + "screenshot.jpg", #PB_ImagePlugin_JPEG, 0) 
RunProgram(td + "screenshot.jpg") 
Delay(1000) 
DeleteFile(td + "screenshot.jpg")
Die Vollversion kann dann in bmp speichern.
Ich nutze PureBasic 4.02 unter Linux und Windows.

Momentane Projekte:
Das geheimste aller geheimen Projekte... FPBC
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Screenshots sollten unbedingt im PNG Format gespeichert werden, JPEG eigenet sich eher für Fotos bzw. Bilder mit sehr vielen und sehr feinen Farbübergängen (wie es bei Fotos der Fall ist).
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Screenshot OHNE Zeilen!!!!
Bild :mrgreen:
Zuletzt geändert von AND51 am 25.11.2006 21:55, insgesamt 1-mal geändert.
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

Was für n Anfänger, da nimmt man doch TFT Monitore...
Bild
Antworten