Πώς να επικοινωνήσει με την κονσόλα σε Visual Basic

Visual Basic δεν περιλαμβάνουν έναν απλό τρόπο για να επικοινωνούν απευθείας με την κονσόλα, μαύρη οθόνη έχετε πρόσβαση σε Vista , πληκτρολογώντας "cmd " στο πλαίσιο " Έναρξη αναζήτησης " ή την εκτέλεση του " Command Prompt "link από " Αξεσουάρ Program . " Η Microsoft κάνει προσκομίσει οδηγίες για μια εργασία εμπλεκόμενους -γύρω , η οποία περιγράφεται σε αυτό το παράδειγμα, χρησιμοποιώντας μερικές από τις ειδικές εξουσιοδοτημένο εντολές. Ακόμα κι έτσι , η επικοινωνία περιορίζεται χωρίς προηγμένες γνώσεις προγραμματισμού και πολύπλοκες ρουτίνες προγραμματισμού . Οδηγίες
Η 1

Ανοίξτε Visual Basic και να ξεκινήσει ένα νέο έργο , χρησιμοποιώντας το "Standard EXE " πρότυπο που περιλαμβάνεται στο " Αρχείο ", " New Project ". Κάντε κλικ στο " Project" στο πάνω μενού και " Προσθήκη Module " από το drop -down λίστα . 2

Πληκτρολογήστε τις ακόλουθες γραμμές στο παράθυρο Module1 , η οποία σύμφωνα με τη Microsoft περιέχει το μοναδικό κωδικό που θα επιτρέψει άμεση επικοινωνία με την κονσόλα σε Visual Basic . Η παύλα στο τέλος των γραμμών δείχνει ότι το κείμενο στην επόμενη γραμμή είναι η συνέχιση της τρέχουσας γραμμής . Μην συμπεριλάβετε το χαρακτήρα υπογράμμισης κατά την είσοδο αυτόν τον κωδικό ? Απλά να συνεχίσετε την πληκτρολόγηση σε μία γραμμή : Λειτουργία

ExplicitDeclare Επιλογή AllocConsole Lib " kernel32 " ( ) Όπως LongDeclare Λειτουργία FreeConsole Lib " kernel32 " ( ) Όπως LongDeclare Λειτουργία CloseHandle Lib " kernel32 " ( ByVal hObject Όπως Long ) _As Λειτουργία LongDeclare GetStdHandle Lib " kernel32 " ( ByVal _nStdHandle Όπως Long ) Όπως LongDeclare Λειτουργία WriteConsole Lib " kernel32 " Alias ​​" WriteConsoleA " _ByVal hConsoleOutput Όπως Long , lpBuffer Όπως κάθε, ByVal _nNumberOfCharsToWrite Όπως Long , lpNumberOfCharsWritten Όπως Long , _lpReserved Όπως κάθε ) Όπως LongPublic Const STD_OUTPUT_HANDLE = & -11 εικόνων
3

κάντε διπλό κλικ στο Φόρμα1 στη λίστα του έργου σχετικά με το δικαίωμα να ανοίξει αυτή τη φόρμα . Κάντε κλικ στο κουμπί "Προβολή" και στη συνέχεια " κώδικα " από τη λίστα . Εισάγετε αυτές τις γραμμές :

Δημ. hConsole ως LongPrivate Sub Form_Load ( ) Αν AllocConsole ( ) ThenhConsole = GetStdHandle ( STD_OUTPUT_HANDLE ) Αν hConsole = 0 Τότε MsgBox "Δεν ήταν δυνατή κατανομή STDOUT " ElseMsgBox " δεν είναι δυνατή η διάθεση της κονσόλας " End IfEnd Sub

Private Sub Form_Unload ( Cancel As Integer ) CloseHandle hConsoleFreeConsoleEnd Sub
Η 4

Κρατήστε πατημένο το Shift και F7 για να επιστρέψετε στην προβολή Αντικείμενο της Φόρμα1 . Ο κώδικας αυτός τέθηκε παρέχει μέχρι στιγμής η πρόσβαση στην κονσόλα . Εισάγετε κάποιο κωδικό για να δώσει οδηγίες για την κονσόλα . Προσθέστε ένα OptionButton στη φόρμα χρησιμοποιώντας το εικονίδιο επιλογή από τον κατάλογο των γενικών ελέγχων στη στήλη εργαλειοθήκη στα αριστερά . Σύρετε το κουμπί στο επάνω αριστερό μέρος της φόρμας . Επαναλάβετε αυτήν την ενέργεια τρεις φορές , η απόσταση των πλήκτρων σε δύο στήλες και δύο γραμμές . Προσθέστε ένα τελευταίο έλεγχο , ένα CommandButton από την Εργαλειοθήκη .
5

Κάντε τις ακόλουθες αλλαγές στον πίνακα Properties για το δικαίωμα στην ιδιότητα Caption κάθε έλεγχο , αλλάζοντας την προεπιλεγμένη Option1 , Επιλογή 2 και ούτω καθεξής να Λεζάντες νέα ανάγνωση " Disk Directory ", " ipconfig /all ", " χρήστες View Network " και "Clear Screen ". Αλλάξτε τη λεζάντα CommandButton στο " Go".
Η 6

Χρησιμοποιήστε το Σημειωματάριο για να δημιουργήσει τέσσερα αρχεία κειμένου με κατάληξη " . Νυχτερίδα " αντί του " . Txt . " Κάνετε προσεκτική σημείωση όπου μπορείτε να αποθηκεύσετε αυτά τα αρχεία . Κάθε φάκελος θα περιέχει μόνο μια γραμμή ως εξής :

FileName : dirw.bat Περιεχόμενα : DIR /WFileName : ip.bat Περιεχόμενα : IPCONFIG /ALLFileName : netuser.bat Περιεχόμενα : NET USERFileName : clear.bat Περιεχόμενα : CLS
Η

7 Κάντε διπλό κλικ στο κουμπί "Μετάβαση " στη φόρμα για να ανοίξετε το παράθυρο κώδικα . Εισάγετε τον κωδικό αυτό μεταξύ του " Private Sub Go_Click ( ) " και " End Sub" :

Private Sub Go_Click ( ) Αν Option1 = True ThenShell " [ υποκατάστατο εδώ η θέση του αποθηκευμένου bat αρχείο . ] /Dirw . bat "End IfIf Επιλογή 2 = True ThenShell " [ υποκατάστατο εδώ η θέση του αποθηκευμένου bat αρχείο . ] /ip.bat "End IfIf επιλογή 3 = True ThenShell " [ υποκατάστατο εδώ η θέση του αποθηκευμένου bat αρχείο . ] /netuser.bat " End IfIf Option4 = True ThenShell " [ υποκατάστατο εδώ η θέση του bat αρχείο αποθηκεύεται . ] /clear.bat " End Sub IfEnd

Πατήστε F5 για να εκτελέσετε το πρόγραμμα . Επιλέξτε μία από τις επιλογές και κάντε κλικ στο " Go". Αυτό ανοίγει ένα παράθυρο της κονσόλας και εκτελεί την επιλεγμένη εντολή .
Η
εικόνων