ÃzÃz¤ý

§Ú¥ÎVB¼g­×§ï¾¹ ¼g¨ì«á­±¥u¯à­×§ï¼Æ¦r ½Ð°Ý§Ú±µ¤U¨ÓÀ³¸Ó¦p¦ó¼g
Bot = Len(Text5.Text)

For P = 0 To Bot - 1

aux = txtAns + P

lBassAddr = aux

ps = P + 1

tux = Mid(Text5.Text, ps, 1)

If tux = "" Then
HEX = "00"
ElseIf tux = 0 Then
HEX = "48"
ElseIf tux = 1 Then
HEX = "49"
ElseIf tux = 2 Then
HEX = "50"
ElseIf tux = 3 Then
HEX = "51"
ElseIf tux = 4 Then
HEX = "52"
ElseIf tux = 5 Then
HEX = "53"
ElseIf tux = 6 Then
HEX = "54"
ElseIf tux = 7 Then
HEX = "55"
ElseIf tux = 8 Then
HEX = "56"
ElseIf tux = 9 Then
HEX = "57"
End If


va = HEX

Data1 = va

CopyMemory s(0), Data1, n

'ReDim s(n - 1)
hWndOfApp = FindWindow(vbNullString, Text1.Text)
hThreadID = GetWindowThreadProcessId(hWndOfApp, hProcessID)
hProcess = OpenProcess(PROCESS_ALL_ACCESS _
, 0, hProcessID)
WriteProcessMemory hProcess, ByVal lBassAddr, s(0), n, ByVal 0&
CloseHandle hProcess
Next P

End Sub