双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

2014-06-29 08:54:02 359 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别让人生输给心情墨衍会员 · AI 创作全网分发关注 + 加入社区

vb6远程服务器能用吗,VB6之HTTP服务器的实现之前用VBS写过一个，效率和支持比较low，这次闲着没事用VB重写了一次。当前的实现版本仅支持静态文件的访问(*.html之类)，支持访问方式为GET，HTTP状态支持200和404。两个文件，一个是定义了常用到的函数的模块tools.bas'tools.basPrivate Declare Function GetTickCount Lib "kernel32" () As LongPublic... 阅读详情

怎样用VB访问下面这个服务器，并且获取一个字符串？

急求！

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

...全文

用VB编写OPC客户端访问WINCC 用VB编写OPC客户端访问WINCC OPC是一个工业标准，它是由一些世界上著名的自动化系统和硬件、软件公司和Microsoft(微软)紧密合作而建立的。〔O代表OLE(对象链接和嵌入)，P (process过程)，C (control控制)。OLE已从面向对象重新定义为基于对象并更名为Active X〕。WinCC是西门子公司在自动化领域采用最先进的技术与微软公阅读详情

别让人生输给心情

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

清茶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

打赏
举报

很简单的一个控件吧。我有个例子，我给你找找。

别让人生输给心情 2014-06-29

打赏
举报

查了一下说是要用 Internet transfer控件，看了一下不太明白，这里要求我POST这个服务器，然后服务器会反馈一个字符串给我，不知道具体怎么实施啊

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促

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