wapi 调用win32 api

cutebe

1. @echo off
   
2. cd/d%~dp0
   
3. wapi -init %_初始化_%
   
4. 
   
5. ::获取鼠标位置
   
6. wapi -rcall hHeap kernel32 GetProcessHeap
   
7. wapi -rcall lpMem kernel32 HeapAlloc $hHeap #0 #8
   
8. wapi -call User32 GetCursorPos $lpMem
   
9. for /f %%x in ('wapi -mget lpMem -d')do set "横坐标x=%%x"
   
10. for /f %%y in ('wapi -mget lpMem -d -offset 4')do set "纵坐标y=%%y"
    
11. wapi -call kernel32 HeapFree $hHeap #0 $lpMem
    
12. echo 鼠标指针坐标（%横坐标x%，%纵坐标y%）
    
13. 
    
14. ::设置鼠标位置
    
15. wapi -call User32 SetCursorPos #200 #100
    
16. 
    
17. ::单击        ::鼠标操作
    
18. ::wapi -call User32 mouse_event #6 #0 #0 #0 #0
    
19. ::右键
    
20. wapi -call User32 mouse_event #18h #0 #0 #0 #0
    
21. 
    
22. wapi -free %_释放资源_%
    
23. pause
    
24. goto :eof
    

复制代码

1. @echo off
   
2. cd/d%~dp0
   
3. wapi -init %_初始化_%
   
4. 
   
5. ::获取鼠标位置
   
6. ::wapi -rcall hHeap kernel32 GetProcessHeap
   
7. ::wapi -rcall lpMem kernel32 HeapAlloc $hHeap #0 #8
   
8. wapi -set 坐标 "12345678" %_坐标占8字节内存_%
   
9. wapi -call User32 GetCursorPos $坐标
   
10. for /f %%x in ('wapi -mget 坐标 -d')do set "横坐标x=%%x"
    
11. for /f %%y in ('wapi -mget 坐标 -d -offset 4')do set "纵坐标y=%%y"
    
12. ::wapi -call kernel32 HeapFree $hHeap #0 $lpMem
    
13. echo 鼠标指针坐标（%横坐标x%，%纵坐标y%）
    
14. 
    
15. ::设置鼠标位置
    
16. wapi -call User32 SetCursorPos #200 #100
    
17. 
    
18. ::双击        ::鼠标操作
    
19. wapi -call User32 mouse_event #6 #0 #0 #0 #0
    
20. wapi -call User32 mouse_event #6 #0 #0 #0 #0
    
21. ::右键
    
22. ::wapi -call User32 mouse_event #18h #0 #0 #0 #0
    
23. 
    
24. wapi -free %_释放资源_%
    
25. pause
    
26. goto :eof
    

复制代码

went

cutebe 发表于 2026-11-13 22:39

要直接设置cmd的变量,要用远程线程注入的方式,报毒几率非常大,所以还是用for捕获输出吧

cutebe

为字符串申请内存时，需要多一个字节\0，或多两个字符\0\0。
能否添加简单整数运算？

wapi -set 字符串 "设置剪贴板文本SetClipboardData1"
wapi -rcall 字节数 kernel32 lstrlenA $字符串
wapi -rcall 内存句柄 kernel32 GlobalAlloc #42h $字节数+1        //如红色的这个

另：测试字符串变量最大长度1024字节，超过时会卡死。

cutebe

测试一下

1. @echo off
   
2. cd/d%~dp0
   
3. wapi -init %_初始化_%
   
4. 
   
5. ::操作剪贴板文字
   
6. call :获取剪贴板文本
   
7. echo 以上显示剪贴板文本内容
   
8. pause
   
9. 
   
10. call :清空剪贴板
    
11. echo 当前剪贴板已清空
    
12. pause
    
13. 
    
14. set "字符串文本=设置剪贴板文本SetClipboardData1"
    
15. call :设置剪贴板文本 "%字符串文本%"
    
16. call :获取剪贴板文本
    
17. 
    
18. wapi -free %_释放资源_%
    
19. pause
    
20. goto :eof
    
21. ::=====结束=====
    
22. 
    
23. 
    
24. ::-----函数-----
    
25. :获取剪贴板文本 有字节数限制
    
26. wapi -call User32 OpenClipboard #0 %_打开剪贴板_%
    
27. wapi -rcall 内存句柄 User32 GetClipboardData #1 %_获取剪贴板文本数据_%
    
