SendKeys clip.exe 發(fā)送中文的代碼

來源：本站原創(chuàng)|時間：2020-01-10|欄目：vb|點擊：次

復制代碼代碼如下:

Set WshShell=CreateObject("WScript.Shell") 
code="讓SendKeys可以發(fā)送中文" 
WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide 
app=WshShell.Run ("notepad") 
WScript.Sleep 1000 
WshShell.AppActivate app 
WshShell.SendKeys "^v{BS}" 
Wscript.Quit 

上一篇：IE中用VBScript不提示直接打印的代碼

欄目：vb

下一篇：vb.net讀寫文件代碼

本文標題：SendKeys clip.exe 發(fā)送中文的代碼

本文地址：http://www.jygsgssxh.com/a1/vb/7622.html

更多vb