HomePortalGalleryFAQMemberlistUsergroupsSearchRegisterLog in

Share | 
 

 Di balik pembuatan sand king style flooder

View previous topic View next topic Go down 
AuthorMessage
AXDV00
Helper
Helper


Male
Number of posts : 478
Age : 30
Location : c:/program files/puncak/city of evil
Mig33 ID : sand.king
Room : bandung 17, cipanas, cianjur
Points : 113
Registration date : 2007-12-28

PostSubject: Di balik pembuatan sand king style flooder   Mon 17 Nov 2008, 12:11 am



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:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "~"
End Function

_________________


GEM-PARK HACKER COMUNITY
Back to top Go down
View user profile http://live-record.co.cc/
AXDV00
Helper
Helper


Male
Number of posts : 478
Age : 30
Location : c:/program files/puncak/city of evil
Mig33 ID : sand.king
Room : bandung 17, cipanas, cianjur
Points : 113
Registration date : 2007-12-28

PostSubject: Re: Di balik pembuatan sand king style flooder   Mon 17 Nov 2008, 12:13 am

Private Function sb()
SendKeys ":S:S:S:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart: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:heart:@I love you@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@: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:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart: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:heart:@I love you@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@: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:heart:@I love you@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart: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:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:heart: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:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart: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:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart: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:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@: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:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart: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:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@: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:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:S:heart:@:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart: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:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:@:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart: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:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@: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:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart: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:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:@:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@I love you@: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:heart:@I love you@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart: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:heart:@:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@:heart: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:heart:@I love you@:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart: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:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@: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:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart: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:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:heart:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:@:heart: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:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:S:S:S:heart: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:heart:S:S:S:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart: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:heart:@I love you@:heart:S"
SendKeys "+~"
SendKeys ":S:S:S:S:S:heart:S:S"
SendKeys "+~"
SendKeys ":S:S:S:S:heart:S:S:S"
SendKeys "+~"
SendKeys ":S:S:S:heart:S:S:S:S"
SendKeys "+~"
SendKeys ":S:S:heart:@I love you@:heart: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

_________________


GEM-PARK HACKER COMUNITY
Back to top Go down
View user profile http://live-record.co.cc/
AXDV00
Helper
Helper


Male
Number of posts : 478
Age : 30
Location : c:/program files/puncak/city of evil
Mig33 ID : sand.king
Room : bandung 17, cipanas, cianjur
Points : 113
Registration date : 2007-12-28

PostSubject: Re: Di balik pembuatan sand king style flooder   Mon 17 Nov 2008, 12:15 am

kiss kiss kiss kiss


BAGI KALIAN............. YANG INGIN MEROBAHNYA SILAHKAN TINGAL DI COPY PASTE AJA CODE INI..................!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



SELAMAT BEREXPEDISI....!!!!!!!!!!!!!!!!!


CLICK DISINI UNTUK APPNYA

_________________


GEM-PARK HACKER COMUNITY
Back to top Go down
View user profile http://live-record.co.cc/
sh1noby
Administrator
Administrator


Male
Number of posts : 473
Age : 33
Location : Bandung
Mig33 ID : sh1noby
Room : - BANDUNG - bandung 17 - bandung. - dan ngabolang
Points : 33
Registration date : 2007-12-25

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

lol! DIPOSTING JUGA UY SOURCE CODE NA

NUHUN AH...........

beanda

_________________




MIG33 BANDUNG COMMUNITY
Back to top Go down
View user profile http://mig33bandung.forumotion.com
wpu
Moderator
Moderator


Male
Number of posts : 442
Age : 34
Location : Jakarta pusat
Mig33 ID : wpu
Room : Cempaka mas
Points : 0
Registration date : 2008-10-08

PostSubject: Re: Di balik pembuatan sand king style flooder   Sat 22 Nov 2008, 3:30 am

mantap kiss kiss kiss
Back to top Go down
View user profile
Sponsored content




PostSubject: Re: Di balik pembuatan sand king style flooder   Today at 6:52 am

Back to top Go down
 
Di balik pembuatan sand king style flooder
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» XOUNTS Style Contest 2011
» My Suzuki My Style" Photo Contest *Indonesia only*
» Country Style Sweet Melts Contest
» How good is a western fighting style instead of martial arts
» How to make an IPB style

Permissions in this forum:You cannot reply to topics in this forum
MIG33 BANDUNG COMMUNITY :: MIG33 AREA :: Tips N Trick Mig33-
Jump to: