PB程序间传递字符串变量

PB程序间传递字符串变量
我们知道可以用Send ( handle, message#, lowword, long )函数完成不同程序窗口间的消息传递，其中最后两个参数为long型，因此可以利用这两个参数来传递数字型的变量。如果想传递的是字符串呢？由于每个进程都有自己独立的内存地址和内存空间，因此不可能直接通过访问变量地址的方法得到变量。

下面给出pb的方法：

source程序：

外部函数：

Function ulong GetCurrentProcessId() LIBRARY "kernel32.dll"

Function integer SndMsg(long hWnd, long uMsg, long url, &
     ref blob info) library "user32.dll" Alias For "SendMessageA

constant long PBM_CUSTOM01 = 1024

程序：

IF il_hTarget <= 0 THEN findTarget() //找接受变量的窗口，主要用findwindow实现
IF il_hTarget > 0 THEN
 String ls_len
 //组成一个要发送的字符串
 url+= " "+info+" "+String(srctype)+" "+String(offl.netype)
 //计算整个要发送字符的长度，并转化为长度为10的字符串
 ls_len = String(Len(url))
 IF Len(ls_len) < 10 THEN
  ls_len = Space(10 - Len(ls_len))+ls_len
 END IF
 //转化为blob并发送
 Blob lb_snd
 lb_snd = Blob(ls_len+url)
 SndMsg(il_hTarget, PBM_CUSTOM01 +9,getcurrentprocessID(),lb_snd)
END IF

 

target程序：

外部函数：

Function ulong OpenProcess(ulong dwDesiredAclearcase/" target="_blank" >ccess,ulong bInheritHandle,ulong dwProcessId) LIBRARY "kernel32.dll"
Function ulong ReadProcessMemoryStr(ulong hProcess,long lpBaseAddress,ref string lpBuffer,ulong nSize,ref long lpNumberOfBytesWritten) LIBRARY "kernel32.dll" Alias for "ReadProcessMemory"
Function ulong ReadProcessMemoryBlob(ulong hProcess,long lpBaseAddress,ref blob lpBuffer,ulong nSize,ref long lpNumberOfBytesWritten) LIBRARY "kernel32.dll" Alias for "ReadProcessMemory"


事件pbm_custom10:

If (wparam = 0) Or (lparam = 0) THEN RETURN

Long ll_null
SetNull(ll_null)

Long processhnd
CONSTANT Long  PROCESS_VM_READ = 16

processhnd = openprocess(PROCESS_VM_READ,0,wparam);
//读取发送进程的内存数据
String ls_size
Long ll_size
ls_size = Space(10) //数据的大小
ReadProcessMemoryStr(processhnd,lparam,ls_size,10,ll_null)
ll_size = Long(Trim(ls_size))

Blob lb_data
lb_data = Blob(String(Space(ll_size)))

ReadProcessMemoryBlob(processhnd,lparam+10,lb_data,ll_size,ll_null)

string ls_data

ls_data = String(lb_data) //好啦，收到礼物了

原文转自：http://www.ltesting.net