马上结帐:如何使用winsock 获取网页中指定内容?
在网上看到很多类似的代码:
Private Sub Form_Load() Winsock1.RemoteHost = "www.xxxx.com" Winsock1.RemotePort = 80 Winsock1.Connect End Sub Private Sub Winsock1_Connect() Dim Cmd As String Dim Url As String Url = "http://www.xxxx.com/Base.aspx" Cmd = "GET " + Url + " HTTP/1.1" & vbCrLf & vbCrLf Winsock1.SendData Cmd End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Text Winsock1.GetData Text, vbString Text1.Text = Text1.Text & Text End Sub
dim s as strings=WebBrowser.Document.body.innerHTML或者innerText
[解决办法]
使用Winsock是可以下载源文件 但你要的
GetTodayBonusBack(["001-456","002-567","003-472","004-874","005-781"]);
被转链接到其它网址或..........
从1月4日开始在内地上映,《阿凡达》一票难求的火爆场面持续了很长一段时间。<br><br> 昨日,一则“《阿凡达》将紧急停映”的消息在网上疯传,还有网友将之与国产大片《孔子》即将上映联系在一起。<br><br> 就此,本报记者向有关方面寻求求证。事实是,包括长沙在内的内地不少影院已经接到“内部通知”:从《孔子》上映时间(1月22日)开始,《阿凡达》2D(普通版)将统一下档,只保留该片的普通3D版、IMAX版。<br><br> <strong>2D版下档</strong><br><br> <strong>3D版、IMAX版会继续放映</strong><br><br> 爆料 昨日上午,一则“《阿凡达》将紧急停映”的消息在网上疯传,网友纷纷转帖江苏无锡大世界影城出示的“紧急通知”,该通知称:“接中影公司及院线通知,影片《阿凡达》(所有版本)将于1月23日起全国紧急停映!敬请谅解!!已购买23日、24日票的观众,请于22日前至影城售票处办理退票!”消息一出,有网友将之与国产大片《孔子》即将上映联系在一起。<br><br> <strong>求证</strong><br><br> <strong>影城:片方要求2D版停映</strong><br><br> 从长沙的情况来看,除万达国际影城外,包括中影今典、王府井在内的其他影城尚未接到通知。长沙万达国际影城副总经理周毅表示,通知是17日晚由影院内部系统传达的,下达通知的不是影片在内地的发行方,而是片方。<br><br> 随后,记者尝试联系发行方中影公司新闻发言人翁立,但其手机一直处于关机状态。与中影共同发行《阿凡达》的华夏电影发行有限公司负责人萨先生表示:“据我所知是没有正式通知,至少华夏这边没有下达这种通知,中影那边怎样不太清楚,但也不至于要为了《孔子》而下掉《阿凡达》,不存在‘让道’一说,尤其是在今年本来就已经很挤的贺岁档期间。”<br><br> <strong>说法:既是“让道”也是“还人情”</strong><br><br> 尽管通知的出台比较蹊跷,但《阿凡达》2D版下档一事并非虚构,全国各地的主要影城都已开始做调整工作。由于《阿凡达》2D版下档的日期正好与《孔子》的上映期重合,一位圈内知情人士透露,《阿凡达》2D版下档的目的非常明显,就是给《孔子》让道,只不过官方不方便出面,只好由《阿凡达》片方来操作,“之前《阿凡达》为《十月围城》的票房增值推迟了内地上映日期,然后《孔子》为《阿凡达》推迟上映,这样一来,说是‘还人情’也可以,说是‘让道’也有道理。总之,不论《孔子》之前上的是什么影片,它来了就得‘让道’。”对此,《孔子》片方明确表示不对此事做任何回应。<br><br> <strong>安排</strong><br><br> <strong>《阿凡达》:想看还得提前买票</strong><br><br> 因为“《阿凡达》将停映”的传闻,昨晚长沙几大影院再次出现购票高峰。据了解,《阿凡达》的普通3D版、IMAX版将继续放映至今年3月初,长沙影迷不用担心看不到《阿凡达》。“普通3D版影片的档期一直就比2D版的长,因为国内的3D银幕较少,片源也少,且近期也没有新的3D片上映,加上《阿凡达》现在的票房很高,即便2D版的票房减弱也不会造成太大的影响。”中影今典放电影院总经理杨学非说。也就是说,即使《孔子》来了,长沙三大影院至少8个影厅还会继续放映《阿凡达》(中影今典3个3D厅、王府井2个3D厅、万达2个3D厅1个IMAX厅)。<br><br> 这也意味着,想看《阿凡达》还得提前买票,尤其是IMAX版。长
------解决方案--------------------
WinsockTcpQQ.SendData "GET /weather/101250102.shtml HTTP/1.1" & vbCrLf & _
"Accept-Language: GB2312" & vbCrLf & _
"Host: www.weather.com.cn" & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & _
"Cookie: vjuids=17f107e08.12646c122eb.0.bf0f1d0ddcaae; vjlast=1263907447." & vbCrLf & _
"1263918984.13; BIGipServerwww_pool=45679677.20480.0000" & vbCrLf & vbCrLf
这是从中国气象网上获取宁乡天气的get包。期间去掉了gzip压缩,直接可收回数据。但是需要用二进制接收并且需要转码,否则汉字会乱码。
希望对你有帮助。