t=1
j=0
while t<2
  wscript.echo j&"--", t
  j=j+1
  if j>10 then t=2
wend
复制代码

set fso=createobject("scripting.filesystemobject")
set file=fso.getfile("f:\20.txt")
t=file.attributes
set dic=createobject("scripting.dictionary")
dic.add 0,"normal"
dic.add 1,"readonly"
dic.add 2,"hide" 
dic.add 4,"system"
dic.add 32,"achive"

 wscript.echo dic(t and 32),dic(t mod 32)
复制代码

set fso=createobject("scripting.filesystemobject")
set file=fso.drives
on error resume next ‘由于有光驱的存在，没有这句将返回驱动器没有准备好这一结果。
for each i in file
wscript.echo i.filesystem
next
复制代码

set obj=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
path=obj.specialfolders("desktop")  ‘获取桌面路径，可以直接输入
set folder=fso.getfolder(path)
set files=folder.files
for each i in files
    wscript.echo i.name ’获取文件名
next
   wscript.echo files.count  ‘获取文件数量
复制代码

t=msgbox("hello world",vbyesno,"我的测试")
      wscript.echo t
复制代码

set oshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set drives=fso.drives
for each i in drives
  
  if (i.drivetype mod 4)=0 then wscript.echo i&"It is CD"
  if (i.drivetype mod 4)=1 then wscript.echo i&"It is flappy"
  if (i.drivetype mod 4)=2 then wscript.echo i&"It is hard-disk" 
next
   wscript.echo "Drives-count="&drives.count
复制代码

set oform=createobject("forms.form.1") '创建窗体对象
set  otextbox=oform.add("forms.textbox.1") '创建文本框对象
otextbox.value="hello world"  '赋值给文本框
otextbox.selstart=0
otextbox.sellength=8 '以上两句是选择文本框里面的内容
'如果你是用的是多行文本框，就加这样一句：otextbox.multiline=true
otextbox.copy
wscript.echo otextbox.textlength '显示一下我选中的文本长度。
复制代码

set oform=createobject("forms.form.1")
set otextbox=oform.add("forms.textbox.1")
otextbox.paste
wscript.echo otextbox.value
'value属性和text属性的效果一样
复制代码

set obj=CreateObject("shotgraph.image")

size=201
'Calling the CreateImage method
obj.CreateImage size,size,4

'4是指图像中要用到4种颜色，颜色按编号引用
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetColor 2,255,108,0
obj.SetColor 3,0,0,204

'0~3代表颜色编号，后面的三个数字是rgh数。
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

'画正方形，填充色是编号为0的颜色，后面的是对角线坐标。程序有错误，颜色编号只能从1开始，不能用0，后面的语句和这句一样的道理。
obj.SetDrawColor 1
'Drawing the line
obj.Line size-1,0,0,size-1
'Color 2 will be used for filling
obj.SetBgColor 2
'Draw the big circle
obj.Ellipse 5,5,size-6,size-6
'Color 2 will be used for filling
obj.SetBgColor 3
'Draw the small circle
obj.Ellipse 5,(size-5)/4,size/2,(size-5)*3/4

'Create the image file named test.gif
obj.GifImage 0,1,"test.gif" '图片可以保持为一切windows图片，包括swf文件也可以。
复制代码

set obj=createobject("shotgraph.image")
obj.createimage 300,200,3
obj.setcolor 1,0,255,0
obj.setcolor 2,0,0,255 

obj.setbgcolor 1
obj.fillrect 0,0,300,200
obj.setdrawcolor 2
obj.line 0,0,200,200
obj.gifimage 0,1,"test.gif" 
复制代码

 
set oshell=createobject("wscript.shell")
set obj=createobject("shotgraph.image")
obj.createimage 300,200,3
obj.setcolor 1,0,255,0
for i=0 to 20
obj.setdrawcolor 1
obj.line i,i,400-i*i,i*i  '改为 obj.line i,i,i,i 就是点
obj.gifimage 0,1,"test.gif" 
wscript.sleep 500
oshell.run "test.gif"
next 
复制代码

 
set oshell=createobject("wscript.shell")
set obj=createobject("shotgraph.image")
obj.createimage 300,200,3
obj.setcolor 1,0,255,0
for i=0 to 100
obj.setbgcolor 1
obj.fillrect i,i^2*0.02,i+1,i^2*0.02+1
obj.gifimage 0,1,"test.gif" 
wscript.sleep 500
oshell.run "test.gif"
next 
复制代码

