易语言linux shell,易语言SHELL对象应用

网络连接集.创建 (“Shell”, “C:\WINDOWS\system32\shell32.dll”)

z ＝ 网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).读数值属性 (“Count”, )

.计次循环首 (z, x)

输出调试文本 (网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ))

.如果真 (网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ) ＝ 组合框1.取项目文本 (组合框1.现行选中项))

网络连接 ＝ 网络连接集.对象型方法 (“NameSpace”, 49).对象型方法 (“Items”, ).对象型方法 (“Item”, 到短整数 (x － 1))

跳出循环 ()

.如果真结束

.计次循环尾 ()

输出调试文本 (z)

' 网络连接.查看 ()

z ＝ 网络连接.对象型方法 (“Verbs”, ).读数值属性 (“Count”, )

.计次循环首 (z, x)

输出调试文本 (网络连接.对象型方法 (“Verbs”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ))

.如果真 (网络连接.对象型方法 (“Verbs”, ).对象型方法 (“Item”, 到短整数 (x － 1)).读文本属性 (“Name”, ) ＝ “创建快捷方式(&S)”)

网络连接.对象型方法 (“Verbs”, ).对象型方法 (“Item”, 到短整数 (x － 1)).对象型方法 (“DoIt”, )

跳出循环 ()

.如果真结束

.计次循环尾 ()