VBS實(shí)現(xiàn)將字符串寫入剪切板的實(shí)現(xiàn)代碼
更新時(shí)間：2012年01月08日 23:50:34 作者：
VBS實(shí)現(xiàn)將字符串寫入剪切板的實(shí)現(xiàn)代碼，需要的朋友可以參考下。
函數(shù)代碼:
Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
'調(diào)用
CopyString "腳本之家 m.fzitv.net"
完整測(cè)試代碼
Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
CopyString "腳本之家 m.fzitv.net"
msgbox "ok"
復(fù)制代碼 代碼如下:
Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
'調(diào)用
復(fù)制代碼 代碼如下:
CopyString "腳本之家 m.fzitv.net"
完整測(cè)試代碼
復(fù)制代碼 代碼如下:
Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub
CopyString "腳本之家 m.fzitv.net"
msgbox "ok"
您可能感興趣的文章:
相關(guān)文章
用vbs查找系統(tǒng)進(jìn)程，發(fā)現(xiàn)qq的進(jìn)程則殺掉就是這段代碼的原理2008-06-06
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼，需要的朋友可以參考下。2009-11-11
VBS中Select CASE的其它用法...2006-09-09
利用WMI實(shí)現(xiàn)系統(tǒng)補(bǔ)丁檢測(cè)分析
非常不錯(cuò)的應(yīng)用，獲取當(dāng)前系統(tǒng)補(bǔ)丁的版本來判斷補(bǔ)丁。2009-04-04
用vbs實(shí)現(xiàn)的瞬間關(guān)閉多個(gè)系統(tǒng)進(jìn)程的腳本
程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相關(guān)功能功能實(shí)現(xiàn)將當(dāng)前進(jìn)程列表顯示在一個(gè)文本文件中，通過用戶界面的選擇，確定需要瞬間中斷的進(jìn)程列表，然后中斷之。2008-06-06
VBS教程：正則表達(dá)式簡介 -非打印字符...2006-11-11
有時(shí)候我們需要獲取執(zhí)行當(dāng)前vbs的路徑，那么就可以參考下面的代碼，一般用來可以刪除自身等操作2014-05-05
vbs shellcode轉(zhuǎn)換escape加密
用vbs轉(zhuǎn)換加密代碼2008-05-05
使用vbscript生成36進(jìn)制自動(dòng)增長序號(hào)的實(shí)現(xiàn)代碼
這篇文章主要介紹了使用vbscript生成36進(jìn)制自動(dòng)增長序號(hào)的實(shí)現(xiàn)代碼,本文代碼也可以在ASP中使用,需要的朋友可以參考下2014-08-08
vbs循環(huán)產(chǎn)生的參數(shù)的傳遞問題
用vbs實(shí)現(xiàn)循環(huán)產(chǎn)生參數(shù)的傳遞問題，建議大家測(cè)試學(xué)習(xí)2008-06-06