0 Membuat Web Browser Sederhana Dengan VB .NET

By Unknown | At 21.15 | Label : Programming , VB .NET | 0 Comments

Web Browser kali ini fungsinya sama seperti web browser  pada umumnya, hanya saja saya bagiin code sama cara buatnya.Penampilan warna dan design lainya anda tmbahkan sendiri saja.

Ini hasil web browser sederhana:

Membuatnya sangat gampang, oke caranya:

1.Buka VB .Net kamu terserah 2008 2010 atau 2012
2.Pilih Windows Application seperti biasa,

Selanjutnya design form seperti ini:

3.Code
Double click tombol button1 (textnya di ganti = Search)

WebBrowser1.Navigate(TextBox1.Text)

4.Run program F5,
-------- Coba tuliskan pukeryan.blogspot.com di textbox 1 , dan click tombol Search, maka Blog ini akan muncul ---------

Have fun with your Browser.

1 Cara Membuat KeyGen Dengan VB .NET

By Unknown | At 16.50 | Label : Programming , VB .NET | 1 Comments

KeyGenerator(KeyGen) berfungsi sebagai tempat penyimpanan serial number yg sudah di sediakan, dan di masukan dalam program untuk membuat output tampilan lebih menarik atau bahkan ada yg membuat link di dalam keygen untuk promosi.

Langsung saja, keygen ini di buat sesimplenya, ingat "Anda harus mempunyai serial number untuk di masukan ke program nnti" ,KeyGen ini bukan untuk crack software, hanya perantara menampilkan serial number.

Buka VB netnya,
Design form seperti ini:

Masukan script ini, pada tombol button1( Text = Generate):

TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "CG523 - AB563 - AB234 - AD412 - ASD42"
Case 1
TextBox1.Text = "00312 - 41241 - 41524 - 12412 - 54123"
Case 2
TextBox1.Text = "11123 - D51f2 - 5124F - 1D123 - 5F123"
Case 3
TextBox1.Text = "0031T - 1F141 - F12S1 - B5431 - 4123G"
Case 4
TextBox1.Text = "13512 - 51242 - G1412 - 51234 - 15125"
Case 5
TextBox1.Text = "15125 - 25123 - 62321 - 34231 - 45134"
End Select

Lalu tombol button2(Text = Generate)

TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 0
TextBox2.Text = "CG523 - AB563 - AB234 - AD412 - ASD42"
Case 1
TextBox2.Text = "00312 - 41241 - 41524 - 12412 - 54123"
Case 2
TextBox2.Text = "11123 - D51f2 - 5124F - 1D123 - 5F123"
Case 3
TextBox2.Text = "0031T - 1F141 - F12S1 - B5431 - 4123G"
Case 4
TextBox2.Text = "13512 - 51242 - G1412 - 51234 - 15125"
Case 5
TextBox2.Text = "15125 - 25123 - 62321 - 34231 - 45134"
End Select

-------------------------------------------------------------------------------------------
» Silahkan ganti Angka dan Nomor di atas, Dengan SERIAL Number mu «

Jalankan programnya(F5),
Have Fun with you KeyGenerato.