Πώς να κάνει ένα Proxy Script Με Visual Basic

Τις περισσότερες φορές , θα μεταφερθείτε απευθείας στους servers στο διαδίκτυο και λήψη πληροφοριών , όπως απαιτείται . Ωστόσο , μερικές φορές προστασία της ιδιωτικής ζωής , την ασφάλεια ή και τα δύο απαιτούν από εσάς να χρησιμοποιήσετε ένα διακομιστή μεσολάβησης . Με ένα πληρεξούσιο , μπορείτε να στείλετε αιτήσεις σε ένα τρίτο υπολογιστή που αναμεταδίδει τις πληροφορίες σας . Μπορείτε να αγοράσετε ή να κατεβάσετε εξελιγμένα προγράμματα μεσολάβησης από το Internet , αλλά η βασική αρχή της μεσολάβησης είναι αρκετά απλό που μπορείτε επίσης να γράψετε μία τον εαυτό σας σε Visual Basic . Οδηγίες
Η 1

Ανοίξτε Visual Basic και να δημιουργήσετε ένα νέο έργο κάνοντας κλικ στο " Αρχείο" και "New Project ". Δεν υπάρχει καμία ανάγκη για μια δέσμη ενεργειών διακομιστή μεσολάβησης για να έχουν μια διεπαφή χρήστη , έτσι επιλέξτε " Εφαρμογή Console . " 2

Επικολλήστε τον ακόλουθο κώδικα στην κορυφή του έργου σας για να εισάγουν τις απαραίτητες βιβλιοθήκες από το . NET Framework .

εισαγωγές System.Net

Εισαγωγές System.Net.Sockets
εικόνων 3

Επικολλήστε τον ακόλουθο κώδικα στο πλαίσιο της μεθόδου " Main " για να ρυθμίσετε μέχρι ένα διακομιστή για να ακούσετε στη θύρα 1080 ( ή οποιαδήποτε άλλη θύρα θέλετε) και , όταν ένας πελάτης συνδέεται με αυτό το λιμάνι, να ακούσετε για μια διεύθυνση URL , κατεβάστε το αρχείο σε αυτή τη διεύθυνση και να το στείλετε στον πελάτη :

Dim σέρβερ As New TcpListener ( 1080 )

Dim πελάτη Όπως TcpClient

server.start ( )

ενώ ( True )

πελάτης = διακομιστή. AcceptTcpClient ( )

dim ρεύμα = client.getStream

dim bytes ( 100 ) ως byte

stream.read ( bytes , 0 , 80 )

dim διεύθυνση = System.Text.Encoding.ASCII.getString ( bytes )

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

my.computer.network.downloadfile ( διεύθυνση , αρχείο )

dim δεδομένων = ενώ
Η 4

Αποθηκεύστε το έργο σας και κάντε κλικ στο κουμπί " Run" . Τώρα έχετε ένα απλό διακομιστή μεσολάβησης .
Η
εικόνων