Usando el shell en VB
1. Llame al asistente "Crear acceso directo" del sistema
¿Le preocupa que VB no admita la creación de accesos directos? Aunque puede llamar a la función fCreateShellLink en vb5stkit.Dll, está diseñada para instaladores y la ruta predeterminada para el acceso directo siempre comienza desde "\Menú Inicio\Programas" del usuario actual, lo que significa que si su Windows 95 está instalado en C unidad, podrá crear accesos directos en "\Menú Inicio\Programas" del usuario actual. Es decir, si instaló Windows 95 en la unidad C, no puede usar la función fCreateShellLink para crear un acceso directo a la unidad D.
Ahora, existe una manera extremadamente conveniente e inteligente de llamar al asistente de creación de accesos directos del sistema a través de una declaración de shell.
Para un nuevo proyecto, coloque un botón en el formulario, haga doble clic en el botón y agregue el siguiente código:
Private Sub Command1_Click()
Abra App.Path & "\temp.lnk" para obtener la salida como #1
Cierre #1 'Estas dos oraciones crearán un archivo temporal en el directorio donde se encuentra el programa
Shell "Rundll32.exe AppWiz. Cpl, NewLinkHere
"& App.Path & "\temp.lnk"
End Sub
(Nota: los espacios después de la declaración de Shell NewLinkAquí hay comillas. De lo contrario, se producirá un error)
Ejecute el programa y presione el botón de comando. Aparecerá el asistente Crear acceso directo. Si se creó correctamente, el acceso directo reemplazará el archivo temporal temp.lnk. Si no está marcado, temp.lnk desaparecerá automáticamente. Por supuesto, también puede crear temp.lnk en cualquier lugar de su disco duro. puedes agregar una nueva función a tu programa
El propósito de II.Rundll32.exe
Sabemos que las declaraciones de shell solo pueden llamar a archivos ejecutables, es decir, exe, com,. bat y pif, ¿qué debemos hacer si queremos llamar a otras funciones del sistema? En este momento, Rundll32.exe proporcionado por Windows puede resultar útil. Echemos un vistazo a algunos de sus usos, que pueden resultarle útiles. Me siento un poco sorprendido
1. Para abrir el archivo del panel de control (Timedate.cpl) que establece la hora del sistema, simplemente ejecute el siguiente código:
Shell "Rundll32.exe<. /p>
Shell32.dll,Control_RunDLL Timedate.cpl"
En cuanto a abrir otros archivos del panel de control, creo que también puedes hacerlo, simplemente intenta cambiar el nombre del archivo.
2. Para ejecutar el acceso directo (*.lnk), puede utilizar el siguiente código:
She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X representa el archivo que desea ejecutar, incluyendo la ruta, como se muestra a continuación
3 También puede escribir esto para abrir el control ActiveMovie:
Shell "RUNDLL32.EXE amovie.ocx, Rundll",1
Usando Shell "RUNDLL32.EXE amovie.ocx, Rundll /play Saver, si escribe un protector de pantalla, puede escribirlo en el instalador, no necesariamente en el directorio del sistema.
Por cierto, ¿VB no viene con un "Asistente de instalación de aplicaciones"? Su código fuente VB está en "\setupkit\setup1" en el directorio de instalación, estúdielo detenidamente. Puedes crear un instalador personalizado.
5. Mantenga presionada la tecla Mayús y haga clic derecho en el archivo. La opción "Abrir con" aparecerá en el menú. Pero ahora, a través del shell "rundll32.exe shell32.dll OpenAs_RunDLL X", puede llamar directamente al cuadro "Abrir con".
6. Incluso puedes imprimir archivos (incluidos todos los formatos de texto e imagen compatibles con HTML) con esta frase:
Shell "rundll32.exe MSHTML.DLL, PrintHTML X", 1.
¿Cómo es? ¿Es una pequeña ganancia? Ahora, definitivamente mirará Rundll32.exe, un archivo que generalmente pasa desapercibido, ¡porque es una parte importante del funcionamiento del sistema! De hecho, Shell + Rundll32 también puede llamar a muchas otras funciones del sistema, como las relacionadas con NetMeeting y Telnet. Si está interesado, puede ingresar "Mi PC\HKEY_CLASSES_ROOT\" o "Mi PC\HKEY_LOCAL_MACHINE\Software\CLASSES" en el manual. Gran parte del contenido de este artículo ha sido copiado de allí. Si tienes suficiente determinación, confianza y paciencia, encontrarás cosas más valiosas. ¡Buena suerte!