可设定频率的自动连点器（仅限电脑端）

pe0ple · 2025-10-30 22:06:45 · 科技·工程

这个是vbs代码，需保存到文本文档中然后将文件后缀名改为.vbs(原先是.txt)。 需要注意，这个代码无法手动暂停，使用前请先学会用任务管理器。附：如果有人能用c++欢迎私信。

Set objShell = CreateObject("WScript.Shell")
interval = InputBox("请输入发送间隔时间（秒）：", "设置间隔", "1")
If interval = "" Then WScript.Quit 
' 毫秒
delay = CDbl(interval) * 1000
Do
    On Error Resume Next
    objShell.SendKeys "^v"
    objShell.SendKeys "{ENTER}"
    'objShell.SendKeys "^~"   在洛谷使用的话，删掉objShell.SendKeys "{ENTER}"和此行的'
    WScript.Sleep delay
    On Error Goto 0 
Loop

审核大大别杀我