易语言PostMessage

Posted 2023-03-09

谁帮我把这段Delphi代码弄成易语言的
for e:=1 to length(s1) do 把字符串按字符数量循环压进CHAR里
PostMessage(Ghwnd,WM_CHAR,Ord(s1[e])and $FF,0); （向指定窗口句柄，发送WM_CHAR和按下消息）
PostMessage(Ghwnd,WM_CHAR,VK_RETURN,0); （向指定窗口句柄，抬起消息）
这个和上面是一样的意思
for e:=1 to length(s1) do //循环
sendmessage(Ghwnd,WM_Char,Wparam(s1[e]),0);//向窗口句柄Ghwnd发送字符串
PostMessage(Ghwnd, WM_KEYDOWN, VK_RETURN, 0);//按键消息---确定键按下
PostMessage(Ghwnd, WM_KEYUP, VK_RETURN, 0); //按键消息---确定键抬起
这个在delphi和VC是差不多的，都好用，按照sendmessage或者PostMessage函数拿来就能用，在易语言里我不会用，帮人家忙，需要写这2句，我不会易，希望易友帮忙，我主要是这个在易里怎么声明才好调用，什么DLL库什么，怎么弄？请说清楚具体一点。
谢谢！ 在线等
易语言怎么把字符串压成字符？怎么循环？好像提示要编一个子程序？
易用点函数还挺费劲的。

.版本 2
.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessage", , 如果函数调用成功，返回非零值：如果函数调用失败，返回值是零
.参数 hWnd, 整数型, , 其窗口程序接收消息的窗口的句柄
.参数 Msg, 整数型, , 指定被寄送的消息
.参数 wParam, 整数型, , 指定附加的消息特定的信息
.参数 IParam, 整数型, , 指定附加的消息特定的信息
.DLL命令 PostMessage, 整数型, "user32.dll", "PostMessage", , 如果函数调用成功，返回非零值：如果函数调用失败，返回值是零
.参数 hWnd, 整数型, , 其窗口程序接收消息的窗口的句柄
.参数 Msg, 整数型, , 指定被寄送的消息
.参数 wParam, 整数型, , 指定附加的消息特定的信息
.参数 IParam, 整数型, , 指定附加的消息特定的信息 参考技术A Delphi代码我不怎么会看，但我会易的声明库，其实在易声明是不需要知道什么库的，只要函数名正确就基本就OK了，库名是可空的，易会自己对上！

.版本 2
.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"
.参数 hWnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 PostMessage, 整数型, "user32.dll", "PostMessageA"
.参数 hWnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型 参考技术B Private Const WM_KEYUP = &H101