vb中的远程发送数据（急用，在线等）

Question

使用WebBrowser控件访问你的ASP页面，当然要带上很多参数，数据的发送地址可以夹带在参数中一起发送，但是你说的安全性可能还是不能完全保证，不过你可以把参数传递的数据先加密，然后再通过WebBrowser访问传递，这样应该就可以满足你的要求了！！

Answer 1

rds吧，用asp处理不好。
要不，就用vb中的iis应用程序

Answer 2

public const SYSHEADERS = "Content-Type:application/x-www-form-urlencoded" & Chr(10) & Chr(13)Private Sub tvwPathList_Expand(ByVal Node As MSComctlLib.Node)
    Screen.MousePointer = vbHourglass
    Dim cPostData() As Byte
    Dim curNavigateUrl As String
    cPostData = StrConv("parentpath=" & Node.FullPath, vbFromUnicode)
    curNavigateUrl = getUploadUrl() & "shangchuan/listdirectory.jsp"
    WebBrowser1.navigate curNavigateUrl, Null, Null, cPostData, SYSHEADERS
    Do While WebBrowser1.Busy = True Or WebBrowser1.readyState <> READYSTATE_COMPLETE Or WebBrowser1.document Is Nothing
        DoEvents
    Loop
    
    Dim curNode As Node
    Dim tmpNode As Node
    Dim curDoc As IHTMLDocument2
    Dim curDirs() As String
    Dim i As Integer
    Set curDoc = WebBrowser1.document
    If InStr(curDoc.body.innerText, FILEPATHFLAG) > 0 Then
        Set curNode = Node.Child
        Do While Not (curNode Is Nothing)
            Set tmpNode = curNode.Next
            Call tvwPathList.Nodes.Remove(curNode.Index)
            Set curNode = tmpNode
        Loop
        curDirs = Split(curDoc.body.innerText, ",")
        For i = 1 To UBound(curDirs)
            curDirs(i) = Trim(curDirs(i))
            If curDirs(i) <> "" Then
                Set curNode = tvwPathList.Nodes.Add(Node.Index, tvwChild, , Trim(curDirs(i)), 1, 2)
                Call tvwPathList.Nodes.Add(curNode.Index, tvwChild, , "")
            End If
        Next i
    End If
    Node.Selected = True
    Node.Selected = True
    Screen.MousePointer = vbDefault
End Sub这是一个访问服务器的JSp页面，获取指定目录下所有子目录的例子，服务器端就不说了，你可以参考一下

Answer 3

FILEPATHFLAG是一个自定义的约束字符串，如果返回的页面不包含这个字符串，就说明页面出错了。另外，这个是明文传递的，你可以自己做加密