我想讓U盤接入電腦有一個像電腦開機提示啟動時間多少秒這樣的一個畫面，不知道怎么弄，哪位大哥幫我寫一個定重謝！QQ:553774521 13355947981
uj5u.com熱心網友回復：
U盤接入電腦,讓指定的圖片運行在電腦右下角幾秒后消失這樣能實作嗎？各位大師！uj5u.com熱心網友回復：
很簡單的，在other里面判斷WM_DEVMODECHANGE事件uj5u.com熱心網友回復：
需要先處理插入U盤后自動運行一個應用程式的問題，目前大部分電腦都禁用了這個功能
在右下角顯示時間的問題比較好處理，放個視窗在右下角就行了，不顯示標題
uj5u.com熱心網友回復：
世界上很簡單的事情很多，不會的還是不會！不要見笑。求例子。QQ:553774521 13355947981
uj5u.com熱心網友回復：
1 百度AUTORUN.INI做法2 不要在INI里直接執行EXE，會被攔截，用FLASH中轉，然后在FLASH工程里呼叫你的EXE
這樣只要插入U盤就會自動播放你的FLASH和EXE。當前前提是作業系統開啟了自動播放功能
uj5u.com熱心網友回復：
VBS 都可以實作,將內容貼到記事本,后綴為.vbs 雙擊,然后插入U盤On Error Resume Next
Const Target_Folder = "C:\USB"
Call Main()
Sub Main()
On Error Resume Next
Const Device_Arrival = 2
Const Device_Removal = 3
Const strComputer = "."
Dim objWMIService, colMonitoredEvents, objLatestEvent
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService. _
ExecNotificationQuery( "Select * from Win32_VolumeChangeEvent")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
Select Case objLatestEvent.EventType
Case Device_Arrival
msgbox objLatestEvent.DriveName
End Select
Loop
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/46595.html
標籤：控件與界面
上一篇：權限授予問題