[VB]Inet Frage

[.тяµε.]

Hi Com ich habe mal wieder ne Frage ....
Also gibt es einen Code der folgendes bewirkt :

-Ich drücke auf den Button
-Es wird getestet ob eine Internet Verbindung besteht (kann auch dauern hauptsache er testet es)
-Wenn Inet da ist öffnet er Form2
-Wenn keins da ist kommt eine MsgBox("Es besteht keine Internet Verbindung")



Hoffe sowas gibts und ihr könnt es sagen Werde bald auch (für manche) was hilfreiches Releasen ist schon fast fertig

[MoepMeep]

[.тяµε.]

das hat mich jz nicht weiter gebracht ...

[MoepMeep]

Dann solltest du wohl gleich aufhören, zu Programmieren.

Return Value
Boolean indicating whether or not the operation was successful.


edit: Ein Beispiel

[.тяµε.]

If My.Computer.Network.Ping("198.01.01.01") Then
MsgBox("Server pinged successfully.")
Else
MsgBox("Ping request timed out.")
End If

Das habe ich in dem Button

' Usage
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress)
Dim value As Boolean = My.Computer.Network.Ping(address)
Dim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress ,timeout)
Dim value As Boolean = My.Computer.Network.Ping(address ,timeout)
' Declaration
Public Function Ping( _
ByVal hostNameOrAddress As String _
) As Boolean
' -or-
Public Function Ping( _
ByVal address As System.Uri _
) As Boolean
' -or-
Public Function Ping( _
ByVal hostNameOrAddress As String, _
ByVal timeout As Integer _
) As Boolean
' -or-
Public Function Ping( _
ByVal address As System.Uri, _
ByVal timeout As Integer _
) As Boolean

Das habe ich in der Form ...


So right ? - Ich höre nicht auf da ich es ja lernen will ...

[MoepMeep]

Ich hab zwar 0 Ahnung von VB, aber das sieht verdammt Falsch aus. Wie wärs, wenn du erstmal die Grundlagen der Sprache lernst?

[.тяµε.]

habe ich ..
einfach codes etc .. progressbar usw...

kann ich alles blind ^^
Nur das mit der I-Net Verbindung schnall ich nicht ... Habe in Youtube + Google + Epvp nichts gefunden ...

[MoepMeep]

Originally Posted by .тяµε.

habe ich ..
einfach codes etc .. progressbar usw...

kann ich alles blind ^^
Nur das mit der I-Net Verbindung schnall ich nicht ... Habe in Youtube + Google + Epvp nichts gefunden ...

If My.Computer.Network.Ping("198.01.01.01") Then
   MsgBox("Server pinged successfully.")
Else
   MsgBox("Ping request timed out.")
End If

Was kann man an diesem code Beispiel bitte nicht verstehen?

[.тяµε.]

Originally Posted by MoepMeep

If My.Computer.Network.Ping("198.01.01.01") Then
   MsgBox("Server pinged successfully.")
Else
   MsgBox("Ping request timed out.")
End If

Was kann man an diesem code Beispiel bitte nicht verstehen?

kommt bei mir immer Fehler obwohl ich ja Verbindung habe !

Habe mir selber was versucht zu erstellen und es klappt

Dim Ip As String
        Ip = "elitepvpers.com"
        If My.Computer.Network.Ping(Ip) Then
            MsgBox("Sie sind mit dem Internet Verbunden!")
        Else
            MsgBox("Bitte überprüfen sie ihre Internet Verbindung!")
        End If

Problem gelöst
#closerequest