Mensajes

Es muy facil usa Winsock

Agrega a tu proyecto el control winsock

Código (vb) [Seleccionar] Expandir


Private Sub Timer1_timer()
    Dim Res as string
    Res=EstadoServer(ip,puerto,NombreWinsockOSocketMaster)
    msgbox iif(Res=0,"Desconectado (OFF)","Conectado (On)")
end sub

public Function EstadoServer(IPDNS as string, byval Puerto as integer,Socket as Winsock) as long
    with Socket
        if .state<>7 then
            EstadoServer=0
            .close
            .remotehost=IPDNS
            .remoteport=Puerto
            .connect
        else
            EstadoServer=1
        end if
    end with
end function



Si tiene algun error corrigelo, ya que no cuento con el Visual Basic a la mano y errores de dedo estan presentes Ok

Dulces Lunas

Con solo leerlo y no saber nada de Winsock es entendible, gracias, pero no es lo que pedia 
Yo quería que el VB saque la info de una página.

Es para un servidor de Lineage 2   
La idea del programa es que muestre esto:
Estado (ON/OFF)
Cantidad de players ON
(con saber sacar esos dos datos puedo sacar muchos más)

La idea sería que revise la página y saque determinada info.

Saludos

Hola a toda la comunidad elhacker.
Me pidieron ayuda para realizar una aplicación en la cual, cuando el usuario la ejecuta, se abre en segundo plano e informa el estado de un servidor (On/Off). parece simple, y deve serlo, pero hasta ahora nunca tuve que relacionar VB con internet y para mi es como algo "nuevo".
Les pido si alguno tiene algun link, o me puede tirar un código, para ver que tan complicado puede llegar a ser.

Muchas gracias

Gracias te explicaste bien 

Salu2!

Hola gente.
Estaba haciendo una calculadora básica, y se me planteo un problemita:
Quiero hacer con un control Timer detecte las teclas que esta apretando el usuario, pero quiero que detecte específicamente por ejemplo el 1,2,+,-,* etc.
Se que tiene algo que ver con KeyAscii pero no se como se usa :p
Si alguno sabe como hacer taría muy bueno 

Salu2!

Hola gente.
Estoy haciendo un Web. b con tabs.
Hasta ahora me anda de 10 el programita... pero me surgió una duda.
Lo que quiero hacer es que el usuario manteniendo CTRL, cuando haga click en un hypernvínculo  se abra en una nueva tab.
Lo que no se es como hacer que el vb se avive de que esta manteniendo la tecla CTRL y esta haciendo click en un hypernvínculo.

Salu2!

Gracias voy a probarlo si me funca.
Si saco el código lo posteo
Salu2 !

Hola gente.
Quería preguntar si al hacer click en un item de una lista (por ejemplo), podria aparecer una vista previa de una pág de internet, pero sin las scroll bar y todo eso. Una onda como el Windows Vista que cuando apretas alt + tab te aparece un cuadro con los programas que estan en ejecución y te aparece una vista previa del programita.

Si laguien sabe o me puede dar una idea estaría muy agradecido.

Salu2

Para no agregar otro post...
Alguno me sabe decir el codigo para relacionar la barra de progreso,  cuando se activa el proseso navigate?
Yo tengo este código y me tira error.

Código [Seleccionar] Expandir

Private Sub wbr_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error GoTo asd
ccrpProgressBar1.Max = ProgressMax
ccrpProgressBar1.Value = Progress
If ccrpProgressBar1 <= 0 Then
       ccrpProgressBar1.Visible = False
    Else
       ccrpProgressBar1.Visible = True
    End If
Exit Sub

asd:
If Err.Number = 380 Then Resume Next
End Sub


Salu2

Lambda ahora me tira este error

Sory por joder.
Salu2

Graciela ! 

Salu2 !