[Tutorial] Screenlogger

[Kvn'X 222]

▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬

■■■ Screenlogger Tutorial

Nicht fuer Biene Majas

Beispiel, Download: Hier

Beispiel, Virustotal: Hier

 

 

Als erstes erstellt ihr eine Form mit 1 Timer und 1 Picturebox,

■bei der Picturebox:

SizeMode: StretchImage

 

■Beim Timer:

Enabled: True
Interval, so wie man will;)

 

■Die Funktionen deklinieren. (im Timer)

		Dim bounds As Rectangle
	Dim screenshot As System.Drawing.Bitmap
	Dim graph As Graphics

■Screenshot erstellen (im Timer)

		bounds = Screen.PrimaryScreen.Bounds
	screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
	graph = Graphics.FromImage(screenshot)
	graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
	PictureBox1.Image = screenshot

■Bild Speichern (im Timer)

		PictureBox1.Image.Save("test.JPG", System.Drawing.Imaging.ImageFormat.Jpeg)

▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬

■■■ERWEITERT

So nun kann man noch wenn man immer verschiedene Bildernamen haben will eine Label erstellen mit der text = "0"

dann fuegt man im timer 1 ein als code:

 Label1.Text = Label1.Text + 1

 

Daraufhin schreibt man beim part Bild speichern:

■Bild Speichern (im Timer)

		PictureBox1.Image.Save("test" & Label1.Text & ".JPG", System.Drawing.Imaging.ImageFormat.Jpeg)

 

▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬▬

■■■ GANZER CODE

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
	Dim bounds As Rectangle
	Dim screenshot As System.Drawing.Bitmap
	Dim graph As Graphics
	bounds = Screen.PrimaryScreen.Bounds

	screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
	graph = Graphics.FromImage(screenshot)
	graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
	PictureBox1.Image = screenshot
	PictureBox1.Image.Save("test" & Label1.Text & ".JPG" , System.Drawing.Imaging.ImageFormat.Jpeg)
	Label1.Text = Label1.Text + 1
End Sub

Edited October 9, 2010 by paTTax

[paranoid_ 16]

Datei existiert nicht (durch Admin-Panel gelöscht oder falsche ID).

[paTTax 5]

Links updated by me! Have fun!