当前位置: 代码迷 >> VB >> vb 怎的访问服务器 ?
  详细解决方案

vb 怎的访问服务器 ?

热度:197   发布时间:2016-05-19 04:22:28.0
vb 怎样访问服务器 ??????????????
怎样用VB访问下面这个服务器,并且获取一个字符串?

急求!

http://10.16.16.126/invoke/Bobcat/PandaSFC?c=QUERY_RECORD&p=station_string_mbg

------解决方案--------------------
我的是用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
------解决方案--------------------
用inet控件或者xmlhttp,更简单,自己google下。
------解决方案--------------------
引用:
怎样用VB访问下面这个服务器,并且获取一个字符串?

急求!

http://10.16.16.126/invoke/Bobcat/PandaSFC?c=QUERY_RECORD&p=station_string_mbg


你这个服务器地址,是通过花生壳之类的软件解析的地址吗???我也想了解一下呢
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Wed Nov 22 09:39:15 CST 2017
  • 最近登录:Wed Nov 22 09:39:15 CST 2017
  • 最近登录:Wed Nov 22 09:39:15 CST 2017
  • 最近登录:Wed Nov 22 09:39:15 CST 2017
  • 最近登录:Wed Nov 22 09:39:15 CST 2017