Dll命令用法

猫不吃鱼

.版本 2
.子程序 更换编辑框内容
.参数 内容, 文本型
SendMessageA_2 (编辑框1.取窗口句柄(), 194, 0, “10”)  ' 用指定文本替换编辑控件中的当前选定内容
.DLL命令 SendMessageA_2, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型安全”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 文本型, , 具体取决于消息;
这样写有什么错吗？
为什么老重复那个“10”两次

Antony

能把源码发出来吗

梦幻空花

路过..看下拉

猫不吃鱼

[e].版本 2

.DLL命令 SetWindowLongA, 子程序指针, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 子程序指针, , 由nIndex指定的窗口信息的新值

.DLL命令 SendMessageA2, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型安全”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 sMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 文本型, , 具体取决于消息;

.DLL命令 SendMessageA, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型安全”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA", , 将消息传答窗口函数
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.版本 2

.程序集 窗口程序集1
.程序集变量 焦点控件句柄, 整数型
.程序集变量 旧窗口函数, 子程序指针

.子程序 __启动窗口_创建完毕

取键代码 (编辑框1.取窗口句柄 ())


.子程序 编辑框内容
.参数 编辑框句柄, 整数型
.参数 内容, 文本型
.局部变量 文本长度, 整数型

文本长度 ＝ SendMessageA (编辑框句柄, 193, 0, 0)
SendMessageA (编辑框句柄, 177, 0, 文本长度)
SendMessageA_2 (编辑框句柄, 194, 0, 内容)


.子程序 编辑框只读
.参数 编辑框句柄, 整数型
.参数 只读, 逻辑型

.如果 (只读)
    SendMessageA (编辑框句柄, 207, 1, 0)
.否则
    SendMessageA (编辑框句柄, 207, 0, 0)
.如果结束


.子程序 取键代码, 整数型, , 成功返回非0，失败返回0
.参数 编辑框句柄, 整数型

旧窗口函数 ＝ SetWindowLongA (编辑框句柄, -4, &处理)
.如果真 (到数值 (旧窗口函数) ≠ 0)
    编辑框只读 (编辑框句柄, 真)
    编辑框内容 (编辑框句柄, “”)
.如果真结束
返回 (0)



.子程序 处理, 整数型
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.判断开始 (消息 ＝ 256)
    编辑框内容 (窗口句柄, “OK”)  ' 这里明明写的是“OK”，为什么在调试时有两个“OK”？
.判断 (消息 ＝ 257)
    返回 (0)
.判断 (消息 ＝ 123)  ' 按下鼠标右键
    编辑框内容 (窗口句柄, “”)  ' 清空编辑框内容
.判断 (消息 ＝ 512)  ' 移动鼠标
    返回 (0)
.判断 (消息 ＝ 515)  ' 双击鼠标左键
    返回 (0)
.默认
    CallWindowProcA (旧窗口函数, 窗口句柄, 消息, 参数一, 参数二)
.判断结束
返回 (CallWindowProcA (旧窗口函数, 窗口句柄, 消息, 参数一, 参数二))
[/e]
一个编辑框

猫不吃鱼

小人物 发表于 2011-8-12 10:34
能把源码发出来吗

1. .版本 2
   
2. 
   
3. .程序集变量 焦点控件句柄, 整数型
   
4. .程序集变量 旧窗口函数, 子程序指针
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. 接受消息 (编辑框1.取窗口句柄 ())
   
9. 
   
10. 
    
11. .子程序 编辑框内容
    
12. .参数 编辑框句柄, 整数型
    
13. .参数 内容, 文本型
    
14. .局部变量 文本长度, 整数型
    
15. 
    
16. 文本长度 ＝ SendMessageA (编辑框句柄, 193, 0, 0)
    
17. SendMessageA (编辑框句柄, 177, 0, 文本长度)
    
18. SendMessageA_2 (编辑框句柄, 194, 0, 内容)
    
19. 
    
20. 
    
21. .子程序 编辑框只读
    
22. .参数 编辑框句柄, 整数型
    
23. .参数 只读, 逻辑型
    
24. 
    
25. .如果 (只读)
    
26.     SendMessageA (编辑框句柄, 207, 1, 0)
    
27. .否则
    
28.     SendMessageA (编辑框句柄, 207, 0, 0)
    
29. .如果结束
    
30. 
    
31. 
    
32. .子程序 接受消息, 整数型, , 失败返回0
    
33. .参数 编辑框句柄, 整数型
    
34. 
    
35. 旧窗口函数 ＝ SetWindowLongA (编辑框句柄, -4, &处理)
    
36. .如果真 (到数值 (旧窗口函数) ≠ 0)
    
37.     编辑框只读 (编辑框句柄, 真)
    
38.     编辑框内容 (编辑框句柄, “”)
    
39. .如果真结束
    
40. 返回 (0)
    
41. 
    
42. 
    
43. 
    
44. .子程序 处理, 整数型
    
45. .参数 窗口句柄, 整数型
    
46. .参数 消息, 整数型
    
47. .参数 参数一, 整数型
    
48. .参数 参数二, 整数型
    
49. 
    
50. .判断开始 (消息 ＝ 256)
    
51.     编辑框内容 (窗口句柄, “OK”)  ' 这里明明写的是“OK”，为什么在调试时有两个“OK”？
    
52. .判断 (消息 ＝ 257)
    
53.     返回 (0)
    
54. .判断 (消息 ＝ 123)  ' 按下鼠标右键
    
55.     编辑框内容 (窗口句柄, “”)  ' 清空编辑框内容
    
56. .判断 (消息 ＝ 512)  ' 移动鼠标
    
57.     返回 (0)
    
58. .判断 (消息 ＝ 515)  ' 双击鼠标左键
    
59.     返回 (0)
    
60. .默认
    
61.     CallWindowProcA (旧窗口函数, 窗口句柄, 消息, 参数一, 参数二)
    
62. .判断结束
    
63. 返回 (CallWindowProcA (旧窗口函数, 窗口句柄, 消息, 参数一, 参数二))
    

复制代码

Dll命令

1. .版本 2
   
2. 
   
3. .DLL命令 SetWindowLongA, 子程序指针, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
   
4.     .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
   
5.     .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
   
6.     .参数 dwNewLong, 子程序指针, , 由nIndex指定的窗口信息的新值
   
7. 
   
8. .DLL命令 SendMessageA_2, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型安全”声明形式　由具体的消息决定
   
9.     .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
   
10.     .参数 sMsg, 整数型, , 消息的标识符
    
11.     .参数 wParam, 整数型, , 具体取决于消息
    
12.     .参数 lParam, 文本型, , 具体取决于消息;
    
13. 
    
14. .DLL命令 SendMessageA, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型安全”声明形式　由具体的消息决定
    
15.     .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    
16.     .参数 信息值, 整数型, , 消息的标识符
    
17.     .参数 参数一, 整数型, , 具体取决于消息
    
18.     .参数 参数二, 整数型, , 具体取决于消息;
    
19. 
    
20. .DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA", , 将消息传答窗口函数
    
21.     .参数 lpPrevWndFunc, 子程序指针
    
22.     .参数 hWnd, 整数型
    
23.     .参数 Msg, 整数型
    
24.     .参数 wParam, 整数型
    
25.     .参数 lParam, 整数型
    

复制代码

一个编辑框

976074883

啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

杜巴

哇
好难的说 以后再学

象记工程师

这个要学一学······

s19876699

自己去下一个易伴侣

猫不吃鱼

s19876699 发表于 2011-8-17 15:35
自己去下一个易伴侣

在哪下的啊？？？