你截图上就有地址栏可参考,把搜索词放在里面,直接链接到搜索结果,连打开这个页面都省了。
成都创新互联公司服务紧随时代发展步伐,进行技术革新和技术进步,经过10余年的发展和积累,已经汇集了一批资深网站策划师、设计师、专业的网站实施团队以及高素质售后服务人员,并且完全形成了一套成熟的业务流程,能够完全依照客户要求对网站进行成都网站制作、网站设计、建设、维护、更新和改版,实现客户网站对外宣传展示的首要目的,并为客户企业品牌互联网化提供全面的解决方案。
Private Sub SendBlogTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendBlogTimer.Tick
Dim textboxUserId As HtmlElement
Dim textboxPassword As HtmlElement
Dim buttonSubmit As HtmlElement
textboxUserId = SendBlogBrowser.Document.All("username")'获取用户名输入框
textboxPassword = SendBlogBrowser.Document.All("password")'获取密码输入框
buttonSubmit = SendBlogBrowser.Document.All("btnLogin")'获取登陆按钮
textboxUserId.SetAttribute("value","用户名")'给用户名输入框赋值
textboxPassword.SetAttribute("value","密码")'给密码框赋值
buttonSubmit.InvokeMember("click")’执行登陆按钮的单击
End Sub
其中的SendBlogBrowser为WebBrowser控件
在按下事件中进行响应,在响应的时候进行对按键的顾虑,如果是回车键就可以执行函数,否则按键都无效。
如果是简单的换行用vbcrlf 或 environment.newline
要获得键盘的回车键用api 的
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
思路很简单:通过textbox的keypress事件来捕获键盘输入,输入输入的是回车键,则调用Button_click事件
代码如下:
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = 13 Then
call Button1_Click()
end if
End Sub
可以用chr函数或者vbCrLf这种表示
chr(10):换行,相当于vbLf
chr(13):回车,相当于vbCr
chr(13)+chr(10):回车+换行,相当于vbCrLf