. I named the exe "WINWORD" just for extra seurity.
Public Declare Function Editedstring1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Public Declare Function Editedstring2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function Editedstring3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function Editedstring4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long Public Declare Function Editedstring5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) AsLong Public Declare Function Editedstring6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Public Declare Function Editedstring7 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As