提示RWL.DLL已经载入,但找不到DLLREGISTERSERVER入口点

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/wmnmtm/article/details/82922003

难道你的dll是个com? 不是com你用regsvr32当然注不上

 

regsvr32是注册组件服务的,普通dll无法注册的
__stdcall就是来兼容pascal的,应该没问题

 

 



 

展开阅读全文
博主设置当前文章不允许评论。

程序提示总是提示不到dll入口

10-28

程序提示rn总是提示找不到dll入口点(VB) ....rnrn但是在XP 下就正常,怎么办?rnrn声明:rn Option Explicitrn Const HWND_TOPMOST = -1rn Const HWND_NOTOPMOST = -2rn Const SWP_NOSIZE = &H1rn Const SWP_NOMOVE = &H2rn Const SWP_NOACTIVATE = &H10rn Const SWP_SHOWWINDOW = &H40rn Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)rnDim Messwert1 As Single, Messwert2 As Single, i As IntegerrnDim Messwert3 As Single, Messwert4 As SinglernrnrnPrivate Declare Function ReleaseCapture Lib "user32" () As LongrnrnPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongrnrnPrivate Declare Function ShellExecute Lib "shell32.dll" _rn Alias "ShellExecuteA" (ByVal hwnd As Long, _rn ByVal lpOperation As String, ByVal lpFile As String, _rn ByVal lpParameters As String, ByVal lpDirectory As String, _rn ByVal nShowCmd As Long) As LongrnrnPrivate Declare Function RasGetConnectionStatistics Lib _rn "RasApi32.DLL" (ByVal hRasConn As Long, lpStatistics _rn As RASSTATS2000) As LongrnrnPrivate Declare Function RasGetLinkStatistics Lib _rn "RasApi32.DLL" (ByVal hRasConn As Long, ByVal _rn dwSubEntry As Long, lpStatistics As RASSTATS2000) _rn As Longrn rnPrivate Declare Function RasEnumConnections Lib "RasApi32.DLL" _rn Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As _rn Long, lpcConnections As Long) As Longrn rnPrivate Declare Function RasGetConnectStatus Lib "RasApi32.DLL" _rn Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, _rn lpStatus As Any) As LongrnrnPrivate Type RASSTATS2000rn dwSize As Longrn dwBytesXmited As Longrn dwBytesRcved As Longrn dwFramesXmited As Longrn dwFramesRcved As Longrn dwCrcErr As Longrn dwTimeoutErr As Longrn dwAlignmentErr As Longrn dwHardwareOverrunErr As Longrn dwFramingErr As Longrn dwBufferOverrunErr As Longrn dwCompressionRatioIn As Longrn dwCompressionRatioOut As Longrn dwBps As Longrn dwConnectDuration As LongrnEnd TypernrnConst RAS_MaxEntryName = 256rnConst RAS_MaxDeviceType = 16rnConst RAS_MaxDeviceName = 32rnrnPrivate Type RASTypern dwSize As Longrn hRasCon As Longrn szEntryName(RAS_MaxEntryName) As Bytern szDeviceType(RAS_MaxDeviceType) As Bytern szDeviceName(RAS_MaxDeviceName) As ByternEnd TypernrnPrivate Type RASStatusTypern dwSize As Longrn RasConnState As Longrn dwError As Longrn szDeviceType(RAS_MaxDeviceType) As Bytern szDeviceName(RAS_MaxDeviceName) As Bytern szInBytes As Doublern syOutbytes As DoublernEnd Typern程序:rnDim RAS(255) As RASType, RASStatus As RASStatusTypern Dim lg&, lpcon&, Result&rn Dim rtn As Longrn Dim myStats As RASSTATS2000rn Dim Downloaded As Single, Uploaded As Singlern Dim Speed As Single, Stunden As Single, Minuten As Integer, Sekunden As Longrnrn RAS(0).dwSize = 412rn lg = 256 * RAS(0).dwSizern Result = RasEnumConnections(RAS(0), lg, lpcon)rnrn myStats.dwSize = LenB(myStats)rn rtn = RasGetConnectionStatistics(RAS(0).hRasCon, myStats)rn 论坛

不到dll入口点 in kernel32

11-07

下面的程序是某位大虾编的,运行后,vb提示“找不到dll入口GetlogicaldrivestringsA in kernel32”rn 本人试着在system32下找到kernel32.dll,并使用regsvc32.exe kernel32.dll来注册kernel32.dll,系统提示已经加载kernel32.dll,但并未找到dllregisterserver输入点。rn不知道为什么下述程序不能运行?是不是在vb主程序里要设置什么东东?恳请各位大虾赐教,或帮忙再改改,一定给分。rnOption ExplicitrnPrivate Declare Function GetDriveType Lib "kernel32 " Alias "GetDriveTypeA " (ByVal nDrive As String) As LongrnPrivate Declare Function GetLogicalDriveStrings Lib "kernel32 " Alias "GetLogicalDriveStringsA " (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongrnrnPrivate Const DRIVE_REMOVABLE = 2rnPrivate Const DRIVE_FIXED = 3rnPrivate Const DRIVE_REMOTE = 4rnPrivate Const DRIVE_CDROM = 5rnPrivate Const DRIVE_RAMDISK = 6rnrnrnPrivate Sub Command1_Click()rnDim rtn As Stringrn Dim AllDrives As Stringrn Dim JustOneDrive As Stringrn AllDrives = Space$(64) ''设置缓冲rn rtn = GetLogicalDriveStrings(Len(AllDrives), AllDrives) ''调用函数得到包含所有驱动器的字符串rn AllDrives = Left(AllDrives, rtn)rn Dorn rtn = InStr(AllDrives, Chr(0))rn If rtn Then rn JustOneDrive = Left(AllDrives, rtn)rn AllDrives = Mid(AllDrives, rtn + 1, Len(AllDrives))rn rtn = GetDriveType(JustOneDrive) ' '检查驱动器类型rn Debug.Print rtn, JustOneDrivern End Ifrn Loop Until AllDrives = " "rnEnd Subrn 论坛

没有更多推荐了,返回首页