Εισαγωγή στο VB Script: a Beginners Guide: 11 Steps

2024 Συγγραφέας: John Day | [email protected]. Τελευταία τροποποίηση: 2024-01-30 08:39

*** ((((ΕΙΔΟΠΟΙΗΣΗ: Αν και υπάρχουν πολλά βήματα. Αυτό είναι στην πραγματικότητα αρκετά εύκολο. Απλώς εξηγώ τα πάντα λεπτομερώς για τους αρχάριους. Αν θέλετε απλώς ο κωδικός να μεταβεί στο τελευταίο βήμα και θα βρείτε το πλήρες Κωδικός εκεί.)))) *** Παίζω πολύ Xbox ζωντανά και πρέπει πάντα να απενεργοποιώ το διαδίκτυο στον υπολογιστή μου επειδή αυξάνει το εύρος ζώνης. Κυρίως επειδή κατεβάζω ή ανεβάζω πράγματα συνεχώς. Το πρόβλημα δεν είναι να το απενεργοποιήσετε, αλλά το ξαναβάζω όταν το ξεχνάω, φτάνοντας στο σημείο που χάνομαι σε όλο αυτό το χρόνο μεταφόρτωσης/λήψης. Έτσι αποφάσισα να δημιουργήσω ένα πρόγραμμα που θα το κάνει για μένα. Επρόκειτο να το γράψω στο Vb.net, αλλά μόλις πρόσφατα έπρεπε να πυροβολήσω και να ανοίξω το λειτουργικό μου σύστημα στον υπολογιστή μου εξαιτίας μιας κακοκαιρίας που τηγανίζει τον σκληρό μου δίσκο και δεν έχω επανεγκαταστήσει το VB.net ακόμα, οπότε σκέφτηκα ότι θα ήταν δώστε μου έναν λόγο να παίξω με το vbscript. Έκανα επίσης μια εικόνα σε χρώμα που θα εμφανίζεται στο παρασκήνιο, οπότε ήξερα ότι τρέχει.

Βήμα 1: Μάθετε τι θέλετε να κάνετε

Το πρώτο πράγμα που κάνω πάντα είναι να κάνω ένα σχέδιο. Τι θέλω να κάνει το πρόγραμμα; Α) Θέλω να μπορώ να ανοίξω το σενάριο και αυτόματα θα κλείσει τη σύνδεση. Β) Θέλω να εμφανίζει μια γιγάντια οθόνη στο παρασκήνιο, οπότε δεν υπάρχει λάθος ότι το διαδίκτυο είναι απενεργοποιημένο, με αυτόν τον τρόπο δεν ξεχνάω να το ενεργοποιήσω ξανά. Γ) Θέλω να μου δώσει την επιλογή να το ενεργοποιήσω επανενεργοποιήστε και, στη συνέχεια, περιμένετε μια απάντηση. Δ) Θέλω να είναι σίγουρος ότι το ενεργοποιώ ξανά για να μην το ξεχνάω. και μετά κλείνει το φόντο. ΣΤ) Έξοδος από τα πάντα.

Βήμα 2: Πράγματα που χρησιμοποιώ αλλά δεν χρειάζονται πραγματικά

Το μόνο που χρειάζεστε πραγματικά είναι ένας επεξεργαστής κειμένου όπως το σημειωματάριο. Όλα τα άλλα είναι προαιρετικά. Χρησιμοποιώ το Σημειωματάριο ++ όταν κάνω δέσμη ενεργειών VB, επειδή το αντιμετωπίζει όπως το vb.net με τα χρώματα και γνωρίζει τη γλώσσα. Βοηθά στην αποφυγή λαθών. Αριθμεί επίσης τις γραμμές, ώστε να μπορείτε να διαγνώσετε ποιο είναι το πρόβλημα όταν λαμβάνετε έναν κωδικό σφάλματος. Μπορείτε να το βρείτε εδώ από το σημειωματάριο ++

