[已解决]如何在监测到u盘插入时，只打开1次“我的电脑”？

ygqiang

[已解决]如何在监测到u盘插入时，只打开1次“我的电脑”？

1. '后台一直循环2秒监控。
   
2. '如果发现u盘插入，就弹出我的电脑
   
3. '如果发现有重复标题的文件夹窗口，就自动关闭(只保留1个文件夹窗口)
   
4. 
   
5. Do
   
6.   Call ufind()
   
7.   WScript.Sleep 2000
   
8. '关闭重复的文件窗口
   
9.   Call CloseRepeatFolderWindow()
   
10. Loop
    
11. 
    
12. 
    
13. '监控u盘/usb移动硬盘，是否插入
    
14. Sub ufind()
    
15. dim a
    
16. Set wso = CreateObject("WScript.Shell")
    
17. Set fso = CreateObject("scripting.filesystemobject")
    
18. Set Disks = fso.Drives
    
19. For Each Disk In Disks
    
20. If Disk.IsReady And Disk.DriveType = 1 Then
    
21. 'MsgBox "发现U盘" & Disk.DriveLetter & ":\!", 4096 + 64, "温馨提示"
    
22.   '如果u盘插入-自动打开我的电脑
    
23.   wso.Run "Explorer.exe /n,"
    
24. 
    
25.   '关闭重复的文件窗口
    
26.   Call CloseRepeatFolderWindow()
    
27. WScript.Sleep 1000
    
28. Set wso = NoThing
    
29. a=true
    
30. End If
    
31. Next
    
32. if a =false then
    
33. 'msgbox "没有发现U盘,请检查U盘是否插好",,"温馨提示"
    
34. End if
    
35. End Sub
    
36. 
    
37. 
    
38. 
    
39. 
    
40. ' VBS关闭重复的文件夹窗口 By Crlf bathome.net
    
41. Sub CloseRepeatFolderWindow()
    
42.   On Error Resume Next
    
43.   Dim Shell, Dict, Wins
    
44.   Set Shell = CreateObject("Shell.Application")
    
45.   Set Dict = CreateObject("Scripting.Dictionary")
    
46.   Set Wins = Shell.Windows
    
47.   For i=Wins.Count-1 To 0 step -1
    
48.     If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
    
49.       If Dict.Exists(Wins(i).LocationURL) Then
    
50.         Wins(i).Quit
    
51.       Else
    
52.         Dict.Add Wins(i).LocationURL,True
    
53.       End If
    
54.     End If
    
55.   Next
    
56. End Sub

复制代码

ygqiang

[已解决]最终vbs代码如下：

ygqiang

1. '后台一直循环2秒监控。
   
2. '1、如果发现u盘插入，就弹出我的电脑(每当u盘插入1次，就弹出1次我的电脑，而且只允许弹出1次。下次重新插入u盘，再弹出1次我的电脑)
   
3. '2、如果发现有重复标题的文件夹窗口，就自动关闭(只保留1个文件夹窗口)
   
4. '上面2个功能是各自独立的、互相之间没有联系的。
   
5. 
   
6.   Dim wso, objWord
   
7.   Set wso = CreateObject("Wscript.Shell")
   
8.   Set objWord = CreateObject("word.Application")
   
9. 
   
10.     If AppPrevInstance() = True Then
    
11.       Call wso.Popup("该程序不允许重复运行！" & vbCrLf & String(75," ") & _
    
12.           vbCrLf & "程序将在 3 秒后全部退出 ...", 3, WScript.ScriptName, vbOKOnly+vbCritical)
    
13.       '直接退出程序
    
14.       objWord.Quit
    
15.       WScript.Quit(2)
    
16.     End If
    
17. 
    
18. 
    
19. dim TmpDiskNum
    
20. TmpDiskNum=0
    
21. Do
    
22.         Call ufind()
    
23.         WScript.Sleep 2000
    
24.         '关闭重复的文件窗口
    
25.         Call CloseRepeatFolderWindow()
    
26. Loop
    
27. 
    
28. '监控u盘/usb移动硬盘，是否插入
    
29. Sub ufind()
    
30. On Error Resume Next
    
31.         dim a
    
32.         Set fso = CreateObject("scripting.filesystemobject")
    
33.         Set Disks = fso.Drives
    
34.         dim DiskNumber
    
35.         DiskNumber = 0
    
36.        
    
37.         For Each Disk In Disks
    
38.                 If Disk.IsReady And Disk.DriveType = 1 Then
    
39.                
    
40.                         DiskNumber = DiskNumber + 1
    
41.                        
    
42.                         'MsgBox "发现U盘" & Disk.DriveLetter & ":\!", 4096 + 64, "温馨提示"
    
43.                         '如果u盘插入-自动打开我的电脑
    
44.                         D = Disk.DriveLetter
    
45.                        
    
46.                         if DiskNumber > TmpDiskNum then '如果是检测到 但是没有开启过 择开启
    
47.                                 dim wso
    
48.                                 Set wso = CreateObject("WScript.Shell")
    
49.                                 wso.Run "Explorer.exe /n,"
    
50.                         end if
    
51.                        
    
52.                         '关闭重复的文件窗口
    
53.                         Call CloseRepeatFolderWindow()
    
54.                         WScript.Sleep 1000
    
55.                         Set wso = NoThing
    
56.                         a = true
    
57.                 End If
    
58.         Next
    
59.        
    
60.         TmpDiskNum = DiskNumber
    
61.        
    
62.         if a = false then
    
63.                 'U盘不存在
    
64.                 'msgbox "没有发现U盘,请检查U盘是否插好",,"温馨提示"
    
65.         End if
    
66.        
    
67. End Sub
    
68. 
    
69. 
    
70. '检测vbs代码是否重复运行
    
71. Function AppPrevInstance()
    
72.   AppPrevInstance=False
    
73.   Dim objItem, i
    
74.   For Each objItem in GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_
    
75.     IF LCase(objItem.Name)=LCase(Right(WScript.FullName,11)) Then
    
76.       IF InStr(1,objItem.CommandLine,WScript.ScriptFullName,vbTextCompare) > 0 Then i=i+1
    
77.     End IF
    
78.   Next
    
79.   If i>1 Then AppPrevInstance=True
    
80. End Function
    
81. 
    
82. 
    
83. 
    
84. 'VBS关闭重复的文件夹窗口 By Crlf bathome.net
    
85. Sub CloseRepeatFolderWindow()
    
86.   On Error Resume Next
    
87.   Dim Shell, Dict, Wins
    
88.   Set Shell = CreateObject("Shell.Application")
    
89.   Set Dict = CreateObject("Scripting.Dictionary")
    
90.   Set Wins = Shell.Windows
    
91.   For i=Wins.Count-1 To 0 step -1
    
92.     If Instr(LCase(Wins(i).FullName),"\explorer.exe") Then
    
93.       If Dict.Exists(Wins(i).LocationURL) Then
    
94.         Wins(i).Quit
    
95.       Else
    
96.         Dict.Add Wins(i).LocationURL,True
    
97.       End If
    
98.     End If
    
99.   Next
    
100. End Sub

复制代码