vb.net发送按键 vbnet sendkeys

VB.NET中的按键定义问题

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

if Me.TextBox1.Text = "信息" Then Me.TextBox1.Text ="社会" Else Me.TextBox1.Text = "信息"

Me.Button10.Text = "下一步"

End Sub

相关问答

Q1: VB.net的快捷键

1． F12：转到定义；Shift+F12：转到引用

2． F5：启动；Ctrl+F5：开始执行（不调试）；Shift+F5：停止调试

3． F7：查看代码；Shift+F7：查看视图设计器

4． Ctrl+Alt+L：解决方案资源管理器

5． Ctrl+Alt+J：对象浏览器

6． F4：显示属性窗口

7． Ctrl+Alt+X：工具箱

8． Ctrl+Alt+C类视图

9． Alt+Enter：查看属性

10．F10：逐过程调试

11．F11：逐语句调试

12．Ctrl+B：新断点

13．Ctrl+Shift+F9：清除所有断点

14．Ctrl+Shift+B生成解决方案

15．Shift+Alt+Enter：全屏

16．大纲显示：Ctrl+M, Ctrl+M：切换大纲显示展开；Ctrl+M, Ctrl+L：切换所有大纲显示；Ctrl+M,Crtl+P停止大纲显示；Ctrl+M, Ctrl+O：折叠到定义

17．智能感知：Ctrl＋J：列出成员；Ctrl+Shift+空格：参数信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭头键：完成单词

Q2: vb.net 组合键Ctrl+Enter怎样发送

看了很多这方便的解决方案vb.net发送按键，很多都是一大段代码，版本也有差别，既然有可能别人用得起我也用不起。

我用一种最简单的方法，只要思路对所有人都能用得起。

其实非常简单，就是获取键值，Ctrl+Enter的健值是10，是不是思路一下就通了。以下是源码vb.net发送按键：

Private Sub 聊天输入框_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 聊天输入框.KeyPress

If Asc(e.KeyChar) = 发送快捷键值 Then

发送消息过程()

End If

End Sub

源内容出处vb.net发送按键：

Q3: vb.net通过按钮POST数据

Private Sub Command1_Click()

ReferForm "WebBrowser1", 2, "message", Text1.Text

End Sub

Private Sub Command2_Click()

ReferForm "WebBrowser1", 8, "submit"

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate ("")

End Sub

'*************************************************************************

'**函 数 名：ReferForm

'**中文意译:表单提交

'**输 入：ByVal WebbrowserA(String) - webbrowser控件名

'** ：ByVal FormType(Integer) - 集合 表单类型

'** Text = 0; password = 1; textarea = 2; Hidden = 3; CheckBox = 4; submit = 8; button = 9

'** ：Optional FormName(String) - 表单名[可选]

'** ：Optional Value(String = "") - 表单值[可选]

'**输 出：无

'**功能描述：

'** :

'**作 者：最恨VB

'**日 期：2008-01-31 07:46:14

'*************************************************************************

Sub ReferForm(ByVal Webbrowser$, ByVal FormType%, Optional FormName$, Optional Value$ = "")

If FormType 0 Or FormType 9 Then

Exit Sub

End If

Dim objDoc, objTag

Set objDoc = Me.Controls(Webbrowser).Document

For i = 0 To objDoc.All.length - 1

Select Case UCase$(objDoc.All(i).tagName)

Case "INPUT"

Set objTag = objDoc.All(i)

Select Case FormType

Case 0, 1

If objTag.Name = FormName Then

objTag.Value = Value

End If

Case 3

Case 4

If objTag.Name = FormName Then

objTag.Click

End If

Case 8

If objTag.Type = FormName Then

objTag.Click

End If

Case 9

If objTag.Type = FormName Then

objTag.Click

End If

End Select

Case "TEXTAREA"

Set objTag = objDoc.All(i)

Select Case FormType

Case 2

objTag.Value = Value

End Select

End Select

Next

End Sub

这个是 VB6的代码的

vb.net发送按键我的.NET 出问题vb.net发送按键了 要不就帮改过来vb.net发送按键了

vb.net发送按键你要想用的话 增加一个 WebBrowser

一个 文本框 两个按钮 试试吧 应该很容易的

Q4: VB.net如何用代码实现长按Ctrl键呢？

可以用sendkeys啊。

先定义：

dim sdstr as system.winforms.sendkeys

然后循环调用：

sdstr.send("^") 发送Ctrl

Q5: VB.net 怎么制作按键连发功能

用API函数vb.net发送按键，以下代码Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_ALPHA = H2

Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Const HWND_TOPMosT = -1

Private Const SWP_NOMOVE = H2

Private Const SWP_NosIZE = H1

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_KEYDOWN = H100

Const WM_KEYUP = H101

Const WM_CHAR = H102

Const VK_F1 = H70

Private Sub SendF1(hwnd) '调用这个过程即可对目标窗体发送F1键

Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)

Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)

End Sub这里是发送F1的实例vb.net发送按键，各个按键对应的虚拟键码vb.net发送按键，要到网上查

关于vb.net发送按键和vbnet sendkeys的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。