Bu uygulama Visual Basic uygulaması icinden bir console (DOS) ekranı cağırmak ve VB icinden bir batch dosya calıştırarak cıktıların console ekranına basılmasını sağlamak amacını guder.
Once Notepad'i kullanarak aşağıdaki batch dosyayı oluşturun.
DIR /W
Ve test.bat ismi ile root dizine kaydedin. Daha sonra Visual Basic'i acarak bir form ve bir modulden oluşan bir proje başlatın. Aşağıdaki API tanımlamalarını modulun icine kopyalayın.
Kod:
Option Explicit
Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) _
As Long
Declare Function GetStdHandle Lib "kernel32" (ByVal _
nStdHandle As Long) As Long
Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
(ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
lpReserved As Any) As Long
Public Const STD_OUTPUT_HANDLE = -11&
Form uzerine bir buton koyup aşağıdaki kodu girin
Kod:
Dim hConsole As Long
Private Sub Command1_Click()
Dim Result As Long, sOut As String, cWritten As Long
sOut = "Hi There" & vbCrLf
Result = WriteConsole(hConsole, ByVal sOut, Len(sOut), cWritten, _
ByVal 0&)
Shell "C:TEST.BAT"
End Sub
Private Sub Form_Load()
If AllocConsole() Then
hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
If hConsole = 0 Then MsgBox "STDOUT icin yer ayrılamadı" Else
MsgBox "Konsol icin yer ayrılamadı"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
CloseHandle hConsole
FreeConsole
End Sub
Uygulamayı calıştırdığınızda boş bir console ekranı goruntulenir. Cıkan mesaja OK deyin ve form uzerindeki butona tıklayın. Batch dosya calışacak ve cıktısı console ekranında gorunecektir. Uykusuz geceler ve şişmiş gozler dileğiyle.
__________________
VB İcinden Console Ekranının Kullanılması
Programlama0 Mesaj
●25 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- VB İcinden Console Ekranının Kullanılması