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

#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を使用していますので、

#ifndef in_m_varsize
#define in_m_varsize
#module "m_varsize"
// val=varsize(p1)
// p1=変数 : サイズを知りたい変数

#include "hspcv.as"

orgdir = dir_cur
repeat
	cvloadxml orgdir+"\\haarcascade_frontalface_alt2.xml"

// 単独実行モジュール

#ifndef IG_RUN_ALONE_AS
#define IG_RUN_ALONE_AS

// Windows XP 以上で動作するらしいです
//#include "modReplace.hsp"
#include "mod_regexp.as"
#include "kernel32.as"

;	相対パスを絶対パスに変換
#uselib "Shlwapi.dll"
#func PathCombine "PathCombineA" sptr,sptr,sptr
Dir = "c:\\windows\\system32"
File = "..\\notepad.exe"