ENVÍO HTTPS de VB

Referencia preferida para agregar: microsoft xml 6.0. Estoy usando 6.0, si no ha instalado xml6, úselo.

Después de agregar, agregue el siguiente código para completar el envío de datos POST

Opción explícita

Dim xml As XMLHTTP60

Sub privado Command1_Click( )

xml.open "POST", "/", True 'indica que se trata de una solicitud POST, por supuesto que también puedes obtenerla

xml.setRequestHeader "Contenido -Type", " application/x-www-form-urlencoded"

Dim str As String

str = str & "wd=key" 'Puedes agregar parámetros aquí

str = p_URLEncoding(str) 'Los datos POST deben codificarse

xml.Enviar str

xml.Send str = p_URLEncoding(str) 'Los datos POST deben codificarse ser codificado

xml.Send str = p_URLEncoding(str)send str

End Sub

Sub formulario privado_ Load()

Establecer xml = New XMLHTTP60

End Sub

'Función de codificación

Función privada p_URLEncoding(vstrIn) como cadena

'//// /// /////// //////////////////////////////////////

'Resolver problema de conversión de codificación POST GB2312 Editar datos

Dim i As Long

Dim strReturn As String

Dim ThisChr As String

Atenuar el código interno siempre

Atenuar la altura8 mientras dure

Atenuar la baja8 mientras

strReturn = ""

For i = 1 a Len(vstrIn )

ThisChr = Mid(vstrIn, i, 1)

Si Abs(Asc(ThisChr)) <HFF Entonces

strReturn = strReturn & ThisChr

Else

código interno = Asc(ThisChr)

Si código interno < 0 Entonces

Código interno = Código interno + &H10000

Fin si

Hight8 = (innerCode y &HFF00) \ & amp;HFF

Low8 = internalCode y &HFF

strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)

Fin si

p_URLEncoding = strReturn

Finalizar función

norte