Code-Beispiel

Open Pipe-Beispiel

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	ytwinky	20.08.2010

Ein funktionierendes Beispiel für die OPEN PIPE-Anweisung.
Hier wird der Ping-Befehl von Windows aufgerufen.

'Ein funktionierendes Beispiel für die Verwendung von Open Pipe()

'¸2007 by ytwinky, MD

'Bei Bedarf nach Belieben änderbar :D

Const Lf=!"\n"

Declare Function Exists(DateiName As String) As Integer 'deklarieren der Function, die wie später benutzen..

Dim As String Path2Exe=Environ("windir") &"\System32" 'Beachte: kein '\' am Ende von Environ()

Dim As String ExeDatei="\Ping.Exe" '..also müssen wir es hier einfügen..

Dim As String Parameter=" -a -n 1 127.0.0.1" 'nicht das Leerzeichen am Anfang vergessen ;)

Dim As String Befehlszeile, Zeile, Ausgabe

Dim As Integer DNr=FreeFile



Befehlszeile=Path2Exe &ExeDatei &Parameter

If Not Exists(Path2Exe &ExeDatei) Then

  Print Path2Exe &ExeDatei &" nicht gefunden oder nicht richtig installiert ;-))"

  GetKey

  End

End If



Open Pipe Befehlszeile For Input As #DNr 'DNr an Konsolenausgabe zuweisen

  While Not Eof(DNr) 'lesen der Konsoleausgabe anfangen..

    Line Input #DNr, Zeile 'es könnten Kommata in Zeile sein, also ignorieren

    If Zeile<>"" Then Ausgabe+=Zeile &Lf 'Leerzeilen auslassen..

  Wend 'Ende der Konsolenausgabe prüfen..

Close #DNr 'Beenden der Konsolenausgabe

Print Ausgabe

Print "Eniki..";

GetKey

End



Function Exists(FileName As String) As Integer 'Oh, wie ich diese Funktion liebe :D

  Dim As Integer FileNumber=FreeFile, Missing=Open(FileName For Input As FileNumber) 'Variablen initialisieren..

  If Not Missing Then Close FileNumber 'programmieren wie man denkt..

  Return Missing=0 'TRUE, wenn es die Datei gibt..

End Function

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 19.10.2007 von ytwinky angelegt.
Die aktuellste Version wurde am 20.08.2010 von ytwinky gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.