Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim HidGuid As Guid
Dim DeviceInfoSet As Integer
'Dim vbNullString As DBNull
Dim MemberIndex As Integer
Dim vbNullString As String = "" Dim something As Long Result = HidD_GetHidGuid(HidGuid) '取得HID群组的GUID
DeviceInfoSet = SetupDiGetClassDevs(HidGuid, vbNullString, 0, (DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE)) '取得所有HID信息的结构数组
MemberIndex = 0 Do
MyDeviceInterfaceData.cbSize = Len(MyDeviceInterfaceData)
Result = SetupDiEnumDeviceInterfaces(DeviceInfoSet, 0, HidGuid, MemberIndex, MyDeviceInterfaceData) '识别每一个HID接口
something = GetLastError()以下是调试的变量值:
HidGuid:{4d1e55b2-f16f-11cf-88cb-001111000030}
MyDeviceInterfaceData.cbSize:24
something:1784调用这个API函数的时候:SetupDiEnumDeviceInterfaces返回的Resutl总是为0,
MyDeviceInterfaceData下的:cbSize为24 Flags为0 InterfaceClassGuid为{00000000-0000-0000-0000-000000000000}
得到的错误是1784,貌似说:所提供的用户缓冲区对所申请的操作无效。
有没有调试过类似错误,求高见,求解决方法。
Dim HidGuid As Guid
Dim DeviceInfoSet As Integer
'Dim vbNullString As DBNull
Dim MemberIndex As Integer
Dim vbNullString As String = "" Dim something As Long Result = HidD_GetHidGuid(HidGuid) '取得HID群组的GUID
DeviceInfoSet = SetupDiGetClassDevs(HidGuid, vbNullString, 0, (DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE)) '取得所有HID信息的结构数组
MemberIndex = 0 Do
MyDeviceInterfaceData.cbSize = Len(MyDeviceInterfaceData)
Result = SetupDiEnumDeviceInterfaces(DeviceInfoSet, 0, HidGuid, MemberIndex, MyDeviceInterfaceData) '识别每一个HID接口
something = GetLastError()以下是调试的变量值:
HidGuid:{4d1e55b2-f16f-11cf-88cb-001111000030}
MyDeviceInterfaceData.cbSize:24
something:1784调用这个API函数的时候:SetupDiEnumDeviceInterfaces返回的Resutl总是为0,
MyDeviceInterfaceData下的:cbSize为24 Flags为0 InterfaceClassGuid为{00000000-0000-0000-0000-000000000000}
得到的错误是1784,貌似说:所提供的用户缓冲区对所申请的操作无效。
有没有调试过类似错误,求高见,求解决方法。
解决方案 »
- 关于win7下安装软件的错误提示
- 一个程序跟踪调试的问题
- 急盼:类似资源管理器左帧的目录树控件
- 前辈多指教:新手的几个简单问题集(2)
- VB 读取DATAGRID中的某一行内容
- 如何获得datagrid每一列的名称?
- 如何在flash中实现串口通讯
- Mscomm地址、数据位的控制
- 特急:我安装完程序并运行后,提示“xxx.ocx不能正确注册”,怎么办?(该安装程序我是用VB自带的工具做的)
- 如何解决用Installer VISE 3.5.1 汉化精简版制作安装盘后再安装时字体改变问题?
- vb.net2008执行模块中动态添加控件程序并执行相关事件——陷入混乱中,请高人指点,高分求教,长标题求点击~~~
- 模块中动态添加控件并执行事情——陷入混乱中,请高人指点,高分求教,标题长,求点击
GetLastError返回说明
程序是我从网上下载的VB6.0的(该程序运行正常),然后直接改成VB2010上编译就很多问题,现在到
Result = SetupDiEnumDeviceInterfacesDeviceInfoSet, 0, HidGuid, MemberIndex,MyDeviceInterfaceData)
就出现以上这个问题了。
[email protected]