大家帮我看一下，这个网页为什么找不开，我要打开是500002的，不是184688

Question

Private Sub Command1_Click()
 ReDim aByte(0) As Byte ' Array of bytes to hold data to post
 cPostData = "fundCode=500002"
 PackBytes aByte(), cPostData
 Dim vPost As Variant
 vPost = aByte ' Assign the byte array to a VARIANT
 Dim vHeaders As Variant
 'vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
 vHeaders = "Content-Type: text/html;charset=GB2312" + Chr(10) + Chr(13)
  WebBrowser1.Navigate "http://jjzx.cninfo.com.cn/jjzx/tzzh.jsp", , , vPost, vHeaders
End Sub
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
 iNewBytes = Len(PostData) - 1 ' Get rid of the null termination
 If iNewBytes < 0 Then
  Exit Sub
 End If
 ReDim ByteArray(iNewBytes)
 For i = 0 To iNewBytes
  ch = Mid(PostData, i + 1, 1)
  If ch = Space(1) Then
   ch = "+"
  End If
  Debug.Print ch, Asc(ch)
  ByteArray(i) = Asc(ch)
 Next
End Sub