últimos mensajes de: markx

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

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 , 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