国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

<p id="jmecl"><ins id="jmecl"></ins></p>

<p id="jmecl"><tr id="jmecl"></tr></p>

首頁 > 學院 > 開發設計 > 正文

用Winsock控件實現文件的下載

2019-11-18 17:46:01

字體：大中小

來源：轉載

供稿：網友

使用控件有：Winsock控件，CommandButton控件，TextBox控件
編程步驟如下：
1.首先聲明變量
DimstrCommandAsString
DimstrWebPageAsString
2.把如下代碼加到Command1的Command1_Click事件：
strCommand=strCommand "Accept:*/*" vbCrLf'這句可以不要
strCommand=strCommand "Accept:text/html" vbCrLf'這句可以不要
strCommand=strCommand vbCrLf'記住一定要加上vbCrLf
'Debug.PrintstrCommand'注：你可以用Debug.PrintstrCommand來查看一下格式
Winsock1.SendDatastrCommand'給遠程計算機發送數據
EndSub
4.把如下代碼加到Winsock1的DataAmival事件：
PrivateSubWinsock1_DataArrival(ByValbytesTotalAsLong)'取得數據時產生該事件
OnErrorResumeNext'在錯誤處理程序結束后，恢復原有的運行
DimwebDataAsString
Winsock1.GetDatawebData,vbString'檢取當前的數據塊
Text1.Text=Text1.Text webData
EndSub->

上一篇：MsComm文字傳輸

下一篇：用Winsock實現點對點通信

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注

新聞熱點

榮耀總裁趙明烏鎮演講：榮耀首款5G手機V30下月發布

2019-10-23 09:17:05

搜狐張朝陽：回歸媒體是搜狐重新崛起的關鍵

2019-10-21 09:20:02

華為輪值董事長郭平：虛擬技術創造現實價值

2019-10-21 09:00:12

滴滴英文服務上線兩周年用戶已超200萬

2019-09-26 08:57:12

華為推出全球至快AI訓練集群Atlas900

2019-09-25 08:46:36

馬斯克：特斯拉正組建中國技術團隊

2019-09-25 08:15:43

疑難解答

圖片精選

網友關注

主站蜘蛛池模板：长白| 花垣县| 天全县| 广宁县| 宁明县| 长治市| 洪雅县| 罗田县| 雷山县| 威信县| 元江| 三穗县| 雷州市| 青田县| 通山县| 汉川市| 淮阳县| 明溪县| 新营市| 乐山市| 敦化市| 南和县| 德兴市| 亚东县| 错那县| 图们市| 上蔡县| 安丘市| 青岛市| 宜州市| 山阴县| 娄烦县| 乌海市| 嘉义县| 长葛市| 长乐市| 耒阳市| 老河口市| 广河县| 灵璧县| 磴口县|

<sub id="nl634"><optgroup id="nl634"><div id="nl634"></div></optgroup></sub>

<p id="nl634"></p>

<track id="nl634"></track>

<p id="nl634"><ins id="nl634"><label id="nl634"></label></ins></p>