TC官方合作论坛

标题: 求帮助VB源码转TC码，有关Win API和dllcall [打印本页]
作者: pppgg123    时间: 2013-5-11 09:23
标题: 求帮助VB源码转TC码，有关Win API和dllcall
下面的源码的功用为后台组合键，这是我在按键论坛找到的，某些窗口适用

  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

  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窗口句柄

  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

  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    时间: 2013-5-11 09:27
自己一句句改吧 语法也没多大区别啊 win32api tc里也可以用dllcall
作者: 舍我其谁    时间: 2013-5-11 09:38
buhui.........



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1