URL: https://www.overclockers.at/coding-stuff/v_basic_frage_schnell_pls_63760/page_2 - zur Vollversion wechseln!
Zitat von rettichbei "ping -t" pingt er endlos. des hat aber nix mehr mit VB zu tun.
ZitatPrivate Sub Command1_Click()
Dim ret As Double
Dim ip As String
ip = textbox3.Text
ret = Shell("ping " & ip, vbNormalFocus)
End Sub
die frage is, wie du plötzlich auf "net send" statt "ping" kommst...Zitat von CROWLERnaja ich meinte eher wo muss ich -t einsetzen ???
hatte den falschen button kopiert
na, dann mach mal ne dosbox auf und gib "ping /?" ein...
irgendwie versteht mich kana
wo muss ich
HIER : (also in der folgenden zeile )
ret = Shell("ping " & ip, vbNormalFocus)
-t einsetzen
denn wenn ich
ret = Shell("ping " & ip, -t, vbNormalFocus)
einsetze gehts ned
ret = Shell("ping -t " & ip, -t, vbNormalFocus)
edit:
sorry für den bash, aber deine frage zeigt, dass du dir net amal 2 minuten zeit genommen hast, die lösung zur problemstellung zu verstehen.
ret=Shell("ping -t " & ip,vbnormalfocus)
grrr...zulang überlegt, hab selbst erst in der Eingabeaufforderung nachschaun müssen, was du auch machen hättest können
einfach bissi herumprobieren...
Zitat von rettichret = Shell("ping -t " & ip, -t, vbNormalFocus)
ZitatRuns an executable program and returns an integer containing the program's process ID if it is still running.
Public Function Shell( _
ByVal Pathname As String, _
Optional ByVal Style As AppWinStyle = AppWinStyle.MinimizedFocus, _
Optional ByVal Wait As Boolean = False, _
Optional ByVal Timeout As Integer = -1 _
) As Integer
Parameters:
Pathname
Required. String. Name of the program to execute, together with any required arguments and command-line switches. Pathname can also include the drive and the directory path or folder.
Zitat von watchout
Zitat von rettichret = Shell("ping -t " & ip, -t, vbNormalFocus)
edit:
sorry für den bash, aber deine frage zeigt, dass du dir net amal 2 minuten zeit genommen hast, die lösung zur problemstellung zu verstehen.
overclockers.at v4.thecommunity
© all rights reserved by overclockers.at 2000-2025