WebBrowserコントロールでの実行確認メッセージを無くすには？

解決

nori 2004-09-14 02:50:51 No: 116287

お世話になってます

VB6にてWebBrowserコントロールでHTMLファイルを表示させています
VBのexeもHTMLファイルもローカルに存在します
HTMLの中身はWSH使ってます。こんな感じです

<html>
<script language="VBScript">
'テストスクリプト
sub Test()
dim obj , rtn
set obj = createobject("Wscript.Shell")
rtn = obj.run("c:\winnt\notepad.exe",1,false)
set obj = nothing
end sub
</script>
<body>
<a onClick="Test">test</a>
</body>
</html>

これをVBのWebBrowserコントロールから呼んでリンククリックするタイミングでIEに怒られます
「このページの ActiveXコントロールは、安全でない可能性があり、〜」のメッセージでます
信頼済みサイトの設定、レベルのカスタマイズなどをいじりまして設定しましたがだめです。以下行った設定
・信頼済みサイト → file://127.0.0.1 （ローカルだから）
・レベルのカスタマイズ → 全ての項目を有効にした
・詳細設定 → マイコンピュータのファイルでのアクティブコンテンツの実行を許可するチェック入れる（XP SP2のみ）

これを打破したく質問させて下さい
・IEの設定でメッセージ出さないようにできるのでしょうか?
・このHTMLをHTAファイルに拡張子替えてWebBrowserから呼べないでしょうか?
（やってみましたが実行表示はされずダウンロードになります)

当方Win2000 SP4 とWinXP SP2 IEはそのOSの最新で確認しております
宜しくお願いします

nori 2004-09-14 19:02:32 No: 116288

strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\flags"
objWshShell.RegWrite strRegKey , 1 , "REG_DWORD"

このregをいじりますとIEのマイコンピュータゾーンを設定できるようになり
ダイアログを出さなくてもいいIEの設定が可能になります
セキュリティは・・・落ちますね。