vb activeX控件利用Inet控件发送HTTP请求

在控件栏右键  部件 找到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
中取得返回值