1.             调用插件命令 Bkgnd.KeyPress(Hwnd, 37)
  2.             延时200毫秒
  3.             调用插件命令 Bkgnd.KeyPress(Hwnd, 39)
  4.             延时200毫秒
  5.             调用插件命令 Bkgnd.KeyPress(Hwnd, 39)
  6.             延时200毫秒
  7.             调用插件命令 Bkgnd.KeyPress(Hwnd, 37)
  8.             延时300毫秒
  9.             //找定点计算角度 角度数jds 角度差jdc
  10.             调用插件命令 zb=DBSoft.GetColorXY(hwnd,222,548,343,649,"0000FF","0,0,0",2)
  11.             延时200毫秒
  12.             c=clng(zb(0)):d=clng(zb(1))
  13.             调用插件命令 jiaodu=DBSoft.Angle3Point(c,d,294,597,c,597,1)
  14.             jds=abs(clng(jiaodu))
  15.             dim jdcz(4),jdc(4)
  16.             jdcz(0)=30-jds:jdcz(1)=50-jds:jdcz(2)=60-jds:jdcz(3)=65-jds:jdcz(4)=70-jds
  17.             jdc(0)=abs(30-jds):jdc(1)=abs(50-jds):jdc(2)=abs(60-jds):jdc(3)=abs(65-jds):jdc(4)=abs(70-jds)
  18.             //zx为最小下标 zxz为最小角度差数值
  19.             调用插件命令 zx=DBSoft.MinNum(jdc,1)
  20.             调用插件命令 zxz=DBSoft.MinNum(jdcz,0)
  21.             zx=clng(zx):zxz=clng(zxz)
  22.             //角度差修正
  23.             pj=pj+jdxz*zxz
  24.             // MessageBox "角度代号"&zx
  25.             如果表达式 (zx=0) 为真,则
  26.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  27.                 sj=ss(pj)/10*3500+tj
  28.                 延时sj毫秒
  29.             条件结束
  30.             如果表达式 (zx=1) 为真,则
  31.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  32.                 sj=ws(pj)/10*3500+tj
  33.                 延时sj毫秒
  34.             条件结束
  35.             如果表达式 (zx=2) 为真,则
  36.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  37.                 sj=ls(pj)/10*3500+tj
  38.                 延时sj毫秒
  39.             条件结束
  40.             如果表达式 (zx=3) 为真,则
  41.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  42.                 sj=lw(pj)/10*3500+tj
  43.                 延时sj毫秒
  44.             条件结束
  45.             如果表达式 (zx=4) 为真,则
  46.                 调用插件命令 Bkgnd.KeyDown(Hwnd, 32)
  47.                 sj=qs(pj)/10*3500+tj
  48.                 延时sj毫秒
  49.             条件结束
  50.             调用插件命令 Bkgnd.KeyUp(Hwnd, 32)
  51.         条件结束
  52.     条件结束
  53.     // MessageBox "时间"&sj
  54.     延时100毫秒
  55.     调用插件命令 Bkgnd.KeyPress(Hwnd, 38)
  56.     延时100毫秒
  57.     调用插件命令 Bkgnd.KeyPress(Hwnd, 38)
  58.     延时50毫秒
  59.     调用插件命令 Bkgnd.KeyPress(Hwnd, 38)
  60.     延时1600毫秒
  61.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  62.     延时100毫秒
  63.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  64.     延时100毫秒
  65.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  66.     延时100毫秒
  67.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  68.     延时50毫秒
  69.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  70.     延时50毫秒
  71.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  72.     延时1200毫秒
  73.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  74.     延时50毫秒
  75.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  76.     延时50毫秒
  77.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  78.     延时50毫秒
  79.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  80.     延时50毫秒
  81.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  82.     延时50毫秒
  83.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  84.     延时50毫秒
  85.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  86.     延时50毫秒
  87.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  88.     延时50毫秒
  89.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  90.     延时50毫秒
  91.     调用插件命令 Bkgnd.KeyPress(Hwnd, 40)
  92.     延时50毫秒
  93.     //判断游戏是否结束
  94.     调用插件命令 jieshu=DBSoft.FindPic(hwnd,946,146,1077,301,"C:\Documents and Settings\nayan\My Documents\ddt\翻牌.bmp",0.8,-2,1)
  95.     延时300毫秒
  96.     如果表达式 (jieshu(0)>=0 and jieshu(1)>=0) 为真,则
  97.         跳转到标记 翻牌
  98.     否则
  99.         延时7500毫秒
  100.         跳转到标记 判断开炮