비베로 만들었던건데.

중요한건..

특정 규칙에 의해입력해놓으면

그 위치의 메모리주소가 바꿔치기되는데

그 특정규칙을 까먹었어.

만들어놓고 군대갔다오고 뭐 그러니.

자연스레 기억이 안나더라고 ㅋㅋㅋ

아래는 메모리 수정하는 부분소스인데.. 막 API를 배우기시작했던때라 코드가 좀 병맛임.
이거 분석하면 어떤 규칙으로 작성해야하는지 알수있긴한데 쩝 ㅋㅋ

Public Function WriteMemory(Oc As Boolean)
    Dim hProcess As Long
    Dim CData As String
    Dim DA As Long
    Dim DAs, DVs As Long
    Dim DV As String
    Dim DPT As Long
    Dim i As Integer
    Dim dvb() As Byte
   
    If Oc Then
            CData = HexDataC(LIneNumber)
        Else
            CData = HexDataO(LIneNumber)
    End If
   
    If CData <> "" Then
       
        Dim Flag As Integer
        Flag = 1
b:
        DAs = Val("&H" & Mid(CData, Flag, 2))
        DVs = Val("&H" & Mid(CData, Flag + 2, 2))
        DA = Val("&H" & Mid(CData, Flag + 4, DAs))
        DV = Mid(CData, Flag + 4 + DAs, DVs * 2)
       
        ReDim dvb(0 To Len(DV) / 2 - 1)
        For i = 0 To Len(DV) - 1 Step 2
            dvb(i / 2) = CByte("&H" & Mid(DV, i + 1, 2))
        Next i
       
        hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, Selected_ProcessId)
            Call VirtualProtectEx(hProcess, ByVal DA, UBound(dvb) + 1, PAGE_EXECUTE_READWRITE, DPT)
            Call WriteProcessMemory(hProcess, ByVal DA, dvb(0), UBound(dvb) + 1, 0&)
            Call VirtualProtectEx(hProcess, ByVal DA, UBound(dvb) + 1, DPT, DPT)
        Call CloseHandle(hProcess)
       
        Flag = Flag + 4 + DAs + DVs * 2
        If Flag < Len(CData) + 1 Then
            GoTo b
        End If
       
    End If
End Function