[VB]Inet Frage

10/18/2010 14:22 .тяµε.#1
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 :awesome:
10/18/2010 14:40 MoepMeep#2
[Only registered and activated users can see links. Click Here To Register...]
10/18/2010 14:54 .тяµε.#3
das hat mich jz nicht weiter gebracht ...
10/18/2010 15:02 MoepMeep#4
Dann solltest du wohl gleich aufhören, zu Programmieren.

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


edit: Ein Beispiel [Only registered and activated users can see links. Click Here To Register...]
10/18/2010 15:07 .тяµε.#5
Quote:
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

Quote:
' 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 ...
10/18/2010 15:10 MoepMeep#6
Ich hab zwar 0 Ahnung von VB, aber das sieht verdammt Falsch aus. Wie wärs, wenn du erstmal die Grundlagen der Sprache lernst?
10/18/2010 15:12 .тяµε.#7
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 ...
10/18/2010 15:13 MoepMeep#8
Quote:
Originally Posted by .тяµε. View Post
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 ...
Code:
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?
10/18/2010 15:17 .тяµε.#9
Quote:
Originally Posted by MoepMeep View Post
Code:
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 :awesome:

Code:
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