无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 3917|回复: 12
打印 上一主题 下一主题

[求助] VBS中能不能实现sendkeys 发送键盘ascii码?

[复制链接]
跳转到指定楼层
1#
发表于 2020-5-17 12:20:12 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
如果不行的话,有其它什么办法来发送ascii码控制鼠标移动点击的吗?不要说用按键精灵之类的啊。
13#
 楼主| 发表于 2020-5-17 16:20:24 | 只看该作者

au3 搜到过,不知道能不能实现。
回复

使用道具 举报

12#
 楼主| 发表于 2020-5-17 16:19:51 | 只看该作者
caocaofff 发表于 2020-5-17 16:12
其实之前论坛有大牛分享过用PECMD代码实现模拟按键功能的,而且是全静默无界面

我搜搜看。。。看能不能找到
回复

使用道具 举报

11#
 楼主| 发表于 2020-5-17 16:19:20 | 只看该作者
caocaofff 发表于 2020-5-17 16:11
收益?卧槽 二三四五警告

回复

使用道具 举报

10#
发表于 2020-5-17 16:15:06 | 只看该作者
au3吧

点评

au3 搜到过,不知道能不能实现。  详情 回复 发表于 2020-5-17 16:20
回复

使用道具 举报

9#
发表于 2020-5-17 16:12:48 | 只看该作者
其实之前论坛有大牛分享过用PECMD代码实现模拟按键功能的,而且是全静默无界面

点评

我搜搜看。。。看能不能找到  详情 回复 发表于 2020-5-17 16:19
回复

使用道具 举报

8#
发表于 2020-5-17 16:11:04 | 只看该作者
tylzqiqi 发表于 2020-5-17 15:45
具体有教程吗?兄弟?安装后影响收益吗

收益?卧槽 二三四五警告
回复

使用道具 举报

7#
 楼主| 发表于 2020-5-17 15:45:19 | 只看该作者
9zhmke 发表于 2020-5-17 15:42
最简单的方法就是把软件安装出来再打个包,再也不用去点那些下一步了,我的软件就这么全做成静默版的了, ...

具体有教程吗?兄弟?安装后影响收益吗

点评

收益?卧槽 二三四五警告  详情 回复 发表于 2020-5-17 16:11
回复

使用道具 举报

6#
发表于 2020-5-17 15:42:31 | 只看该作者

最简单的方法就是把软件安装出来再打个包,再也不用去点那些下一步了,我的软件就这么全做成静默版的了,否则每周装一两次谁有精力啊

点评

具体有教程吗?兄弟?安装后影响收益吗  详情 回复 发表于 2020-5-17 15:45
回复

使用道具 举报

5#
 楼主| 发表于 2020-5-17 15:38:22 | 只看该作者
9zhmke 发表于 2020-5-17 15:35
VBS可以发送按键,直接发送chr(号码)就可以了,但要求必须是当前窗口,兼容性不够好,经常会出现无法控制的 ...

谢谢。
回复

使用道具 举报

4#
 楼主| 发表于 2020-5-17 15:37:45 | 只看该作者
caocaofff 发表于 2020-5-17 14:22
看样子楼主是想实现静默安装软件?

聪明人

点评

最简单的方法就是把软件安装出来再打个包,再也不用去点那些小一步了,我的常用软件就这么全做成静默版的了,否则每周装一两次谁有精力啊  详情 回复 发表于 2020-5-17 15:42
回复

使用道具 举报

3#
发表于 2020-5-17 15:35:02 | 只看该作者
本帖最后由 9zhmke 于 2020-5-17 15:37 编辑

VBS可以发送按键,直接发送chr(号码)就可以了,但要求必须是当前窗口,兼容性不够好,经常会出现无法控制的情况;
VBS不能控制鼠标,但可以独立使用按键精灵的dm.dll来实现,用完卸载dm.dll即可:

  1. On Error Resume Next
  2.         Set dm= CreateObject("dm.dmsoft")
  3.         base_path = dm.GetBasePath() '检查是否注册大漠组件dm.dll,以更好支持鼠标、窗口、OCR等功能
  4.         If base_path="" Then
  5.                 ws.Run "regsvr32"&" /S """ & ws.CurrentDirectory & "dm.dll""" '因没有注册大漠组件dm.dll,记着带上路径
  6.                 ws.Run "wscript.exe "& Wscript.scriptfullname '重新运行并退出
  7.                 wscript.sleep 200
  8.                 wscript.quit
  9.         End If
  10. On error goto 0
复制代码


点评

谢谢。  详情 回复 发表于 2020-5-17 15:38
回复

使用道具 举报

2#
发表于 2020-5-17 14:22:24 | 只看该作者
看样子楼主是想实现静默安装软件?

点评

聪明人  详情 回复 发表于 2020-5-17 15:37
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-26 16:00

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表