Saltar al contenido

¡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

¡MODIFICA TU PERFIL!

Mediante Suscripciones podrás realizar los siguientes cambios:
Foto de Perfil | Foto de Portada | Canción de Perfil | Video de Perfil | Agrega una Firma | Cambia tu nombre de Usuario | Compra monedas para Evolution Pool
Para mas información Haz Clic Aquí

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

¡SÉ PARTE DE NUESTRA LIGA!

Para registrarte en la liga de Evolution Pool en MyLeague.com  

Haz Clic Aquí

Joni ~

Grupo: icons8-source-code-48Programador

Reputación en la Comunidad

14 Bueno

Sobre Joni ~

Visitantes recientes en el perfil

52 visitas al perfil
  1. Joni ~

    Liga EvolutionPool

    Ya estamos! J_o_n_i
  2. Buenas noches... Como dice el titulo, vamos a usar este post, para tratar de sacarle las dudas a los que las tengan... o si necesitan algo especifico... un tutorial de como hacer tal cosa u otra... Asi sea de un admin, o mod, o cualquier usuario... A medida que vayan solicitando y pidiendo... Iremos viendo y tratando de contestarles, ser pacientes ya que muchos no usamos la pc todos los dias. Saludos
  3. Ver conexion a internet, ping e ip 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) 2) 3) 4) 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. Author Joni ~ Categoría Visual Basic Enviado 17/02/19 03:19
  4. 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) 2) 3) 4) 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.
  5. Joni ~

    Anecdota encontrada en la Web

    Ese sombra!!! Como estas hermano tanto tiempo!!! Si obvio, aun tengo todos los proyectos en vb6 jajajaja ! Que buenos tiempos esos!
  6. Joni ~

    Anecdota encontrada en la Web

    Aleee ! Sigues estando igual a antes jaja! Muy linda! Tambien un gusto veerte por aqui! Ojala este todo bien! Un beso!
  7. Joni ~

    Anecdota encontrada en la Web

    Ey! Que onda la gente! Quiza alguno me recuerde en los foros! Empece siendo uno mas en los foros, y luego me profundice para hacer programas, sin saber nada, y ahi termine haciendo crackers, scanners, pw changers.. y hasta un programa para postear subastas en un foro, no recuerdo cual jajaja, tambien otro programa para votar el foro! No solo me fui del pool, con gente buena y buenos tiempos compartidos, sino tambien aprendiendo muchas cosas! Slds a todos, y lo que necesiten ya saben, me avisan !
×