IndeksPortalCalendarFAQPencarianPendaftaranAnggotaGroupLoginHack Tutorial

Share | 
 

 Di balik pembuatan sand king style flooder

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
AXDV00
ADMINISTRATOR
ADMINISTRATOR


Male
Jumlah posting : 320
Age : 31
Lokasi : c:/program files/puncak/city of evil
Job/hobbies : molototan monitor
Humor : wakakakaka..... kicked
mig33 id : sand.king
Registration date : 17.01.08

PostSubyek: Di balik pembuatan sand king style flooder   Sat Nov 15, 2008 4:23 pm

Langkah pertama kalian harus menguasai dulu VB




1. jalankan program vb
2. atur dan namai semua tool yang yang ingin di pake
3. dan ini codenya

[code]Dim FirstX, FirstY As Integer
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
Dim j As String
Private Function pl(lt As String)
If a = "" Then
a = lt
Call barrerbas
ElseIf b = "" Then
b = lt
ElseIf c = "" Then
c = lt
ElseIf d = "" Then
d = lt
ElseIf e = "" Then
e = lt
ElseIf f = "" Then
f = lt
ElseIf g = "" Then
g = lt
ElseIf h = "" Then
h = lt
ElseIf i = "" Then
i = lt
ElseIf j = "" Then
j = lt
Barrer
End If
entry.Text = entry.Text & lt
End Function
Private Sub bs_Click()
entry.Text = ""
If j <> "" Then
j = ""
entry.Text = a + b + c + d + e + f + g + h + i
ElseIf i <> "" Then
i = ""
entry.Text = a + b + c + d + e + f + g + h
ElseIf h <> "" Then
h = ""
entry.Text = a + b + c + d + e + f + g
ElseIf g <> "" Then
g = ""
entry.Text = a + b + c + d + e + f
ElseIf f <> "" Then
f = ""
entry.Text = a + b + c + d + e
ElseIf e <> "" Then
e = ""
entry.Text = a + b + c + d
ElseIf d <> "" Then
d = ""
entry.Text = a + b + c
ElseIf c <> "" Then
c = ""
entry.Text = a + b
ElseIf b <> "" Then
b = ""
entry.Text = a
ElseIf a <> "" Then
a = ""
barrerbas
End If
End Sub
Private Sub ca_Click()
Call pl("a")
End Sub
Private Sub cb_Click()
Call pl("b")
End Sub
Private Sub cc_Click()
Call pl("c")
End Sub
Private Sub cd_Click()
Call pl("d")
End Sub
Private Sub ce_Click()
Call pl("e")
End Sub
Private Sub cf_Click()
Call pl("f")
End Sub
Private Sub cg_Click()
Call pl("g")
End Sub
Private Sub ch_Click()
Call pl("h")
End Sub
Private Sub ci_Click()
Call pl("i")
End Sub
Private Sub cj_Click()
Call pl("j")
End Sub
Private Sub cl_Click()
a = ""
b = ""
c = ""
d = ""
e = ""
f = ""
g = ""
h = ""
i = ""
j = ""
entry.Text = ""
barrerbas
Barrer
End Sub

Private Sub Command1_Click()
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Timer1.Enabled = True

End Sub

Private Sub Command2_Click()
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Call pl("")
Timer1.Enabled = True

End Sub

