当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
-12 Comments

usb源码是什么?

发布于:2016-07-04  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.版本 2

.支持库 spec


.程序集 窗口程序集1


.子程序 __启动窗口_创建完毕


枚举类属性 ()


.子程序 枚举类属性

.局部变量 objWbemLocator, 对象

.局部变量 objWMIService, 对象

.局部变量 colClasses, 对象

.局部变量 Properties, 对象

.局部变量 NewEnum, 对象

.局部变量 objClass, 对象

.局部变量 hreslut, 整数型

.局部变量 Variant, 变体型

.局部变量 pcFetched, 整数型

.局部变量 value, 文本型

.局部变量 id, 文本型

.局部变量 vid, 文本型

.局部变量 pid, 文本型


CoInitialize (0)

.如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))  ' 创建WMI对象

.如果真结束

objWMIService = objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , )  ' 连接服务器

.如果真 (objWMIService.是否为空 () = 假)

    colClasses = objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_USBHub”)

    .如果真 (colClasses.是否为空 () = 假)

        NewEnum = colClasses.对象型方法 (“_NewEnum”, )

        .如果真 (NewEnum.是否为空 () = 假)

            .循环判断首 ()

                hreslut = IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)

                .如果真 (hreslut = 0)

                    objClass = Variant.取对象 ()

                    Properties = objClass.读对象型属性 (“Properties_”, )


                    value = Properties.对象型方法 (“Item”, “PNPDeviceID”).读文本属性 (“value”, )

                    ' 调试输出 (“PNPDeviceID:” + value)

                    ' ' USB\VID_14CD&PID_125C\125C20100726”

                    vid = 特征取文本中间_增强 (value, “VID_”, “&”, , )

                    pid = 特征取文本中间_增强 (value, “PID_”, “\”, , )

                    id = 取文本右边 (value, 取文本长度 (value) - 倒找文本 (value, “\”, , 假))

                    ' 本源码来自易语言资源网(www.5A5X.com)

                    调试输出 (vid, pid, id)


                    objClass.清除 ()

                    Variant.清除 ()

                .如果真结束

                处理事件 ()

            .循环判断尾 (pcFetched = 1)

            NewEnum.清除 ()

        .如果真结束

        colClasses.清除 ()

    .如果真结束

    objWMIService.清除 ()

.如果真结束

objWbemLocator.清除 ()

CoUninitialize ()


.子程序 特征取文本中间_增强, 文本型

.参数 待搜索文本, 文本型

.参数 左特征, 文本型, 可空, 默认从1开始

.参数 右特征, 文本型, 可空, 默认为文本总长度

.参数 去掉分号, 逻辑型, 可空

.参数 替换AMP, 逻辑型, 可空, &amp替换为 &

.局部变量 a, 整数型

.局部变量 b, 整数型

.局部变量 c, 文本型


.如果 (是否为空 (左特征))

    a = 1

.否则

    a = 寻找文本 (待搜索文本, 左特征, , 假)

.如果结束

.如果 (是否为空 (右特征))

    b = 取文本长度 (待搜索文本) + 1

.否则

    b = 寻找文本 (待搜索文本, 右特征, a + 取文本长度 (左特征), 假)

.如果结束

.如果真 (a ≠ -1 且 b ≠ -1)

    c = 取文本中间 (待搜索文本, a + 取文本长度 (左特征), b - a - 取文本长度 (左特征))

.如果真结束

返回 (c)


.子程序 IEnumVARIANT_Next, 整数型

.参数 this

.参数 celt

.参数 rgvar

.参数 pceltFetched, , 参考

.局部变量 index


index = 3  ' 本源码来自易语言资源网(www.5A5X.com)

置入代码 ({ 139, 69, 8, 139, 0, 107, 77, 252, 4, 3, 193, 131, 196, 4, 93, 255, 32 })

返回 (0)


.子程序 取对象指针, 整数型

.参数 对象数据, 对象

.局部变量 pThisF, 整数型


CopyMemory_objcet2int (pThisF, 对象数据, 4)

返回 (pThisF)


.子程序 取变体型指针, 整数型

.参数 变体型, 变体型


返回 (lstrcat_int2variant (变体型, 0))


标签:                   喜欢:收藏