Ako komunikovať s konzoly v jazyku Visual Basic

Visual Basic neobsahuje jednoduchý spôsob , ako priamo komunikovať s konzoly , na čiernej obrazovke získate prístup vo Windows Vista zadaním " cmd " v " Spustiť vyhľadávanie " pole alebo spustenie " Príkazový riadok " odkaz z " programu príslušenstva . " Microsoft robí poskytnúť usmernenia pre zapojili práce - okolo , ktorý je popísaný v tomto príklade , pomocou niektorej z konkrétnych povolených príkazov . Dokonca tak , komunikácia je však limitovaná bez pokročilé znalosti programovania a zložitých programovacích rutín . Pokyny dovolená 1

Otvorte Visual Basic a začať nový projekt , pomocou " Štandardné EXE " šablónu nájdete pod odkazom " Súbor " , " New Project " . Kliknite na " projekt " v hornom menu a " Pridať modul " z rozbaľovacieho zoznamu .
2

Zadajte nasledujúce riadky v okne Module1 , ktoré podľa spoločnosti Microsoft obsahujúci len kód , ktorý umožní priama komunikácia s konzoly v jazyku Visual Basic . Podčiarknutia na konci niektoré riadky znamená , že text na ďalší riadok je pokračovaním existujúceho riadku . Nezahŕňajú podčiarkovník pri zadávaní tohto kódu , potom pokračovať v písaní na jednom riadku :

Možnosť ExplicitDeclare Funkcia AllocConsole Lib " Kernel32 " ( ) As LongDeclare Funkcia FreeConsole Lib " Kernel32 " ( ) As LongDeclare funkcie CloseHandle Lib " Kernel32 " ( byVal hObject As Long ) _As LongDeclare funkcia GetStdHandle Lib " Kernel32 " ( byVal _nStdHandle As Long ) ako LongDeclare funkcie WriteConsole Lib " Kernel32 " Alias ​​" WriteConsoleA " _ByVal hConsoleOutput As Long , lpBuffer ako akýkoľvek , byVal _nNumberOfCharsToWrite As Long , lpNumberOfCharsWritten As Long , _lpReserved As Any ) Ako LongPublic Const STD_OUTPUT_HANDLE = -11 &
3

Dvakrát kliknite na Form1 v zozname projektov na pravej strane sa otvorí tento formulár . Kliknite na " Zobraziť " a potom " kód " zo zoznamu . Zadajte nasledujúce riadky :

Dim hConsole ako LongPrivate Sub Form_Load ( ) Ak AllocConsole ( ) ThenhConsole = GetStdHandle ( STD_OUTPUT_HANDLE ) Ak hConsole = 0 Then MsgBox " Nemožno alokovať stdout " ElseMsgBox " Nemôžem alokovať konzoly " Koniec IfEnd Sub

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

Podržte kláves Shift a F7 sa vrátite do zobrazenia objektu Form1 . Kód vstúpil doteraz poskytuje prístup ku konzole . Zadajte nejaký kód , aby pokyny na konzole . Pridať OptionButton do formulára pomocou ikony Option zo zoznamu všeobecných kontrol v ToolBox stĺpci na ľavej strane . Presuňte tlačidlo v ľavom hornom rohu formulára . Túto akciu opakujte ešte trikrát , rozteč tlačidiel v dvoch stĺpcoch a dvoch riadkoch . Pridať poslednú kontrolu , CommandButton z panelu .
5

vykonajte nasledujúce zmeny v paneli Vlastnosti týkajúce sa práva na titulok vlastnosti každého ovládacieho prvku , zmenou predvolené volba1 , Voľba 2 a tak ďalej až nové titulky čítanie " Disk Directory " , " ipconfig /all " , " View Network Users " a " Clear Screen " . Zmeňte CommandButton titulok : " Choď . "
6

Pomocou programu Poznámkový blok vytvoriť štyri textové súbory s " . Bat " prípona miesto " . Txt . " Skontrolujte starostlivo poznačte , kam uložiť tieto súbory . Každý súbor bude obsahovať iba jeden riadok takto :

súboru : dirw.bat Obsah : DIR /WFileName : ip.bat Obsah : ipconfig /ALLFileName : netuser.bat Obsah : NET USERFileName : clear.bat Obsah : CLS
7

Dvojitým kliknutím na tlačidlo " Go " na formulári otvorte okno kód . Zadajte tento kód medzi " Private Sub Go_Click ( ) " a " End Sub " :

Private Sub Go_Click ( ) Ak Voľba 1 = TRUE ThenShell " [ nahradiť tú umiestnenie bat súbor uložený . ] /Dirw . bat " End nNejsou Ak Voľba 2 = TRUE ThenShell " [ náhradníka tu umiestnenie uloženého súboru . bat ] /ip.bat " End nNejsou Ak Voľba 3 = True ThenShell " [ nahradiť tú umiestnenie uloženého súboru . bat ] /netuser.bat " koniec nNejsou Ak Voľba 4 = True ThenShell " [ nahradiť tú umiestnenie súboru uložiť . bat ] /clear.bat " End Sub IfEnd klipart

Stlačením klávesu F5 spustiť program . Vyberte jednu z možností a kliknite na tlačidlo " Go " . Tým sa otvorí okno konzoly a spustí zvolený príkaz .

• Predchádzajúca strana: Ako obnoviť Norton Ghost Image Cez sieť 
• Ďalšia strana: Ako zmeniť rozlíšenie skenovaného dokumentu v aplikácii Adobe Acrobat 5