woodfieldsのお気楽ツ～ル

■COM for HSP3

HSP3 での COM(Component Object Model) の使い方の備忘録です。
VBScriptの入門書のサンプルスクリプトをHSP3に移植するのは結構楽しいかも・・・・・
掲載スクリプトは適当に改造して使ってください。

サンプルスクリプトではmcallの省略表記を採用しています。以下の３つは同義です。

comres oFile : mcall oFS, "GetFile", filename
comres oFile : oFS->"GetFile" filename
oFile=oFS("GetFile", filename)      ← この書式ではメソッド呼び出し時にstat(成功:0)が得られない

以下のような使用方法はエラーになります。COMオブジェクト型変数はジャンプ先では使用できないみたいです。

newcom oFS,"Scripting.FileSystemObject"
gosub *test
delcom oFS
*test
	oFolder=oFS("GetSpecialFolder",0)
	mes "WindowsFolder："+oFolder("Path")
	oFolder=oFS("GetSpecialFolder",1)
	mes "SystemFolder："+oFolder("Path")
	oFolder=oFS("GetSpecialFolder",2)
	mes "TemporaryFolder："+oFolder("Path")
	return

●ディスク、フォルダ、ファイルの情報と操作

■ディスクの情報

newcom oFS,"Scripting.FileSystemObject"
chrdrv=""
repeat 26
	poke chrdrv, 0, 65+cnt
	if oFS("DriveExists",chrdrv+":") {
		oDrive=oFS("GetDrive", chrdrv+":")
		if oDrive("IsReady") {
			if oDrive("FreeSpace") == 0 {
				if oDrive("DriveType") == 0 : mes chrdrv+"ドライブ △書込不可 不明です。"
				if oDrive("DriveType") == 1 : mes chrdrv+"ドライブ △書込不可 リムーバルディスクです。"
				if oDrive("DriveType") == 2 : mes chrdrv+"ドライブ △書込不可 ハードディスクです。"
				if oDrive("DriveType") == 3 : mes chrdrv+"ドライブ △書込不可 ネットワークドライブです。"
				if oDrive("DriveType") == 4 : mes chrdrv+"ドライブ △書込不可 CD-ROM/DVD他です。"
				if oDrive("DriveType") == 5 : mes chrdrv+"ドライブ △書込不可 RAMディスクです。"
			}else{
				if oDrive("DriveType") == 0 : mes chrdrv+"ドライブ ○書込可能 不明です。"
				if oDrive("DriveType") == 1 : mes chrdrv+"ドライブ ○書込可能 リムーバルディスクです。"
				if oDrive("DriveType") == 2 : mes chrdrv+"ドライブ ○書込可能 ハードディスクです。"
				if oDrive("DriveType") == 3 : mes chrdrv+"ドライブ ○書込可能 ネットワークドライブです。"
				if oDrive("DriveType") == 4 : mes chrdrv+"ドライブ ○書込可能 CD-ROM/DVD他です。"
				if oDrive("DriveType") == 5 : mes chrdrv+"ドライブ ○書込可能 RAMディスクです。"
			}
		}
	}
loop
delcom oFS

chrdrv=""
repeat 26
	poke chrdrv, 0, 65+cnt
	exist chrdrv+":\\nul"	; <= ドライブが使用可能かチェックする
	if strsize == -1 {
		mes chrdrv+"ドライブ ×存在しない または 使用不能"
	}else{
		newcom oFS,"Scripting.FileSystemObject"
		oDrive=oFS("GetDrive", chrdrv+":")
		if oDrive("FreeSpace") == 0 {
			if oDrive("DriveType") == 0 : mes chrdrv+"ドライブ △書込不可 不明です。"
			if oDrive("DriveType") == 1 : mes chrdrv+"ドライブ △書込不可 リムーバルディスクです。"
			if oDrive("DriveType") == 2 : mes chrdrv+"ドライブ △書込不可 ハードディスクです。"
			if oDrive("DriveType") == 3 : mes chrdrv+"ドライブ △書込不可 ネットワークドライブです。"
			if oDrive("DriveType") == 4 : mes chrdrv+"ドライブ △書込不可 CD-ROM/DVD他です。"
			if oDrive("DriveType") == 5 : mes chrdrv+"ドライブ △書込不可 RAMディスクです。"
		}else{
			if oDrive("DriveType") == 0 : mes chrdrv+"ドライブ ○書込可能 不明です。"
			if oDrive("DriveType") == 1 : mes chrdrv+"ドライブ ○書込可能 リムーバルディスクです。"
			if oDrive("DriveType") == 2 : mes chrdrv+"ドライブ ○書込可能 ハードディスクです。"
			if oDrive("DriveType") == 3 : mes chrdrv+"ドライブ ○書込可能 ネットワークドライブです。"
			if oDrive("DriveType") == 4 : mes chrdrv+"ドライブ ○書込可能 CD-ROM/DVD他です。"
			if oDrive("DriveType") == 5 : mes chrdrv+"ドライブ ○書込可能 RAMディスクです。"
		}
	}
loop