Private Sub elf_Click()
Call pl("S")
Call pl("A")
Call pl("N")
Call pl("D")
Call pl(" ")
Call pl("K")
Call pl("I")
Call pl("N")
Call pl("G")
tim
End Sub
Private Sub entry_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
entry.BackColor = &HFF8080
entry.BackColor = &H800000
End Sub
Private Sub fy_Click()
Call pl("f")
Call pl("u")
Call pl("c")
Call pl("k")
Call pl(" ")
Call pl("y")
Call pl("u")
Call pl("o")
Call pl(" ")
Call pl("A")
Call pl("L")
Call pl("L")
tim
End Sub
Private Sub info_Click()
MsgBox "sand king style flooder, " + vbCrLf + "E-mail and mig33 id" + vbCrLf + "sand.king@mig33.com" + vbCrLf + vbCrLf + "To use, Select Pre-make text or" + vbCrLf + "select letter and click send then go" + vbCrLf + "in your msn window and let flooder Do the job!", vbInformation + vbOKOnly + vbMsgBoxSetForeground, "About sand.king style flooder."
End Sub
Private Sub k_Click()
Call pl("k")
End Sub
Private Sub l_Click()
Call pl("l")
End Sub
Private Sub lmao_Click()
Call pl("")
Call pl("")
Call pl("")
Call pl("")
tim
End Sub
Private Sub lol_Click()
Call pl("/")
Call pl("m")
Call pl("e")
tim
End Sub
Private Sub m_Click()
Call pl("m")
End Sub
Private Sub n_Click()
Call pl("n")
End Sub
Private Sub noob_Click()
Call pl("")
Call pl("")
Call pl("")
Call pl("")
tim
End Sub
Private Sub o_Click()
Call pl("o")
End Sub
Private Sub p_Click()
Call pl("p")
End Sub
Private Sub q_Click()
Call pl("q")
End Sub
Private Sub r_Click()
Call pl("r")
End Sub
Private Sub rofl_Click()
Call pl("/")
Call pl("f")
Call pl("o")
Call pl("r")
Call pl("t")
Call pl("u")
Call pl("n")
Call pl("e")
Timer1.Enabled = True
End Sub
Private Sub s_Click()
Call pl("s")
End Sub
Private Sub send_Click()
tim
End Sub
Private Sub space_Click()
Call pl(" ")
End Sub
Private Sub stfu_Click()
Call pl("/")
Call pl("r")
Call pl("o")
Call pl("l")
Call pl("l")
Timer1.Enabled = True
End Sub
Private Sub t_Click()
Call pl("t")
End Sub
Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
Call check
End Sub
Private Sub u_Click()
Call pl("u")
End Sub
Private Sub v_Click()
Call pl("v")
End Sub
Private Sub w_Click()
Call pl("w")
End Sub
Private Sub wtf_Click()
Call pl("/")
Call pl("8")
Call pl("b")
Call pl("a")
Call pl("l")
Call pl("l")
Timer1.Enabled = True
End Sub
Private Sub x_Click()
Call pl("x")
End Sub
Private Sub y_Click()
Call pl("y")
End Sub
Private Sub z_Click()
Call pl("z")
End Sub
Private Function Sa()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function

_____________________________________________




Kembali Ke Atas Go down
Lihat profil user http://cianjur33.forumotion.com
AXDV00
ADMINISTRATOR
ADMINISTRATOR


Male
Jumlah posting : 320
Age : 31
Lokasi : c:/program files/puncak/city of evil
Job/hobbies : molototan monitor
Humor : wakakakaka..... kicked
mig33 id : sand.king
Registration date : 17.01.08

PostSubyek: Re: Di balik pembuatan sand king style flooder   Sat Nov 15, 2008 4:24 pm

