Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúImports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim uri As New Uri("ftp://ftp.servidor.com/carpeta/hola.txt")
Dim request As FtpWebRequest = DirectCast(WebRequest.Create(uri), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Proxy = Nothing
request.UseBinary = True
request.UsePassive = False
request.Credentials = New NetworkCredential("usuario", "password")
Dim vCadena As String = "Esto es una prueba de FTP"
Dim encoding As New System.Text.UTF8Encoding()
Dim fileContents() As Byte = encoding.GetBytes(vCadena)
request.ContentLength = fileContents.Length
Dim requestStream As Stream = request.GetRequestStream()
requestStream.Write(fileContents, 0, fileContents.Length)
requestStream.Close()
Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
response.Close()
End Sub
End Class
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim req As HttpWebRequest = CType(WebRequest.Create("http://web.smsbus.cl/web/"), HttpWebRequest)
req.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:5.0) Gecko/20100101 Firefox/5.0"
Dim response As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
Using resStream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(resStream)
MsgBox(reader.ReadToEnd)
End Using
End Sub
End Class
Cita de: crazykenny en 4 Marzo 2012, 20:23 PM
que eran una especie de reptilianos humanoides clamuflados de humanos que se alimentan de no se que ondas que emitimos (o yo que se que) y que comiendo verduras y vegetales y chorradas por el estilo