Public Sub postURL(ByVal url As String, ByVal paras As String)

    

    Dim Flags As Long

    Dim TargetFrame As String

    Dim postData() As Byte

    Dim Headers As String

    TargetFrame = "_BLANK"

    Flags = 0

    

    Dim ie As New SHDocVw.InternetExplorer

    

   

    

    postData = paras

    

    

    postData = StrConv(postData, vbFromUnicode)

       

    Headers = "Content-Type: application/x-www-form-urlencoded" & _

       vbCrLf

     

    

    ie.Navigate url, Flags, TargetFrame, postData, Headers

   

    

End Sub