Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VB-Konsolenprogramm
Autor: walther
Datum: 18.10.01 11:51
Habe jetzt eine kleine neue Erfahrungen gemacht. Wo genau gefunden weiss ich nicht mehr. Compilier die Geschichte mal und ruf das Programm wie folgt vom Prompt aus auf: SET | "Programmname" |more Option Explicit Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long Sub Main() Dim s As String 'Aus Eingabestrom lesen: s = StdRead 'Filter' anwenden: s = "Hallo Welt" 'In Ausgabestrom schreiben: StdWrite s End Sub Function StdWrite(ByVal Text As String) As Long Const STD_OUTPUT_HANDLE = -11& Dim Handle As Long Handle = GetStdHandle(STD_OUTPUT_HANDLE) WriteFile Handle, ByVal Text, Len(Text), StdWrite, ByVal 0& End Function Function StdRead() As String Const STD_INPUT_HANDLE = -10& Dim Handle As Long Dim Buffer As String * 2048 Dim Bytes As Long Handle = GetStdHandle(STD_INPUT_HANDLE) Exit Function Do ReadFile Handle, ByVal Buffer, Len(Buffer), Bytes, ByVal 0& If Bytes < Len(Buffer) Then Exit Do StdRead = StdRead & Buffer Loop StdRead = StdRead & Left$(Buffer, Bytes) End Function

VB-Konsolenprogramm	287	Tscherno	17.10.01 15:24
Re: VB-Konsolenprogramm	56	Crying Man	17.10.01 16:28
Re: VB-Konsolenprogramm	45	Tscherno	18.10.01 07:43
Re: VB-Konsolenprogramm	53	walther	18.10.01 08:03
Re: VB-Konsolenprogramm	82	Tscherno	18.10.01 08:40
Re: VB-Konsolenprogramm	73	walther	18.10.01 11:51
Re: VB-Konsolenprogramm	51	Crying Man	18.10.01 13:14
Re: VB-Konsolenprogramm	38	Tscherno	21.10.01 21:31

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen