串ちぇっかつくたぁヽ(´ー｀)ノ

'( '-')ﾉぁゃιぃProxyChecker v0.2
'TODO.lst
'Proxy.txtがない場合の処理
'No-Alive履歴をつくる

On Error Resume Next

Set ObjFS = CreateObject("Scripting.FileSystemObject")

Set ObjPrxText = ObjFS.OpenTextFile("Proxy.txt")
ProxyList = ObjPrxText.ReadAll

iProxy = InputBox("串","( '-')ﾉ串ちぇっか","204.116.62.49:80")

	If InStrRev(ProxyList,iProxy)<>0 Then
	MsgBox("すでにProxy.txtに書き込まれている(ﾟ∀ﾟ)ﾏｼﾞﾚｽ")

	Else

Proxy = ("http=" & iProxy)

Set WSHShell=Wscript.CreateObject("Wscript.Shell")
'以下3行で串切り替え&串のON,OFF切り替え
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer",Proxy,"REG_SZ"
WSHShell.RegWrite "HKu\S-1-5-21-1275210071-152049171-1957994488-1000\RemoteAccess\Profile",Proxy,"REG_SZ"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable","1","REG_DWORD"

WSHShell.RUN "browser.exe http://www.ugtop.com/"	'ProxyJudge

Alive = MsgBox("生きてた？",vbYesNo,"はいを選ぶとLOGに出力します")

	If Alive = 6 Then
		Set ObjText = ObjFS.GetFile("Proxy.txt")
		Set ObjPrxText = ObjText.OpenAsTextStream(8,0)
		ObjPrxText.WriteLine(iProxy)
		ObjPrxText.Close
	Else
	MsgBox("N0-Alive；" & iProxy)
	End If

End If

'Proxyの設定をOFFにする
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable","0","REG_DWORD"