Βήμα 3: Ξεκινήστε τον προγραμματισμό

Λοιπόν, το πρώτο πράγμα που θέλετε να κάνετε είναι να δημιουργήσετε ένα αρχείο κειμένου και να το αποθηκεύσετε σε ό, τι θέλετε να ονομάζεται με την επέκταση αρχείου.vbsExample: NetworkShutOffScriptThatShutsOffTheInternetSoIcanPlayGamesOnMyXboxAndNotGetLag.vbsExample 2: games.vbs Όλα όσα έχουν σημασία είναι το όνομα Συνήθως το κάνω αυτό στην επιφάνεια εργασίας επειδή το ανοίγω περίπου ένα εκατομμύριο φορές ενώ το δουλεύω. Τώρα απλά κάντε δεξί κλικ στο αρχείο και πατήστε επεξεργασία ή επεξεργασία με το σημειωματάριο ++

Βήμα 4: Βήμα 1: Άνοιγμα παραθύρου γραμμής εντολών

Έτσι αποφάσισα να κάνω το μεγαλύτερο μέρος της δουλειάς απλώς θα χρησιμοποιούσα προγράμματα που είναι ήδη αποθηκευμένα στον υπολογιστή για να κάνω αυτό που θέλω. Λιγότερη κωδικοποίηση και χωρίς λήψεις … Woohoo. Easiest είναι η γραμμή εντολών. Έτσι θέλουμε να ανοίξουμε ένα παράθυρο γραμμής εντολών για να το κάνουμε, θέλουμε να δημιουργήσουμε ένα αντικείμενογια να το κάνουμε πληκτρολογούμε: set shellobj = CreateObject ("WScript. Shell") Τι κάνει: Ορίστε ένα παράδειγμα του shellobj να είναι ίσο για να δημιουργήσετε αντικείμενο με κέλυφος σεναρίου. Με αυτόν τον τρόπο το μόνο που πρέπει να κάνουμε είναι να πληκτρολογήσουμε shellobj αντί για CreateObject ("WScript. Shell") κάθε φορά που χρειαζόμαστε νέα εντολή. Τώρα που έχουμε δημιουργήσει ένα αντικείμενο, δίνουμε εντολή στο αντικείμενο να ανοίξει ένα παράθυρο γραμμής εντολών. Για να το κάνουμε αυτό πληκτρολογούμε: shellobj.run "cmd" Τι κάνει: Αυτό θα ισοδυναμούσε με πληκτρολόγηση CMD στο πλαίσιο εκτέλεσης στο μενού έναρξης. Αν δεν είχαμε ορίσει τη μεταβλητή shellobject θα έπρεπε να έχουμε πληκτρολογήσει: CreateObject ("WScript. Shell"). Τρέξτε "cmd" … δείτε πόσο πιο εύκολο είναι τώρα. Λιγότερος χώρος για λάθη. Κάντε κλικ στο αρχείο … στη συνέχεια στην Αποθήκευση … στη συνέχεια, μεταβείτε στην επιφάνεια εργασίας και κάντε διπλό κλικ στο αρχείο vbsfile που το κάνατε θα πρέπει να τρέξει Αν όλα πάνε σωστά, θα πρέπει να εμφανιστεί μια γραμμή εντολών των Windows …..αααααα !!! αν όχι, ελέγξτε την κωδικοποίησή σας, μέχρι τώρα θα πρέπει να έχετε: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" Μπορείτε να προσθέσετε σχόλια στο σενάριό σας, ώστε να θυμάστε τι κάνατε αργότερα βάζοντας ένα κόμμα μπροστά στη γραμμή, όπως αυτό: «αυτό είναι να ανοίξω μια γραμμή εντολών Όταν κωδικοποιώ πολλές φορές θα το κάνω έτσι ώστε να θυμάμαι τι έκανα αργότερα όταν το ψάχνω. Το σενάριο απλά αγνοεί αυτήν τη γραμμή και προχωράει. Αν τα δείτε μπορείτε να κάνετε το ίδιο.

