求帮助VB源码转TC码，有关Win API和dllcall

pppgg123

下面的源码的功用为后台组合键，这是我在按键论坛找到的，某些窗口适用

1. 
   
2. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
3. Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
   
4. Const WM_KEYDOWN = &H100
   
5. Const WM_KEYUP = &H101
   
6. Const WM_CHAR = &H102
   
7. Const WM_SYSKEYDOWN = &H104
   
8. Const WM_SYSKEYUP = &H105
   
9. Const WM_SYSCHAR = &H106
   
10. Const WM_LBUTTONDOWN = &H201
    
11. Const WM_LBUTTONUP = &H202
    
12. Const WM_RBUTTONDOWN = &H204
    
13. Const WM_RBUTTONUP = &H205
    
14. Function MakeKeyLparam(VirtualKey,flag)
    
15.     Dim s,Firstbyte'lparam参数的24-31位
    
16.     Select Case flag
    
17.     Case WM_KEYDOWN
    
18.         Firstbyte = "00"
    
19.     Case WM_KEYUP
    
20.         Firstbyte = "C0"    '如果是释放键
    
21.     Case WM_CHAR
    
22.         Firstbyte = "C0"
    
23.     Case WM_SYSKEYDOWN
    
24.         Firstbyte = "20"
    
25.     Case WM_SYSKEYUP
    
26.         Firstbyte = "E0"
    
27.     Case WM_SYSCHAR
    
28.         Firstbyte = "E0"
    
29.     End Select
    
30.     Dim Scancode
    
31.     '获得键的扫描码
    
32.     Scancode = MapVirtualKey(VirtualKey, 0)
    
33.     Dim Secondbyte 'lparam参数的16-23位，即虚拟键扫描码
    
34.     Secondbyte = Right("00" & Hex(Scancode), 2)
    
35.     s = Firstbyte & Secondbyte & "0001"   '0001为lparam参数的0-15位，即发送次数和其它扩展信息
    
36.     MakeKeyLparam = Eval("&H" & s)
    
37. End Function
    
38. Function SendAltPlusKey(Hwnd,Key)
    
39.     Dim vkey
    
40.     vkey = Eval("&H" & Hex(Key))
    
41.     PostMessage hwnd, WM_SYSKEYDOWN, &H12, MakeKeyLparam(&H12, WM_SYSKEYDOWN)
    
42.     PostMessage hwnd, WM_SYSKEYDOWN, vkey, MakeKeyLparam(vkey, WM_SYSKEYDOWN)
    
43.     PostMessage hwnd, WM_SYSKEYUP, vkey, MakeKeyLparam(vkey, WM_SYSKEYUP)
    
44.     PostMessage hwnd, WM_KEYUP, &H12, MakeKeyLparam(&H12, WM_KEYUP)   
    
45. End Function
    
46. Function SendCtrlPlusKey(Hwnd,Key)
    
47.     Dim vkey
    
48.     vkey = Eval("&H" & Hex(Key))
    
49.     KeyDown 17, 1
    
50.     //PostMessage hwnd, WM_KEYDOWN, &H11, MakeKeyLparam(&H11, WM_KEYDOWN)
    
51.     PostMessage hwnd, WM_KEYDOWN, vkey, MakeKeyLparam(vkey, WM_KEYDOWN)
    
52.     PostMessage hwnd, WM_KEYUP, vkey, MakeKeyLparam(vkey, WM_KEYUP)
    
53.     KeyUp 17, 1
    
54.     //PostMessage hwnd, WM_KEYUP, &H11, MakeKeyLparam(&H11, WM_KEYUP)   
    
55. End Function
    
56. Function SendLclick(hwnd,x,y)
    
57.     PostMessage hwnd, WM_LBUTTONDOWN, 0, Eval("&H" & Hex(y * 65536 + x))
    
58.     PostMessage hwnd, WM_LBUTTONUP, 0, Eval("&H" & Hex(y * 65536 + x))        
    
59. End Function
    
60. Function SendRclick(hwnd,x,y)
    
61.     PostMessage hwnd, WM_RBUTTONDOWN, 0, Eval("&H" & Hex(y * 65536 + x))
    
62.     PostMessage hwnd, WM_RBUTTONUP, 0, Eval("&H" & Hex(y * 65536 + x))        
    
63. End Function
    
64. Function SendKey(hwnd, key)
    
65.     Dim vkey
    
66.     vkey = Eval("&H" & Hex(Key))
    
67.     PostMessage hwnd, WM_KEYDOWN, vkey, MakeKeyLparam(vkey, WM_KEYDOWN)
    
68.     PostMessage hwnd, WM_KEYUP, vkey, MakeKeyLparam(vkey, WM_KEYUP)
    
69. End Function
    
70. 
    
71. //运行notepad
    
72. RunApp "notepad.exe"
    
73. Delay 100
    
74. Hwnd = Plugin.Window.Find("Notepad", 0)
    
75. Hwndex =Plugin.Window.FindEx(Hwnd,0,"edit",0) //获取edit窗口句柄
    
76. 
    
77. //输入点数据
    
78. For k=0 to 9
    
79. For i= 0 to 9
    
80. SendKey hwndex, 48+(k+i) mod 10
    
81. Delay 10
    
82. Next
    
83. SendKey hwndex, 13
    
84. Next
    
85. 
    
86. SendCtrlPlusKey Hwndex,65 //ctrl+a 全选
    
87. Delay 500
    
88. SendRclick Hwndex, 100, 100 //窗口坐标(100,100)处点击右键
    
89. Delay 500
    
90. SendKey hwndex, 67    //按c复制
    
91. Delay 500
    
92. SendLclick Hwndex, 1, 170  //窗口坐标(1,170)处点击左键
    
93. Delay 100
    
94. SendRclick Hwndex, 1, 170 //窗口坐标(1,170)处点击左键
    
95. Delay 500
    
96. SendKey hwndex, 80  //按p粘贴
    
97. Delay 100
    

复制代码

按键精灵复制贴上可以直接使用，有人能帮翻成TC能使用的格式吗?
另外TC好像也有同样的API postmessage(hwnd,msg,wparam,iparam)
要怎样应用能跟上面源码有相同功用?
另外求有关TC调用Win API相关影片教程，最近好像常用到这类东西

jimye0526

自己一句句改吧 语法也没多大区别啊 win32api tc里也可以用dllcall

舍我其谁

buhui.........