在控件栏右键 部件 找到Microsoft Internet Transfer control 6.0控件 添加

在发送方法中

Inet1.Execute “http://ip:port”,"POST","paraA=pa&paraB=pb","Content-Type:application/x-www-form-urlencoded"

在过程

Dim verifyMessage As String

Private Sub Inet1_StateChanged(ByVal State As Integer) Dim get_data As String If State = 12 Then get_data = Inet1.GetChunk(1024) verifyMessage = get_data End If End Sub 中取得返回值