Βήμα 5: Βήμα 2: Ρύθμιση χρονοδιακόπτη

Εντάξει τώρα που έχουμε ένα άκαμπτο νέο παράθυρο, πρέπει να το συμπληρώσουμε με εντολές, ώστε να μπορούμε να το κάνουμε να κάνει αυτό που θέλουμε. Το πρόβλημα είναι ότι ορισμένοι υπολογιστές χρειάζονται περισσότερο χρόνο από άλλους για να ανοίξουν παράθυρα, οπότε θέλουμε το σενάριο να περιμένει λίγο λίγο για να ξεκινήσει. εάν ξεκινήσει πολύ σύντομα, ο υπολογιστής θα συμπληρώσει το κενό πριν ανοίξετε το παράθυρο και θα λάβετε είτε μια μερική εντολή είτε καμία. Έτσι, πρέπει να ρυθμίσουμε ένα χρονόμετρο. Για να το κάνουμε αυτό πληκτρολογούμε: wscript.sleep 200 Τι κάνει: Λέει στο σενάριο να περιμένει ένα Χ χρόνο πριν εκτελέσει την επόμενη εντολή. 1000 ισούται με ένα δευτερόλεπτο, οπότε το δικό μου περιμένει ένα πέμπτο του δευτερολέπτου. Μπορεί να διαπιστώσετε ότι ο υπολογιστής σας πρέπει να περιμένει περισσότερο χρόνο ή λιγότερο. Εάν παρακολουθείτε τον υπολογιστή και δεν πληκτρολογεί σωστά τις εντολές, αλλάξτε τον αριθμό σε υψηλότερο αριθμό όπως το 2000 θα ήταν 2 δευτερόλεπτα και πιθανώς άφθονο χρόνο. Αποθηκεύστε το αρχείο τώρα ο κωδικός σας θα πρέπει να είναι: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200

Βήμα 6: Βήμα 3: Δημιουργήστε μια εικόνα

Μόλις άνοιξα το χρώμα και έγραψα "Διακόπηκε το Διαδίκτυο" σε αυτό και το έκανα 800x600 και το αποθήκευσα ως id.bmp και το αποθήκευσα στον ριζικό μου κατάλογο, στην περίπτωσή μου k: / αλλά το δικό σου θα είναι πιθανότατα c:

Βήμα 7: Βήμα 4: Αποστολή εντολών, άνοιγμα της εικόνας

Εντάξει τώρα που έχουμε ένα παράθυρο εντολών που περιμένει εντολές το μόνο που έχουμε να κάνουμε είναι να πληκτρολογήσουμε τις εντολές στο παράθυρο χρησιμοποιώντας την εντολή sendkeys. Όταν χρησιμοποιούμε την εντολή sendkeys είναι σαν να πληκτρολογούμε αλλά θα πληκτρολογεί ό, τι θέλουμε να πληκτρολογήσει. Οτιδήποτε μπορούμε να πληκτρολογήσουμε, μπορούμε να το στείλουμε, συμπεριλαμβανομένων των πλήκτρων εισαγωγής που απαιτούνται για την εκτέλεση προγραμμάτων. Τώρα που γνωρίζουμε πώς να στέλνουμε κλειδιά, ανοίγει η εικόνα που κάναμε και μετά βάζουμε ένα άλλο χρονοδιακόπτη για να φορτώσει. Για να το κάνετε αυτό πληκτρολογούμε: shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200Τι κάνει: Αυτό είναι το ίδιο με την πληκτρολόγηση k: / id.bmp στο πλαίσιο εκτέλεσης. Θα πρέπει να ανοίξει την εικόνα σας στο προεπιλεγμένο πρόγραμμα προβολής εικόνων για bmp … στην περίπτωσή μου είναι το πρόγραμμα προβολής εικόνων και φαξ των Windows, αλλά οι περισσότεροι άνθρωποι εγκαθιστούν προγράμματα της αγοράς που το κάνουν επίσης αυτό, οπότε ποιος ξέρει τι θα ανοίξει το δικό σας. Τώρα αποθηκεύστε το αρχείο σας και εκτελέστε το. Θα πρέπει να λάβετε μια γραμμή εντολών και μια εικόνα που θα εμφανιστεί. μέχρι τώρα καλά !!! ο κωδικός σας μέχρι τώρα πρέπει να είναι: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript ύπνος 200

