vb 怎样访问服务器 ??????????????

别让人生输给心情 2014-06-29 08:54:02
怎样用VB访问下面这个服务器,并且获取一个字符串?

急求!

http://10.16.16.126/invoke/Bobcat/PandaSFC?c=QUERY_RECORD&p=station_string_mbg
...全文
261 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
清茶708 2014-07-05
  • 打赏
  • 举报
回复
引用 楼主 yanzi_kiki 的回复:
怎样用VB访问下面这个服务器,并且获取一个字符串? 急求! http://10.16.16.126/invoke/Bobcat/PandaSFC?c=QUERY_RECORD&p=station_string_mbg
你这个服务器地址,是通过花生壳之类的软件解析的地址吗???我也想了解一下呢
threenewbee 2014-07-04
  • 打赏
  • 举报
回复
用inet控件或者xmlhttp,更简单,自己google下。
litaoa 2014-07-03
  • 打赏
  • 举报
回复
我的是用winsock发的。 Function WskPost() As Boolean Dim i As Long Dim PostSu As Boolean PostSu = False i = 0 StrCommand = "" StrCommand = "POST /noticeCreate.jsp HTTP/1.1" + vbCrLf StrCommand = StrCommand + "Accept: */*" + vbCrLf StrCommand = StrCommand + "Accept-Language: zh-cn" + vbCrLf StrCommand = StrCommand + "Referer: http://119.185.1.182:8888/camion.html" + vbCrLf StrCommand = StrCommand + "x-requested-with: XMLHttpRequest" + vbCrLf StrCommand = StrCommand + "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" + vbCrLf StrCommand = StrCommand + "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; .NET4.0C; .NET4.0E; AskTbPTV2/5.9.1.14019; 360SE)" + vbCrLf StrCommand = StrCommand + "Host: 119.185.1.182:8888" + vbCrLf StrCommand = StrCommand + "Content-Length: " & Str(Len(SendMsg)) + vbCrLf StrCommand = StrCommand + "Connection: Keep-Alive" + vbCrLf StrCommand = StrCommand + "Cache-Control: no-cache" + vbCrLf 'strCommand = strCommand + "Accept-Language: zh-CN, zh, *" + vbCrLf StrCommand = StrCommand + "Accept-Encoding: gzip, deflate" + vbCrLf StrCommand = StrCommand + vbCrLf StrCommand = StrCommand + SendMsg + vbCrLf If wsk1.State <> sckClosed Then wsk1.Close wsk1.RemoteHost = Text1.Text wsk1.RemotePort = Text2.Text wsk1.Connect Debug.Print StrCommand Do Until i >= 1000 And wsk1.State = sckOpen 'MsgBox wsk1.State If wsk1.State = 9 Then 'stat "错误", "" PostSu = False Exit Do End If If wsk1.State = sckConnected Then wsk1.SendData StrCommand PostSu = True Exit Do End If i = i + 1 DoEvents Loop WskPost = PostSu End Function
litaoa 2014-07-03
  • 打赏
  • 举报
回复
很简单的一个控件吧。我有个例子,我给你找找。
  • 打赏
  • 举报
回复
查了一下 说是要用 Internet transfer控件,看了一下不太明白,这里要求我POST这个服务器,然后服务器会反馈一个字符串给我,不知道具体怎么实施啊

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