Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÖеÄWinsock APIÓ¦´ðʽ£¨HTTP£©Ð­Òéͬ²½ÎÊÌâ

ÈçºÎʵÏÖWinsockÓ¦´ðʽ£¨HTTP£©Ð­Òéͬ²½ÎÊÌâ

ÔÚÒ»¸ö¸ßÈ˵ÄCSDN²©¿ÍÉϳ­ÁËÒ»¶Î Winsock API´úÂë
ÀàµÄµØÖ·ÔÚÕâÀï http://blog.csdn.net/lyserver/archive/2009/11/26/4880416.aspx
¸´ÖƹýÀ´Ì«³¤ÁË Ìû×Ó×°²»ÏÂ

È»ºóÎÒµ÷ÓÃÕâ¸öÀ࣬´°Ìå´úÂëÈçÏÂ
VB code:

Private Sub Command1_Click()
Dim z As String
Dim b As New Winsocket
b.Disconnect
Call b.Connect("www.baidu.com", 80)
Call b.SendData(Text1.Text)
b.SendBufferSize = 0
Call b.GetData(z)
Text2.Text = z
End Sub

'Text1µÄÄÚÈÝ
'GET / HTTP/1.1
'Accept: */*
'Accept-Language: zh-cn
'UA-CPU: x86
'Accept-Encoding: gzip, deflate
'User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
'Host: www.baidu.com
'Connection: Keep-Alive


'




Ôõô»ñÈ¡µ½µÄÊý¾Ý²»È«ÄØ£¿Ö»ÓÐÒ»°ëÊý¾Ý£¬Ò²²»ÖªµÀÊDz»ÊÇÎҵĵ÷Ó÷½·¨´íÁË
×Ô¼º¶¥Ò»ÏÂ


±ÈÈçÎÒÔÚÁíÒ»¸öÀàÀïдÁËÕâÑùÒ»¸öº¯ÊýÓÃÀ´¶ÁÌ×½Ó×ÖÊý¾Ý£º
Private Function ReadEcho(Optional ByVal strEOF As String = vbCrLf, Optional ByVal lngTimeout As Long = 20000) As String
  Dim lngStartTime As Long
  Dim strBuffer As String, strResult As String
   
  lngStartTime = GetTickCount
  Do
  strBuffer = ""
  m_objWinSock.GetData strBuffer
  If Len(strBuffer) &


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úÄØ£¿ - VB / ¶àýÌå

ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË

Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