VBS自動寫字代碼

'用SendKeys是壹種方法：（模擬按鍵）'SendKeys "按鍵"'還人壹種方法，是復制和粘貼，這種方法可發輸入所有字符，包括中文，7 9 2 6 4 2 1 1 群***享裏的（魔）電腦技術教學說明.exe是打包了的vbs用的就是這種方法，妳可以去看壹下。'試試以下代碼:Set sh=CreateObject("wscript.Shell")

Set fs=CreateObject("scripting.filesystemobject")

Set fos=CreateObject("forms.form.1")

Set textbox=fos.Controls.Add("forms.textbox.1").Object

' “”=",·=enthe

zi0="input=inputbox(“請輸入妳的名子：”,“魔（輸入測試）”)·msgbox input&“ 妳好！”%·$`"&sh.SpecialFolders(4)&"\妳好.vbs·%·x"

i=0

sh.Run "notepad"

WScript.Sleep 3000

Do

i=i+1

zi=Mid(zi0,i,1)

With textbox

.multiline=True

.text=zi

.selstart=0

.sellength=Len(.text)

.copy

End With

if zi="“" or zi="”" then

sh.SendKeys chr(34)

ElseIf zi="+" Or zi="^" Or zi="%" then

sh.SendKeys zi

ElseIf zi="$" then

sh.SendKeys "s"

ElseIf zi="·" Then

sh.SendKeys Chr(13)

ElseIf zi="`" then

WScript.Sleep 5000

ElseIf zi="x" Then

sh.SendKeys "x"

else

sh.SendKeys "^v"

End if

WScript.Sleep 1000

Loop While i<Len(zi0)

上一篇:聚合支付是什麽東西？

下一篇:今年有哪些品牌的crm軟件發展不錯？