任意のアプリの起動に対して警告を出したい

質問

任意のアプリケーションを立ち上げた場合
なんらかの警告表示を出したいのですが、
そのようなフリーソフトはないでしょうか。
起動自体は妨げたくありません。
また音ではなく任意の文章を表示したいです。

vectorで調べて見ました。
調べ方が悪いのかも知れませんが、いまいちこれといったものがありませんでした。

回答No.2

ittochan

WindowsXPでしたら↓でできるみたい。
VBScriptです
拡張子はvbsで保存します。

メモ帳を例に作成してみました。
タスクマネージャを起動させると終了するようにしました。

strComputer = "."

Set objCnct = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, (Security)}!\\" & strComputer & "\root\cimv2")

Set objSink = WScript.CreateObject( "WbemScripting.SWbemSink","SINK_")
Set objWsh = WScript.CreateObject( "WScript.Shell")

flag = False

objCnct.ExecNotificationQueryAsync objSink, _
"Select * from __instanceCreationEvent within 1 Where TargetInstance isa 'Win32_Process'"

while(1)
WScript.Sleep 1000
wend

Sub SINK_OnObjectReady(objEvent, objAsyncContext)
On Error Resume Next
If LCase( objEvent.TargetInstance.Name ) = "notepad.exe" and Not flag Then
flag = True
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Navigate "about:blank"
IE.Visible = 0
IE.ToolBar = 0
IE.StatusBar = 0
IE.Width = 500
IE.Height = 200
IE.Left = IE.document.parentWindow.screen.width / 2 - IE.Width / 2
IE.Top = IE.document.parentWindow.screen.height / 2 - IE.Height / 2
Set objDoc = IE.Document
objDoc.open
objDoc.writeln "～(￣∇￣～)ふら(～￣∇￣)～ふら フラダンスゥ" & "<br>" & "<br>"
objDoc.writeln "<INPUT TYPE='button' VALUE='閉じる' id='btn' name=0 onclick='VBScript:btn.name=1'>"
While (IE.Busy)
Wend
IE.Visible = 1
objWsh.SendKeys "%{tab}"
Do While (IE.Document.Body.All.btn.name = 0 )
If Err.Number<>0 Then Exit Do
Wscript.Sleep 100
Loop
flag = False
IE.Quit
ElseIf LCase( objEvent.TargetInstance.Name ) = "taskmgr.exe" Then
WScript.Sleep 1000
intBtn = objWsh.Popup("監視を終了しました",1)
WScript.Quit
End If
Err.Clear
End Sub

Windows98だと
マイクロソフトさんからWMIコンポーネントを
インストールするとできるかもしれませんが
まだ試したことないです。

どうでしょう？
実用に耐えられますか？

お礼

う～ん、回答ありがとうございます。

ですがスクリプトを扱える水準ではないです、
申し訳ありません(^^;

回答No.1

ittochan

自身はないんですが
WindowsXPでしょうか？

補足

環境はWinXPもしくはWin98seです