vb.net发短信的简单介绍

vb.net 句柄发送消息

    Private Const WM_SETTEXT = HC

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As System.Text.StringBuilder) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim s As String = "王小明"

        Dim build As New System.Text.StringBuilder(s.Length)

        build.Append(s)

        SendMessage(TextBox1.Handle, WM_SETTEXT, 0, build)

    End Sub

相关问答

Q1: vb.net程序如何实现向电脑的Com口发送一段字符串信息，之后再接收显示发送的字符串信息？

'vb.net的串口接收数据要用到委托

Delegate Sub SetTextCallback(ByVal InputString As String) '声明一个委派类，并声明符合函数参数有一个，而其型态是字符串

Private Sub ShowString(ByVal comData As String)

txt_Re.Text = comData '将收到的数据入接收文字框中--- txt_Re.Text 是接收用的文本框

txt_Re.SelectionStart = txt_Re.Text.Length

txt_Re.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived‘自动接收事件

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

Invoke(d, inData)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '发送指令

SerialPort1.Write("123")

End Sub

Q2: 请问VB.NET 如何利用PostMessage 向窗口的指定Edit发送信息

你不用程序的情况能不能用TAB切换焦点。如果这样不行的话你用程序控件是没用的。

或都直接对第二个编辑框发送消息。

Q3: vb.net怎么在非局域网的两个电脑之间互传文字信息？

如果你家里是公网ip或者公网IP能映射内网IP的话可以直接搭一个服务器，否则只能使用内网穿透软件然后再搭建服务器。如应用服务器、网页服务器、电子邮件服务、 FTP 服务器等等都可以进行消息交流。