Cómo escribir un programa que envíe datos a un sitio web

Una vez tuve un programa así, pero ya no lo uso porque es más fácil escribir en PHP.

Private Sub cmdSubmit_Click()

Atenuar subX como cadena, subStr como cadena

Atenuar subLen como longitud

Si Trim(txtTitle. Text) = "" Entonces

txtTitle.SetFocus

Salir Sub

Fin

Si Trim(cmbCat.Text) = " ""Entonces

cmbCat.Text = """" /p>

if Trim(txtContent.Text) = """Entonces

txtContent. SetFocus

Salir Sub

Fin

'Enviar un artículo al sitio web www.hopeview.cn Hay una página write.php en /docs/. que puede escribir los datos enviados en la base de datos.

'Contenido del envío: título del título, contenido de la categoría del gato, contenido del artículo. Para envío automático o masivo de artículos a Hopeview.co.uk.

subX = "Title=" Trim(txtTitle.Text) amp; "amp; content=" amp Trim(txtContent.Text) amp "amp; submit1=Enviar"

subX = URLEncoding(subX)

subLen = Len( subX)

'La siguiente es la estructura de la cadena POST es /docs/write.php, lo que significa. envío desde esta página web, y el Anfitrión es el anfitrión que acepta los datos. El host es el host que recibe los datos, aquí está www.hopeview.cn, simplemente cámbielo al sitio web correspondiente.

pjpeg, aplicación/vnd.ms-powerpoint, aplicación/vnd.ms-excel, aplicación/msword, aplicación/x-shockwave-flash, */*" amp; vbCrLf

subStr = subStr amp; "Referer:/docs /write.php" amp; vbCrLf

subStr = subStr amp; "Accept-Language: zh-cn" amp; vbCrLf

subStr = subStr amp; "Tipo de contenido: aplicación /x-www-form-urlencoded" amp; vbCrLf

subStr = subStr amp; "UA-CPU:x86" amp; vbCrLf

subStr = subStr amp; "Aceptar codificación : gzip, deflate" & vbCrLf

subStr = subStr & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0. Windows NT 5.2; SV1; TencentTraveler; .NET CLR 1.1.4322)" amp; vbCrLf

subStr = subStr amp; "Host: www.hopeview.cn" amp; vbCrLf

subStr = subStr "Contenido-Longitud:" subLen amp; /p>

subStr = subStr amp; "Conexión: mantener vivo" amp; p>

subStr = subStr amp; subX

Si sockX.State lt;gt; sckConnected Entonces

sockX.Close

sockX.RemoteHost = " www.hopeview.cn"

sockX.RemotePort = 80

sockX.Connect

Finalizar si

Mientras sockX.State lt; gt; sckConnected ' 7

DoEvents

Si sockX.State = 9 Entonces

sockX.Close

sockX.Connect

Finalizar si

Mientras sockX.RemoteHost = "www.> Wend

sockX.SendData subStr

End Sub