Βήμα 8: Βήμα 5: Αποστολή εντολών, Απενεργοποίηση διαδικτύου

Σε αυτό το σημείο, αν δεν το έχετε κάνει ακόμα, κατεβάστε το αρχείο pdf στο τέλος, οπότε αν το χαλάσετε, έχετε κατεβάσει ένα Instructable για το πώς να το διορθώσετε. Τώρα εδώ αρχίζει η διασκέδαση. Εντάξει, θα χρησιμοποιήσουμε το ipconfig για να απελευθερώσουμε τη διεύθυνση IP μας. Χωρίς διεύθυνση IP δεν μπορούμε να λάβουμε καμία κίνηση στο Διαδίκτυο επειδή ο δρομολογητής δεν γνωρίζει από πού να την στείλει στον υπολογιστή. Για να το κάνετε αυτό πληκτρολογούμε: shellobj.sendkeys "ipconfig /release {enter}" Τι κάνει: Αυτό δίνει εντολή στο πρόγραμμα IPCONFIG να απελευθερώσει τη διεύθυνση IP. το {enter} λέει στον υπολογιστή ότι πατάτε το πλήκτρο εισαγωγής. αυτό θα ήταν σαν να πληκτρολογείτε ipconfig /release στο παράθυρο εκτέλεσης και να πατάτε enter. Συνήθως αφού το κάνετε αυτό, εάν εκτελέσετε το ipconfig θα σας πει ότι η διεύθυνση IP σας είναι 0.0.0.0. Αυτό θέλουμε. Χωρίς διεύθυνση IP, ο δρομολογητής δεν γνωρίζει ότι είμαστε εδώ και κανένα πρόγραμμα δεν μπορεί να "καλέσει" για να το πούμε. Τώρα που έχουμε ολοκληρώσει με επιτυχία το κλείσιμο της IP θέλουμε να κλείσουμε το παράθυρο. Τώρα θα μπορούσαμε να γράψουμε μια άλλη γραμμή που λέει: shellobj.sendkeys "exit {enter}" Αλλά θα ήταν ευκολότερο απλά να επεξεργαστείτε την παραπάνω γραμμή και να την προσθέσετε στο τέλος, ώστε να έχετε: shellobj.sendkeys "ipconfig /release {enter} exit {enter} "Τώρα αποθηκεύστε το αλλά μην το εκτελέσετε γιατί θα κλείσετε τη σύνδεσή σας στο διαδίκτυο. Εάν το εκτελέσετε και κλείσει το διαδίκτυο, απλώς αλλάξτε το διακόπτη από ipconfig /release σε ipconfig /ανανέωση και εκτελέστε το ξανά και θα πρέπει να το ενεργοποιήσετε ξανά. Και αν όλα τα άλλα αποτύχουν επανεκκινήστε και πρέπει να είστε εντάξει. Ο κωδικός σας μέχρι τώρα πρέπει να είναι: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter}"

Βήμα 9: Βήμα 6: Δημιουργία πλαισίου μηνυμάτων και αναμονή για απάντηση

