:: Vladimir Penetration Labs ::

Hallo,lagi jalan2 ke forum sebelah nemu Trik buat Memudahkan Registry GWarnet untuk game Gemscool nih , langsung aja curi Source Code dibawah ini ;)

On Error Resume Next
fid=InputBox("Masukkan ID G-Warnet anda", "ID")

If fid = "" then
WScript.quit
End if

fpass=InputBox("Masukkan PASSWORD G-Warnet anda", "PASSWORD")

Set http = CreateObject("Microsoft.XmlHttp")
http.open "POST", "http://account.gemscool.com/warnet/login.php?id=" + fid + "&pwd=" + fpass, FALSE
http.send ""

Set xmlDoc = CreateObject( "Microsoft.XMLDOM" )
xmlDoc.async = False
xmlDoc.loadXML(http.responseText)

resultCode = xmlDoc.getElementsByTagName("resultCode").item(0).text


if resultCode = "S000" Then
wn = xmlDoc.getElementsByTagName("wn").item(0).text

Set TypeLib = CreateObject("Scriptlet.TypeLib")
pcKey = Mid(TypeLib.Guid, 2, 36)

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Gemscool\Premium\key", pcKey, "REG_SZ"

pc_name = WshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration WHERE IPEnabled='TRUE'",,48)
For Each objItem in colItems
http.open "POST", "http://account.gemscool.com/warnet/addWarnetPC.php?wn=" + wn + "&macAddr=" + objItem.MACAddress+ "&pcKey=" + pcKey + "&pcIp=" + objItem.IPAddress(0) + "&pcNm=" + pc_name, FALSE
http.send ""
Next
Wscript.Echo "PC ini telah sukses terdaftar di G-Warnet."
else
Wscript.Echo "PC ini telah gagal terdaftar di G-Warnet."
end if

set http = nothing