set oshell=createobject("wscript.shell") 
set oimg=createobject("shotgraph.image")
x=200
y=200
oimg.createimage x,y,8
oimg.setcolor 0,255,100,12
oimg.setcolor 1,125,0,0

 
oimg.setdrawcolor 1
oimg.line 50,50,100,100


oimg.gifimage 1,0,"test.swf"
oshell.run "test.swf",3
 
复制代码

set oshell=createobject("wscript.shell") 
set oimg=createobject("shotgraph.image")
x=200
y=200
oimg.createimage x,y,8

oimg.setcolor 0,255,100,12
oimg.setcolor 1,125,0,0
oimg.setcolor 2,255,255,200

oimg.fontsmoothing=2

oimg.textout 50,100,"hello world hello world"


oimg.gifimage 1,95,"test.swf"
oshell.run "test.swf",3
复制代码

set oshell=createobject("wscript.shell") 
set oimg=createobject("shotgraph.image")
x=800
y=600
oimg.createimage x,y,8

oimg.setcolor 0,255,100,12
oimg.setcolor 1,125,0,0
oimg.setcolor 2,255,255,200


oimg.createfont "Arial",50,72,100,false,false,false,false
oimg.textout 10,20,"hello"


oimg.gifimage 10,0,"test.swf"
oshell.run "test.swf",3
复制代码

set oshell=createobject("wscript.shell") 
set oimg=createobject("shotgraph.image")
x=320
y=240

oimg.createimage x,y,3
oimg.setcolor 0,100,255,0
oimg.setcolor 1,0,0,200
oimg.setcolor 2,255,0,0

oimg.settextcolor 2
for i=0 to 40
oimg.createfont "arial",0,48,90*i,false,false,false,false
oimg.textout 100,100,"hello" 
oimg.gifimage true,95,"test.gif"


oshell.run "test.gif" ,1
wscript.sleep 1000
next 
 
复制代码

set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")
xsize=320
ysize=240
frames=9
obj.CreateImage xsize,ysize,4
obj.SetColor 0,0,255,51
obj.SetColor 1,0,0,0
obj.SetColor 2,255,0,0
obj.createpen "PS_SOLID",4,2 
for i=1 to 50
obj.TrackAdd true,10,10,0,0,150,100,30
obj.rEctangle i+10,i+10,i+30,i+30
next

obj.trackplay "test.gif"

s.run "test.gif"
复制代码

set s=createobject("wscript.shell")
set oimg=CreateObject("shotgraph.image")

xsize=320:ysize=240
oimg.createimage xsize,ysize,8
oimg.setcolor 0,200,80,100
oimg.setcolor 1,0,255,0
oimg.setcolor 2,0,0,255

oimg.setbgcolor 0
oimg.fillrect 0,0,xsize,ysize


oimg.initclipboard 50,50
oimg.selectclipboard true
oimg.setbgcolor 1
oimg.rectangle 0,0,100,100
oimg.copy 0,20,30,30,10,10,"SRCCOPY"
oimg.copy 0,60,30,30,10,10,"SRCCOPY"
oimg.copy 10,100,30,30,10,10,"SRCCOPY"
oimg.gifimage -1,0,"hh.gif"
s.run "hh.gif"
复制代码

set s=createobject("wscript.shell")
               set oimg=CreateObject("shotgraph.image")
               maxsize=480000
              data=oimg.readbinaryfile("sunset.jpg",maxsize)
              oimg.writebinary data,0,ubound(data)+1,"hhh.jpg"
               s.run "hhh.jpg"
复制代码

set obj=createobject("shotgraph.image") '连接到com
obj.createimage 320,240,8，创建图片，可以有8种颜色，这也是免费版的最大色数（不是素！）了

obj.setcolor 0,0,255,0 '定义绿色，编号为0，编号可以任意指定。
obj.fillrect 0,0,319,239 ’填充一个rectangle，其实就是创建画布。

OBJ.setgraphicSmode "GM_ADVANCED"    '进入变换模式。这是要进行变换的必要条件，后面的参数是高级的意思，不可以去掉！
OBJ.setTransformation 2,0,0,2,10,10  '进行相似变换
obj.capturescreen 0,0,320,240,450,50  '在屏幕上从坐标(10,10)的地方开始抓一个rectangle屏幕进入内存，然后在一个矩形区域
                                          '显示图片。前4个数字代表矩形区域
复制代码

set obj=CreateObject("shotgraph.image")

size=220
obj.CreateImage size,size,2
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

