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

chars = [*"a".."z"]
per=[12.31959369,0.8250647611,0,1.9310338607,6.7622950682,0.0191191647,1.8584790696,2.6301082644,11.740626672,0,5.9303670688,0,2.4648992608,7.4677425668,10.614067677,0.1907012631,0,4.6787983637,5.3219860638,6.6799356681,8.884030162,0.0078437652,2.140363965,0,3.7282335687,1.38148096]

MAX = (ARGV.shift || 100).to_i

	#define BCM_FIRST 0x1600
	#define BCM_SETSHIELD 0x1600+0x000C
	objsize 100,35
	pos 10,10:button"Test",*owari
	sendmsg objinfo_hwnd(0),BCM_SETSHIELD,0,1	//lParam=True

#module sgetbit
#const FULL 0xFF
#const NULL 0x00
#deffunc setbit var map, int ptr, int bit
	if (bit!=0) && (bit!=1) : return -1

#module "scrlbar"
/*Cookies wrote:
http://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+200511/05110003.txtからの転載
http://quasiquote.org/hspwiki/%E3%82%A6%E3%82%A4%E3%83%B3%E3%83%89%E3%82%A6%E3%81%AB%E3%82%B9%E3%82%AF%E3%83%AD%E3%83%BC%E3%83%AB%E3%83%90%E3%83%BC%E3%82%92%E4%BB%98%E3%81%91%E3%82%8B
を参考に。

#module "scrlbar"
//-----------------------
#uselib "user32"
#func   GetWindowLongA "GetWindowLongA" int,int
#func   SetWindowLongA "SetWindowLongA" int,int,int

#runtime "hsp3cl"

#packopt name "USA"