Ⅰ 求一個不停按空格的VBS腳本~~謝謝~
'新建一個 txt 文件
'內容:
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
if not fso.fileexists("停止.bat") then
set file=fso.createtextfile("停止.bat")
file.writeline "@echo off"
file.writeline "taskkill /f /im WScript.exe"
file.close
end if
msgbox "確定,將一直按空格鍵,要停止請雙擊當前目錄下的「停止.bat」文件。",4096+48,"友情提示"
do
ws.sendkeys " "
loop
'保存為 .vbs 格式,雙擊運行即可。
Ⅱ vbs帶空格路徑問題
這樣肯定可以,使用shortpath函數獲取短文件名後再處理:
Set Fso=CreateObject("Scripting.FileSystemObject")
Set WsShell=CreateObject("WScript.Shell")
workingdir=WScript.ScriptFullName
workingdir=StrReverse(fso.getfile(workingdir).shortpath)'我只改了這一句
count=InStr(workingdir,"\")
workingdir=StrReverse(Right(workingdir,Len(workingdir)-count))
msgbox workingdir'加上這一句可以看到獲取的東西,你自己刪除這一句。
'以上的是獲取vbs腳本所在目錄,有可能包含空格~
windir0=Fso.getspecialfolder(0)
cmdline=workingdir&"\streams.exe -d "&windir0&"\*"
WsShell.Run cmdline,vbHide,True
windir1=Fso.getspecialfolder(1)
cmdline=workingdir&"\streams.exe -d "&windir1&"\*"
WsShell.Run cmdline,vbHide,True
Ⅲ VBSscript程序編程各種結構的空格使用
關鍵字、變數、函數等彼此之間需要空格分隔:如dim x,a,b,c 中dim和後面的x必須要用空格分隔,而x,a,b,c主語法規定的用,號分隔的,沒有必要再加空格,當然如果你想加個空格對程序一點影響也沒有;
運算符和變數、函數之間無需空格分隔:如x=86;
函數和後繼變數之間不能用空格分隔:如int(x/10);
你的例子中b = x mod 10 這一句,b=x彼此間用運算符=相連,沒有必要加空格,x mod 10中的mod是關鍵字,所以x和mod之間,mod和10之間都要加空格。
Ⅳ vbs腳本模擬鍵盤空格鍵代碼是多少
1、下載並安裝【vbs腳本生成器】雙擊區中的應用圖標,打開【vbs腳本生成器】對話框。
Ⅳ vbs怎麼將一個帶有空格的字元串寫入文件,且遇到空格寫入的內容就換行
你的意思是將所有的空格替換成換行符吧?
dimfso,file,read,string_finally,spath,sfile
setfso=createobject("scripting.filesystemobject")
file="1.txt"'要處理的文件
ifinstr(file,"")>0then'過濾路徑
spath=left(file,instr(file,""))
sfile=mid(file,instrrev(file,"")+1)
else
sfile=file
endif
read=fso.opentextfile(file).readall'讀取全文
string_finally=replace(read,space(1),vbcrlf)'替換空格為回車符
fso.createtextfile(spath&"New_"&sfile).writestring_finally'寫入新文件
setfso=nothing'釋放內存
Ⅵ vbs腳本接受參數中帶空格及雙引號的問題!
要顯示雙引號可以用""或chr(34)代替一個雙引號,要把數值轉換為字元串則用cstring()函數。不能直接獲取窗口標題,必須知道進程名。或者若標題有一部分是固定的,直接把這部分用網上的方法寫就行了。
Ⅶ 求一個vbs腳本代碼,每3分鍾自動點擊空格鍵一次
set WShell=createobject("Wscript.Shell")
WShell.Sendkeys " "
set WShell= nothing
Ⅷ vbs將路徑中的「%20」轉換成 空格
vbs沒有 但可以自定義函數..比如說:
urlb="20%20%你好"
ChangeURL urlb,url
msgbox url
sub ChangeURL(urlb,url)
url=replace(urlb,"20%"," ")
end sub
Ⅸ 求一個每0.2秒按一次空格的VBS腳本,打開就開始按,主要在瀏覽器中用。
Set WshShell=WScript.CreateObject("WScript.Shell")
do while true
WshShell.SendKeys " "
WScript.Sleep 200
loop
Ⅹ SecureCRT腳本vbs,檢測到more就輸入空格的循環語句,檢測不到就跳出循環繼續下一步怎麼寫
用你寫的試試了一下,可以正確運行啊!
修改一下:crt.Screen.Synchronous = False 試試。
如果還不行,看看你的crt的版本。
#$language="VBScript"
#$interface="1.0"
crt.Screen.Synchronous=False
'
'editedinordertoworkcorrectly.
SubMain
crt.Screen.Send"cat.viminfo|more"&chr(13)
Whilecrt.Screen.WaitForString("--More--",3)
crt.Screen.Sendchr(32)
WEnd
crt.Screen.Send"echook!"&chr(13)
EndSub