N3 [vBs] GWarnet PC Registry

Discussion in 'N3 Source Codes dan Tutorials' started by dono, Sep 10, 2012.

Discuss [vBs] GWarnet PC Registry in the N3 Source Codes dan Tutorials area at Nyit-Nyit.Net

  1. dono 3 SMP STAFF N3 Tukang Sapu

    Messages:
    2,399
    Likes Received:
    2,569
    Trophy Points:
    141
    Game:
    Dota 2
    Region:
    Australia
    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@lucubrb
     
    Last edited: Jul 7, 2014
    sixth69, inno2882, popbpn and 4 others like this.

    Gunakan jasa Rekber N3 untuk menjamin jual beli anda atau menghindari penipuan dengan meng klik disini
  2. hugosmike 1 SD Level 2

    Messages:
    210
    Likes Received:
    9
    Trophy Points:
    43
    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:
     
  3. Ri7N 2 SD Level 2

    Messages:
    330
    Likes Received:
    18
    Trophy Points:
    46
    ini semacam PC registry milik GW yang didownload di gw tetapi dengan applikasi diatas iini lebih mudah dari GW pc registry
     
  4. dandie TK 0 Kecil Level 1

    Messages:
    50
    Likes Received:
    1
    Trophy Points:
    33
    Game:
    Dota 2
    wow... itu itungan'a modem apa aja bisa Gwarnet donk bang dono....
    coba deh saya test nanti... thx Info nya... :D
     
  5. himatika Pra TK Level 1

    Messages:
    25
    Likes Received:
    0
    Trophy Points:
    26
    nanya dong bos ane newbie.
    itu biar format vbs pake apa yh?
     
  6. k4bayan 1 SMP Level 2

    Messages:
    1,224
    Likes Received:
    110
    Trophy Points:
    90
    Game:
    Dota 2
    Region:
    Bandung
    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
     
  7. oktav20 TK 0 Kecil Level 1

    Messages:
    91
    Likes Received:
    3
    Trophy Points:
    35
    mw tanya nih... gw kok selalu gagal terdaftar ya.....ap ad yg salah....???
     
  8. himatika Pra TK Level 1

    Messages:
    25
    Likes Received:
    0
    Trophy Points:
    26
    oiya udh ane ikutin yg diatas trus minta id warnet ama passnya?
     
  9. Lunaticzi Pra TK Level 1

    Messages:
    43
    Likes Received:
    0
    Trophy Points:
    31
    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
     
  10. revenge09 Pra TK Banned

    Messages:
    21
    Likes Received:
    1
    Trophy Points:
    0
    mohon tutornya di perjelas mas dono..

    terima kasih.
     
  11. gredy145 Pra TK Level 1

    Messages:
    14
    Likes Received:
    0
    Trophy Points:
    26
    maaf gan, ini kena biaya Registrasinya atau engga ya ??
     
  12. koben666 1 SD Level 2

    Messages:
    274
    Likes Received:
    33
    Trophy Points:
    28
    baca lagi om :D
    Fungsi: Untuk memudahkan dalam registrasi GWarnet untuk Game Gemscool.
     
  13. sinwae TK 0 Besar Level 1

    Messages:
    177
    Likes Received:
    1
    Trophy Points:
    43
    emang bisa pkek notepad :bingung:
     
  14. budybhc TK 0 Kecil Banned

    Messages:
    75
    Likes Received:
    64
    Trophy Points:
    0
    udh ane coba masih tidak bisa om, malahan pas masuk ke pb gx ada gwarnet nya mohon penjelasan lebih lanjut
     
  15. little.xc0de TK 0 Besar VIP Donatur

    Messages:
    153
    Likes Received:
    19
    Trophy Points:
    43
    Game:
    Dragonest
    Region:
    Cirebon
    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
     
  16. Kudoro TK 0 Besar Level 1

    Messages:
    107
    Likes Received:
    35
    Trophy Points:
    53
    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
     
  17. alfinmen0904 TK 0 Besar Level 1

    Messages:
    109
    Likes Received:
    4
    Trophy Points:
    43
    Game:
    Point Blank
    saya ada id dan pass gwarnet kan... terus di PC regiter.. apakah langsung aktif kah Gwarnetnya?
     
  18. lordmulder Pra TK Level 0

    Messages:
    14
    Likes Received:
    0
    Trophy Points:
    26
    masih gak ngerti saya om, nyimak aja deh :D
     
  19. PakTaniTambak Belum Sekolah Level 0

    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    1
    Game:
    Point Blank
    Region:
    Sidoarjo
    nyimak aja masih lom mudeng......
     
  20. benjo123 Belum Sekolah Level 0

    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    3
    Game:
    Tidak Ada
    Region:
    Unknown

Share This Page