elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / saber el pais de una PC en: 6 Septiembre 2007, 22:02 pm
alguien sabe komo hacer para determinar el pais de una pc?

o sino averiguar el host de la ip lokal, o sea la publika no la privada, despues es facil mediante manejo de strings kedarse con .es .us para saber el pais.. pero he chekado algunos kodigos k enkontre por google pero kuando les paso eun una variable mi ip publika para resolverlo me eskupe el nombre de mi pc :S
2  Programación / Programación Visual Basic / contador en segundos? timer? en: 2 Septiembre 2007, 22:35 pm
 
 var tiempo
 tiempo = 0
 
   mientras  tiempo <= "10" {

        haceralgo()

     sino
 
salir
 
}


bueno algo asi seria lo que quiero programar en vb.. utilizando un timer k vaya contando en segundos hasta 10 y que haga algo mientras el tiempo en segundos sea menor a 10, alguna idea? pistas?
thanks!
3  Programación / Programación Visual Basic / winsock downloader con vb6 en: 1 Septiembre 2007, 00:23 am
alguien que tenga mano un source en vb6 de un downloader utilizando winsock? algun ejemplo sencillito? gracias
4  Programación / Programación Visual Basic / duda vb6 en: 29 Agosto 2007, 20:22 pm
hola he estado probando apis, mas precisamente InternetGetConnectedState para detectar si existe conexion a internet...

la siguiente funcion nos dice si hay conexion a internet o no, si hay conecta, si no hay muestra un msgbox...

Código:
Public Function CheckStatusConn() As Boolean
Dim flags As Long
Dim result As Boolean

    result = InternetGetConnectedState(flags, 0)
    If result Then
        Conectar
    Else
    MsgBox "lo siento"
    End If
     
    If flags And INTERNET_CONNECTION_MODEM Then Print "Connection Via Modem"
    If flags And INTERNET_CONNECTION_LAN Then Print "Connecion Via LAN"
    If flags And INTERNET_CONNECTION_PROXY Then Print "Connection uses a Proxy"
    If flags And INTERNET_CONNECTION_MODEM_BUSY Then Print "Connection Via Modem but modem is busy"
   
   
End Function


supongamos k konectar tiene:

Código:
Public Sub Conectar()
WS.Close
WS.RemoteHost = Servidor
WS.RemotePort = Puerto
WS.Connect

End Sub


y a su vez la funcion CheckStatusConn() es ejecutada en el load del form:



Código:
Private Sub Form_Load()

CheckStatusConn

End Sub

ahora lo que quiero yo es que el programa chekee, a cada 30 segundos mas o menos si existe conexion a internet, y si existe que salte a la funcion conectar .. pk asi como lo hice lo chekea solo una vez y no conectara mas si no existe conexion de un principio, me expliko? alguna idea?
5  Programación / Programación Visual Basic / visual basic 6 HTTP request en: 27 Agosto 2007, 21:40 pm
hola he estado intentando hacer una peticion http utilizando el control winsock de visual y que me imprima la respuesta en un textbox ( o sea el kodigo html de la pagina) pero se me es inutil... aki les dejo lo que intente:


Citar
Dim datos As String

Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect "www.google.com", 80

End Sub



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

Strtrequest = "GET /" + Text2.Text & " HTTP/1.1" & vbCrLf
Strtrequest = strrequest & "Host: " & Text1.Text & vbCrLf
Strtrequest = strrequest & "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.1) Gecko/20060111 Firefox/2.0.1" & vbCrLf
Strtrequest = strrequest & "Accept-Language: en-us,en;q=0.5" & vbCrLf
Strtrequest = strrequest & "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf
Strtrequest = strrequest & "Keep-Alive: 300" & vbCrLf
Strtrequest = strrequest & "" & vbCrLf
Strtrequest = strrequest & "Connection: keep-alive" & vbCrLf
Strtrequest = strrequest & "Referer: " & Text1.Text & vbCrLf



Winsock1.SendData Strtrequest



Winsock1.GetData datos
Text1.Text = Text1.Text + datos

End sub

Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines