XBOX support with SlimDX.vb

'https://www.youtube.com/user/GTAScripting
'http://gtaxscripting.blogspot.com/
'http://www.facebook.com/GtaIVScripting
'https://twitter.com/julionib

Imports System
Imports GTA
Imports System.Drawing
Imports System.Windows.Forms

Public Class ScriptDevelopment
    Inherits Script

    Private myXControl As SlimDX.XInput.Controller = New SlimDX.XInput.Controller(SlimDX.XInput.UserIndex.One)
    Private lastPacketNumber As Int64 = 0

    Private ADown, BDown, XDown, YDown, BackDown, StartDown, LShoulderDown, RShoulderDown, RStickButtonDown, LStickButtonDown As Boolean
    Private LTrigger, RTrigger, LThumbX, LThumbY, RThumbX, RThumbY As Double

    Public Sub New()
        Me.Interval = 10
    End Sub

    Shadows Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
    End Sub

    Shadows Sub keyUp(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyUp
    End Sub

    Private Sub general_tick(ByVal sender As Object, ByVal ev As EventArgs) Handles MyBase.Tick
        checkControl()

        msg("A " & ADown.ToString & _
            "   B " & BDown.ToString & _
            "   X " & XDown.ToString & _
            "   Y " & YDown.ToString & _
            "   Back " & BackDown.ToString & _
            "   Start " & StartDown.ToString & _
            "   Left shoulder " & LShoulderDown.ToString & _
            "   Right shoulder " & RShoulderDown.ToString & _
            "   Left stick button " & LStickButtonDown.ToString & _
            "   Right stick button " & RStickButtonDown.ToString & _
            "   Left trigger " & LTrigger.ToString & _
            "   Right trigger " & RTrigger.ToString & _
            "   Left thumb " & LThumbX.ToString & "   " & LThumbY.ToString & _
            "   Right thumb " & RThumbX.ToString & "   " & RThumbY.ToString, 15)
    End Sub

    Private Sub checkControl()
        If myXControl.IsConnected Then
            If lastPacketNumber <> myXControl.GetState.PacketNumber Then
                lastPacketNumber = myXControl.GetState.PacketNumber

                ADown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.A
                BDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.B
                XDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.X
                YDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.Y
                BackDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.Back
                StartDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.Start
                LShoulderDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.LeftShoulder
                RShoulderDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.RightShoulder
                LStickButtonDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.LeftThumb
                RStickButtonDown = myXControl.GetState().Gamepad.Buttons = SlimDX.XInput.GamepadButtonFlags.RightThumb
            End If

            LTrigger = myXControl.GetState.Gamepad.LeftTrigger
            RTrigger = myXControl.GetState.Gamepad.RightTrigger

            LThumbX = myXControl.GetState.Gamepad.LeftThumbX
            LThumbY = myXControl.GetState.Gamepad.LeftThumbY
            RThumbX = myXControl.GetState.Gamepad.RightThumbX
            RThumbY = myXControl.GetState.Gamepad.RightThumbY
        End If
    End Sub

    Private Sub console_CMD(ByVal sender As Object, ByVal e As ConsoleEventArgs) Handles MyBase.ConsoleCommand
    End Sub

    Private Sub GraphicsEventHandler(ByVal sender As Object, ByVal e As GTA.GraphicsEventArgs) Handles MyBase.PerFrameDrawing
    End Sub

    Private Sub msg(ByVal sMsg As String, ByVal time As Int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
    End Sub

    Private Function intervalFix() As Double
        Return Me.Interval * (Game.FPS / 25)
    End Function
End Class