obj.SetDrawColor 1
obj.CreateBrush "BS_NULL",0,""
obj.SetGraphicsMode "GM_ADVANCED"
for i=0 to 179 step 10
	ang=i*3.141/180.0
	'Rotate the drawing
	obj.SetTransformation Cos(ang),Sin(ang),-Sin(ang),Cos(ang),size/2,size/2
	obj.Ellipse -size/2,-size/4,size/2-2,size/4-2
next

img=obj.GifImage(-1,1,"test.gif")
复制代码

 
set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")

xsize=320
ysize=240
obj.CreateImage xsize,ysize,8

obj.SetColor 0,0,50,0
obj.SetColor 1,&HFF,0,0
obj.setcolor 2,0,&HFF,0
obj.setcolor 3,0,&HFF,&HFF
obj.setcolor 4,&HFF,0,&HFF
obj.setcolor 5,&HFF,&HFF,0
obj.setcolor 6,0,0,&HFF
obj.setcolor 7,0,0,0

obj.SetBgColor 0
obj.FillRect 0,0,xsize,ysize

obj.createfont "",0,32,0,1,0,1,0
obj.settextcolor 2
obj.textout 30,5,"myzam"

for i=0 to 10
for r=0 to 100 step 10
obj.createpen "PS_SOLID",4,(r MOD 6)+1
obj.setbkmode "TRANSPARENT"
OBJ.CREATEBRUSH "BS_HATCHED",(r MOD 6)+2,"HS_CROSS" 
obj.ellipse 160-r,120-r,160+r,120+r

obj.trackadd -1,0,0,0,0,xsize,ysize,30     
next
next
obj.trackplay "test.gif"
 
s.run "f:\test.gif"
  
复制代码

set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")

size=240
obj.CreateImage size,size,8
obj.SetColor 0,0,255,0
obj.SetColor 1,0,0,255
obj.setcolor 2,255,0,0
obj.setcolor 3,0,0,0
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

obj.createpen "PS_SOLID",3,2
obj.line 0,size-4,size,size-4
obj.line 120,0,120,size 

obj.createfont "ARIAL",0,24,0,true,0,0,0
obj.settextcolor 3
obj.setbkmode "TRANSPARENT"
obj.gettextdimensions "x-axies",u,v
 
obj.textout size-u-2,size-v-2,"x-axies"
obj.textout 120,0,"y-axies"
for i=0 to size step 2
 
        obj.trackadd true,0,0,0,0,size,size,30
        obj.createpen "PS_SOLID",4,1
        obj.line i,size-0.1*(i-120)^2-5,i,size-0.1*(i-120)^2-5
next

obj.trackplay "test.gif"

s.run "test.gif"
复制代码

这是动态的显示描点
[attach]3686[/attach]
这是描点法得到的动画图片，刷新网页可以看到。和下面用变换做的是同样一条抛物线
的图像，用变换法生成的图像动画比这个快的多。


如果不想动态的显示描点，只想显示结果，那么把帧语句obj.trackadd true,0,0,0,0,size,size,30移动动for循环的外面，next的后面就行了。
eg.2 利用平移和反射作抛物线的图像，描点法

set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")

size=240
obj.CreateImage size,size,8
obj.SetColor 0,0,255,0
obj.SetColor 1,0,0,255
obj.setcolor 2,255,0,0
obj.setcolor 3,0,0,0
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

obj.createpen "PS_SOLID",3,2
obj.line 0,size-4,size,size-4
obj.line 120,0,120,size 

obj.createfont "ARIAL",0,24,0,true,0,0,0
obj.settextcolor 3
obj.setbkmode "TRANSPARENT"
obj.gettextdimensions "x-axies",u,v
 
obj.textout size-u-2,size-v-2,"x-axies"
obj.textout 120,0,"y-axies"

for i=0 to size-1 step 1
        obj.setgraphicsmode "GM_ADVANCED"
        obj.settransformation 1,0,0,1,i+120,0.2*i^2
        obj.createpen "PS_SOLID",4,1
        obj.line i,0,i,0
        obj.settransformation -1,0,0,1,size-i-120,0.2*i^2
        obj.line i,0,i,0
next

obj.gifimage -1,0,"test.gif" 

s.run "test.gif"
复制代码

其实关键的语句没这么多，就是for。。。next那几句，其它的是废话。就是为了好看一点吧了。
下面是利用平移变换作的图，刷新网页，看以看到动画

