Saltar al contenido

¡CONCURSO DE FOTOGRAFIA EVOLUTION WORLD!

¡Usa tu creatividad, toma una fotografia y enviala a uno de los owners para participar en el concurso! 
Regístrate, participa y gana

  Para más información Haz Clic Aquí.

 Te deseamos un excelente día

¡NOS INTERESA CONOCER TU OPINIÓN!

En Evolution World siempre estamos en constante cambio para mejorar el sitio, tu opinión es muy importante para nosotros,
si tienes algún comentario positivo, una crítica constructiva o una propuesta de mejora nos gustaría saberlo... Puedes escribir en el siguiente enlace 
Clic Aquí.

 Te deseamos un excelente día

CON EVOLUTION WORLD ¡GANAR CRÉDITOS ES MUY FÁCIL!

Recibirás:  €2 Créditos por Crear Tema | €3 Créditos por Subir Archivo de Descarga | €3 Créditos por Subir Tutorial | €10 Créditos por Referir a un Usuario

Para más información Haz Clic Aquí

¡GANA CRÉDITOS INVITANDO A TUS AMIGOS!

Porque en Evolution pensamos en tí
¡Invita a tus amigos! Si se registran tu obtendrás €10 créditos por cada uno y tu invitado recibirá €10 créditos también.
¡Con Evolution todos ganan! ¿Qué estás esperando? Disfruta con tus amigos de esta magnífica experiencia

Ver conexion a internet, ping e ip

   (0 Opiniones)

Descripción

Usando winsock

Buenas noches, como puse de titulo... les mostrare como hacer un programa en vb6, para comprobar la conexion a internet, la ip y el ping de la misma... Quiza el ping no este medido de la mejor forma, pero yo creo que da resultado..

Cualquier duda, pregunta o sugerencia.. no duden en consultar.. les dejo el codigo fuente:

Dim strPing As String 'hacemos el string para obtener el ping de conexion
Dim strDataIP As String 'string para obtener la ip
Dim strPacketRouter As String 'para reiniciar router
Dim strPost As String 'idem, reiniciar router



Private Sub chameleonButton1_Click()

'Este boton es "Comprobar"

wskEstado.Close
wskEstado.Connect "google.com.ar", 80

lblEstado = " Estado : Comprobando..."
lblEstado.BackColor = &H8000000F
lblPing = " Ping : ..."
lblPing.BackColor = &H8000000F
lblIP = " Dirección IP : ..."
lblIP.BackColor = &H8000000F

txtData = ""

End Sub

Private Sub chameleonButton3_Click()

'Este boton lo usamos para ver lo que recibimos de los Winsock

If chameleonButton3.Caption = ">>" Then

    chameleonButton3.Caption = "<<"
    XTab1.Visible = True
    Form1.Width = "5244"
    
Else

    chameleonButton3.Caption = ">>"
    XTab1.Visible = False
    Form1.Width = "2604"

End If

End Sub

Private Sub Form_Load()

'Aca solo le asignamos el ancho y el alto al programa, y le asignamos 0 a ping, ya que solo maneja valores numericos

strPing = 0

Form1.Width = "2604"
Form1.Height = "2796"

End Sub

Private Sub tmrPing_Timer()

'con el timer, verificamos los ms de la respuesta de internet "Ping"

strPing = strPing + 1

End Sub

Private Sub wskEstado_Connect()
Dim strPacket As String

'Conecta a google para ver si esta conectado a Internet, puede ser google, evolution-world, yahoo.. el que quieran

lblEstado = " Estado : Comprobando..."
lblEstado.BackColor = &H8000000F

strPacket = "GET / HTTP/1.1" & vbCrLf
strPacket = strPacket & "Host: google.com.ar" & vbCrLf
strPacket = strPacket & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:49.0) Gecko/20100101 Firefox/49.0" & vbCrLf
strPacket = strPacket & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
strPacket = strPacket & "Accept-Language: es-ES,es;q=0.8,en-US;q=0.5,en;q=0.3" & vbCrLf
strPacket = strPacket & "Accept -Encoding: gzip , deflate" & vbCrLf
strPacket = strPacket & "Connection: keep -alive" & vbCrLf
strPacket = strPacket & "Upgrade-Insecure-Requests: 1" & vbCrLf & vbCrLf

wskEstado.SendData strPacket

tmrPing.Interval = 1