28. ::wapi -rcall 内存地址 kernel32 localLock $内存句柄 %_错误：加载函数失败_%
    
29. wapi -rcall 内存地址 kernel32 GlobalLock $内存句柄
    
30. wapi -rcall 内存字节数 kernel32 GlobalSize $内存句柄
    
31. wapi -rcall hHeap kernel32 GetProcessHeap
    
32. wapi -rcall lpMem kernel32 HeapAlloc $hHeap #0 $内存字节数
    
33. wapi -rcall 复制长度 kernel32 lstrcpynA $lpMem $内存地址 $内存字节数
    
34. ::wapi -call kernel32 localUnlock $内存句柄 %_错误：加载函数失败_%
    
35. wapi -call kernel32 GlobalUnlock $内存句柄
    
36. wapi -call User32 CloseClipboard %_关闭剪贴板_%
    
37. wapi -get lpMem -str %_显示文本_%
    
38. wapi -call kernel32 HeapFree $hHeap #0 $lpMem
    
39. goto :eof
    
40. 
    
41. :清空剪贴板
    
42. wapi -call User32 OpenClipboard #0 %_打开剪贴板_%
    
43. wapi -call User32 EmptyClipboard %_清空剪贴板_%
    
44. wapi -call User32 CloseClipboard %_关闭剪贴板_%
    
45. goto :eof
    
46. 
    
47. :设置剪贴板文本 字符串文本
    
48. set "剪贴板文本=%~1"
    
49. wapi -call User32 OpenClipboard #0 %_打开剪贴板_%
    
50. wapi -call User32 EmptyClipboard %_清空剪贴板_%
    
51. wapi -set 剪贴板文本 "%剪贴板文本%0"
    
52. wapi -rcall 文本字节数 kernel32 lstrlenA $剪贴板文本
    
53. wapi -rcall 内存句柄 kernel32 GlobalAlloc #42h $文本字节数
    
54. wapi -rcall 内存地址 kernel32 GlobalLock $内存句柄
    
55. wapi -rcall 复制长度 kernel32 lstrcpynA $内存地址 "%剪贴板文本%" $文本字节数
    
56. wapi -call kernel32 GlobalUnlock $内存句柄
    
57. wapi -rcall 文本内容 User32 SetClipboardData #1 $内存句柄 %_设置剪贴板文本数据_%
    
58. wapi -call User32 CloseClipboard %_关闭剪贴板_%
    
59. goto :eof
    

复制代码

went

cutebe 发表于 2026-11-14 15:12
为字符串申请内存时，需要多一个字节\0，或多两个字符\0\0。
能否添加简单整数运算？

变量长度是无限制的,只是管道通信的buf只设置了1024字节,用来给for交换数据, 超过-get -str会引发内存越界
cmd变量长度本身也有限制 当然可以设计为直接打印内存字符串,但就不能用for捕获了,所以有限制

Five66

went 发表于 2026-11-12 22:37
1.1版更新了内存编辑功能 wapi -sample有详细用法

厉害了, 更新的这么快
不过命令行参数好像只解析一次, 也只执行一次
如果像imagemagick那样逐个解析并处理直到结束的话就能省很多事了

1. 
   
2. wapi -init -rcall hHeap kernel32 GetProcessHeap -rcall lpMem1 kernel32 HeapAlloc $hHeap #8h #16 -free
   

复制代码

went

1.3更新了格式化输出功能, -out,单独缓冲区10mb,注意此输出不能用for捕获,纯输出功能
示例 - 格式化输出.bat

1. @echo off & cd /d "%~dp0"
   
2. set "PATH=%PATH%;.."
   
3. 
   
4. rem 初始化
   
5. wapi -init
   
6. REM wapi -init -debug
   
7. 
   
8. wapi -set n1 #1234567
   
9. wapi -set f1 @3.1415926
   
10. wapi -set str "hello world"
    
11. 
    
12. wapi -out "输出: n1=%%d,0x%%xh,%%q f1=%%10f str=%%s" $n1 $n1 $$n1 $f1 $str
    
13. 
    
14. rem 释放资源
    
15. wapi -free
    
16. 
    
17. pause&exit
    
18. 
    
19. :err
    
20. echo 调用失败
    
21. pause&exit

复制代码

went

cutebe 发表于 2026-11-14 15:19
测试一下

wapi -out "剪贴版数据:%%s" $lpMem