Private Function sb()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sc()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sd()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function se()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sf()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sg()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@@@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@@@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sh()
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function si()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sj()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sk()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:@:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sl()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sm()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:@:S:@:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sn()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:@:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function so()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sp()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sq()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@@@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:@:S"
SendKeys "+~"
SendKeys ":S:S:S:@@@:@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sr()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function ss()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@@@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function st()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@@@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function su()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sv()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sw()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:@:S"
SendKeys "+~"
SendKeys ":S:S:@:S:@:S:@:S"
SendKeys "+~"
SendKeys ":S:S:S:@@@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sx()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sy()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@:S:S:S:@:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sz()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@@@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:@:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:@:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:@@@@@:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function sspace()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function
Private Function Barrer()
ca.Enabled = Not ca.Enabled
cb.Enabled = Not cb.Enabled
cc.Enabled = Not cc.Enabled
cd.Enabled = Not cd.Enabled
ce.Enabled = Not ce.Enabled
cf.Enabled = Not cf.Enabled
cg.Enabled = Not cg.Enabled
ch.Enabled = Not ch.Enabled
ci.Enabled = Not ci.Enabled
cj.Enabled = Not cj.Enabled
k.Enabled = Not k.Enabled
l.Enabled = Not l.Enabled
m.Enabled = Not m.Enabled
n.Enabled = Not n.Enabled
o.Enabled = Not o.Enabled
p.Enabled = Not p.Enabled
q.Enabled = Not q.Enabled
r.Enabled = Not r.Enabled
s.Enabled = Not s.Enabled
t.Enabled = Not t.Enabled
u.Enabled = Not u.Enabled
v.Enabled = Not v.Enabled
w.Enabled = Not w.Enabled
x.Enabled = Not x.Enabled
y.Enabled = Not y.Enabled
z.Enabled = Not z.Enabled
space.Enabled = Not space.Enabled
End Function
Private Function barrerbas()
fy.Enabled = Not fy.Enabled
stfu.Enabled = Not stfu.Enabled
lol.Enabled = Not lol.Enabled
wtf.Enabled = Not wtf.Enabled
lmao.Enabled = Not lmao.Enabled
noob.Enabled = Not noob.Enabled
rofl.Enabled = Not rofl.Enabled
elf.Enabled = Not elf.Enabled
End Function
Private Function check()
If a <> "" Then
checker a
a = ""
ElseIf b <> "" Then
checker b
b = ""
ElseIf c <> "" Then
checker c
c = ""
ElseIf d <> "" Then
checker d
d = ""
ElseIf e <> "" Then
checker e
e = ""
ElseIf f <> "" Then
checker f
f = ""
ElseIf g <> "" Then
checker g
g = ""
ElseIf h <> "" Then
checker h
h = ""
ElseIf i <> "" Then
checker i
i = ""
ElseIf j <> "" Then
checker j
j = ""
Else
Timer2.Enabled = False
Send.Enabled = True
Barrer
barrerbas
cl.Enabled = True
bs.Enabled = True
End If
End Function
Private Function tim()
Barrer
fy.Enabled = False
stfu.Enabled = False
lol.Enabled = False
wtf.Enabled = False
lmao.Enabled = False
noob.Enabled = False
rofl.Enabled = False
elf.Enabled = False
Send.Enabled = False
entry.Text = ""
Timer1.Enabled = True
cl.Enabled = False
bs.Enabled = False
End Function
Private Sub cmdX_Click()
Unload Me
End Sub
Private Sub cmdX_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
cmdX.ForeColor = &HC00000
End Sub
Private Sub info_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
info.ForeColor = &HC00000
End Sub
Private Sub title_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
FirstX = x
FirstY = y
End If
End Sub
Private Sub title_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Me.Left = Me.Left + (x - FirstX)
Me.Top = Me.Top + (y - FirstY)
End If
cmdX.BackColor = &HFF8080
info.BackColor = &HFF8080
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
entry.BackColor = &HFF8080
cmdX.ForeColor = &HFFFFFF
End Sub
Private Function checker(lett As String)
Select Case lett
Case "a"
Sa
Case "b"
sb
Case "c"
sc
Case "d"
sd
Case "e"
se
Case "f"
sf
Case "g"
sg
Case "h"
sh
Case "i"
si
Case "j"
sj
Case "k"
sk
Case "l"
sl
Case "m"
sm
Case "n"
sn
Case "o"
so
Case "p"
sp
Case "q"
sq
Case "r"
sr
Case "s"
ss
Case "t"
st
Case "u"
su
Case "v"
sv
Case "w"
sw
Case "x"
sx
Case "y"
sy
Case "z"
sz
Case " "
sspace
End Select
End Function

_____________________________________________




Kembali Ke Atas Go down
Lihat profil user http://cianjur33.forumotion.com
pdo
NEWBIE
NEWBIE


Jumlah posting : 9
mig33 id : pdo | virust_cinta
Registration date : 05.09.08

PostSubyek: Re: Di balik pembuatan sand king style flooder   Tue Nov 18, 2008 4:37 am

wew....
fluder.... thanks 4 share bro sand king...
Kembali Ke Atas Go down
Lihat profil user
riean_04
MODERATOR
MODERATOR


Male
Jumlah posting : 83
Age : 29
Lokasi : indonesia
Job/hobbies : student in mig33 school
mig33 id : riean_04
Registration date : 04.05.08

PostSubyek: Re: Di balik pembuatan sand king style flooder   Tue Dec 16, 2008 10:15 am

waduh lieur um
Kembali Ke Atas Go down
Lihat profil user
AXDV00
ADMINISTRATOR
ADMINISTRATOR


Male
Jumlah posting : 320
Age : 31
Lokasi : c:/program files/puncak/city of evil
Job/hobbies : molototan monitor
Humor : wakakakaka..... kicked
mig33 id : sand.king
Registration date : 17.01.08

PostSubyek: Re: Di balik pembuatan sand king style flooder   Tue Dec 23, 2008 2:20 pm

bir wauh lier kunpa om??????????????

_____________________________________________




Kembali Ke Atas Go down
Lihat profil user http://cianjur33.forumotion.com
Galford
NEWBIE
NEWBIE


Male
Jumlah posting : 10
Age : 34
Lokasi : Bogor
Job/hobbies : Chat
Humor : I like flooder
mig33 id : -
Registration date : 23.01.09

