HSPのコード一覧 | ページ 19 | Codetter（こーどったー）

#include "user32.as"
#include "hspinet.as"
#include "mod_regexp.as"
font "Meiryo",13

	#include "user32.as"
	#include "hspinet.as"
	#include "mod_regexp.as"
	font "Meiryo",13
	

#include "kernel32.as"
#include "user32.as"
#uselib "shlwapi"
#cfunc global PathFileExists "PathFileExistsA" str
#packopt name "MPEG2RepairProxy"

#include "kernel32.as"
#include "user32.as"
#uselib "shlwapi"
#cfunc global PathFileExists "PathFileExistsA" str
#packopt name "MPEG2RepairProxy"

#include "kernel32.as"
#include "user32.as"
#uselib "shlwapi"
#cfunc global PathFileExists "PathFileExistsA" str
#packopt name "MPEG2RepairProxy"

	keyword = "HSP"
	
	sites.0 = "http://www.google.co.jp/", "http://www.yahoo.co.jp/", "http://www.goo.ne.jp/"
	sites.3 = "http://www.excite.co.jp/", "http://jp.msn.com/", "http://www.infoseek.co.jp/"
	sites.6 = "http://www.livedoor.com/", "http://www.baidu.jp/", "http://www.naver.jp/"

#module _bsort_
#deffunc bsort array rando, int flag,array motopos, local i,local d1, local d2
	i = 0
	repeat length(rando)
		motopos.cnt = cnt

#module Win32EXE
#defcfunc IsWin32App str fname
	tmp = 0
	exist fname
	if strsize == -1 : return 0

// hsp3.31b1 にて一部PNGファイルがエラー１
// picloadの画像ロードモード１の時、画面のサイズより画像のサイズが大きいときエラー１になる模様(JPEG等は今まで通り大丈夫)
// http://tkooler.moe.hm/hsp/img/JuliusMoe2.png

dialog "*",16

// HSP3でのウィンドウ列挙（ウィンドウハンドル）
// 参考: ちょくとのページ
// http://chokuto.ifdef.jp/urawaza/mcn/vc_enumwnd2.html
// VirtualProtect関数ではなくVirtualAlloc関数使用
// 一部環境でsdim等で確保した領域をVirtualProtect関数で実行属性を付加しても動作しないため