End Sub

Private Sub wskEstado_DataArrival(ByVal bytesTotal As Long)
Dim strData As String

'Este se ocupa de recibir los datos, y abajo los analizamos, y separamos los que necesitamos con instr strdata

wskEstado.GetData strData


txtData = txtData & strData


    If InStr(strData, "http://www.google.com.ar/") Then
        
        tmrPing.Interval = 0
        lblPing.BackColor = &HFF00&
        lblPing = " Ping : " & strPing & " ms."
        strPing = 0
        lblEstado = " Estado : Conectado."
        lblEstado.BackColor = &HFF00&
        
        lblIP = " Dirección IP : Comprobando..."
        lblIP.BackColor = &H8000000F
        Call Command1_Click

    Else
    
    'Cuando tenemos un error..
        
        tmrPing.Interval = 0
        lblPing.BackColor = &HFF&
        lblPing = " Ping : Error."
        strPing = 0
        lblEstado = " Estado : Desconectado."
        lblEstado.BackColor = &HFF&
        lblIP.BackColor = &HFF&
        lblIP = " Dirección IP : Error."
        
        wskEstado.Close
        wskEstado.Connect "google.com", 80

    End If


End Sub

Private Sub wskEstado_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

'En caso de tener un error, cerramos el wsk, y lo conectamos de vuelta, por si vuelve la conexion a internet

tmrPing.Interval = 0
lblPing.BackColor = &HFF&
lblPing = " Ping : Error."
strPing = 0
lblEstado = " Estado : Desconectado."
lblEstado.BackColor = &HFF&
lblIP = " Dirección IP : Error."
lblIP.BackColor = &HFF&

wskEstado.Close

wskEstado.Connect "google.com", 80

End Sub



'''''''''''''''''''''''' Aca empieza IP





Private Sub Command1_Click()

'Aca empezamos a ver que ip tenemos

wskIP.Close
wskIP.Connect "www.vermiip.es", 80
txtDataIP = ""
strDataIP = ""

End Sub

Private Sub wskIP_Connect()
Dim strPacketIP As String

'Conecta el wsk para ver la ip

strPacketIP = "GET / HTTP/1.1" & vbCrLf
strPacketIP = strPacketIP & "Host: www.vermiip.es" & vbCrLf
strPacketIP = strPacketIP & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:62.0) Gecko/20100101 Firefox/62.0" & vbCrLf
strPacketIP = strPacketIP & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
strPacketIP = strPacketIP & "Accept-Language: es-ES,es;q=0.8,en-US;q=0.5,en;q=0.3" & vbCrLf
strPacketIP = strPacketIP & "Accept -Encoding: gzip , deflate" & vbCrLf
strPacketIP = strPacketIP & "Referer: https://www.google.com/" & vbCrLf
strPacketIP = strPacketIP & "Connection: keep -alive" & vbCrLf
strPacketIP = strPacketIP & "Upgrade-Insecure-Requests: 1" & vbCrLf & vbCrLf


wskIP.SendData strPacketIP

End Sub

Private Sub wskIP_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next

'Recibimos la data de la conexion, y abajo apartamos lo que necesitamos con el split

strDataIP = ""

wskIP.GetData strDataIP

txtDataIP = txtDataIP & strDataIP

strDataIP = Split(txtDataIP.Text, "uip=")(1)
strDataIP = Split(strDataIP, "; e")(0)

lblIP = " Dirección IP : " & strDataIP
lblIP.BackColor = &HFF00&

Command1.Caption = strDataIP

End Sub

1)

34zFMS.png

2)
QMREzF.png

3)

o7Ynmt.png

4)

UOPmZN.png

Lo unico que no les puse, es el reinicio del router, ya que cada router lleva su codigo, su info, y su codigo para entrar...

Para obtener los datos para conectar con el winsock a una pagina, yo lo hago con el HTTPS Live Header con el FireFox, les adjunto una imagen abajo de como aparece.

Saludos.

  • Me Encanta 2


Recommended Comments

No hay comentarios para mostrar.

Registra una cuenta o conéctate para comentar

Debes ser un miembro de la comunidad para dejar un comentario

Crear una cuenta

Regístrate en nuestra comunidad. ¡Es fácil!

Registrar una cuenta nueva

Iniciar Sesión

¿Ya tienes cuenta? Conéctate aquí.

Iniciar Sesión
×