Merparten av tiden , kommer du gå direkt till servrar på Internet och ladda ner information som behövs . Men ibland integritet, säkerhet eller båda kräver att du använder en proxy . Med en proxy , kan du skicka förfrågningar till en tredje dator som vidarebefordrar informationen till dig . Du kan köpa eller ladda ner avancerade proxy -program från Internet , men den grundläggande principen om en proxy är enkel nog att du också kan skriva en själv i Visual Basic . Instruktioner
1
Öppna Visual Basic och skapa ett nytt projekt genom att klicka på " File " och " Nytt projekt . " Det finns inget behov av en proxy skript för att ha ett användargränssnitt , så välj " Console Application . "
2
Klistra in följande kod högst upp på ditt projekt att importera de nödvändiga biblioteken från . NET Framework .
Imports System.Net
Import System.Net.Sockets Addera 3
Klistra in följande kod i " Main" metod för att ställa in upp en server för att lyssna på port 1080 ( eller någon annan port du vill) och när en klient ansluter till porten , lyssna efter en URL- adress , ladda ner filen på den adressen och skicka den till kunden :
Dim server som ny TcpListener ( 1080 ) katalog
Dim klient Som TcpClient
server.start ( ) katalog
while (true ) katalog
client = server . AcceptTcpClient ( ) katalog
dim stream = client.getStream
dim bytes ( 100 ) som byte
stream.read ( byte , 0 , 80 ) katalog
dim adress = System.Text.Encoding.ASCII.getString ( bytes ) katalog
dim file = My.Computer.FileSystem.GetTempFileName ( ) katalog
my.computer.network.downloadfile ( adress , fil ) katalog
dim uppgifter = medan
4
Spara ditt projekt och klicka på " Kör " knappen . Du har nu en enkel proxyserver .
