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í

Buscar en La Comunidad

Mostrando resultados para etiquetas 'visual basic'.

  • Buscar por Etiquetas

    Añade etiquetas separándolas con comas.
  • Buscar por Autor

Tipo de Contenido


Foros

  • Bienvenidos!
    • Reglas de la Comunidad
    • Tutoriales del Sitio
    • Créditos €, Banco & Dólares
    • Dudas, sugerencias o comentarios sobre la comunidad
  • Evolution Pool
    • Reglas de Evolution Pool
    • Tienda Evolution Pool
    • Mejoras
    • Encuestas
    • Propuestas
    • Torneos
    • Ligas
  • Transacciones
    • Clasificados - Anuncios Publicitarios
    • Apuestas
    • Concursos
    • Rifas
    • Subastas
    • Preguntas y Sugerencias
  • Informática & Asistencia Técnica
    • Programas
    • Impresoras
    • Programación
    • Sistemas Operativos
    • Dispositivos Moviles
  • Entretenimiento
    • Películas
    • Series
    • Libros
    • Libros +18
    • Recetas de Cocina
    • Poesía y Reflexión
    • Habla sobre lo que quieras
  • Vídeojuegos
    • Tutoriales y Temas de Información
    • Proximos Lanzamientos
    • Preguntas y Respuestas
  • Redes Sociales
    • Memes
  • Fotografía & Videos
    • Muéstranos tu foto
    • Muéstranos tu entorno
    • Muéstranos tu mascota
    • Muéstranos tus viajes
  • Diseño gráfico
    • Galería
    • Tutoriales
    • Preguntas y Respuestas
  • Ciencia & Tecnología
    • Ciencia & Tecnología
    • Experimentos Científicos
    • Ingeniería Genética
    • Inteligencia Artificial
    • Ciencia Espacial
  • Salud
    • Enfermedades y Vacunas
    • Médicos
    • Preguntas y Respuestas
    • Nutrición
  • Educación
    • Cuentos
    • Material didáctico
    • Preguntas y Respuestas
  • Naturaleza
    • Animales
    • Plantas
    • Proyectos ecológicos
  • Vehículos
    • Tutoriales
    • Preguntas y Respuestas
    • Luce tu Vehiculo
  • Chicas
    • Moda y Belleza
    • Manualidades
    • Cosas de Chicas, Preguntas y Respuestas
  • Chicos
    • Deportes
  • Temas Controversiales
    • Política
    • Religión
  • Yahoo! Juegos Clasicos
    • Billar
    • Domino
    • Foros
  • México (Oficial)'s Temas
  • Guatemala (Oficial)'s Temas
  • Fortnite (juego)'s Temas
  • GTA ONLINE (juego)'s Temas
  • Supernatural (Serie)'s Temas
  • titopachangas (Twitch)'s Temas
  • Chile (Oficial)'s Temas
  • Argentina (Oficial)'s Temas
  • Colombia (Oficial)'s Temas
  • Costa Rica (Oficial)'s Temas
  • Cuba (Oficial)'s Temas
  • Honduras (Oficial)'s Temas
  • Panamá (Oficial)'s Temas
  • Perú (Oficial)'s Temas
  • Puerto Rico (Oficial)'s Temas
  • República Dominicana (Oficial)'s Temas
  • Venezuela (Oficial)'s Temas
  • CLUB HONDA CIVIC GUATEMALA's Temas
  • Lucifer (Serie)'s Temas
  • Arrow (Serie)'s Temas
  • Free fire's Temas
  • Supergirl (Serie)'s Temas
  • The Flash (Serie)'s Temas
  • DC's Legends Of Tomorrow (Serie)'s Temas
  • La La Land (Movie)'s Temas
  • Gossip Girl (Serie)'s Temas
  • RED DEAD REDEMPTION 2 (Juego)'s Temas

Categorías

  • Noticias Internacionales
  • Comunicados Oficiales

