Anasayfa > Kodlar > Visual Basic 6 ile içinden console ekranının kullanılması

Visual Basic 6 ile içinden console ekranının kullanılması


VB İçinden Console Ekranının Kullanılması

Bu uygulama Visual Basic uygulaması içinden bir console (DOS) ekranı çağırmak ve VB içinden bir batch dosya çalıştırarak çıktıların console ekranına basılmasını sağlamak amacını güder.

Önce 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 açarak bir form ve bir modülden oluşan bir proje başlatın. Aşağıdaki API tanımlamalarını modülün içine kopyalayın.


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 üzerine bir buton koyup aşağıdaki kodu girin


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 için yer ayrılamadı" Else
MsgBox "Konsol için yer ayrılamadı"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle hConsole
FreeConsole
End Sub


Uygulamayı çalıştırdığınızda boş bir console ekranı görüntülenir. Çıkan mesaja OK deyin ve form üzerindeki butona tıklayın. Batch dosya çalışacak ve çıktısı console ekranında görünecektir. Uykusuz geceler ve şişmiş gözler dileğiyle.

Gurkan YENICERI


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: