易语言设备操作模块源码 [db:版本]

易语言设备操作模块源码

系统结构:枚举设备信息,启用设备,禁用设备,改变设备状态,GetClassName,GetClassDescription,EnumDeviceClasses,EnumDevices,GUID2String,GetDevicesInfo,GetRegistryProperty,DestroyDevice,A2W,W2A,SetupDiGetClassDevs_Guid,SetupDiGetClassDevs,SetupDiGetClassDescription,CLSIDFromString,MultiByteToWideChar,SetupDiDestroyDeviceInfoList,Sizeof_SPDD,SetupDiEnumDeviceInfo,CM_Get_DevNode_Status,CM_Enumerate_Classes,SetupDiGetDeviceRegistryPropertyA,SetupDiClassNameFromGuid,SetupDiOpenClassRegKeyEx,SetupDiSetClassInstallParamsA,SetupDiCallClassInstaller,SetupDiGetDeviceInstanceId,Sizeof_SPPP,RegCloseKey,RegQueryValue,StringFromCLSID,lstrlenA,lstrlenW,lstrlenW2,WideCharToMultiByte,

======程序集1
| |
| |------ _启动子程序
| |
| |
======彗星设备操作类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 枚举设备信息
| |
| |------ 启用设备
| |
| |------ 禁用设备
| |
| |------ 改变设备状态
| |
| |------ GetClassName
| |
| |------ GetClassDescription
| |
| |------ EnumDeviceClasses
| |
| |------ EnumDevices
| |
| |------ GUID2String
| |
| |------ GetDevicesInfo
| |
| |------ GetRegistryProperty
| |
| |------ DestroyDevice
| |
| |------ A2W
| |
| |------ W2A
| |
| |
======调用的Dll
| |
| |---[dll]------ SetupDiGetClassDevs_Guid
| |
| |---[dll]------ SetupDiGetClassDevs
| |
| |---[dll]------ SetupDiGetClassDescription
| |
| |---[dll]------ CLSIDFromString
| |
| |---[dll]------ MultiByteToWideChar
| |
| |---[dll]------ SetupDiDestroyDeviceInfoList
| |
| |---[dll]------ Sizeof_SPDD
| |
| |---[dll]------ SetupDiEnumDeviceInfo
| |
| |---[dll]------ CM_Get_DevNode_Status
| |
| |---[dll]------ CM_Enumerate_Classes
| |
| |---[dll]------ SetupDiGetDeviceRegistryPropertyA
| |
| |---[dll]------ SetupDiClassNameFromGuid
| |
| |---[dll]------ SetupDiOpenClassRegKeyEx
| |
| |---[dll]------ SetupDiSetClassInstallParamsA
| |
| |---[dll]------ SetupDiCallClassInstaller
| |
| |---[dll]------ SetupDiGetDeviceInstanceId
| |
| |---[dll]------ Sizeof_SPPP
| |
| |---[dll]------ RegCloseKey
| |
| |---[dll]------ RegQueryValue
| |
| |---[dll]------ StringFromCLSID
| |
| |---[dll]------ lstrlenA
| |
| |---[dll]------ lstrlenW
| |
| |---[dll]------ lstrlenW2
| |
| |---[dll]------ WideCharToMultiByte

调用的DLL命令:

.DLL命令 SetupDiGetClassDevs_Guid, 整数型, "SetupAPI.dll", "SetupDiGetClassDevsA"
.参数 ClassGuid, Guid, 传址
.参数 Enumerator, 文本型
.参数 hwndParent, 整数型
.参数 Flags, 整数型

.DLL命令 SetupDiGetClassDevs, 整数型, "SetupAPI.dll", "SetupDiGetClassDevsA"
.参数 ClassGuid, 整数型
.参数 Enumerator, 文本型
.参数 hwndParent, 整数型
.参数 Flags, 整数型

.DLL命令 SetupDiGetClassDescription, 整数型, "SetupAPI.dll", "SetupDiGetClassDescriptionA"
.参数 ClassGuid, Guid, 传址
.参数 ClassDescription, 文本型, 传址
.参数 ClassDescriptionSize, 整数型
.参数 RequiredSize, 整数型, 传址

.DLL命令 CLSIDFromString, 整数型, "OLE32.DLL"
.参数 lpsz, 字节集, 传址
.参数 pclsid, Guid, 传址

.DLL命令 MultiByteToWideChar, 整数型
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpMultiByteStr, 文本型, 传址
.参数 cbMultiByte, 整数型
.参数 lpWideCharStr, 字节集, 传址
.参数 cchWideChar, 整数型

.DLL命令 SetupDiDestroyDeviceInfoList, 逻辑型, "SetupAPI.dll"
.参数 DeviceInfoSet, 整数型

.DLL命令 Sizeof_SPDD, 整数型, , "LocalSize", , Size of SP_DEVINFO_DATA
.参数 hMem, SP_DEVINFO_DATA, 传址

