vb调用winInet API接口post数据到指定的url

vb调用winInet API接口post数据到指定的url(8)   i = InStr(srv$, "/")
  script$ = Mid(srv$, i, Len(srv$) + 1 - i)
  srv$ = Left$(srv$, i - 1)

End Sub