Cómo agregar un proceso (o interfaz) de inicio de sesión a un programa EXE sin código fuente para que solo pueda acceder al programa a través de la interfaz de inicio de sesión. Sólo sé un poco sobre VB.

Mi idea es cambiar primero el formato de archivo del programa EXE, por ejemplo, cambiarlo a: EXE program.txt (el nombre se puede cambiar; de lo contrario, es fácil de ver). txt. Puede modificarlo a abc, aaa, bbb Ah, etc., también puede crearlo usted mismo. En resumen, se cambiará a exe cuando llegue el momento. Luego ejecute el programa de inicio de sesión y cambie el formato a .exe. Entonces shell.EXE program.exe estará bien: EXE program.exe estará bien. Al cerrar el programa de inicio de sesión, use la función API para cerrar el programa exe (yo uso SendMessage para enviar un mensaje para cerrar la ventana) y luego cambie el programa exe a un archivo txt nuevamente.

¡Lo probé y realmente funciona!

Función de declaración privada FindWindow Lib "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName como cadena, ByVal lpWindowName como cadena) siempre que

Función de declaración privada SendMessage Lib "user32" Alias ​​"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As ByVal wParam As Long, ByVal lParam As Long) As Long

Const WM_CLOSE = amp; /p>

Private Sub Command1_Click() 'Nota: primero modifique el programa exe al formato txt y colóquelo en el mismo directorio que el programa de inicio de sesión

En caso de error, reanudar a continuación

Nombre App Apéndice, página 2, es una nueva versión de la línea de comando.p>

Nombre App.Path & "exe program.txt" As App.Path & "exe program.exe" 'Cambiar Formato de archivo

Shell App.Path amp; "exe program.exe"

End Sub

Private Sub Command2_Click()

Activado Error Reanudar Siguiente

hwd = FindWindow(vbNullString, "programa exe") 'Tenga en cuenta que "programa exe" aquí debe ser el título de la ventana

Enviar mensaje hwd, WM_CLOSE, 0 " exe; program.WM_CLOSE, 0amp;, 0amp; 'Enviar un mensaje para cerrar el programa

Nombre App.Path & "exe program.exe" Como App.Path & "exe program.Caption = "Cerrar sesión "

End Sub

Private Sub Form_Unload(Cancel As Integer) 'Una vez que se cierra el programa de inicio de sesión, el programa exe también se cierra y se cambia el nombre del formato

En caso de error, reanudar a continuación

hwd = FindWindow(vbNullString, "exe Program") 'Tenga en cuenta que el "programa exe" aquí debe ser el título de la ventana

SendMessage hwd, WM_CLOSE, 0amp;, 0amp;' Enviar mensaje para cerrar el programa

Nombre App.Path & "exe program.exe" Como "E:\" & "exe Program.txt" 'Cambiar formato de archivo

Fin Sub