Εντάξει, τώρα που κλείσαμε με επιτυχία το διαδίκτυο και κλείσαμε το παράθυρο της γραμμής εντολών, θέλουμε να εμφανιστεί ένα πλαίσιο μηνυμάτων που να μας ρωτά αν θέλουμε να ενεργοποιήσουμε ξανά το διαδίκτυο. Αλλά εδώ είναι που γίνεται δύσκολο, θέλουμε να περιμένει για ένα ναι, αλλά αν κάνουμε κλικ όχι, δεν θέλουμε να φύγει, οπότε θα χρησιμοποιήσουμε μια εντολή while για να το κάνουμε αυτό. Πρώτα πρέπει να διαστασιολογήσουμε μια μεταβλητή για το messgebox, ώστε να μπορούμε να της αντιστοιχίσουμε μεταβλητές αριθμών. Ξέρω ότι ακούγεται μπερδεμένο αλλά πραγματικά δεν είναι. το κάναμε ήδη μία φορά με τη γραμμή: set shellobj = CreateObject ("WScript. Shell") αυτό είναι ακόμη πιο εύκολο για να το ρυθμίσετε απλά πληκτρολογούμε: Dim MyVarΤι κάνει: Τώρα έχουμε διαστασιολογήσει μια μεταβλητή που ονομάζεται MyVarΌταν λάβετε ένα "ναι κουτί μηνύματος /όχι "εμφανίζεται στην οθόνη σας και κάνετε κλικ στα κουμπιά που εκχωρεί μια τιμή σε κάθε κουμπί, σε αυτή την περίπτωση το" ναι "είναι 1 και το" όχι "είναι 2. Θέλουμε η μεταβλητή να ξεκινά με ένα" όχι " του δίνουμε τον αριθμό 2 από προεπιλογή, με αυτόν τον τρόπο κάνει παύση έως ότου πατηθεί ένα κουμπί Για να το κάνετε αυτό πληκτρολογούμε: myvar = 2 Τι κάνει: τώρα το MyVar είναι ίσο με 2, με αυτόν τον τρόπο στην επόμενη γραμμή θα σταματήσει και θα περιμένει την εισαγωγή. Τώρα θέλουμε απλώς να καθίσει εκεί και να περιμένουμε μέχρι να είμαστε έτοιμοι να ενεργοποιήσουμε ξανά το διαδίκτυο. Για να το κάνουμε αυτό πληκτρολογούμε: ενώ myvar = 2 Τι κάνει: Κάνοντας αυτό έχουμε πει στο σενάριο ότι όσο η αξία του = 2, τότε συνεχίστε να περιστρέφετε το γραμματοκιβώτιο έως ότου λάβουμε οποιαδήποτε άλλη τιμή από 2, η οποία σε αυτή την περίπτωση θα μπορούσε να είναι μόνο 1Επόμενη, θέλουμε πραγματικά να κάνουμε ένα κουτί μηνύματος να εμφανιστεί με κουμπιά ναι/όχι. Για να το κάνετε αυτό πληκτρολογούμε: MyVar = MsgBox ("Ενεργοποίηση σύνδεσης στο Διαδίκτυο", 65, "Ενεργοποίηση σύνδεσης στο Διαδίκτυο") Τι κάνει: Τώρα στη μεταβλητή MyVar θα εκχωρηθεί οποιαδήποτε τιμή έχει οριστεί στο κουμπί που γίνεται κλικ στο πλαίσιο μηνυμάτων. το πρώτο μέρος στα εισαγωγικά είναι αυτό που θα πει στην πραγματικότητα το γραμματοκιβώτιο. Το 65 το χαρακτηρίζει ως Ναι/Όχι. και το τελευταίο μέρος στα εισαγωγικά είναι η ετικέτα του γραμματοκιβωτίου. για να ελέγξετε για να δείτε τι τιμή αποδίδει όταν κάνετε κλικ στο ναι ή όχι μπορείτε να προσθέσετε σε μια γραμμή που λέει msgbox (myVar) και θα εκτυπώσει όποια τιμή έχει εκχωρηθεί στο myvar σε ένα πλαίσιο μηνυμάτων. τώρα ότι έχουμε ένα πλαίσιο μηνυμάτων που πρέπει να κλείσουμε τη δήλωση while. Όλα όσα βρίσκονται ανάμεσα στο άνοιγμα και το κλείσιμο της δήλωσης while θα εκτελούνται κάθε φορά που κάνετε κλικ στο όχι, γιατί αν κάνετε κλικ στο κουμπί όχι, εξακολουθεί να είναι τιμή 2 και επιστρέφει στο πρώτο μέρος. Για να τερματίσετε τον τύπο της δήλωσης while: wend κάνει: Μόλις τελειώσετε με μια δήλωση while θα λειτουργήσει ως βρόχος έως ότου το επιχείρημα δεν ικανοποιηθεί πλέον. Έτσι, εάν συνεχίσετε να χτυπάτε όχι, θα κάνει βρόχο, αλλά μόλις πατήσετε ναι, θα απελευθερωθεί από τον βρόχο και θα συνεχίσει με το σενάριο. Αποθηκεύστε το αρχείο αλλά περιμένετε να το εκτελέσετε μέχρι το επόμενο βήμα. Ο κωδικός σας μέχρι τώρα πρέπει να είναι: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp { enter} "wscript.sleep 200shellobj.sendkeys" ipconfig /release {enter} exit {enter} "Dim MyVarmyvar = 2 ενω myvar = 2MyVar = MsgBox (" Ενεργοποίηση σύνδεσης στο διαδίκτυο ", 65," Ενεργοποίηση σύνδεσης στο Διαδίκτυο ") wend

