    VBļس           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBļس     VBļس ڣ200767 ߣ 鿴:[     С ]       ļÿѶ£һ㶼һЩר硰ϡɡǣҪԼдһʵһضļصҳʾָôأҪĽͻ֪ʵļʵǺܼ򵥵ġ 

           VBһ Winsock ؼͨʵļءȽһ¸ÿؼҪԡ¼ 

localPorԣñؼʹõĶ˿ڣһΪ0 

ProtocolԣWinsockؼʹõЭ飬tcPuDPһΪ0 

remotePortԣҪӵԶ˼˿ڣ80ΪHttP21ΪFTP25ΪsmtP 

remoteHost ԣڱʶԶ̼ƣremotePort Ϊ 80 ΪsoHucomsinacomcnΪ 25 ΪsmtP21cncom 
connectҪӵԶ̼ 

closeرӣ 

senDDataݷ͸Զ̼ 

GetDataȡǰݿ鲢洢ڱ͵ıУ 

connect¼һconnectʱ 

close¼closeʱ 

DataarriVal¼ʱ 

ǾʵļعܣѺվҳΪ 
 
oPtion ePlicit 
Dim myall as strinG 
PriVate suB formloaD 
 
Winsock1Protocol0 
Winsock1remoteHost  "soHucom""ҳΪ sinacomcn 
Winsock1remotePort  80 
Winsock1connect ʼȡ 
enD suB 
PriVate suB Winsock1connect 
Dim strcommanD as strinG 
Dim strWeBPaGe as strinG 
strWeBPaGe  "Http//WWWosHucom/" ָҳָѺҳ 
strcommanD  "Get "  strWeBPaGe  " HttP/10"  VBcrlf 
strcommanD  strcommanD  "accePt/"  VBcrlf 
strcommanD  strcommanD  "accePttet/Html"  VBcrlf 
strcommanD  strcommanD  VBcrlf 
Winsock1senDData strcommanD  
end sub 
 

 [1]   [2]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VBļس £   VBļس  VBļس   
һƪ: ôһֱ  
һƪ: ƿؼй֪ʶ  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ؼС洰С仯仯    VBѧ±ܼӴ    VBʹDirectXļ̳    VBݿԴ60ʵ    VBʹEXCEL    180VBͼνԴʵ    API޸עģ    VB쳬Ի˵    ͨſؼMSCommʹ    WINDOWSϢ˵    16תʮ, 16תɶƵ    vsprintӡʵ    webbrowser 2ղأ    VB6DataGridʵͨõӱ    FindWindow    VB6.0ͼ    VB̳ ڶ£ؼѧϰ    VB֮·ý     رƼ    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯    VBʱͱܵ         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       