Mã:
- Code:
Check nick an by THĐ - id1985
username = InputBox ("Nhap Nick Can Kiem Tra")
Randomize
a=Int( ( 100000000 - 1 + 1 ) * Rnd + 1 )
b=Int( ( 100000000 - 1 + 1 ) * Rnd + 1 )
c="0."&a&b
Dim http
Set http = CreateObject("MSXML2.ServerXMLHTTP")
http.Open "GET", "http://www.younup.com/younup.php?q="&username&"&sid="&c, False
http.setRequestHeader "User-Agent","Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.9.1.5) Gecko/20091102 Firefox/3.5.5"
http.setRequestHeader "Accept","text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
http.setRequestHeader "Accept-Language","en-us,en;q=0.5"
http.setRequestHeader "Accept-Encoding","gzip,deflate"
http.setRequestHeader "Accept-Charset","ISO-8859-1,utf-8;q=0.7,*;q=0.7"
http.setRequestHeader "Keep-Alive","300"
http.setRequestHeader "Connection","keep-alive"
http.setRequestHeader "Referer","http://www.younup.com/"
http.send()
kq=http.responseText
if kq="1" then
wscript.echo "Online"
elseif kq="2" then
wscript.echo "Offline"
elseif kq="5" then
wscript.echo "Server Busy"
else
wscript.echo "An nick"
end if
Save code thành file .vbs rồi click lên mà chạy