【HSP3】HSPでWindows8のトースト通知(WinRTAPI使用)をしてみるサンプル(なぜか日本語が使えない)

HSPでWindows8のトースト通知(WinRTAPI使用)をしてみるサンプル Ver 0.01 (なぜか日本語が使えない)
改造大歓迎デス。
やってる内容としては、
1. AppUserModelID を含んだショートカットをプログラム一覧に作成
2. AppUserModelID を自分のウィンドウに反映
3. AppUserModelID 渡してトースト通知する
の3手順になっています。1.と2.の手順がないと、トースト通知されません。
hk1v
2013/12/8 23:37
タグ：
タグはありません
#include "user32.as"
#include "kernel32.as"
#include "shell32.as"
// HString
#module mHString
#uselib "msvcrt"
#func calloc "calloc" int, int
#func free "free" int
#uselib "api-ms-win-core-winrt-string-l1-1-0.dll"
#func WindowsCreateString "WindowsCreateString" wptr, int, sptr
#func WindowsDeleteString "WindowsDeleteString" wptr
// 文字列の長さ
#func WindowsGetStringLen "WindowsGetStringLen" sptr
// HSTRING_HEADERが返ってくるバージョンみたい？
#func WindowsCreateStringReference "WindowsCreateStringReference" wptr, int, sptr, sptr
#func WindowsGetStringRawBuffer "WindowsGetStringRawBuffer" sptr, sptr
#defcfunc Unicode2HString str as
	sdim ws, strlen(as)*2 + 2
	cnvstow ws, as
	hString = 0
	WindowsCreateString varptr(ws), strlen(as), varptr(hString)
return hString
// 未使用のため
#defcfunc Unicode2HStringEx str as, var HSTRING_HEADER
	sdim ws, strlen(as)*2 + 2
	cnvstow ws, as
	hString = 0
	dim HSTRING_HEADER, 6
	WindowsCreateStringReference varptr(ws), strlen(as), varptr(HSTRING_HEADER), varptr(hString)
return hString
#deffunc DeleteHString int _hString
	WindowsDeleteString _hString
return stat
#defcfunc GetHStringLength int _hString
	WindowsGetStringLen _hString
return stat
#defcfunc HString2Unicode int _hString
	if _hString == 0 : return ""
	size = GetHStringLength(_hString) * 2
	if size <= 0 : return ""
	WindowsGetStringRawBuffer _hString, varptr(size)
	dupptr buf, stat, GetHStringLength(_hString) * 2, 2
