中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-09-14 17:23
47,812 主题排行 / 349,917 发帖 / 今日 0 篇 / 48,268 会员排行
DOS批处理 & 脚本技术(批处理室) » [原创]XP下用VBS写的代码编辑器
可打印版本  10,926 / 62
第31楼 jgc 发表于 2007-01-19 15:50
初级用户 发帖 20 积分 153
希望楼主加上在head中加入
否则我电脑上打开是乱码,加入代码后解决。
第32楼 lznetword 发表于 2007-01-26 06:38
新手上路 发帖 2 积分 4
看不太懂
看不太懂
第33楼 kich 发表于 2007-01-26 07:28
中级用户 发帖 168 积分 397
赞啊,楼主,我正在学VBS,跟你学了,多发代码啊,尤其是初级人员(比如我)看的代码
第34楼 kich 发表于 2007-01-26 07:40
中级用户 发帖 168 积分 397
请教楼主,我是新手,简单问一下您代码的意思:

==================================
Sub OptionAdd(fExt)
str = "<select size=""1"" name=""objOption"" onChange=""TestSub"">"
Set objDataFiles = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colFiles = objDataFiles. _
ExecQuery("Select * from CIM_DataFile where extension = '" & fExt & "'")
For Each objFile in colFiles
str = str & "<option value=""" & objFile.name & """>" & _
objFile.name & "</option>"
next
str = "<label>本地脚本文件:</label>" & str & "</select>"
forOption.innerHTML = str

end Sub

==========================

可以简单对这每个语句做下解释吗?我有点看不懂,而且正好在学这个,谢谢了!!
第35楼 zhenyun168 发表于 2007-01-27 12:58
初级用户 发帖 13 积分 24
好东西
第36楼 liuyilin 发表于 2007-01-29 03:12
初级用户 发帖 16 积分 38
楼主真牛人也
第37楼 nams 发表于 2007-01-30 06:23
新手上路 发帖 1 积分 2
学习中
第38楼 6622186 发表于 2007-02-23 13:31
高级用户 发帖 411 积分 894
"支持" 这两个字怎么弄出来的?真厉害! 我在前面加了 echo 在控制台显示,谢了!
第39楼 anqing 发表于 2007-02-23 13:57
高级用户 发帖 413 积分 859
真是佩服楼主你啊
第40楼 HUNRYBECKY 发表于 2007-03-01 23:22
银牌会员 发帖 442 积分 1,179
我这里已经下载了MS的哪个脚本编辑器,很小,没有什么功能,但是比较方便.
第41楼 zxz1155 发表于 2007-03-04 14:46
新手上路 发帖 9 积分 19
呵呵,都是好东西,可就是俺看不懂,......
第42楼 shaodong189 发表于 2007-03-28 15:39
新手上路 发帖 1 积分 2
好,,,,,,,,,,,,,,,,,,,,,,,
第43楼 sf005k 发表于 2007-03-30 01:48
新手上路 发帖 1 积分 2
好深厚啊,我不会
第44楼 benteng302 发表于 2007-05-22 08:31
初级用户 发帖 41 积分 88
真实牛人呀。佩服!
第45楼 happy12380 发表于 2007-09-20 13:59
新手上路 发帖 1 积分 2
上一页  1 2 3 4 5  下一页
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023