.Net下PostMessage发送字符串成功方法!


用PostMessage 或 Sendmessage发送字符串,网上股沟摆渡了半天,就是没有人给出正确答案,基本上没有正确的代码出现,最后一狠心,自己搞吧。咱们熟知的 WM_CHAR 参数,就是说 postMessage不是可以发送单个字符吗,那把它组合一下不就可以发字符串了,原来小编还挺聪明啊!代码如下:

 Friend Sub Sim_Input_Str(ByVal text_ocx_handle As Int32, ByVal in_str As String) 

'模拟在 控件中 输入 字符串 ,如在 edit, textbox 等控件中!!

        Dim schar() As Char = in_str.ToCharArray()  '先 将字符串转变为  字符数组,按字符 逐个发送!!!

        For i = 0 To schar.Length - 1

            PostMessage(text_ocx_handle, WM_CHAR, Asc(schar(i)), 0)

            Sleep(5)  '适当延迟,对于大长串的字符串 自己把握延迟程度

        Next

    End Sub

调用方法:如:

Dim str1 As String = "我爱你中国" & Chr(13) & "千山万水都是我的情!"

Sim_Input_Str(1442452, str1)   ' 1442452 是我新建的一个记事本编辑框的句柄,句柄自己搞哦! 逐字符发送效率虽然不高,That's better than nothing !  将就用吧。

点击数: 1526    打印  添加到收藏   发布时间: 2015-11-28




上一篇:字符型数组与字符串互相转换.net方法
下一篇:PIC18F4550实现鼠标操作代码





» 相关内容
  字符型数组与字符串互相转换.n..
  Sendkeys你用对了吗,不再那么..
  VS2008集成Python新建工程模板..
  .Net调试线程方法-包括调用第..
  程序调用其他dll或com组件的参..
  mornsun隔离型DCDC输入输出共..
  .Net强制退出当前程序并彻底清..
  Matlab绘制表面平滑的3D图形-..
  激光致眩武器介绍
  CD4046锁相环的说明
  USB供电对音频设备可能的电流..
  碳化硅光源的电阻随温度变化研..
  引力波探测技术要点
  秋风起时
  谐波失真及评价方法