有谁帮我弄个重复按键VBS脚本

Posted 2023-04-24

需要重复按alt功能键两次，间隔30秒按一次。谢谢

Dim WshShell,Path,i  
Set WshShell = WScript.CreateObject("WScript.Shell")  
do while true
WshShell.SendKeys "%"  
WshShell.SendKeys "%"  
wscript.sleep 30000
loop

代码如上 死循环没30秒执行一次按键

追问

谢谢你，按键精灵我做出来了 但是vb的我做不出来 我也这样写过 但是效果不出来。

参考技术A 建议下载个按键精灵🧚‍♀️ 参考技术B 点我简介看下，有资源的

谁帮我写一个这样的易语言代码

谁帮我写一个这样的易语言代码"result":"data":["head":"cmd":82,"courseid":100131688,"uin":0,"seq":"102487834150226","client_type":0,"flag":0,"body":"rpt_msg_entry":["msg_body":"msg_rich_text":"msg_attr":"uint32_char_set":0,"uint32_color":0,"uint32_effect":0,"uint32_pitch_and_family":0,"uint32_time":1509862718,"rpt_msg_elems":["msg_text":"bytes_str":"早上十点多吃了","uint32_elem_type":1,"msg_add_info":"str_nick_name":"梦想办公家具企业店","uint32_elem_type":18],"msg_content_head":"uint32_div_seq":1509862718,"uint32_pkg_index":0,"uint32_pkg_num":1,"msg_msg_head":"str_remark":"@SELF-1509862718562","uint32_course_id":100131688,"uint32_label":0,"uint32_msg_seq":567914,"uint32_msg_time":1509862716,"uint32_room_id":0,"uint32_uid_type":0,"uint64_from_uin":"256807993","uint64_msg_uid":212410,"uint64_to_uin":"0"]
,"head":"cmd":77,"courseid":100131688,"uin":0,"seq":"102487834586383","client_type":0,"flag":0,"body":"msg_subcmd0x2_member_update_list":"rpt_msg_member_update_list":[],"str_course_abs_id":"100131688","uint32_totalcount":66,"uint32_sub_cmd":2
],"msg":"OK","gettoken":0,"next_heart":0,"retcode":0

已经回答过了你。

json使用问题。

=======================

这是一段json文本，你毛正则表达式！！

看下面也是一段json：

"url":"http://qqe2.com","name":"欢迎使用JSON在线解析编辑器","array":"JSON校验":"http://jsonlint.qqe2.com/","Cron生成":"http://cron.qqe2.com/","JS加密解密":"http://edit.qqe2.com/","boolean":true,"null":null,"number":123,"object":"a":"b","c":"d","e":"f"

分析一下json：

分析后，我们取“url”和“a”的值：

编辑框2.内容=json.取通用属性（“url”），就能得到url的值。

同理。

其他json使用请自己去学习

参考技术A

.版本 2

.支持库 spec

.局部变量 Json, 类_Json

.局部变量 属性值, 文本型

.局部变量 n, 整数型

Json.解析 (#常量1)

调试输出 (Json.取通用属性 (“result.data[0].body.rpt_msg_entry[0].msg_body.msg_rich_text.rpt_msg_elems[1].msg_add_info.str_nick_name”))

调试输出 (Json.取通用属性 (“result.data[0].body.rpt_msg_entry[0].msg_msg_head.uint64_from_uin”))

Json.清除 ()