• Silahkan bergabung dengan chat kami di Telegram group kami di N3Forum - https://t.me/n3forum
  • Welcome to the Nyit-Nyit.Net - N3 forum! This is a forum where offline-online gamers, programmers and reverser community can share, learn, communicate and interact, offer services, sell and buy game mods, hacks, cracks and cheats related, including for iOS and Android.

    If you're a pro-gamer or a programmer or a reverser, we would like to invite you to Sign Up and Log In on our website. Make sure to read the rules and abide by it, to ensure a fair and enjoyable user experience for everyone.

N3 [vBs] GWarnet PC Registry

dono

3 SMP
STAFF N3
Tukang Sapu
GWarnet_PC_Registry.vbs
Released by Lucubrb Kjt on Friday, 7 September 2012 at 19:23

Funsi: Untuk memudahkan dalam registrasi GWarnet untuk Game Gemscool.

Save code dibawah ini dalam bentuk .vbs di desktop anda.


Code:
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

Source: https://www.facebook...451942971513083
Credits: @lucubrb
 
Last edited:

hugosmike

1 SD
Level 2
asking bro donQ

untuk memudahkan dalam arti kita langsung terdaftar GW di PC yg kita run Vbsnya nanti ?
ini ilegal nggak ya , apa ada efek block ip client ?
terimakasih sebelumnya :cool:
 

Ri7N

2 SD
Level 2
asking bro donQ

untuk memudahkan dalam arti kita langsung terdaftar GW di PC yg kita run Vbsnya nanti ?
ini ilegal nggak ya , apa ada efek block ip client ?
terimakasih sebelumnya :cool:
ini semacam PC registry milik GW yang didownload di gw tetapi dengan applikasi diatas iini lebih mudah dari GW pc registry
 

dandie

TK A
Level 1
wow... itu itungan'a modem apa aja bisa Gwarnet donk bang dono....
coba deh saya test nanti... thx Info nya... :D
 

k4bayan

1 SMP
Level 2
nanya dong bos ane newbie.
itu biar format vbs pake apa yh?
Buka Notepad : isikan code Tersebut :
Code:
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
Lalu Save as dengan Nama : GWarnet_PC_Registry.vbs
 

Lunaticzi

PAUD
Level 1
om dono . ini di save di mana dan setelah di save dengan format tsb . lalu di apakan lg ?
mohon bantuannya yaaa
ane newbie nih . hehe
 

sinwae

TK B
Level 1
Buka Notepad : isikan code Tersebut :
Code:
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
Lalu Save as dengan Nama : GWarnet_PC_Registry.vbs
emang bisa pkek notepad :bingung:
 

budybhc

TK A
Banned
udh ane coba masih tidak bisa om, malahan pas masuk ke pb gx ada gwarnet nya mohon penjelasan lebih lanjut
 

little.xc0de

TK B
Level 2
baca lagi om :D
Fungsi: Untuk memudahkan dalam registrasi GWarnet untuk Game Gemscool.
emang bisa pkek notepad :bingung:
udh ane coba masih tidak bisa om, malahan pas masuk ke pb gx ada gwarnet nya mohon penjelasan lebih lanjut
Kaks, ini Registry Pc. Bukan REGISTRASI. ~_~
Tetap saja kita mendaftar ke Gwarnet nya, setelah komputer kita terdaftar di Gwarnet, maka kita melakukan PC registry.
Jadi ketika Gwarnet sudah mengaktifkan PC kita, karena sudah di registry maka kita sudah bisa mendapatkan fitur Gwarnet.

Cmiiw
 

Kudoro

TK B
Level 1
Untuk Yang Gagal Terdaftar Gwarnet :
Habis Di Coba Gagal Terdaftar Blablabla Gitu Deh .
Jadi Gini Baru Tadi Di Coba , Jadi MAC Address Yang Di Pakai Di PC Itu Harus Terdaftar Di ID Gwarnet Kita , Misalnya ID : nyitnyitnet Password : nyiters < Login ke GWarnet.oncom , nah kalo kita beli g.gold ada tuh mac nya ( Sorry Belit Belit )

Jadi Intinya , MAC Yang kita pakai itu harus terdaftar di Account Gwarnet masing masing .

kalo salah kasih tau ya , barusan di coba emang begitu hasilnya :D
 
Top