Enviar arquivos via FTP
Galera como falei ali em encima eu tenho um programa que tira as prints e salva em uma pasta mais quero que invés de salvar ele envia pro Host via FTP ou outro método e salva lá no host.
Meu código para se conectar via FTP e este:
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://nome do host e caminho"), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential("Usser", "Senha")
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim file() As Byte = System.IO.File.ReadAllBytes("a pasta onde esta o arquivo para enviar.")
Dim strz As System.IO.Stream = request.GetRequestStream()
strz.Write(file, 0, file.Length)
strz.Close()
strz.Dispose() E galera este e meu código para tirar um print da tela.
Private Sub salvaTela()
Dim caminho As String = "caminho onde salva no PC"
Try
Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As Graphics = FromImage(screenGrab)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
screenGrab.Save(caminho & "Print" &.jpg", Imaging.ImageFormat.Jpeg)
Catch ex As Exception
MsgBox("Erro : " & ex.Message)
End Try
Ai galera quero que toda vez que tirar a print invés de salvar no pc envia pro host e salva.
Agradeço pela atenção!
Discussão (18)
Carregando comentários...