例子：利用bezier贝塞尔方法创建曲线轨迹

set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")

size=240
obj.CreateImage size,size,8
obj.SetColor 0,0,255,0
obj.SetColor 1,0,0,255
obj.setcolor 2,255,0,0
obj.setcolor 3,0,0,0
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

obj.createpen "PS_SOLID",3,2
obj.line 0,size-4,size,size-4
obj.line 120,0,120,size 

obj.createfont "ARIAL",0,24,0,true,0,0,0
obj.settextcolor 3
obj.setbkmode "TRANSPARENT"
obj.gettextdimensions "x-axies",u,v
 
obj.textout size-u-2,size-v-2,"x-axies"
obj.textout 120,0,"y-axies"

for i=2 to 51 step 5
        obj.createpen "PS_SOLID",1,1
        obj.polybezier array(0,0,i+118,0.1*i^2,i+122,0.1*(i+2)^2,240,0)
        obj.trackadd true,0,0,0,0,size,size,30
next

obj.trackplay "test.gif" 

s.run "test.gif"
复制代码

生成的动画图片如下，刷新网页可以看到动画。

[attach]3687[/attach]
利用bezier方法创建的曲线系文件很小。这是因为它采用的是多项式插值推算出来的，不是一点一点的描出来的。
所以数学函数的模拟尽量采用插值发，以减小文件的大小。这个图片才16kb。如果是描点的话，
大概要达到200kb的样子，差别是非常大的。

例子：直方图

set s=createobject("wscript.shell")
Set g=CreateObject("shotgraph.image")

x=320
y=240
g.createimage x,y,8
g.setcolor 0,100,0,255
g.setcolor 1,255,0,0
g.setcolor 2,0,255,0

g.setbgcolor 0
g.fillrect 0,0,x-1,y-1

for i=0 to 11   

  g.setbgcolor (i mod 2)+1
  if y-i*50>=0 then
     g.fillrect i*30,y-i*50,i*30+30,y
  else
     g.fillrect i*30,i*50-y,i*30+30,y
  end if
 
next 

g.gifimage true,0,"test.gif"
 
s.run "test.gif" 
复制代码

===============[attach]3690[/attach]
例子：微积分中的曲边梯形动画

set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")

xsize=320
ysize=240
obj.CreateImage xsize,ysize,8

obj.SetColor 0,0,255,0
obj.SetColor 1,0,0,255
obj.setcolor 2,255,0,0

obj.SetBgColor 0
obj.FillRect 0,0,xsize,ysize

sub my()
 n=inputbox("Please number:")
 h=xsize/n
 for i=0 to n-1
    xi=0+i*h
    yi=0.005*(xi+h/2)^2
  if ysize-yi >=0 then
    obj.setbgcolor (i mod 3)+1
    obj.fillrect xi,ysize,xi+h,ysize-yi
    obj.trackadd -1,0,0,0,0,xsize,ysize,30
  else 
    exit for
  end if
 next
end sub

call my()

obj.trackplay "test.gif"
s.run "test.gif"
 
复制代码

刷新网页，可以看到动画：y=x*x*0.0056的曲边梯形

[attach]3691[/attach]
-----------------------------------------------------
例子：抛物线的曲边梯形2--y=0.005*x^2

