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

// http://d.hatena.ne.jp/espresso3389/20100907 参考にしました
#include "kernel32.as"
#ifndef __VERSIONINFOBUILDER__
#define __VERSIONINFOBUILDER__
#module VersionInfoBuilder _langID, _fileVer, _prodVer, _props_name, _props_val, CODEPAGE_UCS2LE, _buffer, _buffer_maxsize, _buffer_current

#module

#define CLSID_IMMDeviceEnumerator	"{BCDE0395-E52F-467C-8E3D-C4579291692E}"
#define IID_IMMDeviceEnumerator		"{A95664D2-9614-4F35-A746-DE8DB63617E6}"
#define IID_IMMDevice				"{D666063F-1587-4E43-81F1-B948E807363F}"

	jsonbuf="{\"name\":\"k5342(\u7ba1\u7406\u4eba)\",\"date\":\"2012-03-10 02:20:12\",\"comment\":\"\uff1e\uff1eAjax\u306f\u3042\u308c\u306d\u3002\u3082\u3061\u308d\u3093\u6295\u7a3f\u3057\u305f\u3068\u304d\u3082\u30ea\u30ed\u30fc\u30c9\u3055\u308c\u306a\u3044\u611f\u3058\u3067\u3002\r<br>\u305b\u3084\u306a\u3001Javascript\u3092\u65e9\u3081\u306b\u7fd2\u5f97\u3057\u3066Ajax\u5bfe\u5fdc\u3055\u305b\u307e\u3059\u306d\u3002\r<br>\u306a\u3089\u51e6\u7406\u306fTwitter\u7684\u306a\u611f\u3058\u3067\u3044\u3044\u3067\u3059\u304b\u306d\u3002\"}{\"name\":\"\u30cf\u30c0\u30ab\u30c7\u30d0\u30cd\u30ba\u30df\",\"date\":\"2012-03-09 15:53:14\",\"comment\":\"\u6539\u884c\u30c6\u30b9\u30c8\r<br>a\r<br>a\r<br>a\r<br>a\r<br>a\r<br>as\r<br>a\r<br>a\r<br>a\r<br>a\r<br>a\r<br>a\r<br>\"}"
	;
	jsonopen pointer,jsonbuf
	dialog pointer
	jsonnkf "Ws"

#module

#define CLSID_IMMDeviceEnumerator	"{BCDE0395-E52F-467C-8E3D-C4579291692E}"
#define IID_IMMDeviceEnumerator		"{A95664D2-9614-4F35-A746-DE8DB63617E6}"
#define IID_IMMDevice				"{D666063F-1587-4E43-81F1-B948E807363F}"

//後ろのあれは適当
#uselib "kernel32.dll"
#cfunc 	GetPrivateProfileInt		"GetPrivateProfileIntA"		sptr, sptr, int, sptr
#func 	GetPrivateProfileString 	"GetPrivateProfileStringA"	sptr, sptr, sptr, var, int, sptr
#func	WritePrivateProfileString	"WritePrivateProfileStringA"	sptr, sptr, sptr, sptr

// 参考
// http://blog.ness3.com/?p=2624

#include "DxLib.as"
// http://sprocket.babyblue.jp/html/hsp_koneta3.htm

#module
// 指定オフセットから右から検索していき見つけた位置を返す。(1byteのみ)
#defcfunc searchR1 str _in, int ps, int sh
	idx = -1
	in = _in

#include "user32.as"
#include "kernel32.as"
// ↓をダウンロードして使用
// http://lldev.jp/hsp/module/clipboard_text.html

#include "user32.as"
#include "kernel32.as"
// ↓をダウンロードして使用
// http://lldev.jp/hsp/module/clipboard_text.html
#include "modClipboardText.hsp"

#runtime "hsp3cl"
#include "DxLib.as"

	// 処理ラベル型変数配列
	ldim Method, 3