Βήμα 10: Βήμα 7: Ενεργοποίηση του Διαδικτύου ξανά

Τώρα που κάποιος τελικά έκανε κλικ στο ναι και έχει περάσει τη δήλωση while, πρέπει να κάνουμε urn στο διαδίκτυο. Συνήθως εμφανίζω μια επιβεβαίωση, ώστε ο τελικός χρήστης να γνωρίζει τι συμβαίνει, αλλά είναι καθαρά προαιρετικό. Για να εμφανιστεί ένας τύπος επιβεβαίωσης: msgbox ("Τώρα θα ενεργοποιήσουμε ξανά τη σύνδεση στο Internet !!!") Τι κάνει: στέλνει ένα πλαίσιο μηνυμάτων που λέει Τώρα θα ενεργοποιήσουμε ξανά τη σύνδεση στο Internet !!! και σας δίνει ένα κουμπί ok για να κάνετε κλικ. Τώρα το μόνο που έχουμε να κάνουμε είναι να ενεργοποιήσουμε ξανά το διαδίκτυο και να κλείσουμε τα πάντα. Για να ενεργοποιήσετε ξανά το διαδίκτυο, ανοίγουμε απλώς μια γραμμή εντολών που ρυθμίζει το χρονόμετρο και στη συνέχεια χρησιμοποιήστε ξανά το ipcionfig. για να το κάνετε αυτό type: shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "ipconfig /update {enter}" Τι κάνει: αντιστρέφει την εντολή απενεργοποίησης από πριν και ανανεώνει τη διεύθυνση IP σας. Αφού ανανεώσετε τη διεύθυνση IP σας, μπορείτε τώρα να αποκτήσετε ξανά συνδέσεις στο Διαδίκτυο. Τώρα το μόνο που έχουμε να κάνουμε είναι να καθαρίσουμε τα ανοιχτά παράθυρα. Και πάλι θα μπορούσαμε να χρησιμοποιήσουμε μια εντολή sendkeys, αλλά απλώς θα προσθέσω την τελευταία γραμμή για να πραγματοποιήσω επίσης τις εκκαθαρίσεις. Σε αυτήν την περίπτωση πρόκειται να χρησιμοποιήσω το πρόγραμμα taskkill για να σκοτώσω το πρόγραμμα που εμφανίζει την εικόνα. Σε αυτήν την περίπτωση είναι τα παράθυρα προβολής εικόνας και φαξ και εμφανίζεται ως rundll32.exe στην καρτέλα διαδικασίες του διαχειριστή εργασιών, έτσι ώστε να χρειαστεί να σκοτώσουμε. Εάν η εικόνα σας ανοίξει χρησιμοποιώντας άλλο πρόγραμμα, όπως το irfanview ή το acdsee, βρείτε το όνομα με το οποίο εμφανίζεται στην καρτέλα διαδικασίες και αντικαταστήστε το rundll32.exe με το όνομα που βρίσκετε. Η εντολή θα είναι: taskkill /F /IM rundll32.exe κάνει: το taskkill είναι το όνομα του προγράμματος που ο διακόπτης /F του λέει να εξαναγκάσει να σκοτώσει και ο διακόπτης /IM του λέει το όνομα της εικόνας εντολή εξόδου και άλλη εισαγωγή και μοιάζει με αυτό: shellobj.sendkeys "ipconfig /Renew {enter} taskkill /F /IM rundll32.exe {enter} exit {enter}" Αποθηκεύστε το αρχείο σας.

