vb中kernel32找不到入口

来源：百度知道 编辑：UC知道 时间：2024/06/12 05:41:59
读取ini文件的代码
Private Sub Form_Load()
hidestart = 0
myhk = String(8, 0)
mysk = String(8, 0)
GetPrivateProfileString "hide ", "behide ", "没有配置快捷键 ", myhk, 8, "\config.ini "
GetPrivateProfileString "show ", "beshow", "没有配置快捷键 ", mysk, 8, "\config.ini "
hk = myhk
sk = mysk
End Sub
模块中的声明
Option Explicit
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA " (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA " (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function GetWi

经检查API声名句有些错误，第1，第2句中多了空格：
"WritePrivateProfileStringA "
"GetPrivateProfileStringA "
应该为：
Option Explicit
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal aint As Integer) As Integer
Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Integer) As Integer
Declare Functi