[Source `n Project]AutoSpammer 2.1

Markizano · May 8, 2007

Someone requsted that I do this:

I take no credit for this since the original code was released by DaRk NiGhT years ago.

Download Link to the executable

Instructions on how to make this Program:

1.Start a project and make a forum.
2.Make an array of 5 TextBoxes and ComboBoxes.
TextBox Attributes
Name: txtText
Text: ""

ComboBox Attributes
Name: cbovbKey
Text: ""

3.Make another TextBox.
TextBox Attributes
Name: txtSample
Text: "Sample area."

4.Create a Timer.
Timer Attributes
Name: tmrSpam
Interval: 300 To 500 (Mine is 300)
Enabled: False

5.Create a CommandButton.
CommandButton Attributes
Name: cmdEnable
Caption: "Change"

6.Create a Label.
Label Attributes
Name: lbEN
Caption: Off

7. Create 3 arrays of CheckBoxes.
CheckBox Attributes

Name: chkShift

chkCtrl

chkAlt

Caption:Shift

Ctrl

Alt

8. Create a Menu.
First Entry:
Caption: Turn This On
Name: cmdEnable

Second Entry:
Caption: Exit
Name: cmdExit

Don't worry about the color of the form. I assign that directly in the code.
Your design should look at least a little like this:

Put this code in the module of the form:

Code:

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vbKey As Long) As Integer
Dim Char(58) As String, CtrlKey(2) As String
Dim Red As Long, Green As Long
Const Checked = 1, UnChecked = 0
Const vbKeyShift = 16, vbKeyCtrl = 17, vbKeyAlt = 18

Sub LoadChars()
Char(0) = "A"
Char(1) = "B"
Char(2) = "C"
Char(3) = "D"
Char(4) = "E"
Char(5) = "F"
Char(6) = "G"
Char(7) = "H"
Char(8) = "I"
Char(9) = "J"
Char(10) = "K"
Char(11) = "L"
Char(12) = "M"
Char(13) = "N"
Char(14) = "O"
Char(15) = "P"
Char(16) = "Q"
Char(17) = "R"
Char(18) = "S"
Char(19) = "T"
Char(20) = "U"
Char(21) = "V"
Char(22) = "W"
Char(23) = "X"
Char(24) = "Y"
Char(25) = "Z"
Char(26) = "0"
Char(27) = "1"
Char(28) = "2"
Char(29) = "3"
Char(30) = "4"
Char(31) = "5"
Char(32) = "6"
Char(33) = "7"
Char(34) = "8"
Char(35) = "9"
Char(36) = "10"
Char(37) = "Numpad0"
Char(38) = "Numpad1"
Char(39) = "Numpad2"
Char(40) = "Numpad3"
Char(41) = "Numpad4"
Char(42) = "Numpad5"
Char(43) = "Numpad6"
Char(44) = "Numpad7"
Char(45) = "Numpad8"
Char(46) = "Numpad9"
Char(47) = "Numpad10"
Char(47) = "F1"
Char(48) = "F2"
Char(49) = "F3"
Char(50) = "F4"
Char(51) = "F5"
Char(52) = "F6"
Char(53) = "F7"
Char(54) = "F8"
Char(55) = "F9"
Char(56) = "F10"
Char(57) = "F11"
Char(58) = "F12"

CtrlKey(0) = "Shift"
CtrlKey(1) = "Control"
CtrlKey(2) = "Alternate"

Red = RGB(255, 150, 150)
Green = RGB(150, 255, 150)

End Sub

Sub TurnTimers(OnOff As String)
If LCase$(OnOff) <> "on" And LCase$(OnOff) <> "off" Then MsgBox "OnOff error."

Select Case LCase$(OnOff)
   Case "on"
      tmrShift.Enabled = True
      tmrCtrl.Enabled = True
      tmrAlt.Enabled = True
      tmrShiftCtrl.Enabled = True
      tmrShiftAlt.Enabled = True
      tmrCtrlAlt.Enabled = True
      tmrShiftCtrlAlt.Enabled = True
   Case "off"
      tmrShift.Enabled = False
      tmrCtrl.Enabled = False
      tmrAlt.Enabled = False
      tmrShiftCtrl.Enabled = False
      tmrShiftAlt.Enabled = False
      tmrCtrlAlt.Enabled = False
      tmrShiftCtrlAlt.Enabled = False
End Select
End Sub

Sub SetColor(Color As Long)
Dim i As Integer

Me.BackColor = Color
txtSample.BackColor = Color
Label1.BackColor = Color
Label2.BackColor = Color
lbEnable.BackColor = Color
lbEN.BackColor = Color
For i = 0 To 4
   cbovbKey(i).BackColor = Color
   txtText(i).BackColor = Color
   chkShift(i).BackColor = Color
   chkCtrl(i).BackColor = Color
   chkAlt(i).BackColor = Color
Next i
End Sub

Public Function StrToKey(strText As String) As Long
Select Case strText
    Case "vbKey0"
    StrToKey = vbKey0
    Case "vbKey1"
    StrToKey = vbKey1
    Case "vbKey2"
    StrToKey = vbKey2
    Case "vbKey3"
    StrToKey = vbKey3
    Case "vbKey4"
    StrToKey = vbKey4
    Case "vbKey5"
    StrToKey = vbKey5
    Case "vbKey6"
    StrToKey = vbKey6
    Case "vbKey7"
    StrToKey = vbKey7
    Case "vbKey8"
    StrToKey = vbKey8
    Case "vbKey9"
    StrToKey = vbKey9
    Case "vbKeyA"
    StrToKey = vbKeyA
    Case "vbKeyB"
    StrToKey = vbKeyB
    Case "vbKeyC"
    StrToKey = vbKeyC
    Case "vbKeyD"
    StrToKey = vbKeyD
    Case "vbKeyE"
    StrToKey = vbKeyE
    Case "vbKeyF"
    StrToKey = vbKeyF
    Case "vbKeyG"
    StrToKey = vbKeyG
    Case "vbKeyH"
    StrToKey = vbKeyH
    Case "vbKeyI"
    StrToKey = vbKeyI
    Case "vbKeyJ"
    StrToKey = vbKeyJ
    Case "vbKeyK"
    StrToKey = vbKeyK
    Case "vbKeyL"
    StrToKey = vbKeyL
    Case "vbKeyM"
    StrToKey = vbKeyM
    Case "vbKeyN"
    StrToKey = vbKeyN
    Case "vbKeyO"
    StrToKey = vbKeyO
    Case "vbKeyP"
    StrToKey = vbKeyP
    Case "vbKeyQ"
    StrToKey = vbKeyQ
    Case "vbKeyR"
    StrToKey = vbKeyR
    Case "vbKeyS"
    StrToKey = vbKeyS
    Case "vbKeyT"
    StrToKey = vbKeyT
    Case "vbKeyU"
    StrToKey = vbKeyU
    Case "vbKeyV"
    StrToKey = vbKeyV
    Case "vbKeyW"
    StrToKey = vbKeyW
    Case "vbKeyX"
    StrToKey = vbKeyX
    Case "vbKeyY"
    StrToKey = vbKeyY
    Case "vbKeyZ"
    StrToKey = vbKeyZ
    Case "vbkeyNumpad0"
    StrToKey = vbKeyNumpad0
    Case "vbkeyNumpad1"
    StrToKey = vbKeyNumpad1
    Case "vbkeyNumpad2"
    StrToKey = vbKeyNumpad2
    Case "vbkeyNumpad3"
    StrToKey = vbKeyNumpad3
    Case "vbkeyNumpad4"
    StrToKey = vbKeyNumpad4
    Case "vbkeyNumpad5"
    StrToKey = vbKeyNumpad5
    Case "vbkeyNumpad6"
    StrToKey = vbKeyNumpad6
    Case "vbkeyNumpad7"
    StrToKey = vbKeyNumpad7
    Case "vbkeyNumpad8"
    StrToKey = vbKeyNumpad8
    Case "vbkeyNumpad9"
    StrToKey = vbKeyNumpad9
    Case "vbkeyF1"
    StrToKey = vbKeyF1
    Case "vbkeyF2"
    StrToKey = vbKeyF2
    Case "vbkeyF3"
    StrToKey = vbKeyF3
    Case "vbkeyF4"
    StrToKey = vbKeyF4
    Case "vbkeyF5"
    StrToKey = vbKeyF5
    Case "vbkeyF6"
    StrToKey = vbKeyF6
    Case "vbkeyF7"
    StrToKey = vbKeyF7
    Case "vbkeyF8"
    StrToKey = vbKeyF8
    Case "vbkeyF9"
    StrToKey = vbKeyF9
    Case "vbkeyF10"
    StrToKey = vbKeyF10
    Case "vbkeyF11"
    StrToKey = vbKeyF11
    Case "vbkeyF12"
    StrToKey = vbKeyF12
End Select
End Function

Function TextToBool(Text As String) As Boolean
Select Case Text
    Case "On"
        TextToBool = True
    Case "Off"
        TextToBool = False
End Select
End Function

Function BoolToText(Bool As Boolean) As String
   If Bool = True Then BoolToText = "On" Else BoolToText = "Off"
End Function

Private Sub cmdEnable_Click()
If TextToBool(lbEN.Caption) = True Then
    lbEN.Caption = BoolToText(False)
    TurnTimers lbEN.Caption
    SetColor Red
    cmdEnable.Caption = "Turn this On"
Else
    lbEN.Caption = BoolToText(True)
    TurnTimers lbEN.Caption
    SetColor Green
    cmdEnable.Caption = "Turn this Off"
End If
End Sub

Private Sub Form_Load()
Dim i As Integer
LoadChars
For i = 0 To 58
cbovbKey(0).AddItem Char(i)
cbovbKey(1).AddItem Char(i)
cbovbKey(2).AddItem Char(i)
cbovbKey(3).AddItem Char(i)
cbovbKey(4).AddItem Char(i)
Next
TurnTimers "Off"
SetColor Red
End Sub

Private Sub mnuExit_Click()
Unload Me
End
End Sub

Private Sub tmrAlt_Timer()
If (chkShift(0).Value = UnChecked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = UnChecked) And (chkCtrl(1).Value = UnChecked) And (chkAlt(1).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = UnChecked) And (chkCtrl(2).Value = UnChecked) And (chkAlt(2).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = UnChecked) And (chkCtrl(3).Value = UnChecked) And (chkAlt(3).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = UnChecked) And (chkCtrl(4).Value = UnChecked) And (chkAlt(4).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If

End Sub

Private Sub tmrCtrl_Timer()
If (chkShift(0).Value = UnChecked) And (chkCtrl(0).Value = Checked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = UnChecked) And (chkCtrl(1).Value = Checked) And (chkAlt(1).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = UnChecked) And (chkCtrl(2).Value = Checked) And (chkAlt(2).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = UnChecked) And (chkCtrl(3).Value = Checked) And (chkAlt(3).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = UnChecked) And (chkCtrl(4).Value = Checked) And (chkAlt(4).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If

End Sub

Private Sub tmrCtrlAlt_Timer()
If (chkShift(0).Value = UnChecked) And (chkCtrl(0).Value = Checked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = UnChecked) And (chkCtrl(1).Value = Checked) And (chkAlt(1).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = UnChecked) And (chkCtrl(2).Value = Checked) And (chkAlt(2).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = UnChecked) And (chkCtrl(3).Value = Checked) And (chkAlt(3).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = UnChecked) And (chkCtrl(4).Value = Checked) And (chkAlt(4).Value = Checked) Then
   If GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If

End Sub

Private Sub tmrShift_Timer()
If (chkShift(0).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If
End Sub

Private Sub tmrShiftAlt_Timer()
If (chkShift(0).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = Checked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If

End Sub

Private Sub tmrShiftCtrl_Timer()
If (chkShift(0).Value = Checked) And (chkCtrl(0).Value = Checked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = Checked) And (chkCtrl(1).Value = Checked) And (chkAlt(1).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = Checked) And (chkCtrl(2).Value = Checked) And (chkAlt(2).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = Checked) And (chkCtrl(3).Value = Checked) And (chkAlt(3).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = Checked) And (chkCtrl(4).Value = Checked) And (chkAlt(4).Value = UnChecked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If

End Sub

Private Sub tmrShiftCtrlAlt_Timer()
If (chkShift(0).Value = Checked) And (chkCtrl(0).Value = Checked) And (chkAlt(0).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = Checked) And (chkCtrl(1).Value = Checked) And (chkAlt(1).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = Checked) And (chkCtrl(2).Value = Checked) And (chkAlt(2).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = Checked) And (chkCtrl(3).Value = Checked) And (chkAlt(3).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = Checked) And (chkCtrl(4).Value = Checked) And (chkAlt(4).Value = Checked) Then
   If GetAsyncKeyState(vbKeyShift) And GetAsyncKeyState(vbKeyAlt) And GetAsyncKeyState(vbKeyCtrl) And GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If

End Sub

Private Sub tmrSpam_Timer()
If (chkShift(0).Value = UnChecked) And (chkCtrl(0).Value = UnChecked) And (chkAlt(0).Value = UnChecked) Then
   If GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(0).Text))) Then
      SendKeys txtText(0).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(1).Value = UnChecked) And (chkCtrl(1).Value = UnChecked) And (chkAlt(1).Value = UnChecked) Then
   If GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(1).Text))) Then
      SendKeys txtText(1).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(2).Value = UnChecked) And (chkCtrl(2).Value = UnChecked) And (chkAlt(2).Value = UnChecked) Then
   If GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(2).Text))) Then
      SendKeys txtText(2).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(3).Value = UnChecked) And (chkCtrl(3).Value = UnChecked) And (chkAlt(3).Value = UnChecked) Then
   If GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(3).Text))) Then
      SendKeys txtText(3).Text
      SendKeys "{ENTER}"
   End If
End If
If (chkShift(4).Value = UnChecked) And (chkCtrl(4).Value = UnChecked) And (chkAlt(4).Value = UnChecked) Then
   If GetAsyncKeyState(StrToKey("vbKey" & Trim$(cbovbKey(4).Text))) Then
      SendKeys txtText(4).Text
      SendKeys "{ENTER}"
   End If
End If
End Sub

Private Sub txtSample_GotFocus()
txtSample.Text = vbNullChar
End Sub

Basically all the code does is look for the Check Boxes' values (Checked or UnChecked) and depending on the Checked value depends on which keys you have to press in order for the AutoSpammer to send the keys.

That should do it.
Enjoy.

Markizano

timk777 · May 8, 2007

Uhmmm. That code is wayyy bloated. =/ You should tell the creator to make human type function as well. An auto-talker just isn't the same with out Human-Type/Silent-Type

Markizano · May 9, 2007

I am the creator of this code. It's just not original. DaRk NiGhT once did a tut on his functions and projects and to make an autospammer was originally his idea as far as I'm concerned. I just took it to the next step. Yes, I do agree that the code is quite extensive and I wish that the site would insert scroll bars for stuff this big, but oh well. It was already hard enough to get the motivation to make this...so a Human-Type program won't come out for a while or until I can get the motivation to make it.

Teizhcial · May 10, 2007

yeah thats great and all but I need the code for VB6 hotkeys

HotKey = ctrl - t
^^^^^^^^^^
I got this code from somewhere and it doesent work at all but VB6 doesent give me a run time error when I put it in either -.- need help plz

nipplesandlicks · May 10, 2007

nice tut.... maybe noobies will get it

Log in or Sign up

[Source `n Project]AutoSpammer 2.1

Markizano Active Member

timk777 Active Member

Markizano Active Member

Teizhcial Guest

nipplesandlicks Guest

Log in or Sign up

[Source `n Project]AutoSpammer 2.1

Thread Tools

Markizano Active Member

timk777 Active Member

Markizano Active Member

Teizhcial Guest

nipplesandlicks Guest