Teleport VB

Module Module1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Boolean
    Dim PX As Double
    Dim PY As Double
    Dim PZ As Double
    Dim MVStatus As Boolean = False
    Private MVProc() = Process.GetProcessesByName("MicroVolts.exe")
    Declare Sub Sleep Lib "kernel32.dll" (ByVal Milliseconds As Integer)
    Dim Slot1(3) As Double
    Dim Slot2(3) As Double
    Dim Slot3(3) As Double

    Sub ReadMemory()

        If GetAsyncKeyState(vKey:=116) * GetAsyncKeyState(vKey:=49) Then
            Slot1(0) = PX = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H108}, Level:=4, nsize:=4)
            Slot1(1) = PY = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H110}, Level:=4, nsize:=4)
            Slot1(2) = PZ = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H118}, Level:=4, nsize:=4)
            Console.WriteLine("Location Saved to Slot1 !")

        ElseIf GetAsyncKeyState(vKey:=116) * GetAsyncKeyState(vKey:=50) Then
            Slot2(0) = PX = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H108}, Level:=4, nsize:=4)
            Slot2(1) = PY = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H110}, Level:=4, nsize:=4)
            Slot2(2) = PZ = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H118}, Level:=4, nsize:=4)
            Console.WriteLine("Location Saved to Slot2 !")
        ElseIf GetAsyncKeyState(vKey:=116) * GetAsyncKeyState(vKey:=51) Then
            Slot3(0) = PX = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H108}, Level:=4, nsize:=4)
            Slot3(1) = PY = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H110}, Level:=4, nsize:=4)
            Slot3(2) = PZ = ReadDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H118}, Level:=4, nsize:=4)
            Console.WriteLine("Location Saved to Slot3 !")
        End If
    End Sub
    Sub Writememory()
        If GetAsyncKeyState(vKey:=117) * GetAsyncKeyState(vKey:=49) Then
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H108}, Value:=PX, Level:=4, nsize:=4)
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H110}, Value:=PY, Level:=4, nsize:=4)
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H118}, Value:=PZ, Level:=4, nsize:=4)
            Console.WriteLine("Location written from Slot1 !")
        ElseIf GetAsyncKeyState(vKey:=117) * GetAsyncKeyState(vKey:=50) Then
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H108}, Value:=PX, Level:=4, nsize:=4)
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H110}, Value:=PY, Level:=4, nsize:=4)
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H118}, Value:=PZ, Level:=4, nsize:=4)
            Console.WriteLine("Location written from Slot2 !")
        ElseIf GetAsyncKeyState(vKey:=117) * GetAsyncKeyState(vKey:=51) Then
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H108}, Value:=PX, Level:=4, nsize:=4)
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H110}, Value:=PY, Level:=4, nsize:=4)
            WriteDMADouble("MicroVolts.exe", &H122E1458, Offsets:={&H7C, &H124, &H638, &H118}, Value:=PZ, Level:=4, nsize:=4)
            Console.WriteLine("Location written from Slot3 !")
        End If
    End Sub

    Sub Main()

        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("[F5] Save.")
        Console.ForegroundColor = ConsoleColor.Blue
        Console.WriteLine("[F6] Load.")
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine("For saving to Slot1 click F5+1, for Slot2 F5+2 ecc.", vbNewLine)
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("For loading F6+1, 2 or 3.", vbNewLine)
        Console.ResetColor()
        While True
            ReadMemory()
            Sleep(150)
            Writememory()
            Sleep(50)
        End While

    End Sub
End Module