Categorías

  • Peliculas
  • Programas
  • Libros
    • Trilogias
    • Sagas
  • Documentos
  • Peliculas Infantiles
  • Series
  • Libros +18
    • Trilogías +18
    • Sagas +18
  • Controladores de Impresoras
  • México (Oficial)'s Archivos
  • Guatemala (Oficial)'s Archivos
  • Fortnite (juego)'s Archivos
  • GTA ONLINE (juego)'s Archivos
  • Supernatural (Serie)'s Archivos
  • titopachangas (Twitch)'s Archivos
  • Chile (Oficial)'s Archivos
  • Argentina (Oficial)'s Archivos
  • Colombia (Oficial)'s Archivos
  • Costa Rica (Oficial)'s Archivos
  • Cuba (Oficial)'s Archivos
  • Honduras (Oficial)'s Archivos
  • Panamá (Oficial)'s Archivos
  • Perú (Oficial)'s Archivos
  • Puerto Rico (Oficial)'s Archivos
  • República Dominicana (Oficial)'s Archivos
  • Venezuela (Oficial)'s Archivos
  • CLUB HONDA CIVIC GUATEMALA's Archivos
  • Lucifer (Serie)'s Archivos
  • Arrow (Serie)'s Archivos
  • Free fire's Archivos
  • Supergirl (Serie)'s Archivos
  • The Flash (Serie)'s Archivos
  • DC's Legends Of Tomorrow (Serie)'s Archivos
  • La La Land (Movie)'s Archivos
  • Gossip Girl (Serie)'s Archivos
  • RED DEAD REDEMPTION 2 (Juego)'s Archivos

Calendars

  • Community Calendar
  • México (Oficial)'s Eventos
  • Guatemala (Oficial)'s Eventos
  • Fortnite (juego)'s Events
  • GTA ONLINE (juego)'s Events
  • Supernatural (Serie)'s Events
  • titopachangas (Twitch)'s Events
  • Chile (Oficial)'s Events
  • Argentina (Oficial)'s Events
  • Colombia (Oficial)'s Events
  • Costa Rica (Oficial)'s Events
  • Cuba (Oficial)'s Events
  • Honduras (Oficial)'s Events
  • Panamá (Oficial)'s Events
  • Perú (Oficial)'s Events
  • Puerto Rico (Oficial)'s Events
  • República Dominicana (Oficial)'s Events
  • Venezuela (Oficial)'s Events
  • CLUB HONDA CIVIC GUATEMALA's Events
  • Lucifer (Serie)'s Events
  • Arrow (Serie)'s Events
  • Free fire's Events
  • Supergirl (Serie)'s Events
  • The Flash (Serie)'s Events
  • DC's Legends Of Tomorrow (Serie)'s Events
  • La La Land (Movie)'s Events
  • Gossip Girl (Serie)'s Events
  • RED DEAD REDEMPTION 2 (Juego)'s Events

Blogs

No hay resultados

No hay resultados

