hspext

APLKEY.AS
#include "hspext.as" アプリケーション・キャプチャー サンプルスクリプト メモ帳を起動して、あれこれ文字を入力した後、 aplkey.asというファイルを読み込む。
sample\hspext\APLKEY.AS - 2004/06/12

APLKEY2.AS
#include "hspext.as" アプリケーション・キャプチャー サンプルスクリプト2 HSPスクリプトエディタのウインドゥを探して (もしなければ起動する) 起動オプションを「/s」に設定する。
sample\hspext\APLKEY2.AS - 2004/06/12

APLKEY3.AS
#include "hspext.as" アプリケーション・キャプチャー サンプルスクリプト3 すべてのウインドゥと、それに対応するオブジェクト (コントロール)の一覧を表示する。 上のリストボックスで、ウインドゥを選び、[CHECK] を押すと、下のリストボックスにオブジェクト一覧とIDが 表示されます。 オブジェクトが階層化されている場合は、下のリストボックス からオブジェクトを選び、[MORE]を押すとさらにその下の階層に あるオブジェクトが表示されます。
sample\hspext\APLKEY3.AS - 2004/06/12

aplnote.as
#include "hspext.as" アプリケーション・キャプチャー サンプルスクリプト メモ帳を起動して、あれこれ文字を入力した後、 aplkey.asというファイルを読み込む。
sample\hspext\aplnote.as - 2004/06/12

CLIPSET.AS
#include "hspext.as" 長い文字列をクリップボードへ sdim v,10000 a="clip test\n" repeat 30 v+=a loop clipset v sdim a,10000 clipget a,10000 strlen b,a mes ""+b+"文字がクリップボードに登録されています。
sample\hspext\CLIPSET.AS - 2004/06/12

dircsv.as
title "dircsv ver0.1" wx=400:wy=200 screen 0,wx,wy cls 1 gsel 0,1 sdim work,1024 sdim tmp,1024 sdim tools,256 sdim opt1,1024 sdim opt2,1024 sdim sname,1024 if (hspstat&1) { debug中 tools=curdir+"\\" } else { exe時 tools=exedir+"\\" } work="C:\\"
sample\hspext\dircsv.as - 2004/06/12

EMATH.AS
title "AX="+ax+",AY="+ay+",R="+r emsin x,r emcos y,r emint x,x*50 emint y,y*50 x+=mx:y+=my redraw 2 color 255,255,255 boxf 250,130,450,280 color 0,0,192 boxf x-3,y-3,x+3,y+3 pos mx,my:line x,y redraw 1 await 2 loop stop
sample\hspext\EMATH.AS - 2004/06/12

EMATH2.AS
#include "hspext.as" 数学関数テスト2 for HSP2.4d fp=24 emath fp mes "小数の精度 = "+fp+"bit" b1="" b2="" pos 0,64 emcnv a,"2.0" emcnv p,"1.0" repeat 15 emsqr ans,a emstr b1,a emstr b2,ans mes b1+"のルート = "+b2 a=a+p loop stop
sample\hspext\EMATH2.AS - 2004/06/12

folder.as
#include "hspext.as" ディレクトリ一覧表示サンプル (CHDIRを押すと、入力したディレクトリに移動します) alloc dirbuf,32000 dirbuf="" sel=0 ad="" objsize 200,24:pos 0,30 listbox sel,200,dirbuf button "Browse",*chg *getdir color 255,255,255:boxf 0,0,640,24 color 0,0,0:pos 0,0:mes
sample\hspext\folder.as - 2004/06/12

FTIME.AS
#include "hspext.as" 拡張ファイルアクセス命令テスト 選んだファイルのタイムスタンプを表示。
sample\hspext\FTIME.AS - 2004/06/12

fxdir.as
#include "hspext.as" デスクトップのファイル一覧を見る a="" fxdir a,$10 if stat : dialog "fxdir命令のエラーです。
sample\hspext\fxdir.as - 2004/06/12

FXINFO.AS
#include "hspext.as" sdim drvatr,20,8 drvatr="不明","なし","リムーバブル","ハードディスク","ネットワーク","CD-ROM","RAM" repeat 7 vol="":fsys="" dfree=0:typ=0:ser=0 drv=cnt+1 drvstr="@":poke drvstr,0,64+drv mes drvstr+"ドライブの詳細:" fxinfo typ,drv,8 if stat : goto *chkskip
sample\hspext\FXINFO.AS - 2004/06/12

fxlink.as
#include "hspext.as" インターネット・ショートカットを作成 a="ONION soft HOMEPAGE" fxlink a,"http: www.at-m.or.jp/~onitama/" dialog "ショートカットを作成しました。
sample\hspext\fxlink.as - 2004/06/12

fxshort.as
#include "hspext.as" Windowsファイル名(ロングファイルネーム) をDOSファイル名に変換する。 sdim fname,128 sdim lname,128 fname="fxshort.as" fxshort lname,fname mes "original file name="+fname mes "DOS file name="+lname ちなみにDOSファイル名をロングファイルネームに変換するには dirlist命令を使ってください。
sample\hspext\fxshort.as - 2004/06/12

GFTEST.AS
#include "hspext.as" screen 0,640,480,0 picload "hsp2ttl.jpg" pos 0,0:gfini 128,64 repeat 256 gfdec 1,1,1 redraw 1 await 10 loop pos 0,64:gfini 128,64 repeat 256 gfinc 1,1,1 redraw 1 await 10 loop pos 0,0:gfini 128,64 pos 128,0:gfcopy 80 pos
sample\hspext\GFTEST.AS - 2004/06/12

hsv.as
#include "hspext.as" HSV sample y=0 repeat 256 x=0:px=2 repeat 256 hsvcolor y,cnt,255 boxf x,y,x+px,y x+=px loop y+ await 0 loop stop
sample\hspext\hsv.as - 2004/06/12

OBJSEND.AS
objsend命令を使用したテキストエディタサンプル for HSP ver2.4d sdim info,8000 sdim ln,256 sdim buf,32000 mesbox buf,635,300,1 id=0 エディットボックスのオブジェクトID pos 8,310 button "LOAD",*file_load button "SAVE",*file_save button "CHECK",*chk1 button "MARGIN",*margin pos 88,310
sample\hspext\OBJSEND.AS - 2004/06/12

REGTEST.AS
#include "hspext.as" レジストリ操作命令テスト HSPスクリプトエディタの設定を読み込む regkey 0,"Software\\OnionSoftware\\hsed",0 mes "STAT="+stat a=0 getreg a,"winx" mes "winx="+a+" / STAT="+stat getreg a,"winy" mes "winy="+a+" / STAT="+stat b="" getreg b,"helpdir",1 mes
sample\hspext\REGTEST.AS - 2004/06/12

regtest2.as
#include "hspext.as" レジストリ操作命令テスト Windowsアプリケーションの追加と削除の設定を読み込む rt="Software\\Microsoft\\Windows\\CurrentVersion\\Uninstall" regkey 1,rt if stat : dialog "該当するレジストリが見つかりません" : end sdim a,10000 sdim b,10000 sdim ent,10000 sdim name,1000 reglist a,1
sample\hspext\regtest2.as - 2004/06/12

TERMINAL.AS
#include "hspext.as" sdim buf,128 onexit *combye sdstr="" input sdstr,320 button "SEND",*comgo button "END",*combye comopen 1,"" if stat : dialog "シリアルポートは使えません" : end a=0 *commain wait 10 comgetc a if stat=0 : goto *commain b=0 *chk1 if a=13 : goto
sample\hspext\TERMINAL.AS - 2004/06/12