关于大漠插件用了收费功能的问题

110ghjk

LEOONL 发表于 2024-7-13 23:03
挡住就找不到说明绑定方式不是后台是前台，用后台绑定工具调试改绑定参数试试，旧版dll和新版dll使用没啥 ...

我改用gdi模式绑定窗口，然后成功了。 还有最后一个问题... 就是 KeyDown是按住按键对吧，好像不起作用，实现的效果还是和KeyPress一样，按一下就松开了。 我想实现的是 Ctrl+V粘贴剪辑版的文本，查了其他的帖子，给的解决办法是用模拟按键，但是我希望是绑定的窗口内操作这个按键，而不影响我在外面其他的操作。。。  有解决办法吗？

LEOONL

为什么会觉得是按下松开了，实在不行用键盘消息试试

110ghjk

LEOONL 发表于 2024-7-13 23:20
为什么会觉得是按下松开了，实在不行用键盘消息试试

我用FindStr找字后，moveTo那个位置，然后点击的输入框，剪辑版已经有数据了的。 然后我用 KeyDown 按下ctrl键 再按下V键，结果直接输出V 这个ctrl 不起作用。

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 spec

                dm.MoveTo (x － 20, y)
                延迟 (100)
                dm.LeftClick ()
                dm.KeyDown (17)
                dm.KeyPress (86)
                延迟 (300)
                dm.KeyUp ()

LEOONL

110ghjk 发表于 2024-7-13 23:29
我用FindStr找字后，moveTo那个位置，然后点击的输入框，剪辑版已经有数据了的。 然后我用 KeyDown 按下c ...

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

置剪辑板文本 ()

子程序名	返回值类型	公开	备 注
置文本

鼠标_移动 (按钮1.取窗口句柄 (), 1, 1)
鼠标_按键 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 置剪辑板文本 ()<br /> <br /> .子程序 置文本<br /> <br /> 鼠标_移动 (按钮1.取窗口句柄 (), 1, 1)<br /> 鼠标_按键 ()

置剪辑板文本不要在程序里直接写，用置文本调用外部点击按钮的方式置就可以了

LEOONL

110ghjk 发表于 2024-7-13 23:29
我用FindStr找字后，moveTo那个位置，然后点击的输入框，剪辑版已经有数据了的。 然后我用 KeyDown 按下c ...

dm.KeyDown (17)
延迟（300）
dm.KeyPress (86)

这里加延迟呢

110ghjk

LEOONL 发表于 2024-7-13 23:41
[e=0].版本 2

.子程序 _按钮1_被单击

我现在改用鼠标右键->粘贴 的方式可以了，只是组合按键还是不成功。

我现在是直接用精易模块的 剪辑板_置文本 (“xxxx”) 将文本放入剪辑板的。

我是用的组合框，也就是html中的<select> 来选择复制文本的...

110ghjk

LEOONL 发表于 2024-7-13 23:46
dm.KeyDown (17)
延迟（300）
dm.KeyPress (86)

输入框里还是只会输出一个v 我手动ctrl+v是有数据的

LEOONL

110ghjk 发表于 2024-7-14 00:14
输入框里还是只会输出一个v 我手动ctrl+v是有数据的

dm.KeyDown (17)
延迟 (300)
dm.KeyDown (86)
dm.KeyUp (86)
延迟 (300)
dm.KeyUp (17)

不行就换键盘绑定方式试试，应该是没理由不行的，多调试看看

110ghjk

LEOONL 发表于 2024-7-14 00:18
dm.KeyDown (17)
延迟 (300)
dm.KeyDown (86)

  

dm.MoveTo (x, y)
延迟 (100)
dm.LeftClick ()
延迟 (300)
键盘_模拟输入 (剪辑板_取文本 ())
dm.MoveTo (x, y)
延迟 (100)
dm.LeftClick ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br />             dm.MoveTo (x, y)<br />             延迟 (100)<br />             dm.LeftClick ()<br />             延迟 (300)<br />             键盘_模拟输入 (剪辑板_取文本 ())<br />             dm.MoveTo (x, y)<br />             延迟 (100)<br />             dm.LeftClick ()

你说的那个方法，还是没有实现，我换了个思路。

用这样的方法，也可以实现那个功能。

LEOONL

110ghjk 发表于 2024-7-14 00:33

  

[/quote]
[e=0].版本 2

子程序名	返回值类型	公开	备 注
大漠_模拟文本输入
参数名	类 型	参考	可空	数组	备 注
输入文本	文本型
延时	整数型

变量名	类 型	静态	数组	备 注
n	整数型
按键文本	文本型

计次循环首 (取文本长度 (输入文本), n)
按键文本 ＝ 取文本中间 (输入文本, n, 1)
dm.KeyPress (键盘_键名取键代码 (按键文本))
延时 (延时)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec</blockquote></div><br /> [e=0].版本 2<br /> <br /> .子程序 大漠_模拟文本输入, , 公开<br /> .参数 输入文本, 文本型<br /> .参数 延时, 整数型, 可空<br /> .局部变量 n, 整数型<br /> .局部变量 按键文本, 文本型<br /> <br /> .计次循环首 (取文本长度 (输入文本), n)<br />     按键文本 ＝ 取文本中间 (输入文本, n, 1)<br />     dm.KeyPress (键盘_键名取键代码 (按键文本))<br />     延时 (延时)<br /> .计次循环尾 ()

是的，想解决组合键失效问题忘了还有这种实现方法，给你一个大漠的文本输入