''''####Editer:myzay 2011-4-5#########
set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")

xsize=320
ysize=240
obj.CreateImage xsize,ysize,8

obj.SetColor 0,0,255,0
obj.SetColor 1,0,0,255
obj.setcolor 2,255,0,0
obj.setcolor 3,200,10,125
obj.setcolor 4,125,200,50

obj.SetBgColor 0
obj.FillRect 0,0,xsize,ysize

call my()

function my()
    for n=10 to 50
        
        h=xsize/n
        
        
        obj.gettextdimensions "100Number Of Iterate",x1,y1
        obj.createfont "Arail",0,32,1800,true,true,true,true
        obj.setbKmode "TRANSPARENT"
        obj.settextcolor (n mod 2)+3
        obj.textout x1+10,y1+20,"Number Of Iterate:"&n-9 
 
   for i=0 to n-1
           

           xi=0+i*h
           yi=0.005*(xi+h/2)^2
           if ysize-yi >=0 then
           obj.setbgcolor (i mod 3)+1
           obj.fillrect xi,ysize,xi+h,ysize-yi
           obj.trackadd -1,0,0,0,0,xsize,ysize,20
          
    else 
           exit for
    end if
    next
    obj.SetBgColor 0
    obj.FillRect 0,0,xsize,ysize
next
end function
 
obj.trackplay "test.gif"
s.run "f:\test.gif"
  
复制代码

动画文件为1.25mb,请稍等。要重复播放，请刷新网页。



----------------------------------------------------

函数图像画法有3法：
  法1：老老实实的描点
  法2：平移变换法
  法3：贝塞尔方法。这种方法是曲线的近似画法，数学上叫曲线的拟合。
  法4：折线法obj.polyline，采用极限的思想，把区间细分一下，如分为30段，就可以达到很好的效果，而且文件还小。
   给个例子：

set s=createobject("wscript.shell")
set obj=CreateObject("shotgraph.image")

xsize=320
ysize=240
obj.CreateImage xsize,ysize,8

obj.SetColor 0,0,255,0
obj.SetColor 1,0,0,255
obj.setcolor 2,255,0,0
obj.setcolor 3,200,10,125
obj.setcolor 4,125,200,50

obj.SetBgColor 0
obj.FillRect 0,0,xsize,ysize
 
arr=array( _
100,100,110,50,120,100,130,50,140,100,_
150,50,160,100,170,50,180,100,200,50,220)
obj.setdrawcolor 2 
obj.polyline "",arr
obj.line 0,160,230,160
obj.line 100,10,100,300        

obj.gifimage -1,0,"test.gif" 
 s.run "f:\test.gif"
 
复制代码

[attach]3692[/attach]
  利用帧来创建图片就可以了。如果要想文件小点，快点，就获取图片的最后结果，只用一帧就可以了。，如果
  喜欢慢慢的欣赏画图的过程，那就要用多帧。
  如果你希望图片上的点不离散，那就取小数步长，这时动画是很慢的哦。
  玩家可能觉得奇怪，既然画图是这么的重要，为啥vbs不自带一个功能强大一点的方法？
  原因是这样的：vbs被微软设计成了一个类似于仪表盘的东西。
  仪表盘上的每一个按钮就是vbs的基本语句和基本方法，基本属性。
  vbs脚本所要做的就是让我们去按动按钮，然后调用com，通过com（控件）去完成各种复杂的事情。
  vbs没有画图的方法，这是由微软打造vbs的主导思想决定的。并不是微软办不到。
由此看来这个组件叫shotgraph是很妙的叫法了。shot---射击，graph---图表。合起来就是射击图表。
就是说你的vbs脚本就像一把枪的扳机，com就是你的子弹，你扣动扳机，就是调用com。这一枪出去，你就射出了一幅图像。
  这就是为什么叫shot  graph射图的原因，你说取的妙不妙？！vbs脚本是扳机，com是你的子弹，没有com的vbs就如没有子弹的枪。
  我查看了一下API函数列表，估计shotgraph就是调用的API函数。比如api函数中有textout，这里也有。
  遗憾的是我对API函数只认识A---P--I，除此之外是一篇空白，将来也不想去学。太累。
  该组件就一个文件在windows\system32\shotgraph.dll
   我打开文件看了，是C++ 编写的。它就是注册了一com。在里面可以看到它在注册表中的键位。
-------------------------------------------------------------
结束语：
      如果你想有效的使用shotgraph的各种方法，请创建画布吧---obj.fillrect 0,0,size1,size2
         如果你觉得图片小了，那就保存为test.swf吧。
      该com的要点是--矩形是基础，对角线是关键。
      我看重这个com，因为它的创建图片的功能不比专业的数学软件差。
      几何画板作图的功能够强大了吧，世界级的顶级数学软件Maple13画图的功能也足够强大了吧.
        它们都是有几十兆到几百兆的大小。
      而shotgraph就几十kb，居然达到了这样的颠覆你视觉的效果，说句真话，那些顶级的数学软件应该汗颜！
      说道这里让我想起了微软的公式编辑器，大家都以为那是微软的专利，其实大错特错！
      那是微软花了money买的Design Science公司的产品Mathtype的简化版。如果你装上原版的Mathtype那
      功能，没讲的。它让你直接可以使用LETEX语言输入科技符号。
      所以，我在想说不定哪天微软再花money把shotgraph买了，这不是没有可能，
      如果这样的事情发生了，那是玩家们的福音。呵呵。有点dream哈。
      编程对我来说就是玩，对我并没什么大的用处。我想对大多数人也是这样。
      因此，我祝各位玩家玩的愉快。
      由于时间的关系，水平的限制，错误是难免的，欢迎各位玩家指出，我会及时改正的。