home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2001 June / VPR0106A.BIN / OLS / FSC202 / fsc202.lzh / AppCtr.fxl next >
Text File  |  2001-03-25  |  2KB  |  89 lines
  1. //       Name : アプリケーション操作
  2. //     Author : y.Fuji
  3. //     Upadte : 01/03/20 6:59:46
  4. //  Generator : FXL designer for FScript v1.01
  5.  
  6. // == 前処理 ==
  7.  
  8.  
  9. // == フォーム作成 ==
  10.     main.add();
  11.     
  12.  
  13. // == オブジェクト生成 ==
  14.     main.width="285";
  15.     main.height="255";
  16.     main.caption="application操作";
  17.  
  18.     main.btn.add(15,15,240,30);  //object
  19.     main.btn.caption="電卓を起動してファイルメニュー表示";
  20.  
  21.     main.btn.add(15,45,240,30);  //object
  22.     main.btn.caption="既に起動している電卓に123を送信";
  23.  
  24.     main.btn.add(15,105,240,30);  //object
  25.     main.btn.caption="電卓を終了";
  26.  
  27.     main.btn.add(15,75,240,30);  //object
  28.     main.btn.caption="電卓にクリップボード経由で送信";
  29.  
  30.     main.btn.add(15,135,240,30);  //object
  31.     main.btn.caption="DOS窓を起動";
  32.  
  33.     main.btn.add(15,165,240,30);  //object
  34.     main.btn.caption="DOS窓にDIRコマンドを実行";
  35.  
  36.  
  37. // == 後処理 ==
  38.     
  39.     main.deffunc.set(macro.body);
  40.     main.bring();
  41.     main.taskbar="true";
  42.     main.visible="true";
  43.  
  44. // == サブルーチン ==
  45. function OnBtnClick1()
  46. {
  47.     exec(str(sys.winpath,"\\calc.exe"));
  48.  
  49.     sys.sleep(100);        //windowがつかまらない場合が
  50.                         //あるので時間稼ぎ
  51.     a = sys.findwin(null,"電卓");
  52.     sys.setfocus(a);
  53.     sys.sndkey("ALT+","E","ALT-");
  54. }
  55. function OnBtnClick2()
  56. {
  57.     a = sys.findwin(,"電卓");
  58.     sys.setfocus(a);
  59.     sys.sndkey("1","2","3");
  60. }
  61. function OnBtnClick3()
  62. {
  63.     a = sys.findwin(,"電卓");
  64.     sys.sndmess(a,0x10);    //WM_CLOSE
  65. }
  66. function OnBtnClick4()
  67. {
  68.     a = sys.findwin(,"電卓");
  69.     sys.setfocus(a);
  70.     sys.clip.textto("123");
  71.     sys.sndkey("ALT+","E","P","ALT-");
  72. }
  73. function OnBtnClick5()
  74. {
  75.     shell("command.com");
  76. }
  77. function OnBtnClick6()
  78. {
  79.     a = sys.findwin("tty");
  80.     sys.setfocus(a);
  81.     sys.clip.textto("123");
  82.     sys.sndkey("SCN","STR:DIR/W","CODE:13");
  83. }
  84.  
  85.  
  86.  
  87.  
  88.  
  89.