Basic copy of the program code number to be caught for sealing the hasn't made a
Now want to be a script to the program has been run over again prompt load winio failure
The code is no problem when running is good
But I reshipment system XP originally is XP
After reshipment cannot run
Online to say to want to put the winio three files under the system32 then run the regsvr32 registered winio. DLL but always prompt
"Loaded winio. DLL, but didn't find DllRegisterServer entry points, unable to register this file,"
Make people dizzy and experienced master
CodePudding user response:
Winio. DLL which "three documents" are there?Regsvr32 registered DLL, prompt "loaded winio. DLL, but didn't find DllRegisterServer entry points, unable to register this file,"
In general, this is not the AcitveX DLL, it is not registered (also cannot register),
Should be have a DLL export functions, use Declare statement in VB6 corresponding export function, code calls,
But can be by LoadLibrary and GetProcAddress call, adoption of a certain means to realize the dynamic invocation,
CodePudding user response:
In a. Bas file statement:Declare Function MapPhysToLin Lib "WinIo. DLL" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As Long
Declare the Function UnmapPhysicalMemory Lib "WinIo. DLL" (ByVal PhysMemHandle, ByVal LinAddr) As Boolean
Declare the Function GetPhysLong Lib "WinIo. DLL" (ByVal PhysAddr As Long, ByRef PhysVal As Long) As Boolean
Declare the Function SetPhysLong Lib "WinIo. DLL" (ByVal PhysAddr As Long, ByVal PhysVal As Long) As Boolean
Declare the Function GetPortVal Lib "WinIo. DLL" (ByVal PortAddr As an Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Declare the Function SetPortVal Lib "WinIo. DLL" (ByVal PortAddr As an Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Declare the Function InitializeWinIo Lib "WinIo. DLL () As a Boolean
Declare the Function ShutdownWinIo Lib "WinIo. DLL () As a Boolean
Declare the Function InstallWinIoDriver Lib "WinIo. DLL" (ByVal DriverPath As String, ByVal Mode As an Integer) As Boolean
Declare the Function RemoveWinIoDriv
CodePudding user response:
Three file isWinIo. Sys (for drivers under Windows xp),
WINIO. The VXD driver (for Windows 98),
WinIo. DLL (dynamic link library) packaging function,
No need to register,
CodePudding user response:
If InitializeWinIo=False ThenMsgBox "load driver failed!"
Unload Me
End the If 'this is the form the load event code in the
Public Declare Function MapPhysToLin Lib "WinIo. DLL" (ByVal PhysAddr As Long, ByVal PhysSize As Long, ByRef PhysMemHandle) As Long
Public Declare Function UnmapPhysicalMemory Lib "WinIo. DLL" (ByVal PhysMemHandle, ByVal LinAddr) As Boolean
Public Declare Function GetPhysLong Lib "WinIo. DLL" (ByVal PhysAddr As Long, ByRef PhysVal As Long) As Boolean
Public Declare Function SetPhysLong Lib "WinIo. DLL" (ByVal PhysAddr As Long, ByVal PhysVal As Long) As Boolean
Public Declare Function GetPortVal Lib "WinIo. DLL" (ByVal PortAddr As an Integer, ByRef PortVal As Long, ByVal bSize As Byte) As Boolean
Public Declare Function SetPortVal Lib "WinIo. DLL" (ByVal PortAddr As an Integer, ByVal PortVal As Long, ByVal bSize As Byte) As Boolean
Public Declare Function InitializeWinIo Lib "WinIo. DLL () As a Boolean
Public Declare Function ShutdownWinIo Lib "WinIo. DLL () As a Boolean
Public Declare Function InstallWinIoDriver Lib "WinIo. DLL" (ByVal DriverPath As String, ByVal Mode As an Integer) As Boolean
Public Declare Function RemoveWinIoDriver Lib "WinIo. DLL () As a Boolean
'this is a module itself the code in the
I think there is no question of code problem before this reshipment system, several times without reloading the program is available to run is also no problem
After reshipment not line,,,,
CodePudding user response:
Will require "authority", would you like to run in the IDE, "run as administrator" to start the test under VB6, then execute the code,CodePudding user response: