La mayoría del tiempo , irá directamente a los servidores de Internet y descargar información , según sea necesario . Sin embargo , a veces, la privacidad, la seguridad o ambos requieren el uso de un proxy. Con un proxy, puede enviar solicitudes a un tercer equipo que transmite la información a usted. Usted puede comprar o descargar programas de proxy sofisticadas de Internet, pero el principio básico de un proxy es bastante simple que usted también puede escribir uno usted mismo en Visual Basic . Instrucciones
1
Abra Visual Basic y cree un nuevo proyecto haciendo clic en "Archivo" y "Nuevo proyecto ". No hay necesidad de un script proxy para tener una interfaz de usuario, así que seleccione " Aplicación de consola. "
2
Pega el siguiente código en la parte superior de su proyecto para importar las librerías necesarias desde el . NET Framework .
Imports System.Net
Importaciones System.Net.Sockets
3
Pega el siguiente código dentro del método "Main " para configurar un servidor para escuchar en el puerto 1080 (o cualquier otro puerto que desea ) y, cuando un cliente se conecta a ese puerto , escuche una dirección URL , descargue el archivo en esa dirección y los envía al cliente :
< p > Servidor Dim As New TcpListener ( 1080 )
cliente As TcpClient
server.start ()
while ( true)
cliente = servidor. AcceptTcpClient ()
corriente dim = client.getStream
bytes dIM ( 100 ) como byte
Stream.Read (bytes , 0, 80 )
dirección dim = System.Text.Encoding.ASCII.getString (bytes )
archivo dim = My.Computer.FileSystem.GetTempFileName ()
My.Computer.Network.DownloadFile (dirección, archivo )
datos dim = mientras
4
Guardar el proyecto y haga clic en el botón "Ejecutar " . Ahora tiene un servidor proxy simple.