5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

OEのHTML送信の設定を解除するスクリプト

1 :24歳ヒヒヒヒヒ:2000/06/11(日) 21:22
'------------------------ キリトリセン ------------------------
' ●OutLook Express のHTMLメール&ニュース送信の設定を
' 強制解除するスクリプト(レジストリ書き込み版)
' ※このスクリプトの著作権は放棄します。
Dim FS@` WS@` pos@` idstr

' "Outlook Express" がなければそのまま終了
Set FS = CreateObject("Scripting.FileSystemObject")
Set WS = CreateObject("WScript.Shell")
pos = FS.GetSpecialFolder( WindowsFolder )
pos = FS.GetDriveName(pos) & "\Program Files\Outlook Express\msimn.exe"
if FS.FileExists(pos) = false Then Wscript.Quit

' メッセージを表示
ret = WS.Popup("このスクリプトはあなたの Outlook Expressを、インターネットにやさしい設定に変更します。"@`0 @` "Outlook Express設定調整スクリプト"@` 0+64)
WScript.Sleep(450)

' レジストリからユーザーIDを取得。
idstr = WS.RegRead("HKCU\Identities\Last User ID")
if idstr = "" then Wscript.Quit
idstr = "HKCU\Identities\" & idstr & "\Software\Microsoft\Outlook Express\5.0"

' レジストリに書き込み
On Error Resume Next
WS.RegWrite idstr & "\Security Zone"@` 4@` "REG_DWORD"
WS.RegWrite idstr & "\Mail\Message Send HTML"@` 0@` "REG_DWORD"
WS.RegWrite idstr & "\Mail\Message Plain Format MIME"@` 1@` "REG_DWORD"
WS.RegWrite idstr & "\Mail\Message Plain Encoding Format"@` 4@` "REG_DWORD"
WS.RegWrite idstr & "\Mail\Message Plain Allow 8bit in Header"@` 0@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Send HTML"@` 0@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Plain Format MIME"@` 1@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Plain Encoding Format"@` 4@` "REG_DWORD"
WS.RegWrite idstr & "\News\Message Plain Allow 8bit in Header"@` 0@` "REG_DWORD"

' メッセージを表示
ret = WS.Popup("設定を改善しました !"@`0 @` "Outlook Express設定調整スクリプト"@` 0+64)
ret = WS.Popup("ぜひこのすばらしいスクリプトをお友達にも紹介して上げてください !"@`0 @` "Outlook Express設定調整スクリプト"@` 0+64)

' Λ_Λ
'( ´∀`)y-゚゚ < 幸せ?
' === end of script ===
'------------------------ キリトリセン ------------------------


2 :●使用方法:2000/06/11(日) 21:24
「キリトリセン」のあいだをテキストファイルに保存して、
名称を"suckhtml.vbs"というふうに拡張子を"*.vbs"にして保存します。
("suckhtml"のところはなんでも構いません)
あとはそれを実行するだけでスクリプトがレジストリにアクセスして
アウトルックのHTML送信設定を解除します。

"I love you"スクリプトワームのような、自分を大量配布する機能は
ありません。

ちなみに動作確認を行った環境は、
メーラー:Outlook Express 5
ブラウザ:InternetExplorer 5.01
OS:WIndows95 (OSR1)
…です。

●使用例
何度言ってもHTMLメールの設定をはずそうとしない初心者に、
ナニゲに「これをちょっと実行しといてよ」と言って送りつけたり
するというような使い方を想定しています。(悪

"I love you"の後だとあんまり効果無いかもしれませんが…。


4 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)