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

// http://support.microsoft.com/kb/172240/ja
#include "kernel32.as"

#module
#define OF_READ 0

;
;	OBAQ 「ニュートンのゆりかご」
;
;	スペースキーで動かし始める。
;	調整がうまく行っていないのか途中でバラバラになってしまいます。

#include "user32.as"
#include "kernel32.as"
#include "shell32.as"
// HString
#module mHString

#include "obaq.as"

;内積
#define ctype DotProduct2D(%1,%2,%3,%4) (double(%1)*(%3) + double(%2)*(%4))

#module
#defcfunc tobit int num
	s=""
	repeat 32
		s = str((num & 1<<cnt)!0) + s

// TaskDialog.hsp

// TaskDialog Sample by akk026

#uselib "comctl32.dll"

#defcfunc GetAuthorizeAdress
	// アクセストークン取得
	sdim Argument
	RESTAPI ResponseBody, ResponseHeader, METHOD_GET, "oauth/request_token", Argument
	if stat != 200 : return "Error"

#define IID_IWMMetadataEditor 	"{96406bd9-2b2b-11d3-b36b-00c04f6108ff}"
#define IID_IWMMetadataEditor2 	"{203cffe3-2e18-4fdf-b59d-6e71530534cf}"
#define IID_IWMHeaderInfo		"{96406bda-2b2b-11d3-b36b-00c04f6108ff}"
#define IID_IWMHeaderInfo2		"{15cf9781-454e-482e-b393-85fae487a810}"
#define IID_IWMHeaderInfo3		"{15CC68E3-27CC-4ecd-B222-3F5D02D80BD5}"

// by akk026

#module

#defcfunc GetArray var count

testfunc "testです"

stop