易语言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”, )
跳出循环 ()
.如果真结束

.计次循环尾 ()