Mensajes

proba con el API: ShellExecute

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

· hwnd
Specifies a parent window. This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.

· lpOperation
Pointer to a null-terminated string that specifies the operation to perform. The following operation strings are valid:
"open"
The function opens the file specified by lpFile. The file can be an executable file or a document file. The file can be a folder to open.
"print"
The function prints the file specified by lpFile. The file should be a document file. If the file is an executable file, the function opens the file, as if "open" had been specified.
"explore"
The function explores the folder specified by lpFile.

The lpOperation parameter can be NULL. In that case, the function opens the file specified by lpFile.

· lpFile
Pointer to a null-terminated string that specifies the file to open or print or the folder to open or explore. The function can open an executable file or a document file. The function can print a document file.

· lpParameters
If lpFile specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies parameters to be passed to the application.
If lpFile specifies a document file, lpParameters should be NULL.

· lpDirectory
Pointer to a null-terminated string that specifies the default directory.

· nShowCmd
If lpFile specifies an executable file, nShowCmd specifies how the application is to be shown when it is opened. This parameter can be one of the following values:
SW_HIDE
Hides the window and activates another window.
SW_MAXIMIZE
Maximizes the specified window.
SW_MINIMIZE
Minimizes the specified window and activates the next top-level window in the Z order.
SW_RESTORE
Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window.
SW_SHOW
Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT
Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.
SW_SHOWMAXIMIZED
Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED
Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE
Displays the window as a minimized window. The active window remains active.
SW_SHOWNA
Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE
Displays a window in its most recent size and position. The active window remains active.
SW_SHOWNORMAL
Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time.

If lpFile specifies a document file, nShowCmd should be zero.

salu2

t animas a pasarme el code,
así veo bien como tienes
el tema de los arrays

salu2

podrias hacerlo con un For,
prueba de la siguiente manera

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()
For i = 0 To 19
    If Shape1.Top >= Label(i).Top And Shape1.Top + Shape1.Height <= Label(i).Top + Label(i).Height Then
        If Shape1.Left >= Label(i).Left And Shape1.Left + Shape1.Width <= Label(i).Left + Label(i).Width Then
            MsgBox "OK"
        End If
    End If
Next i
End Sub

salu2 y suerte

salu2

estuve probando de hacer el code de diferentes formas,
con el meto de encrptación,
y no le encuentro la vuelta,

y la verda me parece raro,
xq enrealidad si funciona el code,
pero se ve que no es util con el FileCopy

por mas que se desencripte en cuanto se ejecute,
esto previene la detección de los antivirus,
pera cifrar cadenas de caracteres o numeros o lo que sea,
dentro del codigo,

te recomiendo algo como esto, que es lo que utilizo yo:

Código [Seleccionar] Expandir

Public Function x(j)
On Error Resume Next
For r = 1 To Len(j)
x = x & Chr(Asc(Mid(j, r, 1)) - 56)
Next r
End Function

esto es algo bien simple, y es efectivo,

al ser una función se utiliza de la siguiente manera,
encualquier parte del code:

x("texto cifrado")

este texto cifrado,
no pude tener cualquier tipo de encriptacoón,
sino que a cada caracter se le deben sumar 56 posiciónes
en la tabla ascii.

para no complicarte la vida, y hacerte todo esto mas fácil,
hice un programa que lo que hace es sumar o restar 56 posiciónes en la tabla de numeros ascii.

este es el preograma:
http://rapidshare.com/files/8723817/ASCII.exe

lo unico que tienes que hacer es
escribir el texto, donde se indica y poner Encryptar,
una vez cifrado, donde pusiste ese texto,
aparecera el texto cifrado

si x ejemplo esto cifrado:

Código [Seleccionar] Expandir

App.Path & "\" & App.EXEName & ".exe", "c:\newfile.exe"
teda como resultado esto:
qwepqjrpqiwhroqwhr

lo que se hace es:

FileCopy x("qwepqjrpqiwhroqwhr")

Bueno, espero que me allas entendido, y que esto te sirva,
cualquier duda pregunta

salu2

xq no lo encriptas???

talvez eso te ayude

salu2

lo que si puede pasar,
es que analize el directorio a donde el archivo va a ser copiado,
y que ahi alla algo,

sino,
puede ser que el cod entero + esa linea,
tenga posibilidad de ser un worm o virus,
y que el nod lo detecte por heuristica,

encambio sin esa linea,
el nod no lo detecta como amenaza.

salu2

por mas que lo copie,
no sale nada,
y eso no es problema ni del nod ni del codigo,
yo diria que tienes algo en ese file

salu2

en el foro hay un post sobre este tema:
http://foro.elhacker.net/index.php/topic,151423.0.html

y aqui hay un monton:
Aqui

salu2

Filecopy (app.path + "\" + app.exename + ".exe", "c:\newfile.exe")

nunk supe que se pudiese utilizaR +,
toda la vida utilize &,
y en mi kso lo ahria de esta forma

Código [Seleccionar] Expandir

FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\newfile.exe"

pero la verda es algho rarisimo, nunk me paso,
y eso q yo utilizo el Nod32,
y de ninguna de las dos formas me salto alguna alerta

salu2