Βήμα 11: Τελικό προϊόν

Αν όλα πήγαν καλά, το τελικό προϊόν σας θα πρέπει να μοιάζει κάπως έτσι: set shellobj = CreateObject ("WScript. Shell") shellobj.run "cmd" wscript.sleep 200shellobj.sendkeys "k: / id.bmp {enter}" wscript.sleep 200shellobj.sendkeys "ipconfig /release {enter} exit {enter}" Dim MyVarmyvar = 2 while myvar = 2MyVar = MsgBox ("Ενεργοποίηση σύνδεσης στο Διαδίκτυο", 65, "Ενεργοποίηση σύνδεσης στο Διαδίκτυο") wendmsgbox ("Τώρα θα ενεργοποιήσουμε το Διαδίκτυο Επαναφορά σύνδεσης !!! ") shellobj.run" cmd "wscript.sleep 200shellobj.sendkeys" ipconfig /ανανέωση {enter} taskkill /F /IM rundll32.exe {enter} exit {enter} "_ τέλος του script_Τώρα που ο προγραμματισμός είναι τελειώσετε μπορείτε να εκτελέσετε το πρόγραμμα. Τι πρέπει να συμβεί: 1.) Θα πρέπει να εμφανιστεί το παράθυρο CMD για πολύ σύντομο χρονικό διάστημα και στη συνέχεια να κλείσει2.) Το διαδίκτυο δεν πρέπει να λειτουργεί πλέον. αλλά δεν θα το δείτε3.)) Η εικόνα σας πρέπει να ανοίξει. 6) Μόλις κάνετε κλικ στο ναι, το πλαίσιο μηνυμάτων θα εξαφανιστεί και θα εμφανιστεί ένα παράθυρο CMD7.) Μόλις ανανεωθεί η διεύθυνση IP, το παράθυρο CMD και η εικόνα πρέπει να κλείσει. Εκεί το έχετε Ένα πολύ εύκολο VBscript για να ενεργοποιήσετε και να απενεργοποιήσετε το διαδίκτυο. Ελπίζουμε να σας αρέσει. Στην πραγματικότητα έφτιαξα ένα άλλο σενάριο που είναι σχεδόν πανομοιότυπο με αυτό που απενεργοποιεί τους προσαρμογείς δικτύου χρησιμοποιώντας ένα πρόγραμμα που ονομάζεται DevCon, το οποίο είναι σαν διαχειριστής συσκευής γραμμής εντολών. Λειτουργεί πολύ καλά για. Το σενάριο είναι πανομοιότυπο με αυτό, εκτός εάν σε αυτό έχει εντολές για ipconfig ότι έχει εντολές για DevCon.