1 Ανοίξτε το Notepad και επικόλληση του παρακάτω VBS κείμενο σε ένα νέο έγγραφο :
Set objBrowser = CreateObject ( " InternetExplorer.Application " )
Dim URL
Dim ύψος
Δημ. πλάτος
URL = εισαγωγής ("Δώστε μια διεύθυνση URL " )
width = 800
height = 600
objBrowser.Height = ύψος
objBrowser.Width = πλάτος
objBrowser.Visible = 1
objBrowser.Navigate URL
Η πρώτη γραμμή κώδικα δημιουργεί ένα αντικείμενο του Internet Explorer . Η " InputBox " εντολή ανοίγει ένα αναδυόμενο παράθυρο που ζητά από το χρήστη για μια διεύθυνση URL Σημειώστε ότι οι τιμές του πλάτους και του ύψους είναι 800 και 600 . Αυτές οι τιμές καθορίζουν το πλάτος του browser και το ύψος σε pixels . Ο τελικός απολογισμός λέει ο browser για να συνδεθείτε με τη διεύθυνση URL που εγγράφονται στο pop-up παράθυρο . 2
Αποθηκεύστε το αρχείο με " . Vbs " επέκταση . Για παράδειγμα , αν θέλετε να καλέσετε VBS script σας " ConnectURL , " όνομα " ConnectURL.vbs . " Αυτό το καθιστά μια εφαρμογή VBS .
Εικόνων 3
Launch Εξερεύνηση των Windows και εντοπίστε το αρχείο που αποθηκεύσατε . Κάντε διπλό κλικ σε αυτό. Ένα αναδυόμενο παράθυρο θα σας ζητήσει να εισάγετε μια διεύθυνση URL
Η 4
Πληκτρολογήστε μια διεύθυνση URL στο πλαίσιο κειμένου και κάντε κλικ στο "OK". Το πρόγραμμα VBS τρέχει , λανσάρει τον Internet Explorer και συνδέεται με το URL που έχετε εισάγει .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα