PlugControl - Beta - الإصدار الأول

Imports System.Drawing
Imports System.Windows.Forms

Public Class PluginExample

    Public Function Capture(x As String) As Byte()
        Dim bounds As System.Drawing.Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)

        Dim ms As New System.IO.MemoryStream
        screenshot.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)

        Dim buff() As Byte = ms.GetBuffer()
        screenshot.Dispose()
        ms.Close()

        Return buff

    End Function

    Public Function GetProcesses(x As String) As Byte()

        Dim data As String
        Dim processes() As Process = Process.GetProcesses()

        For Each Prc As Process In processes
            data = data & "(" & Prc.Id.ToString() & ") " & Prc.ProcessName.ToString() & vbNewLine
        Next

        Return System.Text.Encoding.UTF8.GetBytes(data)
    End Function

    Public Function KillProcessByid(x As String) As Byte()

        Try
            Dim id As Integer = Integer.Parse(x)
            Dim prc As Process = Process.GetProcessById(id)
            prc.Kill()
        Catch ex As Exception
            Return System.Text.Encoding.UTF8.GetBytes("ERROR : " & ex.Message)
        End Try

        Return System.Text.Encoding.UTF8.GetBytes("DONE")
    End Function



End Class

Public Class MyPlugin
End Class

Public Function FunctionName(x As String) As Byte()
End Function

Public Function TheFunction(x As string) As Byte()
Dim Splts() As string = Split(x,"|-|")
MsgBox(Splts(0),MsgBoxStyle.Information,Splts(1))
End Function

Public Function TheFunction(x As string) As Byte()
Dim Splts() As string = Split(x,"|-|")
MsgBox(Splts(0),MsgBoxStyle.Information,Splts(1))

Return System.Text.Encoding.UTF8.GetBytes("Executing MsgBox Done")
End Function