vb.net模拟按键 vb6模拟键盘按键
C#/VB.NET中模拟按键问题...为什么我运行无效??
一、模拟键盘操作
10年积累的成都网站设计、成都网站建设经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有临潭免费网站建设让你可以放心的选择与我们合作。
以下示例程序当点击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);
}
vs2012 vb.net 模拟网页按钮点击
使用webbrowser空间实现很简单
一。 首先在窗体头部定义 Dim WithEvents MyDom As MSHTML.HTMLDocument
其次找到element对象 myDom=WebBrowser1.Document.getElementsByName("sa")
最后执行onclick : mydom.onclick
二.还有想要实现点击，直接执行点击的相应函数即可例如：假设想实现点击下面的Inputbox
input id="busT1" name="busT" type="radio" value="1" class="input5" checked="checked" onclick="busSwitchDiv('changeDiv')" tabindex="18"/
那么直接执行onclick里的函数busSwitchDiv('changeDiv')即可，执行语句如下：
WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"
vb.net怎么无限循环模拟按键
要求不多的话，完全可以用按键精灵的，你用vb.net去实现的话，反而啰嗦了。。。
网站名称：vb.net模拟按键 vb6模拟键盘按键
浏览地址：http://scjbc.cn/article/dogsccg.html
