- 版主
- 211464
- 21164
- 13
- 258 朵
- 47817 个
- 60 个
- 263800
- 2008-12-23
|
1#
t
T
发表于 2009-01-07 11:26
|
|只看楼主
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★描★述★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //——————————————————————<[作者名]脚本规范写法的例子参考>
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★说★明★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //——————————————————————<创建日期:2009/01/07/11:00:00>
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定用户变量★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- Dim UserName
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★赋用户参数★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- UserVar UserName=aaaaaaaaa 用户名
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定对象变量★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- Dim Obj
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★对象头文件★〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- set Obj=CreateObject("WScript.Shell")
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★定变量★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- Dim DX,DY
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★赋初值★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- DX=100
- DY=50
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- Rem [开始]
- MsgBox "我是脚本内容!"
- Gosub [子程序]
- Delay 50
- Goto [开始]
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★停★止★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- EndScript
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★子程序★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- Sub [子程序]
- MsgBox "我是子程序啊!"
- Return [子程序]
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★备★注★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
- //[作者]我是啊大 [QQ]12343545
- //〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★结★束★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
复制代码
|