VB encuentra automáticamente la ruta para abrir QQ'' Dispositivo de inicio de sesión por lotes QQ
Después de instalar QQ, el directorio en ejecución se agregará automáticamente al registro. Simplemente búsquelo directamente desde el registro. Si no lo puede encontrar, use el directorio especificado. , básicamente No instalado. O la versión lite está instalada pero no se está ejecutando, por lo que no puedo decirlo claramente. Qué juicio tan equivocado.
Código: ¿Activado?Error?Reanudar?Siguiente
Dim?ruta
ruta?=?CreateObject("WScript.shell").RegRead("HKLM /SOFTWARE\Tencent\).RegRead("HKLM\SOFTWARE\Tencent\).RegRead("HKLM\SOFTWARE\Tencent\).RegRead("HKLM\SOFTWARE\Tencent\Tencent\).PLATFORM_TYPE_LIST\1\TypePath")
Si?ruta?=?"" Entonces
ruta?=?CreateObject("WScript.shell").RegRead("HKCR\QQ\shell\open\command\")
ruta?=?Mid(ruta,?2,?InStrRev(ruta,?""))
Si??+?2)
Fin ?If
ruta?=?CreateObject("Scripting.filesystemObject").getfile(ruta).ShortPath
If?path?=?"" Entonces
MsgBox?"No encontrado, ingrese..."
De lo contrario
MsgBox?"QQ está instalado en:" &?ruta
¿Fin?