" Set oHtml = FilSys.CreateTextFile(WinDir & "\web\FO2NW.htm") oHtml.Write(txtHtml) If Err.Number = 424 Then MsgBox "失敗!制限事項を査読し、理解されていますか?" & VbCr & Err.Number & ":" & Err.Description,16,"えら〜" ElseIf Err.Number <> 0 Then MsgBox "失敗しちゃいましたぁ〜" & VbCr & Err.Number & Err.Description,16,"えら〜" Else MsgBox "設定完了したよぉ〜ん" & VbCr & "IEを再起動してくださぁ〜い" & VbCr & VbCr & "そうそう・・・" & VbCr & "ちなみにあいおうは単フレーム表示を許可しておりません |∀゚) ニヤリ",0,"ハァハァハァ・・・" End If End Sub Sub Button2_OnClick() On Error Resume Next Set FilSys = CreateObject("Scripting.FileSystemObject") Set WShell = CreateObject("WScript.Shell") Set WshEnv = WShell.Environment("Process") WinDir = WshEnv("WinDir") strMenu = Document.form.Text1.value & "(&N)\" RegPath1 = "HKCU\Software\Microsoft\Internet Explorer\MenuExt\" & strMenu WShell.RegDelete RegPath1 FilSys.DeleteFile WinDir & "\web\FO2NW.htm" If Err.Number = 424 Then MsgBox "失敗!制限事項を査読し、理解されていますか?" & VbCr & Err.Number & ":" & Err.Description,16,"えら〜" ElseIf Err.Number <> 0 Then MsgBox "失敗しちゃいましたぁ〜" & VbCr & Err.Number & Err.Description,16,"えら〜" Else MsgBox "解除完了しましたぁ〜" & VbCr & "IEを再起動してくださいまっせぇ〜",0,"逝くゥ〜" End If End Sub -->