[已解决]一段关于wifi的代码，运行时一闪而过

waxy · 发表于 2010-4-28 17:11:45

本帖最后由 waxy 于 2010-5-17 15:45 编辑

在坛子里看到一段关于wifi设置的代码，不知道为什么在我的电脑上运行，只出现一个一闪而过的“无线网络连接”框，
看了老半天不知道问题出在哪，请高手们有空看看。

Dim $objShell,$objFolder,$objFolderItem,$objVerb
$objShell=ObjCreate('Shell.Application')
$objFolder=$objShell.NameSpace("::{7007ACC7-3202-11D1-AAD2-00805FC1270E}")
For $index = 0 To $objFolder.Items.Count-1 Step 1
        $objFolderItem = $objFolder.Items.Item($index)
        If $objFolderItem.Name='无线网络连接' Then
                For $index2 = 0 To $objFolderItem.Verbs.Count-1 Step 1
                        If $objFolderItem.Verbs.Item($index2).Name='启用(&A)' Then
                                $objFolderItem.Verbs.Item($index2).DoIt
                                WinWaitClose('无线网络连接','启用')
                                Sleep(3000)
                        EndIf
                Next

                For $index2 = 0 To $objFolderItem.Verbs.Count-1 Step 1
                        If $objFolderItem.Verbs.Item($index2).Name='查看可用的无线连接(&V)' Then
                                $objFolderItem.Verbs.Item($index2).DoIt
                        EndIf
               Next
        EndIf
Next

waxy · 发表于 2010-4-29 08:43:20

呵呵，自己先研究吧。

waxy · 发表于 2010-4-29 09:21:46

加了While 可以解决问题，但CPU的有点受不了，使用率一下子嘣了50%以上。

水木子 · 发表于 2010-4-29 09:27:15

循环中加 Sleep ( 延迟 ) 让CPU稍微休息下

waxy · 发表于 2010-4-29 09:28:22

呵呵，我知道加个延时就OK。

gapkiller · 发表于 2010-4-29 09:31:00

这段代码是干嘛滴呐?

lin0308 · 发表于 2010-4-29 11:44:42

循环+延时，最好得方法

lin0308 · 发表于 2010-4-29 11:44:48

循环+延时，最好得方法

lxz · 发表于 2010-4-30 07:58:54

没有延时,肯定一闪而过啦.

waxy · 发表于 2010-4-30 08:55:38

回复 9# lxz
不是没有延时会一闪而过，这里面加延时是为了减轻CPU的压力。

waxy · 发表于 2010-4-30 08:56:38

回复 6# gapkiller
是打开无线网络设置的。

Tinkpad529 · 发表于 2012-11-25 14:08:08

循环+延时，最好得方法

gxm1003 · 发表于 2014-4-25 01:53:19

好东东，谢谢分享！

yongge9999 · 发表于 2014-6-25 15:52:07

学习一下，挣点钱钱

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]一段关于wifi的代码，运行时一闪而过

相关帖子