chobirich.vbs

Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")

If LCase(Fs.GetFileName(WScript.FullName)) = "wscript.exe" Then
	WshShell.Run "cscript """ & WScript.ScriptFullName & """"
	WScript.Quit
End If


uid = InputBox("会員番号(半角数字)を入力してください。")
If IsNumeric(uid) Then
	Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
	o.Option(6) = False
	Fetch("http://chobirich.us/game/ufo_hunter_v2/ufo.php?uid=" & uid)
	Play()
End If

Sub Play()
	For c = 1 To 10000
		For i = 1 To 5
			Fetch("http://chobirich.us/game/ufo_hunter_v2/fast.php")
			Fetch("http://chobirich.us/game/ufo_hunter_v2/fast_clear_redirect.php/?l=0&s=200")
		Next
		Fetch("http://chobirich.us/game/ufo_hunter_v2/point_request.php")
		WScript.Echo c
	Next
End Sub

Sub Fetch(url)
	o.open "GET", url
	o.send
End Sub