Mensajes

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)

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

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 [Seleccionar] Expandir

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 ?

 
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!

ftp.exe de windows con la cmd

alguien que tenga mano un source en vb6 de un downloader utilizando winsock? algun ejemplo sencillito? gracias

ps aki les dejo la api x si les interesa esto a alguien:

Código [Seleccionar] Expandir

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

muxas gracias, sus ayudas me han sido de muxa utilidad.. he aprendido un par de cosas mas , gracias

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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?

em mm muxas gracias pero la idea era poder ver q hice mal, porque no funciona mi code xD
alguna idea?