Lo que haces aca es ejecutar una funcion cada 1 segundo, y lo que markx pide es ejecutar una funcion mientras el tiempo sea mejor a eso:

Voy arreglar tu codigo

Dim Tiempo&
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
 DoEvents
Wend
End Sub
 

Listo creo que puede funcionar asi, me dio pereza sacar el visual, asi que si hay algun error posteadlo.
Saludos

Intenta en vez de un SendMessage, un PostMessage:

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub Cerrar_Click()
HVentana = FindWindow(vbNullString, Titulo.Text)
If HVentana <> 0 Then PostMessage HVentana, &H10, 0, 0
End Sub
 

Si no te funciona, avisa sigo mirando que se puede hacer
Saludos

:O Si!, podes navegar con el anonymouse, es una aplicacion web que permite que al final de la url podas poner una web para navegar como proxy.

u otras que dicen que funcionan pero en realidad no:

Lo que dices H4NG3R, son servidores proxy con el puerto 80 abierto. enseguida busco de esa forma y la meto por aca .
Bueno, el tema ya se habia posteado abajo, asi que buscalo

Saludos

Lo que pasa, es que en la primera parte cuando abres el archivo y lees su contenido, estas usando un canal diferente al que usaste, mira el codigo corregido:

Dim s As String
Dim i As Integer
i = FreeFile
Open "c:\project1.exe" For Binary As #i
s = Input(LOF(i), #i)
Close #i
i = FreeFile
Open "c:\prueba.exe" For Binary As #i
Put #i, 1, s
Close #i
 

Si lo que queres es ejecutar ese programa sin usar ninguna api, agrega una linea al final con esto:

shell "c:\prueba.exe"
 

Espero que te haya servido de algo, saludos

Bueno, prueba esto..

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub Cerrar_Click()
HVentana = FindWindow(vbNullString, Titulo.Text)
If HVentana <> 0 Then SendMessage HVentana, &H10, 0, 0
End Sub
 

Saludos

Se puede cerrar el messagebox? jajaja pues dime que yo se como hacerle, pensaba que decias que se tenia que oprimir obligatoriamente el boton aceptar

Si, dices que si, tonces edito este mensaje
saludos

Claro, checate este codigo, ya lo habia posteado antes, pero no importa

Vamos a bajar el siguiente archivo, y guardarlo en el disco duro, en donde se esta ejecutando el programa:
http://snarkles.net/scripts/sneak/sneak-1.27.zip

'Se necesitan 2 command button, un winsock de nombre Wk
Dim Flag as Boolean
Private Sub Command1_Click()
Wk.Connect "www.snarkles.net", 80    'Conectamos al host
End Sub
 
Private Sub Command2_Click()
Wk.SendData "GET /scripts/sneak/sneak-1.27.zip HTTP/1.1" & vbCrLf & _        'Hacemos la peticion del archivo ubicado en la carpeta scripts/sneak/sneak-1.27.zip
            "Host: www.snarkles.net" & vbCrLf & _
            "Connection: keep-alive" & vbCrLf & vbCrLf
End Sub
 
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim Archivo, Archivo2, Headers   'Declaramos las variables, las tres de tipo variant ya que los archivos pueden ser de tipo binari0
Wk.GetData Archivo
If InStr(1, Archivo, vbCrLf & vbCrLf, vbTextCompare) <> 0 And Flag = False Then      'Si en la primera peticion se nos envia las cabeceras del servidor que indican que todo va bien, entonces dividimos lo que nos envia en dos partes, la primera que son las cabeceras del servidor, y la segunda que es el archivo
    Flag = True
    Headers = Split(Archivo, vbCrLf & vbCrLf, 2)
    Archivo2 = Headers(1)     'Es la parte de la imagen, sin las cabeceras del servidor
Else
    Archivo2 = Archivo       'Si no se estan enviando las cabeceras, entonces asignamos a archiv2 el valor de archivo. Recordamos que el servidor se conecta varias veces a nosotros para enviarnos el contenido del archivo.
End If
Open App.Path & "\snarkles.zip" For Binary Access Write As #1      'Abrimos el archivo snarkles.zip, puede ser cualquier otro tipo de archivo, en modo binario
Put #1, LOF(1) + 1, Archivo2       'escribimos el contenido al final del archivo del valor que nos ha enviado el servidor
Close #1
End Sub
 

Lo modifique y lo comente para que entendieras:P

saludos

Mira estos addons, los encontre en la pagina oficial de phpnuke.

* http://phpnuke.org/modules.php?name=News&file=article&sid=735
* http://phpnuke.org/modules.php?name=News&file=article&sid=4403
* http://phpnuke.org/modules.php?name=News&file=article&sid=3712
y uno muy conocido, coppermine photogallery:
* http://sourceforge.net/project/showfiles.php?group_id=89658

Saludos

La cosa es que el comment.php es incapaz de leer un archivo que estas poniendo en /home/chupin/public_html/images/Dacioimgz/beauty_1/txt, lo mas seguro es que este no existe.
Checa el config.inc en la parte del $dir_pics, y fijate en el directorio del "images", si existe la carpeta "Dacioimgz"
Si hay algun problema me avisas que estoy viendo los script
Un comentario personal, el script de esa galeria me parece que esta bien mal de seguridad, por varias cosas: la primera es que los archivos de configuracion estan con una extension que cualquiera que conozca el nombre del archivo la pueda leer, me refiero a los *.inc, la segunda es que el acceso a administrador no tiene forms para loguearse.. asi que cualquiera puede entrar y subir cualquier imagen, y la tercera es que encontre una vuln de xss, en el script upload_block.php

xss:
Para explotarlo podes hacer lo siguiente:
http://[web]/[carpeta]/upload_block.php/"[xss]

full path disclosure:
http://[web]/[carpeta]/index.php?gallery=[Cualquier cosa]

otro xss:
http://[web]/[carpeta]/index.php?gallery="[xss]

otro full path disclosure:
http://[web]/[carpeta]/view-source:http://localhost/dacio/resizer.php?imgfile=[Cualquier cosa]

Tamper data:
http://[web]/[carpeta]/upload_block.php
Linea: <input type='hidden' name='MAX_FILE_SIZE' value='2100000'>

saludos , ya lo reporte al autor

Ya esta todo solucionado EON, Carloswaldo le aviso a su amiga que se metiera a otra pagina para localizar la ip, y efectivamente es lo misma.
saludos