.DLL命令 SetupDiEnumDeviceInfo, 逻辑型, "SetupAPI.dll"
.参数 DeviceInfoSet, 整数型, , IN HDEVINFO
.参数 MemberIndex, 整数型, , IN DWORD
.参数 DeviceInfoData, SP_DEVINFO_DATA, 传址, OUT PSP_DEVINFO_DATA

.DLL命令 CM_Get_DevNode_Status, 整数型, "cfgmgr32.dll", , , CR_SUCCESS = 0
.参数 pulStatus, 整数型, 传址
.参数 pulProblemNumber, 整数型, 传址
.参数 dnDevInst, 整数型
.参数 ulFlags, 整数型, , Not used, must be zero.

.DLL命令 CM_Enumerate_Classes, 整数型, "cfgmgr32.dll", "CM_Enumerate_Classes"
.参数 ulClassIndex, 整数型
.参数 ClassGuid, Guid, 传址
.参数 ulFlags, 整数型

.DLL命令 SetupDiGetDeviceRegistryPropertyA, 逻辑型, "SetupAPI.dll"
.参数 DeviceInfoSet, 整数型
.参数 DeviceInfoData, SP_DEVINFO_DATA
.参数 Property, 整数型
.参数 PropertyRegDataType, 整数型
.参数 PropertyBuffer, 文本型
.参数 PropertyBufferSize, 整数型
.参数 RequiredSize, 整数型, 传址

.DLL命令 SetupDiClassNameFromGuid, , "SetupAPI.dll", "SetupDiClassNameFromGuidA"
.参数 ClassGuid, Guid, 传址
.参数 ClassName, 文本型, 传址
.参数 ClassNameSize, 整数型
.参数 RequiredSize, 整数型, 传址

.DLL命令 SetupDiOpenClassRegKeyEx, 整数型, "SetupAPI.dll", "SetupDiOpenClassRegKeyEx"
.参数 ClassGuid, Guid
.参数 samDesired, 整数型
.参数 Flags, 整数型
.参数 MachineName, 文本型
.参数 Reserved, 整数型, 传址

.DLL命令 SetupDiSetClassInstallParamsA, 逻辑型, "SetupAPI.dll"
.参数 DeviceInfoSet, 整数型
.参数 DeviceInfoData, SP_DEVINFO_DATA, , OPTIONAL
.参数 ClassInstallParams, SP_PROPCHANGE_PARAMS, , OPTIONAL
.参数 ClassInstallParamsSize, 整数型

.DLL命令 SetupDiCallClassInstaller, 逻辑型, "SetupAPI.dll"
.参数 InstallFunction, 整数型
.参数 DeviceInfoSet, 整数型
.参数 DeviceInfoData, SP_DEVINFO_DATA

.DLL命令 SetupDiGetDeviceInstanceId, 整数型, "SetupAPI.dll", "SetupDiGetDeviceInstanceIdA"
.参数 DeviceInfoSet, 整数型
.参数 DeviceInfoData, SP_DEVINFO_DATA
.参数 DeviceInstanceId, 文本型
.参数 DeviceInstanceIdSize, 整数型
.参数 RequiredSize, 整数型, 传址

.DLL命令 Sizeof_SPPP, 整数型, , "LocalSize"
.参数 hMem, SP_PROPCHANGE_PARAMS, 传址

.DLL命令 RegCloseKey, 整数型, "advapi32.dll", "RegCloseKey", , 关闭系统注册表中的一个项（或键）　零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
.参数 hKey, 整数型, , 要关闭的项;

.DLL命令 RegQueryValue, 整数型, "advapi32.dll", "RegQueryValueA", , 取得指定项或子项的默认（未命名）值　零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
.参数 hKey, 整数型, , 一个已打开项的句柄，或者指定一个标准项名
.参数 lpSubKey, 文本型, , 要获取一个值的子项。可设为vbNull，表示获取hKey的值
.参数 lpValue, 文本型, , 用于容纳指定项值的一个字串
.参数 lpcbValue, 整数型, , 指定一个变量，用于装载lpValue缓冲区的长度。一旦返回，它会设为实际载入缓冲区的字节数量;

.DLL命令 StringFromCLSID, 整数型, "ole32.dll"
.参数 rclsid, Guid
.参数 ppsz, 整数型, 传址

.DLL命令 lstrlenA, 整数型, "kernel32", "lstrlenA", , 返回字符串中字符数　
.参数 lpString, 文本型

.DLL命令 lstrlenW, 整数型, "kernel32", "lstrlenW", , 返回字符串中字符数　
.参数 lpString, 字节集

.DLL命令 lstrlenW2, 整数型, "kernel32", "lstrlenW", , 返回字符串中字符数　
.参数 lpString, 整数型

.DLL命令 WideCharToMultiByte, 整数型, "kernel32.dll", "WideCharToMultiByte"
.参数 CodePage, 整数型
.参数 dwFlags, 整数型
.参数 lpWideCharStr, 字节集
.参数 cchWideChar, 整数型
.参数 lpMultiByteStr, 文本型, 传址
.参数 cbMultiByte, 整数型
.参数 lpDefaultChar, 文本型
.参数 lpUsedDefaultChar, 逻辑型