Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Screenshot mit winsock
Autor: Patrickb
Datum: 31.10.03 01:39
Hallo zusammen Ich möchte einen Screenshot machen, und über winsock senden. Doch ich brings nicht hin. Kann mir da jemand helfen? ein Teil der Code Struktur: client Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strdata1, strdata2, strdata3, strdata4 As String Winsock1.GetData strdata1, vbString Label4.Caption = "STATUS: READY!" End Sub Private Sub SizeBitmapToPicBox(ByVal vpicQuelle As PictureBox, _ ByVal vpicZiel As PictureBox) Dim sngRatio As Single Dim sngWidth As Single Dim sngHeight As Single vpicQuelle.Picture = Clipboard.GetData(vbCFBitmap) vpicZiel.Cls sngRatio = vpicQuelle.ScaleWidth / vpicQuelle.ScaleHeight sngWidth = vpicZiel.ScaleWidth sngHeight = vpicZiel.ScaleHeight If (sngWidth / sngHeight) > sngRatio Then sngWidth = sngRatio * sngHeight Else sngHeight = sngWidth / sngRatio End If vpicZiel.PaintPicture vpicQuelle.Picture, _ (vpicZiel.ScaleWidth - sngWidth) / 2, _ (vpicZiel.ScaleHeight - sngHeight) / 2, _ sngWidth, sngHeight 'vpicZiel.PaintPicture vpicQuelle.Picture, 0, 0, sngWidth, sngHeight End Sub server eine if abfrage If strData = "screen" Then screen End If Private Sub screen() Clipboard.Clear keybd_event VK_SNAPSHOT, 0, 0, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0 DoEvents Winsock1.SendData SizeBitmapToPicBox picQuelle, picZiel End Sub Bin ich da auf der richtigen Spur?

Screenshot mit winsock	828	Patrickb	31.10.03 01:39
Re: Screenshot mit winsock	478	DB1MWE	31.10.03 09:14
Re: Screenshot mit winsock	497	Patrickb	31.10.03 09:39
Re: Screenshot mit winsock	467	TheNukeduke	31.10.03 11:11
Re: Screenshot mit winsock	542	DB1MWE	31.10.03 14:46
Re: Screenshot mit winsock	477	met	05.04.05 09:35

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen