loadlib

module_test.as
#include "llmod.as" 必ず必要 all_test=1 : if all_test : goto x1 goto x11 last 14 *x1 #include "msgdlg.as" msgdlg "今日はここで終了しますか？","プログラムの終了",3,5 if stat=6 : dialog "はい が選択されました" if stat=7 : dialog "いいえ が選択されました" if stat=2 : dialog "ｷｬﾝｾﾙ が選択されました" if
sample\loadlib\module_test.as - 2004/06/12

module_test2.as
#include "llmod.as" #include "img.as" #include "progbox.as" #include "trackbox.as" #include "obj.as" アイコンファイルを含んでいるファイルを調べるプログラム - 1つめのwindowに配置するオブジェクト screen 0,780,560 objmode 2 font "FixedSys" objsize winx/2,25 button "アイコン検索",sel_wnd2 sdim
sample\loadlib\module_test2.as - 2004/06/12

module_test3.as
#include "llmod.as" #include "img.as" #include "treebox.as" #include "listview.as" explorerをちょっとだけまねしたプログラム listviewのアイテムの並び方がぐちゃぐちゃです。
sample\loadlib\module_test3.as - 2004/06/12

module_test4.as
#include "llmod.as" #include "listview.as" #module #deffunc setdatafile val mref v1,24 sdim file,256 exist v1 : if strsize=-1 { dialog "ファイル "+v1+" が見つかりません" dialog "exe",16 if stat=0 : end file=refstr v1=file }else file=v1 return #deffunc gdata 1
sample\loadlib\module_test4.as - 2004/06/12

test_libload1.as
#include "loadlib.as" ll_libload, ll_getproc, ll_callfunc, ll_libfreeの使用例 1 DLLのロード ll_libload hDLL,"kernel32.dll" ロードが失敗するとstatが1になる if stat!0 : dialog "libload failed" : end ロードしたDLLから関数GetCommandLineAを探す ll_getproc
sample\loadlib\test_libload1.as - 2004/06/12

test_libload2.as
#include "loadlib.as" #define _print mes ll_libload, ll_getproc, ll_callfunc, ll_libfreeの使用例 2 ll_libload hKernel32,"kernel32.dll" if stat!0 : _print "ll_libload 失敗" : end ll_getproc F_GetVersionEx, "GetVersionExA", hKernel32 if stat!0 : _print
sample\loadlib\test_libload2.as - 2004/06/12

test_libload3.as
#include "loadlib.as" ll_libload, ll_getproc, ll_callfunc, ll_libfreeの使用例 3 ll_libload h_MSVCRT, "msvcrt.dll" msvcrt.dllのハンドル if stat!0 : dialog "msvcrt.dllのロードに失敗しました":end ll_getproc F_atoi,"atoi",h_MSVCRT if stat!0 : dialog
sample\loadlib\test_libload3.as - 2004/06/12

test_libload4.as
#include "loadlib.as" 実行には HSP ver2.5(ベータ版含む)以上が必要です #define hdc_is_display 0 #define PS_SOLID 0 #define PS_DASH 1 #define PS_DOT 2 #define PS_DASHDOT 3 #define PS_DASHDOTDOT 4 #define PS_NULL 5 #define PS_INSIDEFRAME 6 #define BS_DIBPATTERN 5
sample\loadlib\test_libload4.as - 2004/06/12

test_libload5.as
#include "loadlib.as" 機械語使ってqsortを使ってみる void qsort (const void* pBase, size_t cntObjects, size_t sizeObject, int(*pCompar)(const void *, const void *)) #define SIZE_OF_INT 4 ll_libload h_MSVCRT,"msvcrt.dll" if stat!0 : dialog "msvcrt.dllがロードできません" :
sample\loadlib\test_libload5.as - 2004/06/12

test_libload6.as
#include "loadlib.as" 機械語使ってqsortを使ってみる2 test_libload5.asで保存した機械語(バイナリ)ファイルを使う void qsort (const void* pBase, size_t cntObjects, size_t sizeObject, int(*pCompar)(const void *, const void *)) #define SIZE_OF_INT 4 ll_libload h_MSVCRT,"msvcrt.dll" if
sample\loadlib\test_libload6.as - 2004/06/12

test_libload7.as
#include "loadlib.as" 機械語使って1からXまでの和を求める 機械語 ll_getptr proc_sum : ll_ret p_sum p = p_sum ll_poke4 $8b4c2404,p,1 : p+=4 mov ecx,[esp+4] ll_poke2 $33c0,p,1 : p+=2 xor eax,eax ll_poke1 $eb,p : p+ : ll_poke1 3,p :p+ jmp __jmp1 __jmp2 ll_poke2 $03c1,p,1
sample\loadlib\test_libload7.as - 2004/06/12