[kslawy]

PHP كود :

Public Function GetScreen() As Bitmap
        Dim Picture As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        Dim g As Graphics = Graphics.FromImage(Picture)
        Dim t As New Rectangle(Windows.Forms.Cursor.Position, Picture.Size)
        g.CopyFromScreen(0, 0, 0, 0, Picture.Size)
        Windows.Forms.Cursor.Current.Draw(g, t)
        Return Picture
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.Image = GetScreen()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim SavePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        PictureBox1.Image.Save(SavePath & "\myDesktopImage.jpg", Imaging.ImageFormat.Jpeg)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub