建站
咨詢
售后
建站咨詢
新聞中心
C#/VB.NET中模擬按鍵問題...為什么我運行無效??
一、模擬鍵盤操作
10年積累的成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)經(jīng)驗，可以快速應(yīng)對客戶對網(wǎng)站的新想法和需求。提供各種問題對應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識你，你也不認(rèn)識我。但先網(wǎng)站設(shè)計后付款的網(wǎng)站建設(shè)流程，更有臨潭免費網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
以下示例程序當(dāng)點擊button1按鈕，模擬鍵盤在文本框textBox1中作輸入操作，詳細(xì)說明請參看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
}
二、模擬鼠標(biāo)操作
以下示例程序當(dāng)點擊DBButton按鈕，模擬鼠標(biāo)雙擊窗體事件，并將鼠標(biāo)向左上方移動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); //移動鼠標(biāo)，否則事件發(fā)生在按鈕上
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);
}
vs2012 vb.net 模擬網(wǎng)頁按鈕點擊
使用webbrowser空間實現(xiàn)很簡單
一。 首先在窗體頭部定義 Dim WithEvents MyDom As MSHTML.HTMLDocument
其次找到element對象 myDom=WebBrowser1.Document.getElementsByName("sa")
最后執(zhí)行onclick : mydom.onclick
二.還有想要實現(xiàn)點擊，直接執(zhí)行點擊的相應(yīng)函數(shù)即可例如：假設(shè)想實現(xiàn)點擊下面的Inputbox
input id="busT1" name="busT" type="radio" value="1" class="input5" checked="checked" onclick="busSwitchDiv('changeDiv')" tabindex="18"/
那么直接執(zhí)行onclick里的函數(shù)busSwitchDiv('changeDiv')即可，執(zhí)行語句如下：
WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"
vb.net怎么無限循環(huán)模擬按鍵
要求不多的話，完全可以用按鍵精靈的，你用vb.net去實現(xiàn)的話，反而啰嗦了。。。
當(dāng)前名稱：vb.net模擬按鍵 vb6模擬鍵盤按鍵
本文鏈接：http://www.ef60e0e.cn/article/dogsccg.html
