'sendpage_inst.vbs url="http://ut.netfirms.com/cgi-bin/sndpg.cgi" i=MsgBox("このｽｸﾘﾌﾟﾄはIEの右ﾒﾆｭｰに、'このﾍﾟｰｼﾞを送る'を追加するものです",vbOKCancel+vbInformation,"sendpage ｲﾝｽﾄｰﾙ") if i=vbCancel then WScript.Quit name=InputBox("あなたの名前") email=InputBox("あなたのE-Mail") q=chr(34) set F=WScript.CreateObject("Scripting.FileSystemObject") fi=F.GetParentFolderName(F.GetAbsolutePathName("sendpage_inst.vbs"))+"\sendpage.html" fj=F.GetParentFolderName(F.GetAbsolutePathName("sendpage_inst.vbs"))+"\sendpfrm.html" set wf=F.CreateTextFile(fi,true) wf.WriteLine "" wf.Close set wf=F.CreateTextFile(fj,true) wf.WriteLine "send page" wf.WriteLine "
" wf.WriteLine "
このページを送る
" wf.WriteLine "
" wf.WriteLine "" wf.WriteLine "" wf.WriteLine "
あなたの名前
あなたのメール
相手の名前
相手のメール
" wf.WriteLine "		コメント

" wf.WriteLine "" wf.WriteLine "
" wf.Close set W=WScript.CreateObject("WScript.Shell") W.RegWrite "HKCU\Software\Microsoft\Internet Explorer\MenuExt\このﾍﾟｰｼﾞを送る\",fi MsgBox "正常に終了した",vbOKOnly,"sendpage ｲﾝｽﾄｰﾙ"