return cnvwtos(buf)
#global
#module mCOMOBJMACRO
#define global ctype SUCCEEDED(%1) ((%1) >= 0)
#define global SafeRelease(%1) if ((varuse(%1)) && (vartype(%1) == 6)){ \
	delcom %1: \
	%1 = 0 \
}
#global
// ショートカット作成
#module mSHORTCUT
#uselib "Propsys"
#func InitPropVariantFromStringVector "InitPropVariantFromStringVector" wptr, int, sptr
#uselib "Ole32"
#func PropVariantClear "PropVariantClear" sptr
#define CLSID_ShellLink "{00021401-0000-0000-C000-000000000046}"
#define IID_IShellLink "{000214EE-0000-0000-C000-000000000046}"
#usecom IShellLink IID_IShellLink CLSID_ShellLink
#comfunc IShellLink_SetArguments 11 str
#comfunc IShellLink_SetIconLocation 17 str, int
#comfunc IShellLink_SetPath 20 str
#define IID_IPersistFile "{0000010b-0000-0000-C000-000000000046}"
#usecom IPersistFile IID_IPersistFile
#comfunc IPersistFile_Save 6 wstr, int
#define IID_IPropertyStore "{886d8eeb-8cf2-4446-8d02-cdba1dbdcf99}"
#define CLSID_PropertyStore "{e4796550-df61-448b-9193-13fc1341b163}"
#usecom IPropertyStore IID_IPropertyStore CLSID_PropertyStore
#comfunc IPropertyStore_SetValue 6 sptr, sptr
#comfunc IPropertyStore_Commit 7
#deffunc CreateShortcut str file_path, str arg, str icon_path, int icon_idx, str AppUserModelID, str out_path, \
	local pShellLink, \
	local pPropStore, \
	local wstring, \
	local wstrings, \
	local ppropvar, \
	local PKEY_AppUserModel_ID, \
	local hr
	
	hr = 0
	pShellLink = 0
	pPropStore = 0
	
	newcom pShellLink, IShellLink
	if varuse(pShellLink) == 0 : return -1
	
	IShellLink_SetPath pShellLink, file_path : hr = stat
	if SUCCEEDED(hr){
		IShellLink_SetArguments pShellLink, arg : hr = stat
		if SUCCEEDED(hr){
			IShellLink_SetIconLocation pShellLink, icon_path, icon_idx : hr = stat
			if SUCCEEDED(hr){
				querycom pPropStore, pShellLink, IPropertyStore
				if varuse(pPropStore){	
					// Unicodeに変換
					sdim wstring, strlen(AppUserModelID) * 2 + 2
					cnvstow wstring, AppUserModelID
					// 配列なので(今回は1つしかないけど)
					wstrings = varptr(wstring)
					// PROPVARIANT 構造体
					dim ppropvar, 4
					// Unicode文字列→PROPVARIANT に変換
					InitPropVariantFromStringVector varptr(wstrings), 1/*今回は１つだけなので*/, varptr(ppropvar) : hr = stat
					if SUCCEEDED(hr){
						PKEY_AppUserModel_ID = 0x9F4C2855, 0x4B399F79, 0xD4E1D0A8, 0xF3D5E12D, 5
						IPropertyStore_SetValue pPropStore, varptr(PKEY_AppUserModel_ID), varptr(ppropvar) : hr = stat
						if SUCCEEDED(hr){
							IPropertyStore_Commit pPropStore : hr = stat
							if SUCCEEDED(hr){
								IPersistFile_Save pShellLink, out_path, 1 : hr = stat
							}
						}
						PropVariantClear varptr(ppropvar)
					}
				}
			}
		}
	}
	// SafeRelease	
	SafeRelease pPropStore
	SafeRelease pShellLink
return hr
#global
// AppUserModel_IDを設定(任意のタイミングで変更可能)
#module mAPPIDS
#uselib "shell32"
#func SHGetPropertyStoreForWindow "SHGetPropertyStoreForWindow" sptr, sptr, sptr
#func GetCurrentProcessExplicitAppUserModelID "GetCurrentProcessExplicitAppUserModelID" wptr
#func SetCurrentProcessExplicitAppUserModelID "SetCurrentProcessExplicitAppUserModelID" wstr
#uselib "Propsys"
#func InitPropVariantFromString "InitPropVariantFromString" wstr, sptr
#func InitPropVariantFromStringVector "InitPropVariantFromStringVector" wptr, int, sptr
#func PropVariantToStringAlloc "PropVariantToStringAlloc" sptr, wptr
#uselib "Ole32"
#func PropVariantClear "PropVariantClear" sptr
#define IID_IPropertyStore "{886d8eeb-8cf2-4446-8d02-cdba1dbdcf99}"
#define CLSID_PropertyStore "{e4796550-df61-448b-9193-13fc1341b163}"
#usecom IPropertyStore IID_IPropertyStore CLSID_PropertyStore
#comfunc IPropertyStore_SetValue 6 sptr, sptr
#comfunc IPropertyStore_Commit 7
#deffunc SetAppUserModelID int _hwnd, str AppUserModelID, \
	local propStorePtr, \
	local IID_IPropertyStore_Array, \
	local pPropStore, \
	local wstring, \
	local wstrings, \
	local ppropvar, \
	local hr
	
	hr = 0
	pPropStore = 0
	propStorePtr = 0
	IID_IPropertyStore_Array = 0x886d8eeb, 0x44468cf2, 0xbacd028d, 0x99cfbd1d
	PKEY_AppUserModel_ID = 0x9F4C2855, 0x4B399F79, 0xD4E1D0A8, 0xF3D5E12D, 5
	
	SHGetPropertyStoreForWindow _hwnd, varptr(IID_IPropertyStore_Array), varptr(propStorePtr)
	if stat == 0 && propStorePtr != 0{
		newcom pPropStore, IPropertyStore, -1, propStorePtr
		if varuse(pPropStore){
			// Win7 では廃止されているらしい
			// propsys.dll 7.0
			/*
			mes varptr(InitPropVariantFromString)
			InitPropVariantFromString "net.hinekure.test.hsp3", varptr(ppropvar)
			*/
				
			// Unicodeに変換
			sdim wstring, strlen(AppUserModelID) * 2 + 2
			cnvstow wstring, AppUserModelID
			// 配列なので(今回は1つしかないけど)
			wstrings = varptr(wstring)
	
			// PROPVARIANT 構造体
			dim ppropvar, 4
			// Unicode文字列→PROPVARIANT に変換
			InitPropVariantFromStringVector varptr(wstrings), 1, varptr(ppropvar) : hr = stat
			if SUCCEEDED(hr){
				IPropertyStore_SetValue pPropStore, varptr(PKEY_AppUserModel_ID), varptr(ppropvar) : hr = stat
				if SUCCEEDED(hr){
					IPropertyStore_Commit pPropStore : hr = stat
				}
				PropVariantClear varptr(ppropvar)
			}
		}
	}
	
	// SafeRelease	
	SafeRelease pPropStore
	