PostSubyek: Re: Di balik pembuatan sand king style flooder   Fri Feb 06, 2009 1:35 pm

cpd Crying or Very sad
Kembali Ke Atas Go down
Lihat profil user
Galford
NEWBIE
NEWBIE


Male
Jumlah posting : 10
Age : 34
Lokasi : Bogor
Job/hobbies : Chat
Humor : I like flooder
mig33 id : -
Registration date : 23.01.09

PostSubyek: Re: Di balik pembuatan sand king style flooder   Sun Feb 15, 2009 10:02 pm

Ajarin yg detail nya dunk b0z
Kembali Ke Atas Go down
Lihat profil user
jaka2
MEMBER AKTIV
MEMBER AKTIV


Female
Jumlah posting : 13
Age : 33
Lokasi : gg
Job/hobbies : gg
Humor : gg
mig33 id : -gg
Registration date : 12.04.09

PostSubyek: Re: Di balik pembuatan sand king style flooder   Tue Apr 21, 2009 9:19 pm

Kembali Ke Atas Go down
Lihat profil user
jaka2
MEMBER AKTIV
MEMBER AKTIV


Female
Jumlah posting : 13
Age : 33
Lokasi : gg
Job/hobbies : gg
Humor : gg
mig33 id : -gg
Registration date : 12.04.09

PostSubyek: Re: Di balik pembuatan sand king style flooder   Fri May 01, 2009 12:41 pm






WAW MANTAP







                                                                                                    


`..`
`:jakahasleft+:.`
.+migger cilamaya:`
`+o+/+///+++oo+//++sy-
.so///::::--::::://++oh:
+o+///::::::::::://++osy
o++///////////////++++oy.
:++//+++++///++++++++++s.
.o///+oyhyo+/+oshhs++/+o+:
Surprised+//:::/+//:::///::://+so-
`/+o//::-://+++++/:://+++-
.//////+++++o++++/+++/`
-//++jakahasentered+++++`
-/++//++ooo+//++/`
.:oo++//////+osso+/-.``
`-:/++osssssyyyssso++///:::-`
`.---::::///++ooo+++/////:::::::-
`------------::::::::::::::::::/::/-
.:--------------------:---::::://:://`
.::----:/:------------::---::::/+/:///:
`::::-:::+/::---------::::::::::/++/:://-
::::::://o+/::--:::::::::::::///++o/::::/.
-::-::://+s+////////:::::::::://++ss+///::/`
`:::::://+ssooo+++//::::-----::///++yo+++///:
:///////+oyso+++//:::::------::::///+yo/:::/+
//////////+o++//////::::::::::::///+-+/:://++
-//////////////////::::::::::::///++o+////+o/
./++++//////////////////////////++os//:/++o.
.:++++++++///////+:----:::////++s+////+o:
.//+oosss+/////+++:.```````..-:////++oo/:--.`
`.///+osyyyy+++++o+++:..``..-://///+++osso/////+:`
`..////////+syo+o++soo/.`..-://++//+++oyyo//://////-
.-:////::////+ssososo/-...``.:://++++ooss+///+/////+/`
.://////:::///+ooo+:-...``````-+oo+++o+os++o+//:::////:`
`-+/////::::::////-......````./o+o++o+/:ysso/////::::///-.`````````````
`://///:::::::///:-..........-::+//+:--+/:://///:::::::::::::::///++++-
`-//////::::://://:--............--... -///////::::::::::///+++oss/
./////////::///////.`````` .--:/+////////////+++++oo-
`-////////////++++/:. -//+++//////+++/o+`
`.-:////+//+++++//+:
`..:++++++++:`
./+o+:.`








Kembali Ke Atas Go down
Lihat profil user
Sponsored content




PostSubyek: Re: Di balik pembuatan sand king style flooder   Today at 11:25 pm

Kembali Ke Atas Go down
 
Di balik pembuatan sand king style flooder
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Melayani Jasa Pembuatan Surat2......
» sharing di sini yok bro,bahan-bahan/ material pembuatan knalpot..
» king queen
» Biaya balik nama Ninja 250 utk wilayah jkt barat
» Biaya Balik Nama NINJA apa bener 4 jt??

Permissions in this forum:Anda tidak dapat menjawab topik
 :: "INTERNET & COMPUTER" :: " PEMOGRAMAN, PHP, SQL., VB, C++, DELPI DLL "-
Navigasi: