v basic Frage schnell pls :)

Shell("cmd.exe ping -a 156.11.220.130 >>c:\temp\ping.txt" ,vbnormalfocus)

edit:
ok, ok, net ganz das, was du geschrieben hast, aber einen button und ein textfeld, dass dir das anzeigt, solltest schon bauen können. sonst: google.

wölchenen? fehlt vielleicht eine referenz?

schreib es einfach ohne klammern, ansonsten wird eine variable erwartet, dem du den retval zuweist.

JC hat recht, so isses "sauber" (falls man bei VB von "sauber" sprechen kann )

im prinzip reicht des für deine app

Code:

Private Sub Command1_Click()


Dim ret As Double
dim ip as string

ip = TextBox1.Text
ret = Shell("ping " & ip, vbNormalFocus)

End Sub

Zitat von rettich

JC hat recht, so isses "sauber" (falls man bei VB von "sauber" sprechen kann )

im prinzip reicht des für deine app

Code:

Private Sub Command1_Click()


Dim ret As Double
dim ip as string

ip = TextBox1.Text
ret = Shell("ping " & ip, vbNormalFocus)

End Sub

wie mache ich noch dass es erst aufhört wenn ich will

(ned nach 4 mal )

-t

edit : verdammt , wurde geowned

dass es -t is was i a