And have tried to modify the variable's type and value, none of them works.
Modified items:Image: https://i.ibb.co/hfnhX0K/Snipaste-2024-02-03-23-02-01.png
There is no error message and no correct operation excuted by TC.
Got stucked for short function.
Any help would be appreciated.
If there is any method that can get some return value after sending message, that would be helpful.
Here it has been discussed before but seems no progress in this point.
viewtopic.php?t=51249
Setting in usercmd.ini
Code: Select all
cmd=CD
param=D:\SoftX\AHK_Scripts_V2\Lib\
Code: Select all
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPtr
Public Type CopyDataStruct
dwData As LongPtr
cbData As Long
lpData As LongPtr
End Type
Private Const WM_COPYDATA = &H4A
Sub TC_SendUserCMD()
Dim UserCMD As String
UserCMD = "em_focusfile"
Dim cds As CopyDataStruct, result As LongPtr
Dim hwndTC As LongPtr
Dim wParam As Long
wParam = 0
hwndTC = FindWindow("TTOTAL_CMD", vbNullString)
cds.dwData = Asc("E") + 256 * Asc("M")
cds.cbData = Len(UserCMD) * 2 + 2 'The size, in bytes
cds.lpData = StrPtr(UserCMD)
result = SendMessage(hwndTC, WM_COPYDATA, wParam, cds)
End Sub