No esta testeado.
Declaran:
- Public MINUTOSSPAM As Integer
Hacen un Timer con nombre "Lekasak_es_un_groso" (? y con interval de 60000 y adentro pones:
- '*************** S-A AO ***************
- 'Author: Lekasak
- 'Last Modify Date: 22/01/2012
- 'Comments: Me base en el codigo de Nethird de spam de web :B
- '*************** S-A AO ****************
- Dim NumeroDeMensaje As Byte
- NumeroDeMensaje = RandomNumber(1, 3) 'cambian el 3 por lo que quieran y despues ponen que mensajes manda.
- If MINUTOSSPAM = 15 Then 'Si quieren pueden reemplazar 15 por los minutos que van a poner.
- MINUTOSSPAM = 0
- If NumeroDeMensaje = 1 Then
- Call SendData(Sendtarget.ToAll, 0, 0, "||Servidor> Recuerden visitar nuestra comunidad desde: www.Servers-Argentum.foroactivo.com" & FONTTYPE_VENENO)
- ElseIf NumeroDeMensaje = 2 Then
- Call SendData(Sendtarget.ToAll, 0, 0, "||Servidor> Si necesitas ayuda tipea /GM." & FONTTYPE_VENENO)
- ElseIf NumeroDeMensaje = 3 Then
- Call SendData(Sendtarget.ToAll, 0, 0, "||Servidor> Ya no se que mas poner en estos mensajes. SI, no tengo imaginacion :P" & FONTTYPE_VENENO)
- End If
- MINUTOSSPAM = MINUTOSSPAM + 1
- End Sub






364![Aprendiz [6] Aprendiz [6]](./images/ranks/Rango11.gif)

![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)

![Newbie [4] Newbie [4]](./images/ranks/Rango3.gif)

![Newbie [1] Newbie [1]](./images/ranks/Rango0.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)



![Dragon Ancestral [3] Dragon Ancestral [3]](./images/ranks/Rango32.gif)


![Aprendiz [4] Aprendiz [4]](./images/ranks/Rango9.gif)
