Πώς να κάνετε λήψη μιας ιστοσελίδας με VBScript

VBScript χρησιμοποιεί το HttpWebRequest ελέγχου για να κατεβάσετε ιστοσελίδες και διεπαφή με τις σελίδες του δικτυακού τόπου . Κατεβάστε την σελίδα και να την αποθηκεύσετε ως ένα αρχείο , ή να εμφανίσετε το κατεβάσει κώδικα σε μια ιστοσελίδα . Ο έλεγχος HttpWebRequest ανοίγει την ιστοσελίδα στη μνήμη του server , και οι πληροφορίες που λάβατε είναι η πρώτη HTML που εμφανίζεται ως εάν ο κώδικας εμφανίζεται σε ένα κανονικό πρόγραμμα περιήγησης . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί των Windows " Start" και επιλέξτε " Όλα τα προγράμματα ". Κάντε κλικ στο " Microsoft . NET , " και στη συνέχεια κάντε κλικ στο " Visual Studio " συντόμευση . Ανοίξτε το έργο σας VBScript για να ανοίξετε τις φόρμες Web . 2

Δημιουργήστε τη μεταβλητή HttpWebRequest . Που πρέπει να ξεκινήσει μια τάξη για να το χρησιμοποιήσετε σε VBScript σας . Ο παρακάτω κώδικας εμφανίζει την κατηγορία :

Dim web Όπως HttpWebRequest
εικόνων 3

Ανάκτηση κωδικού της ιστοσελίδας και να ρυθμίσετε την απάντηση σε μια μεταβλητή . Θα ζητήσετε πληροφορίες του server , αλλά θα πρέπει στη συνέχεια να αποθηκεύσετε την απόκριση του διακομιστή σε μια "απάντηση " μεταβλητή . Ο ακόλουθος κώδικας δείχνει πώς μπορείτε να ανακτήσετε τα δεδομένα και να αποθηκεύουν την απάντηση σε μια "απάντηση " μεταβλητή :

web WebRequest.Create ( " http://mydomain.com/page.aspx " )

Dim απαντήσεις Ως HttpWebResponse = ctype ( web.GetResponse ( ) , HttpWebResponse )

Ο παραπάνω κώδικας ανακτά τον κώδικα HTML από το " mydomain.com /page.aspx . " Αντικαταστήστε αυτό το URL με τη δική σας διεύθυνση. Η απάντηση αποθηκεύεται στη μεταβλητή ένδειξη " απάντηση ".
Η 4

Αποθηκεύστε την απάντηση ή να το εκτυπώσετε στην οθόνη . Ο κώδικας που ακολουθεί αποθηκεύει την απάντηση σε ένα ρεύμα , το οποίο χρησιμοποιείται για να εκτυπώσετε την έξοδο στην οθόνη του αναγνώστη :

Dim Διαβάστηκε Όπως New StreamReader (απάντηση)

Dim html As String = read.ReadToEnd ( )

Console.WriteLine ( html)
Η
εικόνων