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

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注