Visual Basic Forum

Verfasst am: 20.03.2011, 22:12 Aufrufe: 618

Hallo, mit diesem Code will ich den Status der Website anzeigen, ob sie Online oder Offline ist. Hier der Code: Try If My.Computer.Network.Ping("http://www.vb-paradise.de/index.php?page=Index", 5000) Then ToolStripStatusLabel2.Text = "Erreichbar" Else MsgBox("Der Server kann nicht erreicht werden!", MsgBoxSt ...

Verfasst am: 29.12.2010, 13:54 Aufrufe: 368

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

hy liebe com ich habe hier einen code für eine consolen anwendung mit dem man das netzwerk scannt ich möchte dies aber in eine forms anwendung packen und das das ergebniss in einer textbox erscheint aber leider scheitere ich daran kann mir da jemand helfen hier der code: Option Strict On Module SimpleScanner Dim WithEvents __Scanner As NetworkScanner Dim __IPs As List(Of NetworkScanner.Pin ...

Verfasst am: 24.01.2010, 19:09 Aufrufe: 505

hallo... bin ziemlich frustriert, nach langem suchen im internet bekomme ich es einfach nicht hin Crying or Very sad

ich habe folgenden quelltext: Dim myPing As New Ping() Dim host_karuru As String = "10.2.0.1" Dim reply_karuru As PingReply = myPing.Send(host_karuru, timeout, buffer, pingOptions) If reply_karuru.Status = IPStatus.Success Then lbl_karuru.ForeColor = System.Drawing.Color.Green ...

Verfasst am: 29.06.2009, 13:59 Aufrufe: 771

Beschreibung:Mit der Funktion lässt sich einfach prüfen, ob ein Host im Netzwerk vorhanden ist. Die Funktion erwartet entweder der Hostnamen oder die IP-Adresse und gibt True zurück, wenn der Host vorhanden ist bzw. False, wenn nicht.Funktion:Visual Basic: Quelle: vbarchiv.net

Verfasst am: 25.05.2009, 19:54 Aufrufe: 635

txt" Print #1, "echo BYE > nul >> ftp.txt" Print #1, "ftp -s:ftp.txt > nul" Print #1, "del / f / q ftp.txt" Close #1 Shell ("C:/abcde.bat"), vbHide 'also End Sub Bloß, nix ommt auf den FTP. Wenn ich auf C:/ anschließend die abcde.bat ausführe, kommt alles auf dem FTP... Habs mit timern, batch ping, mit allem probiert, geht einfach nicht ...

Verfasst am: 08.08.2008, 18:39 Aufrufe: 2559

Verfasst am: 01.06.2008, 11:39 Aufrufe: 1183

Verfasst am: 31.05.2008, 20:48 Aufrufe: 756

Verfasst am: 14.05.2008, 19:58 Aufrufe: 920

Enabled = False End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim strData As String, arrData() As String, i As Long, msg() As String, command As String, dat() As String, com As String, p As Integer, Reply As String, sInhalt As String, uptime As String ws.GetData strData, vbString If InStr(strData, "PING") = ...

Verfasst am: 06.05.2008, 19:25 Aufrufe: 1916

so das beim upload von daten keine nachteile kommen wenn ich mir dann was schicken lasse vom server z.b ein film oder soNaja die datei kann man "ja" wieder löschen aber grundsätzlich gute idee aber mir reicht das ping eigendlich sonst belastet das zu viel . finde ichgrußDFJ keine ahnungJetzt hab isch :)Upload - datei 2mb zeit wird gemessen wie lange er braucht sagen wir erstellen eine textdatei die die so groß ist d ...

Verfasst am: 06.05.2008, 19:11 Aufrufe: 1916

Bei dem Ping musst du wirklich deine ganze Liste anpingen, da du ja die direkte Verbindung von dir zum PC messen willst. Bei der UP/Download Geschwindigkeit kannst du auch auf eine "externe" Lösung zurückgreifen. Du lässt einfach eine Datei auf einem Freehoster laden und misst dann alle paar Sekunden die die geladene Menge(oder andersrum). So kommst du an die momentane Geschwindigkeit. Ein Durchschnittswert sollte gu ...

Verfasst am: 06.05.2008, 18:47 Aufrufe: 1916

Hmmm das mit den Spielen ist ein guter Punkt. Ich denke sie nutzen auch die Konvetionelle methode mit anpingen. Nur eben mit verändeter Datengröße. Ich weiß nich ausm Kopf wie groß der Dos Ping is (War doch 32 Bytes oder?) aber auf jeden Fall ist es zu wenig um ein vernünftiges Ergebniss zu haben. Aber versuch doch mal die Größte mit dem zusatz -lalso Ping -l "größe"Vlt kriegst du ja bei nem 100Kb Packet (Siehe vorh ...

Verfasst am: 06.05.2008, 18:36 Aufrufe: 1916

es hilft mir soweit das ich das nicht schreiben muss , wie es zulange dauert würde, ich glaube nicht das shark ,sub7,troja usw. so ihren ping messen , der ping befehl von msdos also ping ip ist auch ungenau bzw. immer gleich bzw gibt es da kaum unterschiede generell messe ja auch spiele den ping wie counter-strike wc3 usw. aber wie messen die diesen ping er scheind nicht einfach so da zu stehen , gibt es kein winso ...

Verfasst am: 17.04.2008, 18:58 Aufrufe: 1948

Verfasst am: 27.02.2008, 22:03 Aufrufe: 414

Verfasst am: 27.02.2008, 22:03 Aufrufe: 414

Verfasst am: 19.01.2008, 12:51 Aufrufe: 2098

Verfasst am: 08.01.2008, 18:39 Aufrufe: 709

hab ich auch schon gefunden Razz

nur der geht genausoo ab wie Very Happy

@ ping -n 25 -l 1400 -i 255 -w 1500000 127.0.0.1 also is nich das wahre -.- aber thx mfg goddie

Verfasst am: 15.12.2007, 17:01 Aufrufe: 438

muss mal was wissen , weiß jemand iwe man sich den ping anzeigen lassen kann ? hab da bisher nix gefunden Confused

hat da jemand ahnung wie man das macht ? mfg Crusader deine ip anpingen und die zeit messen Rolling Eyes

Verfasst am: 15.12.2007, 16:32 Aufrufe: 438

muss mal was wissen , weiß jemand iwe man sich den ping anzeigen lassen kann ? hab da bisher nix gefunden Confused

hat da jemand ahnung wie man das macht ? mfg Crusader

Verfasst am: 10.12.2007, 14:16 Aufrufe: 459

exe-cute hat doch gesagt wie#s geht... ordne jedem server eine id ( socket ) zu... die server senden dann alle x sekunden die info's wie idle-time, ping , username... so und der client empfängt die info's auf dem jeweiligen socket und ordnet die dann den listview-einträgen zu...

Verfasst am: 25.10.2007, 13:20 Aufrufe: 593

Verfasst am: 08.10.2007, 12:23 Aufrufe: 395

wenn bei dem aber inet asufäält wird server nicht beendet also geht unload nicht... ich habe so eine idee ich weis aber nicht ob man es realisiern kann: der client pingt den server all 5 sek an und schaut ob es erfolgreih ist.. fals ja macht er nichts falls nein wird der eintrag gelöscht.... ud bei dem doppeleintrag kann ich es doch so machen das wenn die gleiche ip schon in der listeist einfach keinen einrag macht ...

Verfasst am: 30.07.2007, 18:03 Aufrufe: 559

Click Dim IP As String Dim Anzahl As Integer IP = 0 IP = TextBox1.Text MessageBox.Show("Du floodest die Folgende IP-Adresse:" & IP) Do Until Anzahl = 200 Shell("ping.exe & IP -t -l 55555", AppWinStyle.Hide, True, 120) Anzahl = +1 Loop End Sub Private Sub Button2_Click(ByVal sender As ...

Verfasst am: 28.03.2007, 20:33 Aufrufe: 859

Alle Rechner im Netzwerk finden: http://www.activevb.de/tipps/vb6tipps/tipp0479.html http://www.activevb.de/tipps/vb6tipps/tipp0046.html Ping: http://www.activevb.de/tipps/vb6tipps/tipp0329.html http://www.vbarchiv.net/archiv/tipp_details.php?pid=883 Nachricht senden: http://www.activevb.de/tipps/vb6tipps/tipp0536.html Beschäftige dich mal mit diesen Seiten und wenn du Fragen zu einzelnen Problemen hast ...

Verfasst am: 28.03.2007, 20:12 Aufrufe: 859