VBʹÓÃwinsock¿Ø¼þµÄһЩÒÉÎÊ
Ïëдһ¸öC/S½á¹¹µÄ³ÌÐò£¬Ê¹ÓÃVB+WINSOCK£¬´óÖµÄÄ¿±ê¾ÍÊǺÍѧУÀïµÄ»ú·¿Ê¹ÓõÄÕâÀà¹ÜÀíϵͳ²î²»¶à£¨²»°üº¬ÆÁÄ»¼à¿Ø£¬×ÔÖªÔÚ½ØÆÁ¡¢Ñ¹Ëõ·½ÃæVBµÄЧÂʺܵͣ¬ÄÑÒÔÍê³ÉÕý³£Ê¹Ó㬹¦ÄÜÐèÒªÓУº¶ÔÔ¶³Ì¼ÆËã»úµÄÎļþ¹ÜÀí£¬¼´¿É²é¿´¡¢ÉÏ´«¡¢ÏÂÔØ£¬²¢ÇÒ¿ÉÃæ¶Ô¶à¸ö¿Í»§µÄÁ¬½Ó¡¢£©
1.¹ØÓÚ¿Í»§¶ËÁ¬½ÓÎÊÌ⣺
¿Í»§¶ËµÄ´°ÌåÔØÈëʼþ£º
VB code:
SockServer.RemoteHost = "127.0.0.1"
SockServer.RemotePort = 2046
SockServer.Connect
SockServer.SendData "info:"
·þÎñ¶ËµÄ´°ÌåÔØÈëʼþ£º
VB code:
With SockClient
.LocalPort = 2046
.Listen
End With
ÎÒÏÈÔËÐзþÎñ¶Ë£¬È»ºóÔËÐпͻ§¶Ë£¬µ«Êǿͻ§¶Ë×ÜÊÇÌáʾ£º
ʵʱ´íÎó¡®40006¡¯£ºËùÐèÊÂÎï»òÇëÇóµÄ´íÎóÐÒé»òÁ¬½Ó״̬
Ö®ºó¶¨Î»ÔÚ´úÂëSockServer.SendData "info:"´¦£¬
Ö®ºóÎÒ½øÐе¥²½µ÷ÊÔ£¬µ±½øÐе½SockServer.SendDataʱ£¨ÏÔʾΪ»ÆÉ«£©£¬ÎҵȴýÁËÊýÃëÖÓ£¬ÔÙ°´F8¾¹È»Á¬½Ó³É¹¦ÁË¡£
ÇëÎÊÒ»ÏÂÕâÊÇʲôÎÊÌ⣿
2.¹ØÓÚ¶à¿Í»§Á¬½ÓµÄÎÊÌâ
ÈçÉÏËùÊö£¬ÕâÑùÖ»Äܽ¨Á¢Ò»¶ÔÒ»µÄÁ¬½Ó£¬µ±·þÎñ¶Ë½øÐÐlisten·½·¨Ê±£¬ÈôÒѾÓÐÒ»¸öconnectÇëÇó£¬ÇÒÇëÇó³É¹¦£¬ÄÇôÈôÓеڶþ¸öÉõÖÁ¸ü¶àµÄÇëÇó¾Í»áʧ°Ü£¬ÇëÎÊÔõôʵÏÖÄܹ»Óжà¸ö¿Í»§¶ËͬʱÁ¬½Ó£¿²¢ÇÒ·þÎñ¶Ë¿ÉÑ¡ÔñÔÚÒÑÁ¬½ÓµÄ¿Í»§ÖнøÐÐÊý¾Ý´«µÝ£¿
3.¹ØÓÚÅжϿͻ§Éí·ÝÎÊÌâ
µ±Íê³ÉµÚ¶þ¸öÎÊÌâºó£¬ÈçºÎÈ·ÈÏÇëÇóÁ¬½Ó
Ïà¹ØÎÊ´ð£º
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......