N3 [vBs] GWarnet PC Registry

[dono]

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.

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

 

[hugosmike]

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

 

[Ri7N]

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

ini semacam PC registry milik GW yang didownload di gw tetapi dengan applikasi diatas iini lebih mudah dari GW pc registry

 

[dandie]

wow... itu itungan'a modem apa aja bisa Gwarnet donk bang dono....
coba deh saya test nanti... thx Info nya...

 

[himatika]

nanya dong bos ane newbie.
itu biar format vbs pake apa yh?

 

[k4bayan]

nanya dong bos ane newbie.
itu biar format vbs pake apa yh?

Buka Notepad : isikan code Tersebut :

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

 

[oktav20]

mw tanya nih... gw kok selalu gagal terdaftar ya.....ap ad yg salah....???

 

[himatika]

oiya udh ane ikutin yg diatas trus minta id warnet ama passnya?

 

[Lunaticzi]

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

 

[revenge09]

mohon tutornya di perjelas mas dono..

terima kasih.

 

[gredy145]

maaf gan, ini kena biaya Registrasinya atau engga ya ??

 

[koben666]

wow... itu itungan'a modem apa aja bisa Gwarnet donk bang dono....
coba deh saya test nanti... thx Info nya...

baca lagi om
Fungsi: Untuk memudahkan dalam registrasi GWarnet untuk Game Gemscool.

 

[sinwae]

Buka Notepad : isikan code Tersebut :

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]

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

 

[little.xc0de]

baca lagi om
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]

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

 

[alfinmen0904]

saya ada id dan pass gwarnet kan... terus di PC regiter.. apakah langsung aktif kah Gwarnetnya?

 

[lordmulder]

masih gak ngerti saya om, nyimak aja deh

 

[PakTaniTambak]

nyimak aja masih lom mudeng......

 

[benjo123]

thx