VB编程错误，子程序或者函数未定义

来源：百度知道 编辑：UC知道 时间：2024/06/14 04:47:11
Private Sub Command1_Click()
Dim strQQpath As String '
Dim shell_s As String '
Dim i As Long
getvalue strQQpath

shell_s = strQQpath & "QQ.exe" & " /START QQUIN:" & Text1.Text & " PWDHASH:" & Str2QQPwdHash(Text2.Text) & " /STAT:41" '

'Text3.Text = shell_s
i = Shell(shell_s, 1)
End Sub

会的朋友，请说说，，谢谢了
这是QQ登陆代码，，不知道哪来错了。，，

1楼，那怎样解决？

2楼，，我试过了，，错误

在标准模块中定义getvalue 函数
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, lpData As Any, _
lpcbData As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const KEY_QUERY_VALUE = &H1 '许可查询常数
Public Function getvalue() As String
Dim phkResult_ As Long
Dim q As Long, w As Long
Dim x As Long, y As Long, xy As String
Dim lpType As Long
Dim lpData As String
lpSubKey = "SOFTWARE\Tencent\PlatForm_Type_List\1" 'QQ在注册表注册的位置
q = RegOpenKeyEx(HKEY_LOCAL_MAC