by gie (16 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 8th June 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
MAKE YOUR VERY OWN MASS MAILER !!!!! VERY EASY TO MAKE !!!
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