UC知道vb 请教问题
来源：百度知道 编辑：UC知道 时间：2024/05/22 14:01:22
Private Sub Command1_Click()
Dim a As String
a = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\tencent\qq", "PATH")
'这里的路径是c:\program files\tencent
Dim RetVal
RetVal = Shell(a & "\qq.exe", 1)
End Sub
帮我看看这段代码哪里出了问题
Private Sub Command1_Click()
Dim a As String
a = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\tencent\qq", "PATH")
'这里的路径是c:\program files\tencent
If Dir(a"\qq.exe") <> "" Then
End Sub
Dim a As String
a = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\tencent\qq", "PATH")
'这里的路径是c:\program files\tencent
Dim RetVal
RetVal = Shell(a & "\qq.exe", 1)
End Sub
帮我看看这段代码哪里出了问题
Private Sub Command1_Click()
Dim a As String
a = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\tencent\qq", "PATH")
'这里的路径是c:\program files\tencent
If Dir(a"\qq.exe") <> "" Then
End Sub
第一段代码是不是可以去掉"Dim RetVal"，然后将"RetVal = Shell(a & "\qq.exe", 1) "直接改成"Shell a & "\qq.exe", 1 "
第二段代码的"Dir(a"\qq.exe")"程序看不懂，改成"Dir(a & "\qq.exe") " ，而且Then后面没有内容了
用F8跟踪一下，注意a的值是否正确地获取到了。