VB Ä£Äâ post Ìá½»±íµ¥£¬Ë­»á£¬¹òÇó£¿

¾ÍÊÇÓÃvb 6 Ä£Äâpost·½Ê½Ìá½»Êý¾Ýµ½index.aspÉÏÃ棬ÓÐÈý¸ö²ÎÊý£ºid,title,content

---

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Dim Result As Long
    Result = ShellExecute(0, vbNullString, "http://www.baidu.com/", vbNullString, vbNullString, 3)
    If Result <= 32 Then
        MsgBox "µ÷ÓÃä¯ÀÀÆ÷´íÎó£¡", vbOKOnly + vbCritical, "´íÎó£º"
    End If

µØÖ·ÖеÄÈý¸ö²ÎÊý¿ÉÒÔ×Ô¼º´ÕÉÏÈ¥ "http://¡­¡­/ id= " & yourID & "title=" & yourtitle ¡­¡­

---

public --> private

---

ºÃÏñÓò»ÁËŶ£¬»¹ÓÐûÓÐÆäËüµÄ·½·¨£¿

---

Public Const POST_URL = "http://xxxx/dianre/post.php"

Public Const HEADER = "Content-Type: application/x-www-form-urlencoded" & vbCrLf

Public dataSend As String
Public dataRecv As String


Sub setSendData(user As String, cash As String)
    dataSend = ""
    dataSend = "Something"
    dataSend = "data=" & URLEncode(dataSend)
End Sub

F