VB中COOKIE的一个问题

Sub IEPostStringRequest(URL As String, ByRef FormData As Variant, Boundary As String)
Dim bServerInfor As String
  'Create InternetExplorer
Dim WebBrowser,WebBrowser2 As Object
Set WebBrowser2 = CreateObject("InternetExplorer.Application")
'为了先登录生成COOKIE
WebBrowser2.navigate SerUrl
Do
Sleep 100
   If Not WebBrowser2.Busy Then Exit Do
   DoEvents
Loop
Set Doc = WebBrowser2.document
Set Inputs = Doc.getElementsByTagName("Input")
 Inputs.Item(3, 3).Value = User
 Inputs.Item(4, 4).Value = PassWord
 Inputs.Item(5, 5).Click'登录成功,应该可以生成COOKIE???
bServerInfor = "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*" + vbCrLf
bServerInfor = bServerInfor + "Referer:" + URL + vbCrLf
bServerInfor = bServerInfor + "Accept-Language: zh-cn" + vbCrLf
bServerInfor = bServerInfor + "Content-Type: multipart/form-data; boundary=" + Boundary + vbCrLf
   
   
Set WebBrowser = CreateObject("InternetExplorer.Application")    
 If WebBrowser Is Nothing Then
  Else
     WebBrowser.navigate URL, , , FormData, bServerInfor
          Do While WebBrowser.Busy
             Sleep 100
             DoEvents
          Loop
   WebBrowser.Quit
  End If  
 Set WebBrowser = Nothing WebBrowser2.Quit
 Set WebBrowser2 = Nothing
End Sub
这是我编写的POST数据的程序,在我的机器上好用.在其他的机器上会出现两种问题.
1.不能正常上传FormData数据,这是因为COOKIE没有正常生成吗?
2.会显示出WebBrowser2.navigate SerUrl的IE窗口,这里我并没有设置为显示呀