return hr
#global
#module mToast
#uselib "Combase.dll"
#func RoGetActivationFactory "RoGetActivationFactory" sptr, sptr, sptr
#func RoActivateInstance "RoActivateInstance" sptr, sptr
#func RoInitialize "RoInitialize" int
#func RoUninitialize "RoUninitialize"

#define IID_IToastNotificationManagerStatics "{50ac103f-d235-4598-bbef-98fe4d1a3ad4}"
#define CLSID_ToastNotificationManagerStatics "{6db7cd52-e3b7-4ecc-bb1f-388aeef6bb50}"
#usecom IToastNotificationManagerStatics IID_IToastNotificationManagerStatics CLSID_ToastNotificationManagerStatics
// WinRT は0～5まで使ってる
#comfunc IToastNotificationManagerStatics_CreateToastNotifier 6 sptr
#comfunc IToastNotificationManagerStatics_CreateToastNotifierWithId 7 sptr, sptr
#comfunc IToastNotificationManagerStatics_GetTemplateContent 8 int, sptr

;#define CLSID_XMLDocument "{CFC399AF-D876-11d0-9C10-00C04FC99C8E}"
;#define IID_IXMLDocument "{F52E2B61-18A1-11d1-B105-00805F49916B}"
#define CLSID_XMLDocument "{AF75D6AD-E307-4052-8CB1-BF2052E734F0}"
#define IID_IXMLDocument "{F7F3A506-1E87-42D6-BCFB-B8C809FA5494}"
#usecom IXMLDocument IID_IXMLDocument CLSID_XMLDocument
// WinRT は0～5まで使ってる
#comfunc IXMLDocument_CreateTextNode 11 sptr, sptr
#comfunc IXMLDocument_GetElementsByTagName 16 sptr, sptr

#define CLSID_XmlNodeList "{AF75D6AD-E307-4052-8CB1-BF2052E734F0}"
#define IID_IXmlNodeList "{8C60AD77-83A4-4EC1-9C54-7BA429E13DA6}"
#usecom IXmlNodeList IID_IXmlNodeList CLSID_XmlNodeList
// WinRT は0～5まで使ってる
#comfunc IXmlNodeList_get_Length 6 sptr
#comfunc IXmlNodeList_Item 7 int, sptr

#define CLSID_XmlNode "{AF75D6AD-E307-4052-8CB1-BF2052E734F0}"
#define IID_IXmlNode "{1C741D59-2122-47D5-A856-83F3D4214875}"
#usecom IXmlNode IID_IXmlNode CLSID_XmlNode
#comfunc IXmlNode_get_NodeValue 6 sptr
#comfunc IXmlNode_get_NodeType 8 sptr
#comfunc IXmlNode_AppendChild 22 sptr, sptr

