CE on Aiona NA

        Private Sub FindBase()
            Dim _Base As Int32 = GetModuleBase(Get_Hwnd, "Game.dll")
            ' Do something with base. Ex: WriteInt(_Base + %Value%,1)
        End Sub

        Public Function Get_Hwnd() As Long
            Dim _gameWindows As Process() = Process.GetProcessesByName("Aion.bin")
            If _gameWindows.Length = 0 Then
                Return 0
                Exit Function
            End If
            Return _gameWindows(0).Id
        End Function

        Public Shared Function GetModuleBase(PID As Long, ModuleName As String) As Int32
            For Each ProcModule As ProcessModule In Process.GetProcessById(PID).Modules
                If ProcModule.ModuleName.ToLower.Equals(ModuleName.ToLower) Then
                    Return ProcModule.BaseAddress.ToInt32
                    Exit For
                End If
            Next
            Return &H0
        End Function