导航:首页 > 安装管理 > 易语言检测移动设备

易语言检测移动设备

发布时间:2021-04-14 23:57:51

A. 易语言如何判断鼠标3秒内是否移动!

需要下载文件:判断鼠标是否空闲

关键在于判断鼠标的位置是否移动,关键命令:
取鼠标水平位置 ()
取鼠标垂直位置 ()

B. 易语言检测可移动磁盘文件,并执行复制操作

取驱动器列表 ()

C. 易语言如何获取手机是否插入电脑 还有拔出

一般手机插入都会显示H盘或者是其他的
只有你判断H盘是否存在就行了。
下面是获取U盘的插入或拔除事件的代码,有dll命令和自定义类型常量。
.版本 2
.程序集 窗口程序集1
.程序集变量 a, 子程序指针
.子程序 __启动窗口_创建完毕
a = SetWindowLong (_启动窗口.取窗口句柄 (), -4, &MsgProc)

.子程序 MsgProc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wp, 整数型
.参数 lp, 整数型
.局部变量 val, PDEV_BROADCAST_VOLUME
.局部变量 i, 整数型
.局部变量 mask, 整数型
.判断开始 (msg = 537)
.判断开始 (wp = #DBT_DEVICERARRIVAL) ' 插入设备
复制结构体 (val, lp, 14)
.如果真 (val.dbcv_devicetype = #DBT_DEVTYP_VOLUME)
mask = val.dbcv_unitmask
.变量循环首 (0, 25, 1, i)
.如果真 (位与 (mask, 1) = 1)
跳出循环 ()
.如果真结束
mask = 右移 (mask, 1)
.变量循环尾 ()
编辑框1.加入文本 (“USB磁盘被插入,盘符:” + 字符 (65 + i) + #换行符)
检测 (字符 (65 + i))
.如果真结束
.判断 (wp = #DBT_DEVICEREMOVECOMPLETE) ' 删除设备
复制结构体 (val, lp, 14)
.如果真 (val.dbcv_devicetype = #DBT_DEVTYP_VOLUME)
mask = val.dbcv_unitmask
.变量循环首 (0, 25, 1, i)
.如果真 (位与 (mask, 1) = 1)
跳出循环 ()
.如果真结束
mask = 右移 (mask, 1)
.变量循环尾 ()
编辑框1.加入文本 (“USB磁盘被拔除,盘符:” + 字符 (65 + i) + #换行符)
.如果真结束
.默认
.判断结束
.默认
.判断结束
返回 (CallWindowProc (a, hwnd, msg, wp, lp))
.子程序 __启动窗口_将被销毁
a = SetWindowLong (_启动窗口.取窗口句柄 (), -4, a)
.子程序 检测
.参数 盘符, 文本型
.局部变量 fn, 文本型
fn = 寻找文件 (盘符 + “:\*.*”, )
编辑框2.内容 = “”
.判断循环首 (fn ≠ “”)
编辑框2.加入文本 (fn + #换行符)
fn = 寻找文件 (, )
.判断循环尾 ()

≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈自定义类型≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈

.数据类型 PDEV_BROADCAST_VOLUME
.成员 dbcv_size, 整数型, , , 14
.成员 dbcv_devicetype, 整数型
.成员 dbcv_reserved, 整数型
.成员 dbcv_unitmask, 整数型
.成员 dbcv_flags, 短整数型
.数据类型 _DEV_BROADCAST_HDR
.成员 dbch_size, 整数型
.成员 dbch_devicetype, 整数型
.成员 dbch_reserved, 整数型

≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈常量≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈

.常量 WM_DEVICECHANGE, "537", , 驱动盘符被改变
.常量 DBT_DEVICEREMOVECOMPLETE, "32772"
.常量 DBT_DEVICERARRIVAL, "32768"
.常量 DBT_DEVTYP_OEM, "0"
.常量 DBT_DEVTYP_DEVNODE, "1"
.常量 DBT_DEVTYP_VOLUME, "2"
.常量 DBT_DEVTYP_PORT, "3"
.常量 DBT_DEVTYP_N, "4"

D. 易语言怎么识别可移动磁盘

磁盘=取驱动器列表(#接口常量.可移动驱动器)
计次循环首(取数组成员数(磁盘),计次)
列表框1.加入项目(磁盘[计次],)
计次循环尾()
这样有几个可移动磁盘都列出来了!列出的盘符!

E. 易语言人如何检测是否有苹果设备接入并且获取其信息最好有源码,谢谢!

给我财富 我给你 易语言老鸟

F. 易语言检测U盘插入并获取盘符,求方法,有源码更好!

下面是获取U盘的插入或拔除事件的代码,有dll命令和自定义类型常量。如果不是很明白,把邮箱写上,我发给你。
.
.版本 2
.程序集 窗口程序集1
.程序集变量 a, 子程序指针
.子程序 __启动窗口_创建完毕
a = SetWindowLong (_启动窗口.取窗口句柄 (), -4, &MsgProc)

.子程序 MsgProc, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wp, 整数型
.参数 lp, 整数型
.局部变量 val, PDEV_BROADCAST_VOLUME
.局部变量 i, 整数型
.局部变量 mask, 整数型
.判断开始 (msg = 537)
.判断开始 (wp = #DBT_DEVICERARRIVAL) ' 插入设备
复制结构体 (val, lp, 14)
.如果真 (val.dbcv_devicetype = #DBT_DEVTYP_VOLUME)
mask = val.dbcv_unitmask
.变量循环首 (0, 25, 1, i)
.如果真 (位与 (mask, 1) = 1)
跳出循环 ()
.如果真结束
mask = 右移 (mask, 1)
.变量循环尾 ()
编辑框1.加入文本 (“USB磁盘被插入,盘符:” + 字符 (65 + i) + #换行符)
检测 (字符 (65 + i))
.如果真结束
.判断 (wp = #DBT_DEVICEREMOVECOMPLETE) ' 删除设备
复制结构体 (val, lp, 14)
.如果真 (val.dbcv_devicetype = #DBT_DEVTYP_VOLUME)
mask = val.dbcv_unitmask
.变量循环首 (0, 25, 1, i)
.如果真 (位与 (mask, 1) = 1)
跳出循环 ()
.如果真结束
mask = 右移 (mask, 1)
.变量循环尾 ()
编辑框1.加入文本 (“USB磁盘被拔除,盘符:” + 字符 (65 + i) + #换行符)
.如果真结束
.默认
.判断结束
.默认
.判断结束
返回 (CallWindowProc (a, hwnd, msg, wp, lp))
.子程序 __启动窗口_将被销毁
a = SetWindowLong (_启动窗口.取窗口句柄 (), -4, a)
.子程序 检测
.参数 盘符, 文本型
.局部变量 fn, 文本型
fn = 寻找文件 (盘符 + “:\*.*”, )
编辑框2.内容 = “”
.判断循环首 (fn ≠ “”)
编辑框2.加入文本 (fn + #换行符)
fn = 寻找文件 (, )
.判断循环尾 ()

≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈自定义类型≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈

.数据类型 PDEV_BROADCAST_VOLUME
.成员 dbcv_size, 整数型, , , 14
.成员 dbcv_devicetype, 整数型
.成员 dbcv_reserved, 整数型
.成员 dbcv_unitmask, 整数型
.成员 dbcv_flags, 短整数型
.数据类型 _DEV_BROADCAST_HDR
.成员 dbch_size, 整数型
.成员 dbch_devicetype, 整数型
.成员 dbch_reserved, 整数型

≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈常量≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈≈

.常量 WM_DEVICECHANGE, "537", , 驱动盘符被改变
.常量 DBT_DEVICEREMOVECOMPLETE, "32772"
.常量 DBT_DEVICERARRIVAL, "32768"
.常量 DBT_DEVTYP_OEM, "0"
.常量 DBT_DEVTYP_DEVNODE, "1"
.常量 DBT_DEVTYP_VOLUME, "2"
.常量 DBT_DEVTYP_PORT, "3"
.常量 DBT_DEVTYP_N, "4"

阅读全文

与易语言检测移动设备相关的资料

热点内容
黑龙江特种设备检验研究院 浏览:210
机械化养护中心 浏览:838
上海特种设备管理 浏览:48
机械师改枪 浏览:181
机械化剪纸 浏览:757
美燃环保设备 浏览:809
济南北斗星数控设备有限公司 浏览:838
自动喷涂机械手 浏览:457
中小型农业机械加工项目建议书 浏览:251
不锈钢加工设备市转让 浏览:441
水稻生产全程机械化 浏览:110
扳手机械原理 浏览:61
凯格精密机械有限公司 浏览:61
广毅机电设备 浏览:805
重庆三阳办公设备有限公司 浏览:494
华技达自动化设备 浏览:631
东莞石碣自动化设备厂 浏览:131
机械制图陈列柜 浏览:246
郑州奥鑫游乐设备公司 浏览:733
美邦环保设备有限公司 浏览:386