yu2n

REM 获取剪切板的内容
Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText
复制代码

REM 对比判断剪切板的内容
REM 若为DA110 则执行另一个02.vbs
REM 若为DA111 则执行另一个03.vbs
REM 若为DA112 则执行另一个04.vbs
REM 若为DA113 则执行另一个05.vbs
REM 若为DA114 则执行另一个06.vbs
REM 若为DA115 则执行另一个07.vbs
REM 若为FI420 则执行另一个b.vbs
REM 大概共有十几种可能吧
REM 若都不是，则启动 a.vbs
Select Case UCase(ClipboardText)
   Case "DA110"    CreateObject("WScript.Shell").Run "02.vbs"
   Case "DA111"    CreateObject("WScript.Shell").Run "03.vbs"
   Case "DA112"    CreateObject("WScript.Shell").Run "04.vbs"
   Case "DA113"    CreateObject("WScript.Shell").Run "05.vbs"
   Case "DA114"    CreateObject("WScript.Shell").Run "06.vbs"
   Case "DA115"    CreateObject("WScript.Shell").Run "07.vbs"
   Case "DA420"    CreateObject("WScript.Shell").Run "b.vbs"
   Case Else     CreateObject("WScript.Shell").Run "a.vbs"
End Select
复制代码

yu2n

。。。才看到，不好意思。
用For、 Mid语句就可以了，把句子拆分成一个个字符。

REM 假设要发送 ClipboardText = "AB中文cd会跳过1234.[>"
ClipboardText = "AB中文cd会跳过1234.[>"
For i = 1 To Len(ClipboardText)
	strKey = Mid(ClipboardText, i, 1)
	If ASC(strKey) > 0 And ASC(strKey) < 127 Then
		a.SendKeys  strKey
	End If
Next
复制代码

yu2n

回复 8# xgda

对象“a”是你的代码中定义的“ CreateObject("Wscript.Shell")”，可能你把对象名称“a”改成了“objWshShell” 。试试：

Dim objWshShell, objFSO, objTextStream
Set objWshShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("C:\log.txt", 1, False)

Dim strTextLine, i, strKey
strTextLine = objTextStream.ReadLine()
If Not strTextLine = "" Then
	For i = 1 To Len(strTextLine)
		strKey = Mid(strTextLine, i, 1)
		If ASC(strKey) > 0 And ASC(strKey) < 127 Then
			objWshShell.SendKeys strKey
		End If
	Next
End If

Set objWshShell = Nothing
Set objFSO = Nothing
复制代码

yu2n

回复 10# xgda

2015.01.03 更新：特殊字符“ +^%~(){} ”的处理 ..

' 延时
WScript.Sleep 3000

Dim wso, objHTML, strClipboardText
Set wso = CreateObject("Wscript.Shell")
Set objHTML = CreateObject("htmlfile")
strClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")

'测试
'strClipboardText = "测试 A1 + C2 = 100% ? "

' 方法一：直接 Ctrl + V
wso.SendKeys "^v"
wso.SendKeys "~"

' 方法二：拆分成单个字符发送，只支持按键字符(A-z,0-9,英文标点)，会受输入法限制
Dim i, strKey
If Not strClipboardText = "" Then
  For i = 1 To Len(strClipboardText)
    ' 拆分成单个字符
    strKey = Mid(strClipboardText, i, 1)
    ' 判断字符是否支持
    If ASCW(strKey) > 0 And ASCW(strKey) < 127 Then
      '' 特殊符号 + ^ % ~ () {} 的处理
      If InStr("+^%~(){}", strKey) > 0 Then strKey = "{" + strKey + "}"
      If strKey = vbLf Then strKey = ""
      '' 发送按键码
      WScript.Sleep 10
      wso.SendKeys strKey
    End If
  Next
End If

Set wso = Nothing
Set objHTML = Nothing
复制代码