怎样利用SendMessage向webbrowser控件里面的网页文本框输入文本
1个回答
2015-02-15 · 知道合伙人数码行家
huanglenzhi
知道合伙人数码行家
采纳数：117538
获赞数：517192
长期从事计算机组装，维护，网络组建及管理。对计算机硬件、操作系统安装、典型网络设备具有详细认知。
向TA提问 私信TA
关注
![]()
展开全部
Public Class Form1
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_CHAR as Integer= &H102
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = "hello !中华人民共和国"
Dim bytes() As Byte = System.Text.Encoding.Default.GetBytes(str)
For Each b As Byte In bytes
PostMessage(Me.TextBox1.Handle, WM_CHAR, b, 0)
Next
End Sub
End Class
上面API声明中的LONG需要全部改为Integer
WM_CHAR是可以输入中文的。
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Const WM_CHAR as Integer= &H102
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = "hello !中华人民共和国"
Dim bytes() As Byte = System.Text.Encoding.Default.GetBytes(str)
For Each b As Byte In bytes
PostMessage(Me.TextBox1.Handle, WM_CHAR, b, 0)
Next
End Sub
End Class
上面API声明中的LONG需要全部改为Integer
WM_CHAR是可以输入中文的。
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
