1.     zh=myfile.ReadLine
  2.     mm=myfile.ReadLine
  3.     myfile.Close
  4. 子程序结束,回到调用处
  5. 子程序 输入账号密码
  6.     标记 第一次启动需要输入账号密码
  7.     调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
  8.     如果表达式 (StrComp("",qh)=0) 为真,则
  9.         跳转到标记 end
  10.     条件结束
  11.     调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
  12.     如果表达式 (StrComp("",zh)=0) 为真,则
  13.         跳转到标记 end
  14.     条件结束
  15.     调用外部VBScript子程序 dm=InputBox("请输入代码： 1—表示新账号 0—表示老账号")
  16.     如果表达式 (StrComp("",MM)=0) 为真,则
  17.         跳转到标记 end
  18.     条件结束
  19. 子程序结束,回到调用处
  20. 子程序 输入字符串
  21.     延时100毫秒
  22.     n=1
  23.     循环 len(var) 遍
  24.         chr_a=mid(var,n,1)
  25.         按键#asc(ucase(chr_a))
  26.         延时50毫秒
  27.         n=n+1
  28.     循环结束
  29. 子程序结束,回到调用处
  30. //*****************************************************