Mensajes

en pocas palabras, lo que tu quieres es generar un exe,
apartir de otro que se encuentra en ejecución no??

si es eso,
BUSCA que en el foro hay info

salu2

jeje,
no me molestas,
todo lo contrario,
me divierto ayudando jeje 

salu2 y suerte

jaja,
yo este code no lo he posteado  jeje,
pero de todas formas se como ayudarte,

el code debe quedar así:

Código [Seleccionar] Expandir

Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Dim Ret As Long
Dim CLR As Long
CLR = &HFFC0FF
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, CLR, 0, LWA_COLORKEY
End Sub

con esto ya alcanza,
pero me imagino que sabes que debes cambiar el color del form

salu2

jeje,
gracias,
me alegra que te alla servido

salu2

listo!!!
lo acabo de hacer,
y quedaria de la siguiente manera:

Código [Seleccionar] Expandir

'En un Modulo
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal CX As Long, ByVal CY As Long, ByVal wFlags As Long) As Long

Código [Seleccionar] Expandir

'En el Form
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Pt As POINTAPI, mWnd As Long, CX As Long, CY As Long

Private Sub Timer1_Timer()
GetCursorPos Pt
CX = Me.Width / 15
CY = Me.Height / 15
SetWindowPos Me.hwnd, HWND_TOPMOST, Pt.x, Pt.y, CX, CY, SWP_NOSIZE
End Sub

ahora si, el form queda con su tamaño original,
deberias agregar un timer y ponerle un interbalo de 10 milisegundos,
no muhco mayor

salu2 y suerte

Bueno,
aun no logro mantener el tamaño de la ventana,
pero si logre que el esta, siguiera al mouse por toda la pantalla,
en cuanto logre mantener en tamaño,
posteo nuevamente el code,

hasta ahora tengo esto:

Código [Seleccionar] Expandir

'En el Form
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Pt As POINTAPI, mWnd As Long

Private Sub Timer1_Timer()
GetCursorPos Pt
SetWindowPos Me.hwnd, HWND_TOPMOST, Pt.x, Pt.y, Me.Width, Me.Height, SWP_NOSIZE
End Sub

Código [Seleccionar] Expandir

'En el modulo
Const SWP_NOSIZE = &H1
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

salu2 y suerte,
en cuanto pueda veo como solucionar esto

salu2

ok, me alegro q se te haya solucionado,
con ese metodo de cifrado,
puedes cifrar diferentes cosas dentro del code,
es exelente para cifrar cadenas de registro,
nombres, y demas cosas,

espero que le des una buena utilidad

salu2

ok,
impekable,
me alegro que te alla servido

chau

aca dejo otra:

Código [Seleccionar] Expandir

'En el modulo
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

Public Sub Ejecutar_Archivo(strProgram As String)
Dim lRet As Long
lRet = ShellExecute(vbNull, "", strProgram, "", "", SW_SHOWNORMAL)
If lRet <= 32 Then
MsgBox "Error ejecutando el Archivo"
End If
End Sub

Código [Seleccionar] Expandir

'En el Form
Ejecutar_Archivo ("Ruta de Archivo")

salu2 y suerte

yo no revise tu code ni nada,
simplemente te di una forma de hacerlo,

seguramente alla una forma mejor de hacerlo,
pero esto es lo que s eme viene a la kabeza

salu2