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