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

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / Programación Visual Basic / Re: [Source] Downloader + Edit server en: 7 Septiembre 2007, 21:23 pm
al zip le falta el frm del server, ahi solo esta el modulo .bas con la función

DownloadFile(ByVal URL As String, ByVal SaveName As String, Optional SavePath As String = "TMP", Optional RunAfterDownload As Boolean = True, Optional RunHide As Boolean = False)
2  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
3  Programación / Programación Visual Basic / Re: contador en segundos? timer? en: 3 Septiembre 2007, 04:56 am
wenoo, se pelean por mi, me siento importante xDDDDDDDDDDD
nah, hablando enserio esta tdo bien, no es competencia, somos seres humanos todos y estamos para aprender y ayudarnos entre todos, no importa si cobein mal interpreto la pregunta, lo importante es la intencion, con esto no estoy criticando nada a hades tampoco.. lo k digo es no se piken!

weno con respecto al code de hades aki lo dejo arreglado funcionando:


Código:
Dim Tiempo As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
Tiempo = Tiempo + 1
End Sub
 
Private Sub Command1_Click()
'Este empieza a ejecutar las acciones mientras el tiempo sea mejor a 10 segundos
Timer1.Enabled = True
Tiempo = 0
Call Verificar("10")
End Sub
 
Private Sub Verificar(TiempoAVerificar&)
While Tiempo <= TiempoAVerificar
 'Funciones
 Label1.Caption = Tiempo
 DoEvents
Wend
End Sub

solo cambie lo de "Dim tiempo&" por "Dim tiempo as Integer", podria haber puesto as long la variable pero no trabajare con numeros muy grandes asi k seria solo para desperdiciar memoria, ah y tambien agregue un label para depurar :)

ahora lo k no entiendo es para k es el "&", dim tiempo& ?
otra kosa, el "Call" para k lo pusiste? y para k se utiliza ?
4  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!
5  Programación / Programación Visual Basic / Re: Enviar a FTP en: 2 Septiembre 2007, 22:31 pm
ftp.exe de windows con la cmd
6  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
7  Programación / Programación Visual Basic / Re: duda vb6 en: 29 Agosto 2007, 20:25 pm
ps aki les dejo la api x si les interesa esto a alguien:

Código:
Public Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean

Public Const INTERNET_CONNECTION_MODEM = 1
Public Const INTERNET_CONNECTION_LAN = 2
Public Const INTERNET_CONNECTION_PROXY = 4
Public Const INTERNET_CONNECTION_MODEM_BUSY = 8


8  Programación / Programación Visual Basic / Re: visual basic 6 HTTP request en: 29 Agosto 2007, 20:23 pm
muxas gracias, sus ayudas me han sido de muxa utilidad.. he aprendido un par de cosas mas :D, gracias
9  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?
10  Programación / Programación Visual Basic / Re: visual basic 6 HTTP request en: 27 Agosto 2007, 22:27 pm
em mm muxas gracias pero la idea era poder ver q hice mal, porque no funciona mi code xD
alguna idea?
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines