\n; \u30de\u30b7\u30f3\u8a9e\u30b3\u30fc\u30c9\u5909\u63db\u30b9\u30af\u30ea\u30d7\u30c8 \u7c21\u6613\u3002 <\/p>\n
#uselib "user32.dll"
#func CharUpper "CharUpperA" var <\/p>\n
<\/p>\n
varname = "code" ; \u5909\u6570\u540d
numline = 6 ; 1\u884c\u306e\u8981\u7d20\u6570 <\/p>\n
<\/p>\n
; \u51fa\u529b\u3055\u308c\u305f\u30de\u30b7\u30f3\u8a9e\u30b3\u30fc\u30c9\u3092\u8a18\u8ff0
cod = {"
8B 44 24 04 83 C0 1C 80 38 40 74 11 50 8B 44 24
14 6A 00 68 43 01 00 00 FF 70 04 FF 10 33 C0 40
C2 10 00
"} <\/p>\n
<\/p>\n
CharUpper cod
dim alp,4 : sets = 0 : c = 0 : s = "" : res = varname+"(0)=$"
repeat 4 : alp(cnt) = "" : loop <\/p>\n
repeat strlen(cod)
dat = peek(cod,cnt)
if (dat<48)|(90<dat) : continue
if (dat>57)&(65>dat) : continue <\/p>\n
poke s,c\\2,dat
c++
if c\\2 = 0 {
alp((c\/2)-1) = s
s = ""
if c=8 : c=0 : gosub *mo
}
loop <\/p>\n
<\/p>\n
if c!=0 : gosub *mo <\/p>\n
<\/p>\n
res = strmid(res,0,strlen(res)-3)
if (sets\\2) : res = res+", $00000000" : sets++
buf = "xdim "+varname+","+sets+"\\n"+res
mesbox buf, ginfo_winx, ginfo_winy, 4
stop <\/p>\n
<\/p>\n
*mo
repeat 4 : res = res + alp(3-cnt) : loop
repeat 4 : alp(cnt) = "" : loop
sets++
res = res+", "
if (sets\\numline) = 0 : res = strmid(res,0,strlen(res)-2)+"\\n"+varname+"("+numline+")="
res = res+"$"
return<\/p>\n<\/blockquote>\n
<\/p>\n
\u3061\u3087\u304f\u3068\u3055\u3093\u306e\u30a6\u30a7\u30d6\u30b5\u30a4\u30c8\u306b\u63b2\u8f09\u3055\u308c\u3066\u3044\u308b\u3082\u306e\u3068\u6bd4\u8f03\u3057\u3066\u3001\u4fe1\u983c\u6027\u304c\u8457\u3057\u304f\u9055\u3044\u307e\u3059\u3002
\u5411\u3053\u3046\u306f\u3061\u3083\u3093\u3068\u3057\u305f\u7269\u3067\u3059\u304c\u3001\u3053\u3063\u3061\u306f\u3068\u308a\u3042\u3048\u305a\u305d\u306e\u30b3\u30fc\u30c9\u3092\u51fa\u3059\u3060\u3051\u3002
\u52d5\u304f\u304b\u3069\u3046\u304b\u306f\u52d5\u304b\u3057\u3066\u307f\u308b\u307e\u3067\u5206\u304b\u308a\u307e\u305b\u3093\u3002<\/p>\n
<\/p>\n
\u5f37\u70c8\u306b\u30a2\u30d0\u30a6\u30c8\u306a\u611f\u3058\u3067\u3059\u304c\u3001\u307e\u3041\u3001\u305d\u3093\u306a\u611f\u3058\u3067\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30b3\u30fc\u30eb\u30d0\u30c3\u30af\u3067\u30de\u30b7\u30f3\u8a9e\u3092\u57cb\u3081\u8fbc\u3080\u5fc5\u8981\u304c\u3042\u308b\u3068\u304d\u306e\u3001 \u30c0\u30f3\u30d7\u30b3\u30fc\u30c9\u304b\u3089\u306eHSP \u30b3\u30fc\u30c9\u3078\u306e\u5909\u63db\u30d7\u30ed\u30b0\u30e9\u30e0\u3002 <\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10,7],"tags":[269,270],"class_list":["post-2155","post","type-post","status-publish","format-standard","hentry","category-hsp","category-dev","tag-hsp3","tag-270"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t