Categorias

  • Generos de Peliculas
    • Acción y Aventura
    • Adolescencia
    • Cine Africano
    • Anime
    • Animación
    • Australiana
    • Para Niños
    • Clasicos
    • Comedia
    • Crimen
    • Documentales
    • Drama
    • Educación
    • Fe y Espiritualidad
    • Familia
    • Fantasia
    • Comida
    • Horror
    • Cine Japonés
    • LGBT
    • Independiente
    • Cine Indio
    • Instructivo
    • Actuación en Vivo
    • Varios
    • Música
    • Misterio y Suspenso
    • Periodo Drama (Samurai)
    • Realidad
    • Romance
    • Ciencia Ficción
    • Cortometraje
    • Deportes
    • Suspenso
    • Variedad y Programa de Entrevistas
    • Guerra
    • Occidental
    • Cine Mundial
  • Géneros Musicales
    • Acustico
    • Alternativo y Punk
    • Blues
    • Clasicas
    • Gente de Campo
    • Dance y Electronica
    • Facil de Escuchar
    • Gospel y Religioso
    • Hip Hop y Rap
    • Vacaciones
    • Instrumental
    • Jazz
    • Latina
    • Metal
    • Estado de Animo
    • Otros
    • Pop
    • R&B
    • Rock
    • Banda Sonora
    • Mundo
  • Generos de Televisión
    • Acción y Aventura
    • Animación
    • Moda y Belleza
    • TV Clasica
    • Comedia
    • Documentales
    • Drama
    • Entretenimiento
    • Familia
    • Comida
    • Juegos
    • Salud y Estado Fisico
    • Hogar y Jardin
    • Aprendizaje y Educación
    • Naturaleza
    • Noticias
    • Realidad y Juegos
    • Ciencia y Tecnología
    • Soaps
    • Deportes
    • Viajes
    • Cosmos
    • Series
    • Virales
  • Videojuegos
    • PlayStation
    • Xbox
    • Wii U
    • PC
    • Proximos Lanzamientos
  • Educación
    • Material Didáctico
    • Cosas Varias
  • Informatica y Soporte
    • Soluciones y Tutoriales
    • Tutoriales de Impresoras
  • Ciencia y Tecnología
    • Experimentos Científicos
  • México (Oficial)'s Videos
  • Guatemala (Oficial)'s Videos
  • Fortnite (juego)'s Videos
  • GTA ONLINE (juego)'s Videos
  • Supernatural (Serie)'s Videos
  • titopachangas (Twitch)'s Videos
  • Chile (Oficial)'s Videos
  • Argentina (Oficial)'s Videos
  • Colombia (Oficial)'s Videos
  • Costa Rica (Oficial)'s Videos
  • Cuba (Oficial)'s Videos
  • Honduras (Oficial)'s Videos
  • Panamá (Oficial)'s Videos
  • Perú (Oficial)'s Videos
  • Puerto Rico (Oficial)'s Videos
  • República Dominicana (Oficial)'s Videos
  • Venezuela (Oficial)'s Videos
  • CLUB HONDA CIVIC GUATEMALA's Videos
  • Lucifer (Serie)'s Videos
  • Arrow (Serie)'s Videos
  • Free fire's Videos
  • Supergirl (Serie)'s Videos
  • The Flash (Serie)'s Videos
  • DC's Legends Of Tomorrow (Serie)'s Videos
  • La La Land (Movie)'s Videos
  • Gossip Girl (Serie)'s Videos
  • RED DEAD REDEMPTION 2 (Juego)'s Videos

Categorías

  • Computadoras
  • Gift Card
  • Fortnite (juego)'s Anuncios
  • GTA ONLINE (juego)'s Anuncios
  • Supernatural (Serie)'s Anuncios
  • titopachangas (Twitch)'s Anuncios
  • Chile (Oficial)'s Anuncios
  • Argentina (Oficial)'s Anuncios
  • Colombia (Oficial)'s Anuncios
  • Costa Rica (Oficial)'s Anuncios
  • Cuba (Oficial)'s Anuncios
  • Honduras (Oficial)'s Anuncios
  • Panamá (Oficial)'s Anuncios
  • Perú (Oficial)'s Anuncios
  • Puerto Rico (Oficial)'s Anuncios
  • República Dominicana (Oficial)'s Anuncios
  • Venezuela (Oficial)'s Anuncios
  • Lucifer (Serie)'s Anuncios
  • Arrow (Serie)'s Anuncios
  • Free fire's Anuncios
  • Supergirl (Serie)'s Anuncios
  • The Flash (Serie)'s Anuncios
  • DC's Legends Of Tomorrow (Serie)'s Anuncios
  • La La Land (Movie)'s Anuncios
  • Gossip Girl (Serie)'s Anuncios
  • RED DEAD REDEMPTION 2 (Juego)'s Anuncios

