#include "user32.as" gsel 0, -1 screen 1, ginfo_dispx, ginfo_dispy width 640, 480
/* Web版非公式RT ブックマークレット Chrome のみ動作確認 WebInformalRT Version : 0.01 (2012/1/6) Copyright : (c) 2012 inovia (http://twitter.com/#!/hinekure_inovia) License : MIT license (http://www.opensource.org/licenses/mit-license.php)
#include "kernel32.as" #include "user32.as" #include "gdi32.as" #define RT_BITMAP 2
#runtime "hsp3cl" /* input p1,p2,p3 標準入力を取得 p1=変数名 : 情報を格納する変数名
#uselib "MediaInfo.dll" #func MediaInfo_New "MediaInfo_New" #func MediaInfo_New_Quick "MediaInfo_New_Quick" wptr,wptr #func MediaInfo_Delete "MediaInfo_Delete" wptr #func MediaInfo_Open "MediaInfo_Open" wptr,wptr
#uselib "Shlwapi.dll" #func PathRelativePathToA "PathRelativePathToA" var,str,int,str,int #func PathRelativePathToW "PathRelativePathToW" var,wptr,int,wptr,int #define FILE_ATTRIBUTE_DIRECTORY 0x10 #define FILE_ATTRIBUTE_NORMAL 0x80
#module _FileNameCheck_ #uselib "Shlwapi.dll" #func PathGetCharTypeA "PathGetCharTypeA" int #func PathGetCharTypeW "PathGetCharTypeW" int #define GCT_INVALID 0 // この文字はパスに使用できない。
#runtime "hsp3cl" repeat 100,1 c=str(cnt):if cnt\3=0|instr(c,0,"3")!=-1:mes "アホ":else:mes cnt loop
#module _FileCheck_ #uselib "kernel32" #cfunc _FC_CreateFile "CreateFileA" sptr,sptr,sptr,sptr,sptr,sptr,sptr #cfunc _FC_GetLastError"GetLastError" #func _FC_CloseHandle "CloseHandle" sptr
// hscallbk.as が必要です。 // http://chokuto.ifdef.jp/download/#hscallbk #include "user32.as" #include "hscallbk.as"