-----------------------------------------------------------------------------
Private Function SendStr(ByVal s As String) As Boolean
On Error Resume Next
Dim i As Integer
'先删除
For i = 1 To 26
zDm.KeyDown 8
zDm.KeyUp 8
wait 10
Next i
Dim sZifu As String
sZifu = "!@#$%^&*()_+"
sa = "49,50,51,52,53,54,55,56,57,48,189,187"
sZifuDown = Split(sa, ",")
For i = 1 To Len(s)
ss = Mid(s, i, 1)
If InStr(1, sZifu, ss) > 0 Then
zDm.KeyDown 16
zDm.KeyDown sZifuDown(InStr(1, sZifu, ss) - 1)
zDm.KeyUp sZifuDown(InStr(1, sZifu, ss) - 1)
zDm.KeyUp 16
wait 20
'输入特殊字符
Else
If Asc(ss) >= 65 And Asc(ss) <= 90 Then
'输入大写
zDm.KeyDown 16
zDm.KeyDownChar ss
zDm.KeyUpChar ss
zDm.KeyUp 16
wait 20
Else
zDm.KeyDownChar ss
zDm.KeyUpChar ss
wait 20
End If