|
12楼
发表于 2010-4-12 18:52:06
|
只看该作者
广西壮族自治区防城港市
给分我吧宝贝!!!- .版本 2
- .子程序 设置本地连接, 逻辑型, 公开
- .参数 连接名称, 文本型, 可空, “本地连接”
- .参数 是否连接, 逻辑型
- .局部变量 Shell, 对象
- .局部变量 fd, 对象
- .局部变量 fds, 对象
- .局部变量 i, 整数型
- .局部变量 fi, 对象
- .局部变量 fd2, 对象
- .局部变量 fis, 对象
- .局部变量 j, 整数型
- .局部变量 fi2, 对象
- .局部变量 fivs, 对象
- .局部变量 k, 整数型
- .局部变量 fiv, 对象
- .局部变量 fivname, 文本型
- .局部变量 found, 逻辑型
- .局部变量 stat, 文本型
- .如果真 (是否为空 (连接名称) = 真)
- 连接名称 = “本地连接”
- .如果真结束
- Shell.创建 (“Shell.Application”, )
- fd = Shell.对象型方法 (“NameSpace”, 3)
- fds = fd.对象型方法 (“Items”, )
- .计次循环首 (fds.读数值属性 (“Count”, ), i)
- fi = fds.对象型方法 (“Item”, 到整数 (i - 1))
- .如果真 (fi.读文本属性 (“Name”, ) = “网络连接”)
- fd2 = fi.读对象型属性 (“GetFolder”, )
- fis = fd2.对象型方法 (“Items”, )
- .计次循环首 (fis.读数值属性 (“Count”, ), j)
- fi2 = fis.对象型方法 (“Item”, 到整数 (j - 1))
- .如果真 (fi2.读文本属性 (“Name”, ) = 连接名称)
- fivs = fi2.对象型方法 (“Verbs”, )
- .计次循环首 (fivs.读数值属性 (“Count”, ), k)
- fiv = fivs.对象型方法 (“Item”, 到整数 (k - 1))
- fivname = 取文本左边 (fiv.读文本属性 (“Name”, ), 4)
- .如果真 (fivname = “停用” 或 fivname = “启用”)
- found = 真
- .如果 (fivname = “停用”)
- .如果真 (取反 (是否连接))
- fiv.方法 (“DoIt”, )
- .如果真结束
- .否则
- .如果真 (是否连接)
- fiv.方法 (“DoIt”, )
- .如果真结束
- .如果结束
- 跳出循环 ()
- .如果真结束
- .计次循环尾 ()
- .如果真 (found = 真)
- 跳出循环 ()
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- .如果真 (found = 真)
- 跳出循环 ()
- .如果真结束
- .如果真结束
- .计次循环尾 ()
- 返回 (found)
复制代码 |
|