pretty simple code, but since I am pretty new to programming, I decided to test myself with this ![Big Grin](images/emotions/emo2.png)
converted it to visual basic, enjoy. though, nobody uses vb so..
ALSO, I HAVEN'T TESTED THIS SO LET ME KNOW IF YOU NEED HELP XD
caps soz
Code:
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading
Imports System.Threading.Tasks
Imports System.Windows.Forms
Namespace MW3_Testing
Public Partial Class Form1
Inherits Form
Private memoryClass As New Memory()
Public Sub New()
InitializeComponent()
UpdatePlayerList()
End Sub
Private Enum playerState_t
Normal = 0
Noclip = 2
Freeze = 4
End Enum
Private OFFS_Size As Integer = &H38ec, OFFS_PlayerState As Integer = &H1c2ca0c, OFFS_Name As Integer = &H9fa684, tempI As Integer = 0
Private Sub UpdatePlayerList()
If Not memoryClass.Open_pHandel("iw5mp") Then
Combo_Players.Items.Clear()
Return
End If
For i As Integer = 0 To 17
memoryClass.WriteInt(OFFS_PlayerState + (OFFS_Size * i), 0)
Next
Combo_Players.Items.Clear()
For i As Integer = 0 To 17
Dim tempS As String = memoryClass.ReadStringAdvanced(OFFS_Name + (OFFS_Size * i), 32)
If tempS IsNot Nothing Then
Combo_Players.Items.Add(tempS)
Else
Combo_Players.Items.Add("--Unable to load")
End If
Next
End Sub
Private Sub Timer_Main_Tick(sender As Object, e As EventArgs)
Label_PlayerState.Text = (If(memoryClass.Open_pHandel("iw5mp") = True, (If((InlineAssignHelper(tempI, memoryClass.ReadInt(OFFS_PlayerState + (Combo_Players.SelectedIndex * OFFS_Size)))) = CInt(playerState_t.Normal), "Normal", (If(tempI = CInt(playerState_t.Noclip), "Noclip", (If(tempI = CInt(playerState_t.Freeze), "Froozen", "Unknown player state")))))), "Open Game"))
End Sub
Private Sub Button_Normal_Click(sender As Object, e As EventArgs)
If memoryClass.Open_pHandel("iw5mp") Then
memoryClass.WriteInt(OFFS_PlayerState + (OFFS_Size * Combo_Players.SelectedIndex), CInt(playerState_t.Normal))
End If
End Sub
Private Sub Button_Noclip_Click(sender As Object, e As EventArgs)
If memoryClass.Open_pHandel("iw5mp") Then
memoryClass.WriteInt(OFFS_PlayerState + (OFFS_Size * Combo_Players.SelectedIndex), CInt(playerState_t.Noclip))
End If
End Sub
Private Sub Button_Freeze_Click(sender As Object, e As EventArgs)
If memoryClass.Open_pHandel("iw5mp") Then
memoryClass.WriteInt(OFFS_PlayerState + (OFFS_Size * Combo_Players.SelectedIndex), CInt(playerState_t.Freeze))
End If
End Sub
Private Sub Label_UpdatePlayers_Click(sender As Object, e As EventArgs)
UpdatePlayerList()
End Sub
Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
target = value
Return value
End Function
End Class
End Namespace