;===============================================================
; コンソールリダイレクトモジュール
;===============================================================
#module "_consexec"
	; さくらさんのＨＳＰ－ＮＥＸＴ(http://hspnext.com/)のＨＳＰサンプル蔵のconsexecモジュールを少し改造して
	#uselib "KERNEL32.DLL"
	 #cfunc CreateProcess          "CreateProcessA" int,int,int,int,int,int,int,int,int,int
		;                                           LPCTSTR lpApplicationName,                 // 実行可能モジュールの名前
		;                                           LPTSTR lpCommandLine,                      // コマンドラインの文字列
		;                                           LPSECURITY_ATTRIBUTES lpProcessAttributes, // セキュリティ記述子
		;                                           LPSECURITY_ATTRIBUTES lpThreadAttributes,  // セキュリティ記述子
		;                                           BOOL bInheritHandles,                      // ハンドルの継承オプション
		;                                           DWORD dwCreationFlags,                     // 作成のフラグ
		;                                           LPVOID lpEnvironment,                      // 新しい環境ブロック
		;                                           LPCTSTR lpCurrentDirectory,                // カレントディレクトリの名前
		;                                           LPSTARTUPINFO lpStartupInfo,  // スタートアップ情報
		;                                           LPPROCESS_INFORMATION lpProcessInformation // プロセス情報
		#const SIZE_SUP_INFO          68        ; STARTUPINFO構造体サイズ
		#const STARTF_USESHOWWINDOW   1
		#const STARTF_USESTDHANDLES   $00000100
		#const SW_HIDE                0         ; ウィンドウを非表示にして、他のウィンドウをアクティブにします。
	 #cfunc WaitForSingleObject    "WaitForSingleObject" int,int
		;                                                 HANDLE hHandle,           ; オブジェクトのハンドル
		;                                                 DWORD dwMilliseconds      ; タイムアウト時間
	 #cfunc GetEnvironmentVariable "GetEnvironmentVariableA" int,int,int
		;                                                    LPCTSTR lpName,            ; 環境変数の名前
		;                                                    LPTSTR lpBuffer,           ; 変数の値が格納されるバッファ
		;                                                    DWORD nSize                ;  バッファのサイズ
	 #cfunc CreatePipe             "CreatePipe"    int,int,int,int
		;                                          PHANDLE hReadPipe,                       ; 読み取り側のハンドル
		;                                          PHANDLE hWritePipe,                      ; 書き込み側のハンドル
		;                                          LPSECURITY_ATTRIBUTES lpPipeAttributes,  ; セキュリティ属性
		;                                          DWORD nSize                              ; パイプのサイズ
	 #cfunc CloseHandle2           "CloseHandle"   int
		;                                          HANDLE hObject       ; オブジェクトのハンドル
	 #cfunc PeekNamedPipe          "PeekNamedPipe" int,int,int,int,int,int
		;                                          HANDLE hNamedPipe,           ; パイプのハンドル
		;                                          LPVOID lpBuffer,             ; データバッファ
		;                                          DWORD nBufferSize,           ; データバッファのサイズ
		;                                          LPDWORD lpBytesRead,         ; 読み取ったバイト数
		;                                          LPDWORD lpTotalBytesAvail,   ; 利用可能なバイト数
		;                                          LPDWORD lpBytesLeftThisMessage  // まだ読み取られていないバイト数
	 #cfunc ReadFile               "ReadFile" int,int,int,int,int
		;                                     HANDLE hFile,                 ; ファイルのハンドル
		;                                     LPVOID lpBuffer,              ; データバッファ
		;                                     DWORD nNumberOfBytesToRead,   ; 読み取り対象のバイト数
		;                                     LPDWORD lpNumberOfBytesRead,  ; 読み取ったバイト数
		;                                     LPOVERLAPPED lpOverlapped     ; オーバーラップ構造体のバッファ
	;---------------------------------------------------------------
	; consexec   コンソールリダイレクト (パイプリダイレクト)
	;---------------------------------------------------------------
	#deffunc consexec var prm1,str prm2 ,int flg	; 新命令「consexec」を生成
	dosexcmd = prm2 : if strlen(dosexcmd)==0 : return -1
	#const MAX_PATH    260
	sdim cp,MAX_PATH+2
	ev="Comspec"  ;環境変数(COMSPEC)を設定
	ret=GetEnvironmentVariable(varptr(ev),varptr(cp),MAX_PATH)
	if ret==0 : return -1
	filename=cp+" /c "+dosexcmd
	; 読み出しバッファを設定 (Max=256KByteに設定)
	#const MAX_BUF_SIZE     1024*256
	sdim szBuf,MAX_BUF_SIZE
	; 名前なしパイプの作成
	sa=12,0,1
	ret=CreatePipe(varptr(hRead),varptr(hWrite),varptr(sa),MAX_BUF_SIZE)
	; 子プロセスを作成
	dim lpsiStartInfo,17	; STARTUPINFO構造体
	dim lppiProcInfo,4		; PROCESS_INFOMATION構造体
	lpsiStartInfo(0) =SIZE_SUP_INFO
	lpsiStartInfo(11)=STARTF_USESTDHANDLES|STARTF_USESHOWWINDOW
	lpsiStartInfo(12)=SW_HIDE
	lpsiStartInfo(15)=hWrite
	if flg > 0 : lpsiStartInfo(16) = hWrite		; <= 標準エラー出力も
	ret=CreateProcess(0,varptr(filename),0,0,1,0,0,0,varptr(lpsiStartInfo),varptr(lppiProcInfo))
	if ret==0 : end
	; コンソールアプリのプロセスが存在している間待つ
	hprocess=lppiProcInfo(0)
	ret=WaitForSingleObject(hprocess,$ffffffff)
	ret=CloseHandle2(hWrite)
	rcvbuf=""  ; Buffer Size HSP側で自動確保
	repeat
		await 10
		; 標準出力パイプの内容を調べる
		ret=PeekNamedPipe(hRead,0,0,0,dwStdOut,0)
		ret=ReadFile(hRead,varptr(szBuf),4096,varptr(dwRead), 0)
		if dwRead < 4096 : szBuf=strmid(szBuf,0,dwRead) : rcvbuf+=szBuf : break
		if dwRead == 0 : break
		rcvbuf+=szBuf
	loop : await 1
	prm1=rcvbuf
	ret=CloseHandle2(hRead)
	; バッファをクリアしておかないと、次回取得時にゴミが残る
	sdim szBuf,0 : sdim cp,0 : sdim rcvbuf,0
	return 0
#global

chrdrv="" : buf_mes=""
	repeat 26
		poke chrdrv, 0, 65+cnt
		sdim buf,32000
		flg=1 : consexec buf,"cmd /C dir "+chrdrv+": /w",flg		; 第3パラメータで標準エラー出力もするか指定
		notesel buf
		if notemax > 1 {				; flgが真では標準エラー出力が１行わたされる
			mes chrdrv+":【ドライブは使用可能です。】"
		}else{
			if flg {
				noteget buf_mes,0		; 空行をカットする
				mes chrdrv+": "+buf_mes
			}else{
				mes chrdrv+": 指定されたパスが見つからないかデバイスの準備ができていません。"
			}
		}
	loop
	stop

■フォルダの情報

newcom oWshShell, "WScript.Shell"
mes "スタートメニューフォルダ："     +oWshShell("SpecialFolders","STARTMENU")
mes "スタートメニューのプログラム：" +oWshShell("SpecialFolders","PROGRAMS")
mes "スタートアップ："               +oWshShell("SpecialFolders","STARTUP")
mes "「送る」(SendTo)フォルダ："     +oWshShell("SpecialFolders","SendTo")
mes "デスクトップフォルダ："         +oWshShell("SpecialFolders","Desktop")
mes "お気に入り："             +oWshShell("SpecialFolders","FAVORITES")
mes "フォント："               +oWshShell("SpecialFolders","FONTS")
mes "マイドキュメント："       +oWshShell("SpecialFolders","MyDocuments")
mes "NETHOOD："                +oWshShell("SpecialFolders","NETHOOD")
mes "PRINTHOOD："              +oWshShell("SpecialFolders","PRINTHOOD")
mes "最近使ったファイル："     +oWshShell("SpecialFolders","RECENT")
mes "テンプレート："           +oWshShell("SpecialFolders","TEMPLATES")
mes "アプリケーションデータ：" +oWshShell("SpecialFolders","Appdata")
mes "スタートメニュー（全ユーザ共通）："             +oWshShell("SpecialFolders","AllUsersStartMenu")
mes "スタートメニューのプログラム（全ユーザ共通）：" +oWshShell("SpecialFolders","AllUsersPrograms")
mes "スタートアップ（全ユーザ共通）："               +oWshShell("SpecialFolders","AllUsersStartup")
mes "デスクトップ（全ユーザ共通）："                 +oWshShell("SpecialFolders","AllUsersDesktop")
delcom oWshShell

#const FILE_ATTRIBUTE_NORMAL          0	; 標準ファイル
#const FILE_ATTRIBUTE_READONLY        1	; 読み込み専用属性
#const FILE_ATTRIBUTE_HIDDEN          2	; 隠しファイル属性
#const FILE_ATTRIBUTE_SYSTEM          4	; システムファイル属性
#const FILE_ATTRIBUTE_VOLUME          8	; ディスクドライブボリュームラベル（変更不可）
#const FILE_ATTRIBUTE_DIRECTORY      16	; ディレクトリ属性（変更不可）
#const FILE_ATTRIBUTE_ARCHIVE        32	; アーカイブ属性
#const FILE_ATTRIBUTE_ALIAS          64	; リンクまたはショートカット（変更不可）
#const FILE_ATTRIBUTE_COMPRESSED    128	; 圧縮ファイル（変更不可）
pathname=dir_exe+"\\docs"
exist pathname+"\\nul"	; <= フォルダが使用可能かチェックする
if strsize == -1 {
	dialog "フォルダが見つかりません\n"+pathname
}else{
	newcom oFS,"Scripting.FileSystemObject"
	oFolder=oFS("GetFolder", pathname)
	mes oFolder("Path")
	if oFolder("Attributes") & FILE_ATTRIBUTE_DIRECTORY {
		if (oFolder("Attributes") & FILE_ATTRIBUTE_HIDDE) | (oFolder("Attributes") & FILE_ATTRIBUTE_SYSTEM) {
			mes "隠しファイル属性 または システムファイル属性 のディレクトリです"
		}else{
			if oFolder("Attributes") & FILE_ATTRIBUTE_READONLY {
				mes "読込専用のディレクトリです（隠し属性/システム属性ではない）"
			}else{
				mes "通常のディレクトリです（隠し属性/システム属性ではない）"
			}
		}
	}
	mes ""+oFolder("Size")/1024+"KB"
	delcom oFS
}

■ファイルの情報

#const FILE_ATTRIBUTE_NORMAL          0	; 標準ファイル
#const FILE_ATTRIBUTE_READONLY        1	; 読み込み専用属性
#const FILE_ATTRIBUTE_HIDDEN          2	; 隠しファイル属性
#const FILE_ATTRIBUTE_SYSTEM          4	; システムファイル属性
#const FILE_ATTRIBUTE_VOLUME          8	; ディスクドライブボリュームラベル（変更不可）
#const FILE_ATTRIBUTE_DIRECTORY      16	; ディレクトリ属性（変更不可）
#const FILE_ATTRIBUTE_ARCHIVE        32	; アーカイブ属性
#const FILE_ATTRIBUTE_ALIAS          64	; リンクまたはショートカット（変更不可）
#const FILE_ATTRIBUTE_COMPRESSED    128	; 圧縮ファイル（変更不可）
pathname=dir_exe+"\\docs\\history.txt"
exist pathname	; <= ファイルが使用可能かチェックする
if strsize == -1 {
	mes pathname+"は 存在しないか、他のプログラムで使用中です"
}else{
	newcom oFS,"Scripting.FileSystemObject"
	oFile=oFS("GetFile", pathname)
	if oFile("Attributes") & 0  : mes pathname+"は 標準ファイル"
	if oFile("Attributes") & 1  : mes pathname+"は 読み込み専用属性"
	if oFile("Attributes") & 2  : mes pathname+"は 隠しファイル属性"
	if oFile("Attributes") & 4  : mes pathname+"は システムファイル属性"
	if oFile("Attributes") & 32 : mes pathname+"は アーカイブ属性"
	if oFile("Attributes") & 64 : mes pathname+"は リンクまたはショートカット"
	delcom oFS
}

●テキストファイル

#const ForReading 1		; ファイルを読み取り専用として開きます。 
	#const ForWriting 2		; ファイルを書き込み専用として開きます。 
	#const ForAppending 8 	; ファイルを開き最後に追加書き込みします。 
	#const TristateFalse  0			; 文字コードにアスキーコードを使用
	#const TristateTrue  -1			; 文字コードにユニコードを使用
	#const TristateUseDefault  -2	; システムデフォルトの文字コードを使用
	fn=dir_exe+"\\new.txt"
	textbuf="ホゲホゲホゲと\nテキストファイルの内容を更新しましたよっと"
	newcom oFS,"Scripting.FileSystemObject"
	comres oText : oFS -> "CreateTextFile" fn, 0
	;comres oText : mcall oFS, "CreateTextFile",fn, 0	; 第4パラメータ 0 で同名ファイル存在時はエラーになる
	; 省略形のoText=oFS("CreateTextFile", fn, 0)では失敗時にstatが得られない
	if stat == 0 {
		oText -> "Write" textbuf
		oText -> "Close"
		delcom oFS
		dialog fn+"を作成しました"
		exec fn, 16
	}else{
		newcom oFS,"Scripting.FileSystemObject"
		comres oText : oFS -> "OpenTextFile" fn, ForWriting, TristateFalse
		;comres oText : mcall oFS, "OpenTextFile",fn, ForWriting, TristateFalse
		; 省略形のoText=oFS("OpenTextFile",fn, ForWriting, TristateFalse)では失敗時にstatが得られない
		if stat == 0 {
			dialog fn+"を上書きしますか?",6
			if stat == 6 {
				oText -> "Write" textbuf
				oText -> "Close"
				delcom oFS
				dialog fn+"を上書きしました"
				exec fn, 16
			}else{
				oText -> "Close"
				delcom oFS
			}
		}else{
			dialog fn+"は開けません"
		}
	}

■テキストファイルへの追加

#const ForReading 1		; ファイルを読み取り専用として開きます。 
	#const ForWriting 2		; ファイルを書き込み専用として開きます。 
	#const ForAppending 8 	; ファイルを開き最後に追加書き込みします。 
	#const TristateFalse  0			; 文字コードにアスキーコードを使用
	#const TristateTrue  -1			; 文字コードにユニコードを使用
	#const TristateUseDefault  -2	; システムデフォルトの文字コードを使用
	fn=dir_exe+"\\log.txt"
	addtext="\nホゲホゲホゲと\n新しい行を追加しましたよっと"	; <= ファイルの最後に追加する内容
	newcom oFS,"Scripting.FileSystemObject"
	comres oText : oFS -> "CreateTextFile" fn, 0
	;comres oText : mcall oFS, "CreateTextFile",fn, 0	; 第4パラメータ 0 で同名ファイル存在時はエラーになる
	; 省略形のoText=oFS("CreateTextFile", fn, 0)では失敗時にstatが得られない
	if stat == 0 {
		oText -> "WriteLine" addtext
		oText -> "Close"
		delcom oFS
		dialog fn+"を作成しました\n内容は以下のとおり\n\n"+addtext
		exec fn, 16
	}else{
		newcom oFS,"Scripting.FileSystemObject"
		comres oText : oFS -> "OpenTextFile" fn, ForAppending, TristateFalse
		;comres oText : mcall oFS, "OpenTextFile",fn, ForAppending, TristateFalse
		; 省略形のoText=oFS("OpenTextFile",fn, ForAppending, TristateFalse)では失敗時にstatが得られない
		if stat == 0 {
			oText -> "WriteLine" addtext
			oText -> "Close"
			delcom oFS
			dialog fn+"に以下を追加しました\n\n"+addtext
			exec fn, 16
		}else{
			dialog fn+"のオープンに失敗しました"
		}
	}

●SHELL

■プログラム実行

■アクティブ化（前面化）

【SendKeys のキーコード】
Enter：{ENTER}または~   ESC：{Esc}   Tab：{TAB}   BackSpace：{BS}   Del：{DEL}   Ins：{INS}
PageDown：{PGDN}   PageUp：{PGUP}   Home：{HOME}   End：{END}
UpArrow：{UP}   DownArrow：{DOWN}   LeftArrow：{LEFT}   RightArrow：{RIGHT}
Help：{HELP}   CapsLock：{CAPSLOCK}   PrintScreen：{PRTSC}
NumLock：{NUMLOCK}   ScrollLock：{SCROLLLOCK}   Break：{BREAK}
F1：{F1} ～F16：{F16}
Shift同時押しF1：+{F1}   Shift同時押しEC1：+(EC1)    Shift同時押しNｷｰ：+n (小文字nを指定すること)
Ctrl同時押しF4：^{F4}    Ctrl同時押しNｷｰ：^n (小文字nを指定すること)
Alt同時押しF4：%{F4}    Alt同時押しNｷｰ：%n (小文字nを指定すること)
Xｷｰを10回繰り返し：{x 10}

;▼Win32API
	#uselib  "user32.dll"
	 #func FindWindow           "FindWindowA"          sptr,sptr
		;                                              LPCTSTR lpClassName, クラス名		"XLMAIN", "notepad"
		;                                              LPCTSTR lpWindowName ウィンドウ名	"電卓"
	 #func GetWindow            "GetWindow"            sptr,sptr
		;                                              HWND hWnd,           元ウィンドウのハンドル
		;                                              UINT uCmd            関係
		#const GW_OWNER  0x0004	; 指定したウィンドウのオーナーウィンドウのハンドル
	 #cfunc GetForegroundWindow         "GetForegroundWindow"
	 #cfunc GetWindowThreadProcessId    "GetWindowThreadProcessId" sptr,sptr
	 #func  AttachThreadInput           "AttachThreadInput"        sptr,sptr,sptr
	 #func SetForegroundWindow  "SetForegroundWindow"  sptr
	 	;                                              HWND hWnd            ウィンドウのハンドル
	 #func GetWindowPlacement          "GetWindowPlacement"         int,int		; 失敗すると0 が返ります
		;                                                           HWND hWnd,                // ウィンドウのハンドル
		;                                                           WINDOWPLACEMENT *lpwndpl  // 位置データ
		#const SW_SHOWNORMAL       1 			; ウィンドウは通常表示状態
		#const SW_SHOWMINIMIZED    2 			; ウィンドウは最小化表示状態
		#const SW_SHOWMAXIMIZED    3 			; ウィンドウは最大化表示状態
	 #func SendMessage                  "SendMessageA"              int,int,int,int
		;                                                           HWND hWnd,           送信先ウィンドウのハンドル
		;                                                           UINT Msg,            メッセージ
		;                                                           WPARAM wParam,       メッセージの最初のパラメータ
		;                                                           LPARAM lParam        メッセージの 2 番目のパラメータ
		#const WM_SYSCOMMAND    $00000112							; ウィンドウにメッセージを送る
			#const SC_MINIMIZE      $0000F020						; ウィンドウを最小化 (SC_MINIMIZE用)
			#const SC_ICON          $0000F020						; ウィンドウをアイコン化 (SC_ICON用)
			#const SC_MAXIMIZE      $0000F030						; ウィンドウを最大化
			#const SC_RESTORE       $0000F120						; ウィンドウを通常の位置とサイズに復元
			#const SC_TASKLIST      $0000F130						; スタートメニューを表示
;▼他アプリ起動チェック
/*** ウィンドウタイトル方式 (起動してる他アプリを前面に) ***/
sdim other_apls,256,8
other_apls(0)="電卓"
other_apls(1)="パコパコ"
other_apls(2)="ほげほげ"
other_apls(3)=""
other_apls(4)=""
other_apls(5)=""
other_apls(6)=""
other_apls(7)=""
repeat 8
	if other_apls.cnt != "" {
		apl_name="" : apl_name=other_apls.cnt
		FindWindow 0,varptr(apl_name) : hwnd_ready_open=stat
		if hwnd_ready_open ==0 {
			; 未実行
			newcom oWshShell, "WScript.Shell"
			oExec=oWshShell("Run", "calc.exe")
			delcom oWshShell
		}else{
			;dialog "一致するウィンドウタイトルが見つかりました。\n"+apl_name+" はすでに起動されています"
			GetWindow hwnd_ready_open, GW_OWNER
			if stat != 0 : hwnd_ready_open=stat
			hwnd_curwin = GetForegroundWindow()										; 現在アクティブなウィンドウのハンドル
			pid1 = 0 : id1 = GetWindowThreadProcessId(hwnd_curwin,varptr(pid1))		; 現在アクティブなウィンドウを作成したスレッドID
			pid2 = 0 : id2 = GetWindowThreadProcessId(hwnd_ready_open,varptr(pid2))	; 目的のウィンドウのスレッドIDを取得
			AttachThreadInput id2,id1,1												; 目的のウィンドウのスレッドの入力処理機構をアクティブなウィンドウを作成したスレッドにアタッチ
			SetForegroundWindow hwnd_ready_open										; 目的のウィンドウを前面に
			AttachThreadInput id2,id1,0												; デタッチ
			; 最小化表示状態かも知れない
			dim str_WINDOWPLACEMENT,6
			str_WINDOWPLACEMENT(0)=4*6	;   UINT length;
			;str_WINDOWPLACEMENT(1)=	;   UINT flags;
			;str_WINDOWPLACEMENT(2)=	;   UINT showCmd;
			;str_WINDOWPLACEMENT(3)=	;   POINT ptMinPosition;
			;str_WINDOWPLACEMENT(4)=	;   POINT ptMaxPosition;
			;str_WINDOWPLACEMENT(5)=	;   RECT rcNormalPosition;
			GetWindowPlacement hwnd_ready_open, varptr(str_WINDOWPLACEMENT)
			if str_WINDOWPLACEMENT(2) == SW_SHOWMINIMIZED {
				;dialog "ウィンドウは最小化表示状態です"
				SendMessage hwnd_ready_open, WM_SYSCOMMAND, SC_RESTORE, 0
			}
			/*** 他アプリ前面化 ***/
			break
			/*** 自アプリ終了 **
			end
			*/
			/*** 他アプリ終了 **
			wait 1
			newcom oWshShell, "WScript.Shell"
			oWshShell->"SendKeys" "%{F4}"
			delcom oWshShell
			end
			*/
		}
	}
loop

#const  FALSE  0
#const  TRUE   1
foldername=dir_mydoc+"\\tmp"
newcom oFS,"Scripting.FileSystemObject"
newcom oWshShell, "WScript.Shell"
if oFS("FolderExists", foldername) {
	; フォルダは既に存在する
}else{
	newcom oReg,"VBScript.RegExp"
	oReg("Pattern")   ="[ &　]"		; 検索パターン
	val_mach=oReg("Test", foldername)
	delcom oReg
	if val_mach {
		cmd_foldername="\""+foldername+"\""
	}else{
		cmd_foldername=foldername
	}
	oWshShell->"Run" "CMD /C md "+cmd_foldername, WshHide, TRUE 			; TRUE で実行したプログラムが終了するまで待機(注意：スペースや&を含むパス名は""で囲むこと)
	repeat
		if oFS("FolderExists", foldername) {
			; フォルダ存在確認
			break
		}
		wait 20
	loop
}
if oWshShell("AppActivate",foldername) {		; ウィンドウタイトルを検索し前面化(先頭文字列または末尾文字列でマッチ) 最小化ウィンドウには非対応
	; 前面化成功
}else{
	newcom oReg,"VBScript.RegExp"
	oReg("Pattern")   ="[ &　]"		; 検索パターン
	val_mach=oReg("Test", foldername)
	delcom oReg
	if val_mach {
		cmd_foldername="\""+foldername+"\""	; (注意：スペースや&を含むパス名は""で囲むこと)
	}else{
		cmd_foldername=foldername
	}
	oExec=oWshShell("Run", cmd_foldername)
	;↑エクスプローラは最小化されていても同一フォルダのウィンドウを二重起動しない
	;oWshShell->"AppActivate" foldername		; 再度ウィンドウタイトルを検索し前面化(先頭文字列または末尾文字列でマッチ) 最小化ウィンドウには非対応
	repeat 10		; 有限回数
		if oWshShell("AppActivate",foldername) {		; 再度ウィンドウタイトルを検索し前面化(先頭文字列または末尾文字列でマッチ) 最小化ウィンドウには非対応
			; 前面化成功
			break
		}
		wait 20
	loop
}
Regkey ="HKEY_CURRENT_USER\\"
Regkey+="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\CabinetState\\"
if oWshShell("RegRead", Regkey+"FullPath") {
}else{
	str_dlg=""
	str_dlg+="エクスプローラで[ツール(T)]→[フォルダオプション(O)]を実行して、[表示]タブの「タイトルバーにファイルのパス名を表示する」をチェックしてください。\n"
	str_dlg+="WindowsVista以降では、デスクトップのテーマがWindowsクラシック以外の場合はタイトルバーのファイルのパス名は実際には表示されませんが、プログラム上では正しく認識されているので問題はありません。\n"
	dialog str_dlg
}
delcom oWshShell
delcom oFS

;▼Win32API
	#uselib  "user32.dll"
	 #func FindWindow           "FindWindowA"          sptr,sptr
		;                                              LPCTSTR lpClassName, クラス名		"XLMAIN", "notepad"
		;                                              LPCTSTR lpWindowName ウィンドウ名	"電卓"
	 #func GetWindow            "GetWindow"            sptr,sptr
		;                                              HWND hWnd,           元ウィンドウのハンドル
		;                                              UINT uCmd            関係
		#const GW_OWNER  0x0004	; 指定したウィンドウのオーナーウィンドウのハンドル
	 #cfunc GetForegroundWindow         "GetForegroundWindow"
	 #cfunc GetWindowThreadProcessId    "GetWindowThreadProcessId" sptr,sptr
	 #func  AttachThreadInput           "AttachThreadInput"        sptr,sptr,sptr
	 #func SetForegroundWindow  "SetForegroundWindow"  sptr
	 	;                                              HWND hWnd            ウィンドウのハンドル
	 #func GetWindowPlacement          "GetWindowPlacement"         int,int		; 失敗すると0 が返ります
		;                                                           HWND hWnd,                // ウィンドウのハンドル
		;                                                           WINDOWPLACEMENT *lpwndpl  // 位置データ
		#const SW_SHOWNORMAL       1 			; ウィンドウは通常表示状態
		#const SW_SHOWMINIMIZED    2 			; ウィンドウは最小化表示状態
		#const SW_SHOWMAXIMIZED    3 			; ウィンドウは最大化表示状態
	 #func SendMessage                  "SendMessageA"              int,int,int,int
		;                                                           HWND hWnd,           送信先ウィンドウのハンドル
		;                                                           UINT Msg,            メッセージ
		;                                                           WPARAM wParam,       メッセージの最初のパラメータ
		;                                                           LPARAM lParam        メッセージの 2 番目のパラメータ
		#const WM_SYSCOMMAND    $00000112							; ウィンドウにメッセージを送る
			#const SC_MINIMIZE      $0000F020						; ウィンドウを最小化 (SC_MINIMIZE用)
			#const SC_ICON          $0000F020						; ウィンドウをアイコン化 (SC_ICON用)
			#const SC_MAXIMIZE      $0000F030						; ウィンドウを最大化
			#const SC_RESTORE       $0000F120						; ウィンドウを通常の位置とサイズに復元
			#const SC_TASKLIST      $0000F130						; スタートメニューを表示
;▼他アプリ起動チェック
/*** ウィンドウクラス名方式 (起動してる他アプリを前面に) ***/
sdim apl_class_names,256,8
apl_class_names(0)="SciCalc"                ; calc.exe 電卓
;apl_class_names(1)="Notepad"               ; notepad.exe 無題 - メモ帳
;apl_class_names(2)="WordPadClass"          ; wordpad.exe ドキュメント - ワードパッド
;apl_class_names(3)="CabinetWClass"         ; explorer.exe 
;apl_class_names(4)="IEFrame"               ; iexplore.exe 
;apl_class_names(5)="onsoleWindowClass"     ; cmd.exe 
;apl_class_names(6)="WABBrowseView"         ; wab.exe (dirinfo($10026)+"\\Outlook Express\\wab.exe)
;apl_class_names(7)="hspwnd0"               ; hsp3.exe 
repeat 8
	if apl_class_names.cnt != "" {
		apl_class_name="" : apl_class_name=apl_class_names.cnt
		FindWindow varptr(apl_class_name),0 : hwnd_ready_open=stat
		if hwnd_ready_open != 0 {
			;dialog "一致するウィンドウクラス名が見つかりました。"
			GetWindow hwnd_ready_open, GW_OWNER
			if stat != 0 : hwnd_ready_open=stat
			hwnd_curwin = GetForegroundWindow()										; 現在アクティブなウィンドウのハンドル
			pid1 = 0 : id1 = GetWindowThreadProcessId(hwnd_curwin,varptr(pid1))		; 現在アクティブなウィンドウを作成したスレッドID
			pid2 = 0 : id2 = GetWindowThreadProcessId(hwnd_ready_open,varptr(pid2))	; 目的のウィンドウのスレッドIDを取得
			AttachThreadInput id2,id1,1												; 目的のウィンドウのスレッドの入力処理機構をアクティブなウィンドウを作成したスレッドにアタッチ
			SetForegroundWindow hwnd_ready_open										; 目的のウィンドウを前面に
			AttachThreadInput id2,id1,0												; デタッチ
			; 最小化表示状態かも知れない
			dim str_WINDOWPLACEMENT,6
			str_WINDOWPLACEMENT(0)=4*6	;   UINT length;
			;str_WINDOWPLACEMENT(1)=	;   UINT flags;
			;str_WINDOWPLACEMENT(2)=	;   UINT showCmd;
			;str_WINDOWPLACEMENT(3)=	;   POINT ptMinPosition;
			;str_WINDOWPLACEMENT(4)=	;   POINT ptMaxPosition;
			;str_WINDOWPLACEMENT(5)=	;   RECT rcNormalPosition;
			GetWindowPlacement hwnd_ready_open, varptr(str_WINDOWPLACEMENT)
			if str_WINDOWPLACEMENT(2) == SW_SHOWMINIMIZED {
				;dialog "ウィンドウは最小化表示状態です"
				SendMessage hwnd_ready_open, WM_SYSCOMMAND, SC_RESTORE, 0
			}
			/*** 他アプリ前面化 ***/
			break
			/*** 自アプリ終了 **
			end
			*/
			/*** 他アプリ終了 **
			wait 1
			newcom oWshShell, "WScript.Shell"
			oWshShell->"SendKeys" "%{F4}"
			delcom oWshShell
			end
			*/
		}
	}
loop

#uselib  "user32.dll"
	 #func FindWindow           "FindWindowA"          sptr,sptr
		;                                              LPCTSTR lpClassName, クラス名		"XLMAIN", "notepad"
		;                                              LPCTSTR lpWindowName ウィンドウ名	"電卓"
	 #func GetWindow            "GetWindow"            sptr,sptr
		;                                              HWND hWnd,           元ウィンドウのハンドル
		;                                              UINT uCmd            関係
		#const GW_OWNER  0x0004	; 指定したウィンドウのオーナーウィンドウのハンドル
	 #cfunc GetForegroundWindow         "GetForegroundWindow"
	 #cfunc GetWindowThreadProcessId    "GetWindowThreadProcessId" sptr,sptr
	 #func  AttachThreadInput           "AttachThreadInput"        sptr,sptr,sptr
	 #func SetForegroundWindow  "SetForegroundWindow"  sptr
	 	;                                              HWND hWnd            ウィンドウのハンドル
	 #func GetWindowPlacement          "GetWindowPlacement"         int,int		; 失敗すると0 が返ります
		;                                                           HWND hWnd,                // ウィンドウのハンドル
		;                                                           WINDOWPLACEMENT *lpwndpl  // 位置データ
		#const SW_SHOWNORMAL       1 			; ウィンドウは通常表示状態
		#const SW_SHOWMINIMIZED    2 			; ウィンドウは最小化表示状態
		#const SW_SHOWMAXIMIZED    3 			; ウィンドウは最大化表示状態
	 #func SendMessage                  "SendMessageA"              int,int,int,int
		;                                                           HWND hWnd,           送信先ウィンドウのハンドル
		;                                                           UINT Msg,            メッセージ
		;                                                           WPARAM wParam,       メッセージの最初のパラメータ
		;                                                           LPARAM lParam        メッセージの 2 番目のパラメータ
		#const WM_SYSCOMMAND    $00000112							; ウィンドウにメッセージを送る
			#const SC_MINIMIZE      $0000F020						; ウィンドウを最小化 (SC_MINIMIZE用)
			#const SC_ICON          $0000F020						; ウィンドウをアイコン化 (SC_ICON用)
			#const SC_MAXIMIZE      $0000F030						; ウィンドウを最大化
			#const SC_RESTORE       $0000F120						; ウィンドウを通常の位置とサイズに復元
			#const SC_TASKLIST      $0000F130						; スタートメニューを表示
apl_class_name="WABBrowseView"			; ウィンドタイトルの検索は使えないのでウィンドウクラスを検索する
FindWindow varptr(apl_class_name),0 : hwnd_ready_open=stat
if hwnd_ready_open != 0 {
	GetWindow hwnd_ready_open, GW_OWNER
	if stat != 0 : hwnd_ready_open=stat
	hwnd_curwin = GetForegroundWindow()										; 現在アクティブなウィンドウのハンドル
	pid1 = 0 : id1 = GetWindowThreadProcessId(hwnd_curwin,varptr(pid1))		; 現在アクティブなウィンドウを作成したスレッドID
	pid2 = 0 : id2 = GetWindowThreadProcessId(hwnd_ready_open,varptr(pid2))	; 目的のウィンドウのスレッドIDを取得
	AttachThreadInput id2,id1,1												; 目的のウィンドウのスレッドの入力処理機構をアクティブなウィンドウを作成したスレッドにアタッチ
	SetForegroundWindow hwnd_ready_open										; 目的のウィンドウを前面に
	AttachThreadInput id2,id1,0												; デタッチ
	; 最小化表示状態かも知れない
	dim str_WINDOWPLACEMENT,6
	str_WINDOWPLACEMENT(0)=4*6	;   UINT length;
	;str_WINDOWPLACEMENT(1)=	;   UINT flags;
	;str_WINDOWPLACEMENT(2)=	;   UINT showCmd;
	;str_WINDOWPLACEMENT(3)=	;   POINT ptMinPosition;
	;str_WINDOWPLACEMENT(4)=	;   POINT ptMaxPosition;
	;str_WINDOWPLACEMENT(5)=	;   RECT rcNormalPosition;
	GetWindowPlacement hwnd_ready_open, varptr(str_WINDOWPLACEMENT)
	if str_WINDOWPLACEMENT(2) == SW_SHOWMINIMIZED {
		;dialog "ウィンドウは最小化表示状態です"
		SendMessage hwnd_ready_open, WM_SYSCOMMAND, SC_RESTORE, 0
	}
}else{
	newcom oWshShell, "WScript.Shell"
	oExec=oWshShell("Exec", dirinfo($10026)+"\\Outlook Express\\wab.exe")
	repeat
		if oExec("Status") == 0 : break
		wait 10
	loop
	;oWshShell->"AppActivate" oExec("ProcessID")		; プロセスIDを検索し前面化 最小化ウィンドウには非対応
	repeat 10		; 有限回数
		if oWshShell("AppActivate",oExec("ProcessID")) {		; プロセスIDを検索し前面化 最小化ウィンドウには非対応
			; 前面化成功
			break
		}
		wait 20
	loop
	delcom oWshShell
}

プロセスコントロール (getproclist,killproc命令pid2,hwnd関数,getwintitlels命令) 最小化状態対応ウィンドウ前面化 (ForegroundWindow命令)

;▼Win32API
	#uselib  "user32.dll"
	 #func FindWindow           "FindWindowA"          sptr,sptr
		;                                              LPCTSTR lpClassName, クラス名		"XLMAIN", "notepad"
		;                                              LPCTSTR lpWindowName ウィンドウ名	"電卓"
	 #func GetWindow            "GetWindow"            sptr,sptr
		;                                              HWND hWnd,           元ウィンドウのハンドル
		;                                              UINT uCmd            関係
		#const GW_OWNER  0x0004	; 指定したウィンドウのオーナーウィンドウのハンドル
	 #cfunc GetForegroundWindow         "GetForegroundWindow"
	 #cfunc GetWindowThreadProcessId    "GetWindowThreadProcessId" sptr,sptr
	 #func  AttachThreadInput           "AttachThreadInput"        sptr,sptr,sptr
	 #func SetForegroundWindow  "SetForegroundWindow"  sptr
	 	;                                              HWND hWnd            ウィンドウのハンドル
	 #func SendMessage                  "SendMessageA"              int,int,int,int
		;                                                           HWND hWnd,           送信先ウィンドウのハンドル
		;                                                           UINT Msg,            メッセージ
		;                                                           WPARAM wParam,       メッセージの最初のパラメータ
		;                                                           LPARAM lParam        メッセージの 2 番目のパラメータ
		#const WM_SYSCOMMAND    $00000112							; ウィンドウにメッセージを送る
			#const SC_MINIMIZE      $0000F020						; ウィンドウを最小化 (SC_MINIMIZE用)
			#const SC_ICON          $0000F020						; ウィンドウをアイコン化 (SC_ICON用)
			#const SC_MAXIMIZE      $0000F030						; ウィンドウを最大化
			#const SC_RESTORE       $0000F120						; ウィンドウを通常の位置とサイズに復元
			#const SC_TASKLIST      $0000F130						; スタートメニューを表示
	 #func GetWindowPlacement          "GetWindowPlacement"         int,int		; 失敗すると0 が返ります
		;                                                           HWND hWnd,                // ウィンドウのハンドル
		;                                                           WINDOWPLACEMENT *lpwndpl  // 位置データ
		#const SW_SHOWNORMAL       1 			; ウィンドウは通常表示状態
		#const SW_SHOWMINIMIZED    2 			; ウィンドウは最小化表示状態
		#const SW_SHOWMAXIMIZED    3 			; ウィンドウは最大化表示状態
	#uselib "KERNEL32.DLL"
	 #func CreateMutex                  "CreateMutexA"              int,int,int
		;                                                           LPSECURITY_ATTRIBUTES ,    セキュリティ記述子
	 	;                                                           BOOL bInitialOwner,        最初の所有者
	 	;                                                           LPCTSTR lpName             オブジェクトの名前
		#const  ERROR_ALREADY_EXISTS  183							; 同名ファイルが既に実行中
	 #func GetLastError                 "GetLastError"
	 #func CloseHandle                  "CloseHandle"               int
	 	;                                                           HANDLE hObject   オブジェクトのハンドル
onexit *owari
;▼このアプリケーションの名前
this_apli_name="ほげほげ"
;▼二重起動禁止
CreateMutex 0,0,varptr(this_apli_name)
hMutex = stat
GetLastError
if stat == ERROR_ALREADY_EXISTS { 							; 同名ファイルが既に実行中
	dialog this_apli_name+"\nこのソフトは複数起動することはできません ",1,this_apli_name
	FindWindow 0,varptr(this_apli_name)
	hwnd_ready_open=stat
	if hwnd_ready_open !=0 {
		;dialog "一致するウィンドウタイトルが見つかりました。"
		GetWindow hwnd_ready_open,GW_OWNER
		if stat != 0 : hwnd_ready_open=stat
		;SetForegroundWindow hwnd_ready_open
		hwnd_curwin = GetForegroundWindow()					; 現在アクティブなウィンドウのハンドル
		pid1 = 0 : id1 = GetWindowThreadProcessId(hwnd_curwin,varptr(pid1))	; 現在アクティブなウィンドウを作成したスレッドID
		pid2 = 0 : id2 = GetWindowThreadProcessId(hwnd_ready_open,varptr(pid2))	; 目的のウィンドウのスレッドIDを取得
		AttachThreadInput id2,id1,1						; 目的のウィンドウのスレッドの入力処理機構をアクティブなウィンドウを作成したスレッドにアタッチ
		SetForegroundWindow hwnd_ready_open					; 目的のウィンドウを前面に
		AttachThreadInput id2,id1,0						; デタッチ
		; 最小化表示状態かも知れない
		dim str_WINDOWPLACEMENT,6
		str_WINDOWPLACEMENT(0)=4*6	;   UINT length;
		;str_WINDOWPLACEMENT(1)=	;   UINT flags;
		;str_WINDOWPLACEMENT(2)=	;   UINT showCmd;
		;str_WINDOWPLACEMENT(3)=	;   POINT ptMinPosition;
		;str_WINDOWPLACEMENT(4)=	;   POINT ptMaxPosition;
		;str_WINDOWPLACEMENT(5)=	;   RECT rcNormalPosition;
		GetWindowPlacement hwnd_ready_open, varptr(str_WINDOWPLACEMENT)
		if str_WINDOWPLACEMENT(2) == SW_SHOWMINIMIZED {
			;dialog "ウィンドウは最小化表示状態です"
			SendMessage hwnd_ready_open, WM_SYSCOMMAND, SC_RESTORE, 0
		}
	}
	CloseHandle hMutex
	end
}
title this_apli_name        ; 仮のウィンドウタイトル
stop
*owari
	CloseHandle hMutex
	end

■ショートカット

cmd_str=dir_exe+"\\hsed3.exe"
dspname="スクリプトエディタ"
newcom oWshShell, "WScript.Shell"
newcom oFS, "Scripting.FileSystemObject"
oShellLink=oWshShell("CreateShortcut", oWshShell("SpecialFolders","STARTMENU")+"\\"+dspname+".lnk")		; ショートカットオブジェクトの作成
;oShellLink=oWshShell("CreateShortcut", oWshShell("SpecialFolders","SendTo")+"\\"+dspname+".lnk")		; ショートカットオブジェクトの作成
;oShellLink=oWshShell("CreateShortcut", oWshShell("SpecialFolders","Desktop")+"\\"+dspname+".lnk")		; ショートカットオブジェクトの作成
oShellLink("TargetPath") = cmd_str														; リンク先
oShellLink("Description")="これはショートカットのテストです"							; 説明文を付加
Workdir=oFS("GetParentFolderName", cmd_str) : oShellLink("WorkingDirectory")=Workdir	; 作業領域
;oShellLink("Arguments")="******.hsp"													; 引数
;oShellLink("Hotkey")="ALT+CTRL+F"														; ショートカットキー
oShellLink("WindowStyle") = 1															; ウィンドウスタイル
;oShellLink("IconLocation")="%SystemRoot%\\System32\\SHELL32.dll,5"						; アイコンの位置 ("Path, Index"と指定する。)
oShellLink->"Save"																		; ショートカットの作成
dialog "スタートメニューにショートカットを追加しました。",0,"確認"
;dialog "「送る」(ToSend)にショートカットを追加しました。",0,"確認"
;dialog "デスクトップにショートカットを追加しました。",0,"確認"
delcom oShellLink
delcom oFS
delcom oWshShell

■レジストリ

●正規表現検索、置換

■単純な正規表現検索

【文字範囲指定】
/*** Unicode の文字範囲指定は以下のとおり ***/
（全体一致）ptrn_all="^[0-9A-Za-zｦ-ﾝﾞﾟ０-９Ａ-ｚｰぁ-んァ-ヴー一-龠\\-]*$"
（先頭一致）ptrn_mch="^[0-9A-Za-zｦ-ﾝﾞﾟ０-９Ａ-ｚｰぁ-んァ-ヴー一-龠\\-]+"
/*** ↓下記の shift-jis の文字範囲指定とはことなります
（全体一致）ptrn_all="^[0-9A-Za-z０-９Ａ-ｚｦ-ﾝﾞﾟｰぁ-んァ-ンー亜-黑\\-]*$"
（先頭一致）ptrn_mch="^[0-9A-Za-z０-９Ａ-ｚｦ-ﾝﾞﾟｰぁ-んァ-ンー亜-黑\\-]+"
*/
【VBScriptの正規表現での特殊文字の表記】
\は\\\\とする
-は\\\-とする
(:;.,&$は通常の表記でＯＫ)

■複雑な正規表現検索

【Matchesコレクションのプロパティ】
oMatches("Count") : コレクション内に含まれる Match オブジェクトの数を表す読み取り専用の値。
oMatches("Item",n) : コレクション内に含まれる Match オブジェクトへアクセスするための読み取り専用の値。nは0から始まるインデックス値。
【oMatch オブジェクトのプロパティ】
oMatch("FirstIndex") : マッチした部分の位置を表す読み取り専用の値。検索文字列の最初の位置を0とするオフセット値。
oMatch("Length") : マッチした文字列の長さを表す読み取り専用の値。
oMatch("Value") : マッチした文字列を表す読み取り専用の値。Match オブジェクトの既定値になっているので、特にプロパティを指定しない場合はこの値を返す。
oSubMatches=oMatch("SubMatches") : マッチした文字列の中で、"( )"でグループ化した部分へアクセスするためのSubMatchesコレクション。
oSubMatches("Groups") : SubMatchesコレクションの数（グループ数）を返す。
oMatch("SubMatches",n) : "( )"でグループ化した部分にマッチした部分の位置を表す読み取り専用の値。nは0から始まるインデックス値。

●XMLHTTP

●ログインユーザーの権限

■管理者権限(Administrator)でのログインを確認

○ActiveX の配置

□IEの配置

;▼comコンポーネント
	; IEコンポーネント
	#const DIID_DWebBrowserEvents2     "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
	#const DISPID_COMMANDSTATECHANGE   105
	#const DISPID_BEFORENAVIGATE2      250
	#const DISPID_NAVIGATECOMPLETE2    252
	#const DISPID_ONQUIT               253
	#const DISPID_ONMENUBAR            256
	#const DISPID_ONSTATUSBAR          257
	#const DISPID_ONFULLSCREEN         258
	#const DISPID_WINDOWSETLEFT        264
	#const DISPID_WINDOWSETTOP         265
	#const DISPID_WINDOWSETWIDTH       266
	#const DISPID_WINDOWSETHEIGHT      267
	#const DISPID_ONTHEATERMODE        260

sURL = "http://www.onionsoft.net/hsp/img/guruanm.gif"			; URLまたはCGIプログラム名を指定 (http://はあってもなくてもよい)
pos 50,50
axobj ie, "Shell.Explorer.2";,100,100
num=stat
comevent ie_event, ie, DIID_DWebBrowserEvents2,*event
ie->"Navigate" sURL
stop
*event
	; OMイベント処理
	dispid = comevdisp(ie_event)
	if dispid = DISPID_BEFORENAVIGATE2 : gosub *OnBeforeNavigate
	if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2
	return
*OnBeforeNavigate
	comevarg name,ie_event,1
	;objprm 0,name
	return
*OnNavigateComplete2
	pDoc = ie("Document")
	name = pDoc("Title")
	title name
	delcom pDoc
	return
;*wow
;	ie->"Navigate" url
;	goto *main
;*go_f
;	ie->"GoForward"
;	goto *main
;*go_b
;	ie->"GoBack"
;	goto *main

□swfの配置