13518219792
獲得文字直接用
公司主營業務：網站設計、成都網站設計、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳，提高企業的競爭能力。創新互聯公司是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化，感謝他們對我們的高要求，感謝他們從不同領域給我們帶來的挑戰，讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創新互聯公司推出寶塔免費做網站回饋大家。
Clipboard.GetText
獲得圖片可以用
Clipboard.GetData
設置文字直接用
Clipboard.SetText
設置圖片可以用
Clipboard.SetData
清空
Clipboard.Clear
檢測剪貼板中的內容
Clipboard.GetFormat(1)
返回True則文字
返回False則其他
不用剪切板可以這樣
Dim s
Private Sub Command1_Click()
s = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
s = Text1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + s
End Sub
Private Sub Form_Load()
Command1.Caption = "剪切"
Command2.Caption = "復制"
Command3.Caption = "粘貼"
End Sub
一、模擬鍵盤操作
以下示例程序當點擊button1按鈕，模擬鍵盤在文本框textBox1中作輸入操作，詳細說明請參看MSDN幫助中的SendKeys類。
//事件完整代碼
private void button1_Click(object sender, System.EventArgs e)
{
this.textBox1.Focus(); //先必須讓文本框得到焦點，因為焦點在button1上
SendKeys.Send("^a"); //Ctrl+A
SendKeys.Send("{DEL}"); //Delete
SendKeys.Send("+(ec)"); //Shift+"ec"
SendKeys.Send("{ENTER}"); //Enter
SendKeys.Send("+ec"); //Shift+'e'＋'c'
SendKeys.Send("{ENTER}"); //Enter
SendKeys.Send("{h 10}"); //"hhhhhhhhhh"
SendKeys.Send("{ENTER}"); //Enter
SendKeys.Send("^%{DEL}"); //Alt+Ctrl+Del
}
二、模擬鼠標操作
以下示例程序當點擊DBButton按鈕，模擬鼠標雙擊窗體事件，并將鼠標向左上方移動10*10象素，其它操作類似。
//引入名字空間
using System.Runtime.InteropServices
//申明
[DllImport("user32")]
private static extern int mouse_event(int dwFlags,int dx,int dy, int cButtons, int dwExtraInfo);
const int MOUSEEVENTF_MOVE = 0x0001;
const int MOUSEEVENTF_LEFTDOWN = 0x0002;
const int MOUSEEVENTF_LEFTUP = 0x0004;
const int MOUSEEVENTF_RIGHTDOWN = 0x0008;
const int MOUSEEVENTF_RIGHTUP = 0x0010;
const int MOUSEEVENTF_MIDDLEDOWN = 0x0020;
const int MOUSEEVENTF_MIDDLEUP = 0x0040;
const int MOUSEEVENTF_ABSOLUTE = 0x8000;
//事件完整代碼
private void Form_DoubleClick(object sender, System.EventArgs e)
{
MessageBox.Show("你雙擊了屏幕");
}
private void DBButton_Click(object sender, System.EventArgs e)
{
mouse_event(MOUSEEVENTF_MOVE,-10,-10,0,0); //移動鼠標，否則事件發生在按鈕上
Down,Up合為一次單擊事件
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
}
寫的不是很清楚，理解為復制文件
File.Copy 方法
Copy(string, String) 將現有文件(string路徑)復制到新文件(string路徑)。 不允許覆蓋同名的文件。
Copy(String, String, Boolean) 將現有文件(string路徑)復制到新文件(string路徑)。 允許覆蓋同名的文件。
set ws=createobject("wscript.shell")
ws.sendKeys "^{esc}r"VBS中SendKeys的基本應用模擬鍵盤操作，將一個或多個按鍵指令發送到指定Windows窗口來控制應用程序運行，
其使用格式為：object.SendKeys string
“object”：表示WshShell對象
“string”：表示要發送的按鍵指令字符串，需要放在英文雙引號中。
1.基本鍵
一般來說，要發送的按鍵指令都可以直接用該按鍵字符本身來表示，例如要發送字母“x”，使用“WshShell.SendKeys "x"”即可。當然，也可直接發送多個按鍵指令，只需要將按鍵字符按順序排列在一起即可，例如，要發送按鍵“happy”，可以使用“WshShell.SendKeys "happy"”。
2.特殊功能鍵
對于需要與Shift、Ctrl、Alt三個控制鍵組合的按鍵，SendKeys使用特殊字符來表示：
Shift---------WshShell.SendKeys "+"
Ctrl---------WshShell.SendKeys "^"
Alt---------WshShell.SendKeys "%"
由于“+”、“^”這些字符用來表示特殊的控制按鍵了，如何表示這些按鍵呢？
只要用大括號括住這些字符即可。例如:
要發送加號“+”，可使用“WshShell.SendKeys "{+}"”
另外對于一些不會生成字符的控制功能按鍵，也同樣需要使用大括號括起來按鍵的名稱，例如要發送回車鍵，需要用“WshShell.SendKeys "{ENTER}"”表示，發送向下的方向鍵用“WshShell.SendKeys "{DOWN}"”表示。
Space---------WshShell.SendKeys " "
Enter---------WshShell.SendKeys "{ENTER}"
←---------WshShell.SendKeys "{RIGHT}"
↑---------WshShell.SendKeys "{UP}"
F1---------WshShell.SendKeys "{F1}"
Tips:如果需要發送多個重復的單字母按鍵，不必重復輸入該字母，SendKeys允許使用簡化格式進行描述，使用格式為“{按鍵 數字}”。例如要發送10個字母“x”，則輸入“WshShell.SendKeys "{x 10}"”即可。
實例：
----------------------------------------------------
按下F5刷新桌面
Dim WshShell,Path,i
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"
----------------------------------------------------
電腦的自動重啟
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}u"
WshShell.SendKeys "R"
----------------------------------------------------
啟動任務管理器
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{ESC}"
