ウオヘラ

Web・オ。シ・ミ、隍・ユ・。・、・、シ霹タ、キ。「シ霹タヘュフオ、ヒ、隍鷂eb・オ。シ・ミ、ホサ犁隍ネスト熙ケ、・ケ・ッ・・ラ・ネ。」
ト莉゚、ネネスト熙オ、、ソセケ遉マキルケイサ、ホコニタク、ネ・皈テ・サ。シ・ク、ホノスシィ、ケヤ、ヲ。」

ニーコエトカュ

wget.exe、ャサネヘム、ヌ、ュ、、ウ、ネ。」。ハヒワ・レ。シ・ク、ホナコノユ・ユ・。・、・、ネ、キ、ニノユツー。ヒ

・ウ。シ・ノ

'Web Check Script
'2010.03.26

'。レシ霏筍ロ
'サリト熙オ、、ソURL、ォ、鬣ユ・。・、・、シ霹タ、キ。「シ霹タ、ヒシコヌヤ、キ、ソセケ遉マイサタシ、ネ・皈テ・サ。シ・ク、スミ、キツウ、ア、。ハOK・ワ・ソ・、イ。、ケ、ネサ゚、゙、。ヒ
'13ケヤフワ。。シ霹タ、ケ、・ユ・。・、・、サリト
'21ケヤフワ。。ヘュフオ、ネスト熙ケ、・ユ・。・、・フセ、サリト
'28ケヤフワ。。コニタク、ケ、イサタシ・ユ・。・、・、サリト
'33ケヤフワ。。ノスシィ、ケ、・皈テ・サ。シ・ク、ネノスシィエヨウヨ、サリト

'---・ユ・。・、・、シ霹タ---
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "wget.exe http://www.asabiya.net/images/login/title.png"

'---・ユ・。・、・、ホシ霹タ、ャエーホサ、ケ、、゙、ヌ・ケ・遙シ・ラ---
WScript.Sleep(2000)

'---・ユ・。・、・、ホヘュフオ、ノセイチ---
Set objFso = CreateObject("Scripting.FileSystemObject")

If objFso.FileExists("title.png") Then
'---シ霹タタョク。ァ・ユ・。・、・、コス---
	Set objFso = CreateObject("Scripting.FileSystemObject")
	objFso.DeleteFile "title.png",True
else
'---シ霹タシコヌヤ。ァ・ィ・鬘シ・皈テ・サ。シ・ク。キルケイサ---

strSoundFile="C:\Windows\Media\Chimes.wav"
Set objShell=CreateObject("Wscript.Shell")
strCommand="Mplay32.Exe /play /close " & chr(34) & strSoundFile & chr(34)
Do While True
objShell.Run strCommand, 0, true
If objShell.Popup("エニサ・キ・ケ・ニ・爨ォ、鬢ホアナ、ャ、「、熙゙、サ、",5,"キルケ") = 1 Then Exit Do '5ノテツヤオ。。「フオクツ・。シ・ラテヲスミ
loop

End If

Set objFso = Nothing

ナコノユ・ユ・。・、・: filewget.exe 313キ [セワコル]

・ネ・テ・ラ   ハヤスク ナ犢 コケハャ 写酌識失竺識捨釈 ナコノユ ハ」タス フセチーハムケケ ・・。シ・ノ   ソキオャ ーヘ ク。コ コヌスェケケソキ   ・リ・・ラ   コヌスェケケソキ、ホRSS
Last-modified: 2010-04-01 (フレ) 12:02:06 (3398d)