Dim MTP As String = TextBox2.Text
Try
WriteInteger("ac_client", &HDDA5A4, MTP)
Catch ex As Exception
End Try
Dim PlayerLocX as Integer = lblX.text
Dim PlayerLocY as Integer = lblY.text
Dim PlayerLocZ as Integer = lblZ.text
Try
ReadInteger("ac_client", &HADDYOFX, PlayerLocX)
ReadInteger("ac_client", &HADDYOFY, PlayerLocY)
ReadInteger("ac_client", &HADDYOFZ, PlayerLocZ)
Catch ex As Exception
MsgBox(ex.message)
End Try
'That way, it will constantly write your player location on Labels.
Dim MTP As String = TextBox2.Text
Try
WriteInteger("ac_client", &HDDA5A4, MTP)
Catch ex As Exception
End Try
Private Const X_Addy = &H281A49C
Private Const Y_Addy = &H281A4A0
Then On Button Click
WriteInteger("Game Process",X_Addy,Textbox1.text)'Change X Coord
WriteInteger("Game Process",Y_Addy,Textbox2.text)'Change Y Coord
End Sub
You Could Add a Timer Too to make button unable to be click if textbox dont have the coordinate
Timer1 Sub
If Textbox1.text = "" and Textbox2.text = "" then
Button1.enabled = false
else
Button2.Enabled = True
end if
end sub