Tutorial Informação dos Players ( Sala )

===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================










==========================================Form1==========================================





Imports Magic
Imports Fasm
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim gic As New BlackMagic
        Dim P As UInt32 = &HA72CA8 'Pointer
        gic.OpenProcessAndThread(Process.GetProcessesByName("PointBlank")(0).Id)
        Label1.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H49F4), 30) 'TR 0
        Label2.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4A36), 30) 'TR 1
        Label3.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4A78), 30) 'TR 2
        Label4.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4ABA), 30) 'TR 3
        Label5.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4AFC), 30) 'TR 4
        Label6.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4B3E), 30) 'TR 5
        Label7.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4B80), 30) 'TR 6
        Label8.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4BC2), 30) 'TR 7

        Label9.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4A15), 30) 'CT 1
        Label10.Text = gic.ReadASCIIString(gic.ReadUInt(P) + (&H4A57), 30) 'CT 2
    End Sub
End Class










==========================================App.config==========================================




<?xml version="1.0" encoding="utf-8" ?>
<configuration>

  <startup useLegacyV2RuntimeActivationPolicy="true">
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
  </startup>

</configuration>




=====================================Download das referências=====================================

http://www.mediafire.com/?15js3h7pb38s3g0



===============================================Video===============================================

http://www.youtube.com/watch?v=tn1nig3zKhc&feature=youtu.be



===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================
===================================================================================================