txt = "此处替换为要键入的文字即可（4号网发布分享 4.plus）"

Call sendstring(txt)

Sub sendstring(str)
    Dim i, j, t
    For i = 1 To len(str)
        t = asc(mid(str, i, 1)) + 65536
        KeyDown 18,1
        For j = 1 To len(t)
            KeyPress "Num " & mid(t, j, 1), 1
        Next
        KeyUp 18,1
    Next
End Sub

右侧附一个自用版：

用了两年多了，没毛病。绿色版，自解压，不报毒。

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。