N3 [Tutorial] Login Web N3 VB.net

[rekhan]

hai sobat N3...

kali ini saya akan memberi tutor bagaimana membuat login web menggunakan VB.net

langsung saja.

bikin

- 2 Label
- 2 TextBox
- 1 Button
- 1 WebBrowser

tampilan sebagai berikut :

Spoiler

(gambar hilang)

Source Code :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.nyit-nyit.net/index.php?app=core&module=global&section=login")
WebBrowser1.ScriptErrorsSuppressed = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allelements As HtmlElementCollection = WebBrowser1.document.All
WebBrowser1.document.GetElementById("ips_username").SetAttribute("value", TextBox1.Text)
WebBrowser1.document.GetElementById("ips_password").SetAttribute("value", TextBox2.Text)

For Each webpageelement As HtmlElement In allelements
If webpageelement.GetAttribute("value") = "Masuk" Then
If webpageelement.GetAttribute("tabindex") = "3" Then
webpageelement.InvokeMember("click")
End If
End If
Next
End Sub

tampilan setelah di build sebelom login :

Spoiler

(gambar hilang)

tampilan setelah di build sesudah login :

Spoiler

(gambar hilang)

source ini bisa dikembangkan lagi untuk membuat aplikasi khusus member N3,jadi selain member tidak bisa menggunakan nya.

semoga bermanfaat.

 

[BaliSiahaan]

Jadi Source Code ini bisa Di gunakan untuk Login website lain...Slain N3 Secara Lebih aman... ?
Dengan Cara Mengganti link ..... ?

Apa Program ini Dapat Menghindari Dari Aksi Keylogger ?

 

[Ri7N]

Jadi Source Code ini bisa Di gunakan untuk Login website lain...Slain N3 Secara Lebih aman... ?
Dengan Cara Mengganti link ..... ?

Apa Program ini Dapat Menghindari Dari Aksi Keylogger ?

kalau keylogger udah merajalela di komputer anda pasti tetap gak aman

 

[dimaslos]

ips_username dan ips_password itu dapetnya dr mana kk? kalo web lain apakah berbeda?

 

[Rakagi]

ips_username dan ips_password itu dapetnya dr mana kk? kalo web lain apakah berbeda?

Itu Dapat Nya Dari Inpect Element Gan #Di Google Crome Tinggal Klik Kanan

Disitu Ada Value Nya

 

[Hexa_Novuz]

Bisa jadi Alternatif Log-in dan Menarik Untuk di coba. Klo bisa agan kasih Tutor berupa Video.. mungkin ada yg belum paham. thx

 

[Adiman]

Saya ingin memasangnya di Proggram cheat khusus member N3 .. Bagaimana cara menggabungkanya ?? Dan misalkan Sudah Login otomatis Exit langsung buka Proggram cheatnya itu .. Mohon bantuanya ya

 

[eko123]

ips_username dan ips_password itu dapetnya dr mana kk? kalo web lain apakah berbeda?

ente klik kanan di kolom username/passwordnya gan, trus liat bagian id="username(contoh)"

 

[irvangen]

Saya ingin memasangnya di Proggram cheat khusus member N3 .. Bagaimana cara menggabungkanya ?? Dan misalkan Sudah Login otomatis Exit langsung buka Proggram cheatnya itu .. Mohon bantuanya ya

tinggal bro gabungin saja SCnya or add new form. Untuk exit tambah commondbutton dan coding bro.

 

[LeakN3]

Saya ingin memasangnya di Proggram cheat khusus member N3 .. Bagaimana cara menggabungkanya ?? Dan misalkan Sudah Login otomatis Exit langsung buka Proggram cheatnya itu .. Mohon bantuanya ya

kira kira kayak gini kodingnya gan :dizzy:
tapi ane juga masih newbie di vb.net hehehe
kalau salah mohon maafnya

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.nyit-nyit.net/index.php?app=core&module=global&section=login")
WebBrowser1.ScriptErrorsSuppressed = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allelements As HtmlElementCollection = WebBrowser1.document.All
WebBrowser1.document.GetElementById("ips_username").SetAttribute("value", TextBox1.Text)
WebBrowser1.document.GetElementById("ips_password").SetAttribute("value", TextBox2.Text)

For Each webpageelement As HtmlElement In allelements
If webpageelement.GetAttribute("value") = "Masuk" Then
If webpageelement.GetAttribute("tabindex") = "3" Then
webpageelement.InvokeMember("click")

End If
End If
Next
Form2.Show() 'selanjutnya form2 muncul
End Sub
End Class

 

[yoan2]

Ini Eror kenapa ya ...?

 

[dante7867]

wah menarik nih buat dikembangin XD

 

[RavenGa]

mau nanya nih ! klo misal kan source code nya di pake buat ke injektor bisa gak ??

maksud : saya,saya mau injaktor cheat,tapi injektor nya mau saya bikin login , tapi login nya pake ID member N3 bisa gak bang ?


klo bisa saya mau test

 

[Gueq]

ini winform doang ya
untuklogin via winform di vb
vb net jg bisa

 

[rekhan]

Ого, а почему вы рекламируете азартные игры онлайн?

 

[dionakatzlein]

Biasa akun bot suka gitu