I need to send a message to another already running application and from the second application react to it.
===========================================
send.bas
STATIC IMSG AS LONG
dim txt1 as string
tst1="testing"
IMSG = RegisterWindowMessage ("MESSAGE_NAME1234") ' get the value we'll be looking for
SendMessage (%HWND_BROADCAST, IMSG, 1234, strPTR(txt1) )
============================================
get.bas
'-------------------
GLOBAL IMSG as long
'-------------------
FUNCTION WndProc (BYVAL hWnd AS LONG, BYVAL wMsg AS LONG, BYVAL wParam AS LONG, BYVAL lParam AS LONG) EXPORT AS LONG
SELECT CASE wMsg
cASE IMSG
LOCAL pp AS string PTR
LOCAL ppL AS LONG PTR
ppL = wParam
pp = lParam
MsgBox STR$(ppL)
MsgBox @pp
....
'=========================================
Result:
display wParam = 1234 , lParam =""
string data are not working. pls help and check my program.
Anyone gone this direction that can help me out?
===========================================
send.bas
STATIC IMSG AS LONG
dim txt1 as string
tst1="testing"
IMSG = RegisterWindowMessage ("MESSAGE_NAME1234") ' get the value we'll be looking for
SendMessage (%HWND_BROADCAST, IMSG, 1234, strPTR(txt1) )
============================================
get.bas
'-------------------
GLOBAL IMSG as long
'-------------------
FUNCTION WndProc (BYVAL hWnd AS LONG, BYVAL wMsg AS LONG, BYVAL wParam AS LONG, BYVAL lParam AS LONG) EXPORT AS LONG
SELECT CASE wMsg
cASE IMSG
LOCAL pp AS string PTR
LOCAL ppL AS LONG PTR
ppL = wParam
pp = lParam
MsgBox STR$(ppL)
MsgBox @pp
....
'=========================================
Result:
display wParam = 1234 , lParam =""
string data are not working. pls help and check my program.
Anyone gone this direction that can help me out?
Comment