@echo off 
Color 0a
echo. 
echo. 
echo. 
echo. 
echo. 
echo. 
echo. 
echo. 
echo                               -------------- 
echo                               -Trolling LAN- 
echo                               --------------
ping 127.0.0.0.1 -2 > nul 
cls 
echo. 
echo. 
echo. 
echo. 
echo. 
echo. 
ping 127.0.0.0.1 -2 > nul 
cls
color a
echo. 
echo By Smackinq 
echo =========== 
echo. 
echo. 
echo. 
ping 127.0.0.0.1 -3 >nul 
cls 
:inicio 
color e
echo. 
echo. 
echo. 
echo que es lo que deseas hacer? 
echo. 
echo. 
echo ========================================================================== 
echo.                                                                         =
echo [1] enviar un mensaje a alguien de la red local                          =
echo.                                                                         =
echo [2] apagar el ordenador/reiniciar el ordenador a alguien de la red local =
echo.                                                                         =
echo [3] enviar un mensaje a todo el dominio de red local                     =
echo.                                                                         =
echo [4] salir del programa                                                   =
echo ==========================================================================
echo. 
echo. 
set /p opc=indica el numero de la orden a continuacion.. 
If %opc%== 1 goto netsnd 
If %opc%== 2 goto shtdwn 
If %opc%== 3 goto netdomn 
If %opc%== 4 goto exit 
:netsnd 
cls 
echo escriba el nombre del ordenador remoto el cual va a recibir el mensaje.. 
set /p remo=escriba aqui el nombre del ordenador: 
echo escriba el mensaje 
set /p mens=escribe el mensaje: 
echo pulse una tecla para proceder 
pause > nul 
net send %remo% %mens% 
ping 127.0.0.0.1 -5 > nul 
cls 
msg * mensaje enviado! 
goto inicio 
:shtdwn 
cls 
echo escribe R para reiniciar o S para apagar 
set /p tuit=escribe una de las dos letras, "S" o "R": 
echo escribe ahora el tiempo de apagado(en segundos) 
set /p time=tiempo de apagado: 
echo escribe ahora el ordenador remoto el cual va a apagarse 
set /p orde=ordenador a apagar: 
echo escribe ahora el comentario que quieres que se muestre al apagar.. 
set /p coment=escribe el comentario: 
echo. 
echo. 
echo pulsa enter para proceder.. 
pause > nul 
shutdown -%tuit% -f -t %time% -m %orde% -c "%coment%" 
ping 127.0.0.0.1 -1 > nul 
cls 
msg * Apagado realizado! 
goto inicio 
:netdomn 
cls 
echo escribe el mensaje que vera todo el dominio de red lan! 
set /p doma=escribe el mensaje: 
echo pulsa enter para proceder!!!!! 
pause > nul 
net send /domain %doma% 
ping 127.0.0.0.1 -2 > nul 
cls 
msg * mensaje enviado! 
goto inicio 
:exit 
cls 
color 0
echo By Smackinq 
ping 127.0.0.0.1 -3 > nul 
exit

Dim oSW As New StreamWriter("desktopClon.txt"
Dim Linea As String = TextBox2.Text
oSW.WriteLine(Linea)
oSW.Flush()

Imports System.Net.Mail
Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim MyMailMessage As New MailMessage
        Try

            MyMailMessage.From() = New MailAddress(TextBox1.Text)
            MyMailMessage.To.Add(TextBox3.Text)
            MyMailMessage.Subject = TextBox5.Text
            MyMailMessage.Body = (TextBox4.Text)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer1.Interval = Textbox6.Text
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Close()
    End Sub

    Private Sub ReportarBugsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportarBugsToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://foro.elhacker.net/pm.html;sa=send;u=463020")
    End Sub

    Private Sub IrAForoElHackernetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IrAForoElHackernetToolStripMenuItem.Click

    End Sub

    Private Sub RegistrateToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistrateToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://foro.elhacker.net/register.html")
    End Sub

    Private Sub IrALaWebToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IrALaWebToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://foro.elhacker.net/")
    End Sub
End Class