v basic Frage schnell pls :)

Seite 1 von 2 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/v_basic_frage_schnell_pls_63760/page_1 - zur Vollversion wechseln!

sitze grad im infounterricht

möcht in v basic ein prog machen mit dem ich jemanden pingen kann


sprich
ins textfeld geb ich die ip ein

dann drück ich auf senden

wie mach ich das

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.

hmhm


ok


sag mir doch mal was ich beim button einfügen muss bzw
wie er die ip vom textfeld übernimmt

ps bin vb newb


edit :
a ok

naja
ich bekomm an syntaxfehler

wölchenen? fehlt vielleicht eine referenz?

naja

hab die zeile bei einem button eingefügt



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

End Sub

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

ohne klammern öffnet er nur cmd

macht aber ned den pingbefehl

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 CROWLER

ohne klammern öffnet er nur cmd

macht aber ned den pingbefehl

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

bei "ping -t" pingt er endlos. des hat aber nix mehr mit VB zu tun.

-t

edit : verdammt , wurde geowned

Hach... sieh dir das mal an.

Ein wenig G00gle zu benutzen, könnte dir auch nicht schaden

dass es -t is was i a

ok bin jetzt zhaus habs hingebkommen thx

overclockers.at v4.thecommunity
© all rights reserved by overclockers.at 2000-2025