• Home
 · 
• Custom Controls/Forms/Menus
 · 
• MAKE YOUR VERY OWN MASS MAILER !!!!! VERY EASY TO MAKE !!!

MAKE YOUR VERY OWN MASS MAILER !!!!! VERY EASY TO MAKE !!!

MAKE YOUR VERY OWN MASS MAILER !!!!! VERY EASY TO MAKE !!!

Rate MAKE YOUR VERY OWN MASS MAILER !!!!! VERY EASY TO MAKE !!!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

1 st command button = start button in the start button put
timer1.Enabled = True
Timer2.Enabled = True
If text3.Text = "0" Then
MsgBox "you need to have at least 1 minute for an MM time", , "cant start it
yet"
End If
Do
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[MM in " + text3.Text + "
minutes")
TimeOut (0.1)
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[Type- " + Text1.Text + " -to
be added")
TimeOut (0.1)
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[Type- " + Text2.Text + " -to be
removed")
TimeOut (60)
text3.Text = Val(text3) - 1
Loop Until timer1.Enabled = False
Do
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[MM in " + text3.Text + "
minutes")
TimeOut (0.1)
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[Type- " + Text1.Text + " -to
be added")
TimeOut (0.1)
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[Type- " + Text2.Text + " -to be
removed")
TimeOut (60)
text3.Text = Val(text3) - 1
Loop Until timer1.Enabled = False
Do
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[MM in " + text3.Text + "
minutes")
TimeOut (0.1)
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[Type- " + Text1.Text + " -to
be added")
TimeOut (0.1)
SendChat "" & YellowBlackYellow(" •·.¸.·´¨`·[Type- " + Text2.Text + " -to be
removed")
TimeOut (60)
text3.Text = Val(text3) - 1
Loop Until timer1.Enabled = False

2nd button stop button put
timer1.Enabled = False
Timer2.Enabled = False
SendChat "" & YellowBlackYellow("’•·.·•’roces MMer’•·.·•’")
TimeOut (0.01)
SendChat "" & YellowBlackYellow("’•·.·•’by skidz’•·.·•’")
TimeOut (0.01)
SendChat "" & YellowBlackYellow("’•·.·•’unloaded by: " + UserSN() + "’•·.·•’")

3rd button add room put
Call AddRoomToListBox(List1)
SendChat "" & YellowBlackYellow("the room has been added to: " + UserSN() + "
MM")

4th button put add names in button put
Label5.Visible = False
Text4.Visible = True
List1.AddItem Text4.Text

in timer 1 put
Timer3.Enabled = True

If LastChatLine = Text1.Text Then
SendChat "" & YellowBlackYellow("hey " + SNFromLastChatLine + " your added to
the MM")
End If
If LastChatLine = Text2.Text Then
SendChat "" & YellowBlackYellow("hey " + SNFromLastChatLine + " your off the
MM")
End If

in timer 2 put
Do
TimeOut (60)
text3.Text = Val(text3) - 1
Loop Until Timer2.Enabled = False

in timer 3 put
If LastChatLine = Text1.Text Then
List1.AddItem SNFromLastChatLine
End If

text section
text1 = trigger word to be added (or whatever you want)
text2 = tirgger word to be removed (or whatever you want)
text3 = number of minutes ( like 500 or whatever)
text4 = name to be added (or whatever)

label section
label1.cation = "type" and next to it would be (text1) (to the right)
label2.caption = "type" and next to that (to the right) is (text2)
label3.caption = "to get on" and next to that (to the left) is (text1)
label4.caption = "to get off" and next to that (to the left) is (text2)
label5.caption = "names on MM" put this above the listbox