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?