#define CLSID_XmlText "{AF75D6AD-E307-4052-8CB1-BF2052E734F0}"
#define IID_IXmlText "{F931A4CB-308D-4760-A1D5-43B67450AC7E}"
#usecom IXmlText IID_IXmlText CLSID_XmlText
#comfunc IXmlText_QueryInterface 0 sptr, sptr

// IToastNotificationManager のことらしい
#define IID_IToastNotifier "{75927B93-03F3-41EC-91D3-6E5BAC1B38E7}"
#define CLSID_ToastNotifier "{6db7cd52-e3b7-4ecc-bb1f-388aeef6bb50}"
#usecom IToastNotifier IID_IToastNotifier CLSID_ToastNotifier
#comfunc IToastNotifier_Show 6 sptr
#comfunc IToastNotifier_Hide 7 sptr

#define IID_IToastNotificationFactory "{04124B20-82C6-4229-B109-FD9ED4662B53}"
#define CLSID_ToastNotificationFactory "{6db7cd52-e3b7-4ecc-bb1f-388aeef6bb50}"
#usecom IToastNotificationFactory IID_IToastNotificationFactory CLSID_ToastNotificationFactory
#comfunc IToastNotificationFactory_CreateToastNotification 6 sptr, sptr

#define IID_IToastNotification "{997E2675-059E-4E60-8B06-1760917C8B80}"
#define CLSID_ToastNotification "{6db7cd52-e3b7-4ecc-bb1f-388aeef6bb50}"
#usecom IToastNotification IID_IToastNotification CLSID_ToastNotification

#define IID_IXmlNodeSerializer "{5CC5B382-E6DD-4991-ABEF-06D8D2E7BD0C}"
#define CLSID_XmlNodeSerializer "{AF75D6AD-E307-4052-8CB1-BF2052E734F0}"
#usecom IXmlNodeSerializer IID_IXmlNodeSerializer CLSID_XmlNodeSerializer
#comfunc IXmlNodeSerializer_GetXml 6 sptr
#comfunc IXmlNodeSerializer_get_InnerText 7 sptr
#comfunc IXmlNodeSerializer_put_InnerText 8 sptr

#deffunc WinRTAPIInit
	RoInitialize 1
return stat
#deffunc WinRTAPIUnInit
	RoUninitialize
return stat
#deffunc CreateToastXml var _pTnms_, int _Template, var _pXml_, \
	local inputXmlPtr, \
	local _pTnms, \
	local hr

	_pXml = _pXml_
	_pTnms = _pTnms_
	inputXmlPtr = 0
	// ToastTemplateType_ToastText01 = 4
	IToastNotificationManagerStatics_GetTemplateContent _pTnms, _Template/*4*/, varptr(inputXmlPtr) : hr = stat
	if SUCCEEDED(hr){
		newcom _pXml, IXMLDocument, -1, inputXmlPtr
		if varuse(_pXml){
			hr = 0
		}else{
			hr = -1
		}
		_pXml_ = _pXml
	}
	/*
	querycom pXns, _pXml_, IXmlNodeSerializer
	hString_test = 0
	IXmlNodeSerializer_GetXml pXns, varptr(hString_test)
	dialog strf("0x%08x, %d", stat, stat)
	dialog HString2Unicode(hString_test)
	*/
return hr
#deffunc SetImageSrc str _ImagePath, var _pXml2_	
	if _ImagePath == "" : return 0
