misc

ahtman_kw.hsp
#include "hsedsdk.as" #include "mod_aht.as" gsel 0,-1 tminit ahtfile = dir_exe + "\\ezinput\\画面の操作\\カラー設定.aht" /* ahtfile = dir_cmdline if ahtfile="" { dialog "無効な機能を選択しました。
sample\misc\ahtman_kw.hsp - 2014/09/19

cnvsrc.hsp
title "cnvsrc v1.0" screen 0,480,240 sdim buf,$10000 sdim ln,4096 sdim fname,1024 enc=0 syscolor 15:boxf color 0,0,0 mes "指定されたスクリプトをC言語ソースファイルに変換します" pos 8,30 sysfont 17 mes "ソーススクリプト:" objsize 390,24 input fname objsize 64,24 pos 408,41:button
sample\misc\cnvsrc.hsp - 2014/09/19

dragdrop.hsp
Windowへのドラッグ&ドロップsample http: quasiquote.org/hspwiki/ thanks ちょくと さん http: yokohama.cool.ne.jp/chokuto/urawaza/dragdrop.html #uselib "shell32.dll" #func DragAcceptFiles "DragAcceptFiles" int,int #func DragQueryFile "DragQueryFileA" int,int,int,int
sample\misc\dragdrop.hsp - 2014/09/19

hspcmp.hsp
#include "hspcmp.as" hspcmp.dllを呼び出して、HSPスクリプトのコンパイルと実行を行ないます 使い方は、アイデア次第だと思いますが、知っておくと役立つ日がくるかもしれませんよ。 以下のスクリプトは、「winobj.hsp」というスクリプトを実行する (スクリプトエディタで[F5]キーを押すのと同じ)サンプルです。
sample\misc\hspcmp.hsp - 2014/09/19

label_type.hsp
ラベル型変数のテスト a=*test a(1)=*test2 mes "TYPE="+vartype(a) mes "USE="+varuse(a) gosub a gosub a(1) mes "OK" stop *test mes "JUMP OK" return *test2 mes "JUMP OK2" return
sample\misc\label_type.hsp - 2014/09/19

libptr.hsp
#uselib "user32.dll" #func MessageBoxA "MessageBoxA" int,sptr,sptr,int ladr=libptr( MessageBoxA ) dupptr lptr,ladr,28 STRUCTDAT構造体を取得 lib_id=wpeek(lptr,0) mes "LIB#"+lib_id mref hspctx,68 linf_adr=lpeek( hspctx, 832 ) if linf_adr=0 { mes "No Data."
sample\misc\libptr.hsp - 2014/09/19

macro.hsp
組み込みキーワードを新規命令で置き換える例 mes命令をサブルーチンによる表示に置き換えます。 (サブルーチンからは本来のmes命令を呼び出しています。
sample\misc\macro.hsp - 2014/09/19

mkpack.hsp
title "mkdpm v1.0" screen 0,480,240 sdim fname,256 sdim dname,256 dname="data" deckey=0 syscolor 15:boxf color 0,0,0 mes "指定ディレクトリの内容をDPMファイルに変換します" pos 0,30 sysfont 17 mes "ディレクトリ:" objsize 400,24 input fname objsize 64,24 pos 408,41:button
sample\misc\mkpack.hsp - 2014/09/19

nkfcnv.hsp
#include "hspinet.as" 単純なファイルのダウンロード netinit if stat : dialog "ネット接続できません。" : end neturl "http: www.yahoo.co.jp/" mes "DOWNLOAD 開始" netload "index.html" mes "DOWNLOAD 完了" mes "index.htmlを保存しました。
sample\misc\nkfcnv.hsp - 2014/09/19

sampview.hsp
title "HSP3 Sample Viewer 1.1" smppath=dir_exe+"\\sample\\" smppath=dir_exe+"\\hsp3rc2\\sample\\" dirlist smpstr,smppath+"*.*",5 smpstr="NEW\nGAME\nBASIC\nCOMOBJ\nHGIMG3\nHGIMG\nHSPCL\nHSPDA\nHSPDB\nHSPDX\nHSPEXT\nHSPINET\nHSPSOCK" sdim
sample\misc\sampview.hsp - 2014/09/19

winmove.hsp
各種配置オブジェクトのテスト (ウィンドウを動かすと位置を検出します) onexit *m6 onerror *m4 onkey *m5 onclick *m5 #define WM_MOVE 0x0003 oncmd gosub *m7,WM_MOVE a=123 buf="" input a,320,24 sdim buf,256 listbox z,100,"apple\npie\ntoast" mesbox buf,320,100 button "DELETE",*m1 button
sample\misc\winmove.hsp - 2014/09/19

winobj.hsp
#include "hsp3util.as" #include "obj.as" 特殊な配置オブジェクトを使ったサンプル statictext "スタティックテキストです",640,100 progbar 640,20 id=stat progbar_set id,1 button "無効ボタン",*owari objgray stat button "終了ボタン",*owari getobjsize inf,stat mes
sample\misc\winobj.hsp - 2014/09/19