Membuat Aplikasi Banned Generator Menggunakan Visual Basic (VB)

dearl all,
kadang bete juga kalo plud zombie masuk room bikin sesak room atau malah terbilang cukup mengganggu, udah gitu begitu banyak nick keluar masuk bikin sakit mata ^_^, kesempatan kali ini saya akan ajarkan teknik pembuatan aplikasi ban generator. Aplikasi ini adalah program yang akan generate script secara masal nick zombie. Misal kita ingin ban nick zombie sebanyak 2000 nick, maka tinggal jalan kan aplikasi ini dan script yang dihasilkan tinggal di copas kemudian jalankan pake xml console pada aplikasi jabber chat mu, misal gunakan miranda saja.
ikuti spesifikasi teknis dibawah ini :

- buat sebuah form baru
- beri 5 label kemudian beri nama "nickname" "index" "to" "nama room" affiliation"
- beri 5 buah textbox lalu tempatkan pada masing-masing posisi nickname, antara index dan to dan pada
bagian nama room
- kemudian beri combo box tempatkan pada bagian affiliation
- beri juga tombol beri nama "execute"
- beri 1 buah text box lagi sebagai tempat hasil keluaran
- dan beri 1 tombol lagi beri nama "clear"
- jangan rubah masing-masing name control diatas cukup rubah captionnya saja
bila jadi akan tampak seperti gambar dibawah ini

bila telah jadi seperti gambar diatas double clik control tombol "execute", kemudian copas isi atau semua routine dibawah ini :
Private Sub Command1_Click()
Dim angka1 As Integer
Dim angka2 As Integer
Dim strban As String
Dim i As Integer
If angka2 - angka1 > 400 Then
MsgBox "maksimun sekali ban cuma 400 nick aja", vbCritical, "error"
Exit Sub
End If
If Text1.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Combo1.Text = "" Or Text5.Text = "" Then
MsgBox "semua harus dilengkapi baru bisa lanjut", vbCritical, "Error"
Exit Sub
End If

strban = ""
angka1 = CInt(Text3.Text)
angka2 = CInt(Text4.Text)
strban = strban & "<iq type='set' to='" & Text5.Text & "@conference.nimbuzz.com' id='romeo_100'><query xmlns='http://jabber.org/protocol/muc#" & Combo1.Text & "'>" & vbCrLf
For i = angka1 To angka2
strban = strban & "<item jid='" & Text1.Text & i & "@nimbuzz.com' affiliation='outcast'/>" & vbCrLf
Next
strban = strban & "</query></iq>"
Text2.Text = strban
End Sub

dan double click tombol "clear" lalu copas isi atau semua routine dibawah ini :
Private Sub Command2_Click()
Text2.Text = ""
End Sub


bila selesai dibuat silahkan di running pencet tombol F5, lalu test aplikasi diatas, hasil script silahkan copas dan jalankan melalui xml console aplikasi chat misal miranda

sekian sesi training hari ini, selamat bertemu pada sesi training aku selanjutnya

peace ah

romeo must die