return
#deffunc SetTextValues array Text, var _pXml_, \
	local num, \
	local nodeListPtr, \
	local hString2, \
	local pNodeList, \
	local nodeListLength, \
	local hString3, \
	local textNodePtr, \
	local pTextNode, \
	local pInputText, \
	local AppendedChildPtr, \
	local inputTextPtr, \
	local pTmp, \
	local hr

	pNodeList = 0
	nodeListPtr = 0
	hString2 = Unicode2HString("text")
	
	IXMLDocument_GetElementsByTagName _pXml_, hString2, varptr(nodeListPtr) : hr = stat
	if SUCCEEDED(hr){
		newcom pNodeList, IXmlNodeList, -1, nodeListPtr
		if varuse(pNodeList){
			nodeListLength = 0
			IXmlNodeList_get_Length pNodeList, varptr(nodeListLength) : hr = stat
			if SUCCEEDED(hr){
				// 短いほうを選ぶ
				if nodeListLength < length(Text){
					num = nodeListLength
				}else{
					num = length(Text)
				}
				repeat limit(num, 1, 3)
					hString3 = Unicode2HString(Text(cnt))
					;dialog HString2Unicode(hString3)
					textNodePtr = 0
					IXmlNodeList_Item pNodeList, cnt, varptr(textNodePtr) : hr = stat
					if SUCCEEDED(hr){
						newcom pTextNode, IXmlNode, -1, textNodePtr
						if varuse(pTextNode){
							inputTextPtr = 0
							IXMLDocument_CreateTextNode _pXml_, hString3, varptr(inputTextPtr) : hr = stat
							if SUCCEEDED(hr){
								newcom pInputText, IXmlText, -1, inputTextPtr
								if varuse(pInputText){
									AppendedChildPtr = 0
									// varptrじゃなくてlpeekでcomポインタ取得 → やめた
									IXmlNode_AppendChild pTextNode, inputTextPtr/*lpeek(pInputText, 0)*/, varptr(AppendedChildPtr) : hr = stat
									if SUCCEEDED(hr){
										newcom pTmp, IXmlNode, -1, AppendedChildPtr
										
										;querycom pXns2, pTmp, IXmlNodeSerializer
	
										// innerTextで日本語が挿入できない
										;hString6 = Unicode2HString("test")	// ←これはOK
										;hString6 = Unicode2HString("testだよ！")
										;IXmlNodeSerializer_put_InnerText pXns2, hString6
										;dialog strf("0x%08x, %d", stat, stat)
	
										// 挿入したのを見てみる
										;hString_test = 0
										;IXmlNodeSerializer_get_InnerText pXns2, varptr(hString_test)
										;dialog strf("0x%08x, %d", stat, stat)
										;dialog "Debug:"+HString2Unicode(hString_test)
										
										SafeRelease pTmp
									}
								}
							}
						}
					}
					SafeRelease pInputText
					SafeRelease pTextNode
					DeleteHString hString3
				loop
			}
		}
	}
	
	//
	SafeRelease pNodeList
	DeleteHString hString2
	
	// みてみる？
	/*
	querycom pXns, _pXml_, IXmlNodeSerializer
	hString_test = 0
	IXmlNodeSerializer_GetXml pXns, varptr(hString_test)
	dialog strf("0x%08x, %d,\n %s", stat, stat, HString2Unicode(hString_test))
	*/
	
