小编Fad*_*adi的帖子

在我的笔记本电脑上,我可以通过按FN+ 手动切换飞行模式F12,我想从VB6项目或VBA自动执行相同的操作.

我做了很多搜索,只找到了有关启用/禁用无线适配器或Sendkeys用于Windows 8的答案:

Dim WSh As Object
Set WSh = CreateObject("Wscript.Shell")
WSh.Run "C:\WINDOWS\system32\rundll32.exe %SystemRoot%\system32\van.dll,RunVAN", , True
Sleep 200
WSh.SendKeys " "
Sleep 1000
WSh.SendKeys "{ESC}"

但是这段代码不可靠,我认为它不适用于Windows 7或Windows 10.

所以我的问题是:有没有可靠的方法在Windows上自动切换飞行模式.

似乎Set Object = Nothing没有破坏Fs此代码中的Object:

Sub Test2()
    Dim Fs As New FileSystemObject
    Set Fs = Nothing
    MsgBox Fs.Drives.Count ' this line works
End Sub

最后一行没有错误!那意味着Fs对象仍然存在,对吗？

那么如何破坏这个Fs对象.