Mesteparten av tiden , vil du gå direkte til servere på Internett og laste ned informasjon etter behov. Men noen ganger personvern, sikkerhet eller begge krever at du bruker en proxy . Med en proxy , kan du sende forespørsler til en tredje datamaskin som videresender informasjonen til deg . Du kan kjøpe eller laste ned avanserte proxy- programmer fra Internett , men det grunnleggende prinsippet om en proxy er enkel nok til at du også kan skrive en selv i Visual Basic. Instruksjoner
en

Åpne Visual Basic og opprett et nytt prosjekt ved å klikke på "File" og "New Project ". Det er ikke behov for en proxy script å ha et brukergrensesnitt , så velg " Console Application. "
2

Lim inn følgende kode på toppen av ditt prosjekt for å importere de nødvendige biblioteker fra . NET Framework .

Import System.Net

Importen System.Net.Sockets
3

Lim inn følgende kode i " Hoved "-metoden for å stille opp en server for å lytte på port 1080 (eller en annen port du vil) , og når en klient kobler seg til den porten , lytt etter en URL -adresse, laste ned filen på denne adressen og sende det til kunden :
< p > Dim server som ny TcpListener ( 1080 )

Dim klient Som TcpClient

server.start ( )

while ( Sann)

klient = server. AcceptTcpClient ( )

dim stream = client.getStream

dim byte ( 100 ) som byte

stream.read ( bytes , 0 , 80 )

dim adresse = System.Text.Encoding.ASCII.getString ( bytes )

dim file = My.Computer.FileSystem.GetTempFileName ( )

my.computer.network.downloadfile ( adresse, fil )

dim data = mens
4

Lagre prosjektet og klikk på "Kjør "-knappen . Du har nå en enkel proxy -server.