return hr
#deffunc ShowToast array _Text, str _ImagePath, int Template, str AppUserModelID, \
	local pTnms, \
	local hString, \
	local hString4, \
	local guid, \
	local toastStaticsPtr, \
	local hString_APPsID, \
	local pXml, \
	local notifierPtr, \
	local pNotifier, \
	local factoryPtr, \
	local pFactory, \
	local toastPtr, \
	local pToast, \
	local hr

	pTnms = 0
	pXml = 0
	pNotifier = 0
	pFactory = 0
	pToast = 0
	
	// Unicode文字列からHStringに変換するみたいよ
	hString = Unicode2HString("Windows.UI.Notifications.ToastNotificationManager")
	hString4 = Unicode2HString("Windows.UI.Notifications.ToastNotification")
	hString_APPsID = Unicode2HString(AppUserModelID)

	// IToastNotificationManagerStatics
	guid = 0x50ac103f, 0x4598d235, 0xfe98efbb, 0xd43a1a4d
	toastStaticsPtr = 0
	RoGetActivationFactory hString, varptr(guid), varptr(toastStaticsPtr) : hr = stat
	;dialog HString2Unicode(hString)
	if hr == 0 && toastStaticsPtr != 0{
		newcom pTnms, IToastNotificationManagerStatics, -1, toastStaticsPtr
		CreateToastXml pTnms, Template, pXml : hr = stat
		if SUCCEEDED(hr){
			SetTextValues _Text, pXml : hr = stat
			if SUCCEEDED(hr){
				// 未実装
				SetImageSrc _ImagePath, pXml : hr = stat
				if SUCCEEDED(hr){
					notifierPtr = 0
					IToastNotificationManagerStatics_CreateToastNotifierWithId pTnms, hString_APPsID, varptr(notifierPtr) : hr = stat
					if SUCCEEDED(hr){
						newcom pNotifier, IToastNotifier, -1, notifierPtr
						if varuse(pNotifier){
							factoryPtr = 0
							// IToastNotificationFactory
							guid = 0x04124B20, 0x422982C6, 0x9EFD09B1, 0x532B66D4
							RoGetActivationFactory hString4, varptr(guid), varptr(factoryPtr) : hr = stat
							if hr == 0 && factoryPtr != 0{
								newcom pFactory, IToastNotificationFactory, -1, factoryPtr
								if varuse(pFactory){
									toastPtr = 0
									IToastNotificationFactory_CreateToastNotification pFactory, lpeek(pXml, 0), varptr(toastPtr) : hr = stat
									if SUCCEEDED(hr){
										newcom pToast, IToastNotification, -1, toastPtr
										if varuse(pToast){
											IToastNotifier_Show pNotifier, toastPtr
											if SUCCEEDED(hr){
												
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}
	}
	
	SafeRelease pToast
	SafeRelease pFactory
	SafeRelease pNotifier
	SafeRelease pXml
	SafeRelease pTnms
	
	DeleteHString hString_APPsID
	DeleteHString hString4
	DeleteHString hString
return hr
#global
#enum ToastTemplateType_ToastImageAndText01 = 0
#enum ToastTemplateType_ToastImageAndText02
#enum ToastTemplateType_ToastImageAndText03
#enum ToastTemplateType_ToastImageAndText04
#enum ToastTemplateType_ToastText01
#enum ToastTemplateType_ToastText02
#enum ToastTemplateType_ToastText03
#enum ToastTemplateType_ToastText04

	// Win8 のトースト通知を使用するには、アプリ一覧に
	// AppUserModelIDを設定したショートカットを配置する必要がある

	// 初期化するのん
	WinRTAPIInit
	
	// 適当なAppUserModelIDを指定する
	// CompanyName.ProductName.SubProduct.VersionInformation な形式が良い
	// http://msdn.microsoft.com/ja-jp/library/windows/apps/dd378459.aspx
	AppUserModelID = "net.hinekure.hsp.test"
	
	// 現在の実行ファイルのパス名
	sdim exepath, 1024 + 1
	GetModuleFileNameA 0, varptr(exepath), 1024
	
	// ショートカット作成先のパス名(?:\Users\xxx\AppData\Roaming\)
	lnkpath = dirinfo($1001A) + "\\Microsoft\\Windows\\Start Menu\\Programs\\"+"HSP3Test.lnk"
	
	// ショートカット作成(アプリ一覧に)
	CreateShortcut exepath, "", exepath, 0, AppUserModelID, lnkpath
	mes stat
	
	// 現在のウィンドウに 指定したAppUserModelID を設定する
	SetAppUserModelID hwnd, AppUserModelID
	mes stat
	
	// なぜか日本語が使えない(理由がよくわからない)
	text = "HSP3", "Toast", "Sample!!!"
	
	// トースト通知してみる
	
	// 第１引数は、表示したい文字列を最大３つまでの配列変数で指定
	// 3つ使えるのは、
	// ToastTemplateType_ToastImageAndText04
	// ToastTemplateType_ToastText04
	// です。
	// 第２引数は、画像パスを指定（ただし未実装）
	// 第３引数は、テンプレートIDを指定
	// 第４引数は、AppUserModelIDを指定
	ShowToast text, "", ToastTemplateType_ToastText04, AppUserModelID
	mes strf("0x%08x, %d", stat, stat)
	
	// 終了時にでも実行
	WinRTAPIUnInit
このコードをツイートする