@hinekure_inoviaさんが投稿したコード一覧 | Codetter（こーどったー）

// これでも動く驚き
button : gosub "btn", *btn
// 普通はこれかと
;button gosub "btn", *btn
stop

#include "shell32.as"
#define SW_SHOWDEFAULT 10

	url = "http://www.google.co.jp/search?q=ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	url += "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

#include "llmod.as"
#include "unicode.as"
#module
#deffunc replaceNullW val, int, int
	mref buf, 24

// HSP 2.61用コード
#include "llmod.as"
#include "unicode.as"
#module
#define WM_SETTEXT  0x000C

#runtime "hsp3ld"
#include "user32.as"
#include "kernel32.as"
#module load_dll
#deffunc load_dll_init

#runtime "hsp3ld"
#include "user32.as"
#include "kernel32.as"
#module load_dll
#deffunc load_dll_init

#runtime "hsp3ld"
#include "user32.as"
#include "kernel32.as"
#module load_dll
#deffunc load_dll_init

#uselib "Dwmapi"
#define DWM_EC_DISABLECOMPOSITION 0
#define DWM_EC_ENABLECOMPOSITION 1
#func DwmEnableComposition "DwmEnableComposition" int

#module
#deffunc XorCrypt var b, int s, int p
if s <= 0 : return -1
randomize p
dim k, 256

// hspinet (HSP 3.2 以降が必要)
#include "hspinets.as"

// 以下モジュール
// このモジュールはhspinetを使用していますので、