Net send in VB

[fachinder]

Hi Retlaw,

kannst du mir vielleicht ein Beispiel geben?

Bei mir funktioniert es nicht.

Habe folgendes eingegeben:

Option Explicit
Dim ip As String
Dim text As String

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_LostFocus()
ip = Text1.text
End Sub
Private Sub Text2_LostFocus()
text = Text2.text

End Sub

Private Sub Command1_Click()
Dim ip As String
Dim text As String

ip = Text1.text
text = Text2.text
Shell ("net help send | more " & ip & " " & text)

End Sub

danke

 

[Jiekas]

Öffne mal die Eingabeaufforderung (Start->Ausführen->"cmd" eintippen->"OK" drücken) und gib da mal den Text von Retlaw ein. Dann siehst du die Hilfe zu dem NET SEND Befehl. Da steht deine Antwort drin.

 

[fachinder]

oh man ich dachte ich solle das einfügen. ups

danke bin weiter gekommen

:-( :-( :-(