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"