Categorías

  • Tarjetas de Regalo
  • México (Oficial)'s Rifas
  • Guatemala (Oficial)'s Rifas
  • Fortnite (juego)'s Rifas
  • GTA ONLINE (juego)'s Rifas
  • Supernatural (Serie)'s Rifas
  • titopachangas (Twitch)'s Rifas
  • Chile (Oficial)'s Rifas
  • Argentina (Oficial)'s Rifas
  • Colombia (Oficial)'s Rifas
  • Costa Rica (Oficial)'s Rifas
  • Cuba (Oficial)'s Rifas
  • Honduras (Oficial)'s Rifas
  • Panamá (Oficial)'s Rifas
  • Perú (Oficial)'s Rifas
  • Puerto Rico (Oficial)'s Rifas
  • República Dominicana (Oficial)'s Rifas
  • Venezuela (Oficial)'s Rifas
  • CLUB HONDA CIVIC GUATEMALA's Rifas
  • Lucifer (Serie)'s Rifas
  • Arrow (Serie)'s Rifas
  • Free fire's Rifas
  • Supergirl (Serie)'s Rifas
  • The Flash (Serie)'s Rifas
  • DC's Legends Of Tomorrow (Serie)'s Rifas
  • La La Land (Movie)'s Rifas
  • Gossip Girl (Serie)'s Rifas
  • RED DEAD REDEMPTION 2 (Juego)'s Rifas

Categorías

  • Tutoriales del Sitio
  • Tutoriales de Impresoras
  • Programación
    • C
    • C++
    • C#
    • HTML
    • Java
    • Php
    • Phyton
    • Visual Basic
  • GTA ONLINE (juego)'s Tutorials
  • Supernatural (Serie)'s Tutorials
  • titopachangas (Twitch)'s Tutorials
  • Chile (Oficial)'s Tutorials
  • Argentina (Oficial)'s Tutorials
  • Colombia (Oficial)'s Tutorials
  • Costa Rica (Oficial)'s Tutorials
  • Cuba (Oficial)'s Tutorials
  • Honduras (Oficial)'s Tutorials
  • Panamá (Oficial)'s Tutorials
  • Perú (Oficial)'s Tutorials
  • Puerto Rico (Oficial)'s Tutorials
  • República Dominicana (Oficial)'s Tutorials
  • Venezuela (Oficial)'s Tutorials
  • CLUB HONDA CIVIC GUATEMALA's Tutorials
  • Lucifer (Serie)'s Tutorials
  • Arrow (Serie)'s Tutorials
  • Free fire's Tutoriales
  • Supergirl (Serie)'s Tutoriales
  • The Flash (Serie)'s Tutoriales
  • DC's Legends Of Tomorrow (Serie)'s Tutoriales
  • La La Land (Movie)'s Tutoriales
  • Gossip Girl (Serie)'s Tutoriales
  • RED DEAD REDEMPTION 2 (Juego)'s Tutoriales

Buscar resultados en...

Buscar resultados que...


Fecha de Creación

  • Comienzo

    Fin


Última Actualización

  • Comienzo

    Fin


Filtrar por número de...

Registrado

  • Comienzo

    Fin


Grupo


Datos sobre mi

Encontramos 3 resultados

  1. 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
  2. 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
  3. Crear un Semaforo Como pueden ver aqui ya coloque tres ovalshape, 1 textbox y el timer. Ahora procederemos a activar el timer, activando la opcion de enabled. Ahora activaremos el timer para que empiece a contar el tiempo con el siguiente codigo. Ya teniendo esto procederemos a programar el textbox para que empiece a funcionar el semaforo: Damos doble clik sobre el textbox y utilizaremos la condicion if, ejemplo "si el textbox1 es igual a 15 cambia el color del ovalshape1". Luego de esto solo le daremos ejecutar y listo. Les dejo el link del archivo para que puedan descargarlo y ver que les parece: Author Leonel Ruano Categoría Visual Basic Enviado 23/01/19 07:42
×