VBS dim m,n,x,z,e,c,c1,a,b,rect,q
dim  fileHandle
set TiShiObj = createobject("WScript.Shell")
//=================== 主程序 ======================
//创建一个文件名为
fileHandle ="c:\log.txt"
Plugin q=File.ReadFileEx("c:\log.txt")
//在c盘的文件log.txt中输入喊话内容
TracePrint q
m=8000
n=1000
x=8000
z=200
Plugin b=Window.Find(0,"浪漫庄园")
Plugin WindowEx2.SetWindowSize(b,1152,834)
Plugin Window.Move(b,0,0)
Delay 1000
Plugin Window.Move(b,1000,-2000)
TracePrint b
Plugin b=Window.FindEx(b,0,0,0)
TracePrint b
Rem 1
e="city0"
c="town"
c1="town0"
a=0
For 3
    a=a+1
    d=e&a
    TracePrint d
    Plugin Bkgnd.LeftClick(b,65,709)
    Delay z
    Plugin Bkgnd.SendString(b,d)
    Delay z
    Plugin Bkgnd.KeyPress(b,13)
    Delay m
    //***********************************
    Plugin Bkgnd.LeftClick(b,290,822)
    Delay z
    //***********************************
    Plugin Bkgnd.SendString(b,q&a)
    Delay n
    Plugin Bkgnd.KeyPress(b,13)
    Delay x
    //***********************************
    Plugin Bkgnd.LeftClick(b,290,822)
    Delay x
    //***********************************
    Delay z
    Plugin Bkgnd.SendString(b,q&a)
    Delay n
    Plugin Bkgnd.KeyPress(b,13)
    Plugin Bkgnd.KeyPress(b,13)
    Delay x
    //***********************************
EndFor 
a=0
For 9
    a=a+1
    d=c1&a
    TracePrint d
    Plugin Bkgnd.LeftClick(b,65,709)
    Delay z
    Plugin Bkgnd.SendString(b,d)
    Delay n
    Plugin Bkgnd.KeyPress(b,13)
    Delay m
    //***********************************
    Plugin Bkgnd.LeftClick(b,290,822)
    Delay z
    Plugin Bkgnd.SendString(b,q&a)
    Delay n
    Plugin Bkgnd.KeyPress(b,13)
    Delay x
    //***********************************
    Plugin Bkgnd.LeftClick(b,290,822)
    Delay x
    //***********************************
    Delay z
    Plugin Bkgnd.SendString(b,q&a)
    Delay n
    Plugin Bkgnd.KeyPress(b,13)
    Plugin Bkgnd.KeyPress(b,13)
    Delay x
    //***********************************
EndFor 
For 27
    a=a+1
    d=c&a
    TracePrint d
    Plugin Bkgnd.LeftClick(b,65,709)
    Delay z
    Plugin Bkgnd.SendString(b,d)
    Delay n
    Plugin Bkgnd.KeyPress(b,13)
    Delay m
    //***********************************
    Plugin Bkgnd.LeftClick(b,290,822)
    Delay z
    Plugin Bkgnd.SendString(b,q&a)