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