ÓÃvb±àдľÂí³ÌÐò
ľÂíÒ»°ã·ÖΪÁ½¸öÖ÷³ÌÐò:Ò»¸öÊÇ·þÎñÆ÷¶ËµÄ³ÌÐò(server),ÁíÒ»¸öÊǿͻ§¶Ë³ÌÐò(client),·þÎñÆ÷³ÌÐòÊǸø
¹¥»÷¶ÔÏóÓõÄ,ǧÍò²»¿ÉÓôíÁË----¸ø×Ô¼ºÖÖÂíµÄÈË......^0^
¿Í»§³ÌÐò²ÅÊǸø×Ô¼ºÓõÄ,ÓÚÊÇÎÒÃǾÍÓÃVB½¨Á¢Á½¸ö³ÌÐò,Ò»¸öΪ·þÎñÆ÷¶Ë³ÌÐò cockhorseserver,ÁíÒ»¸öΪ
¿Í»§¶Ë³ÌÐòcockhorseclient.
ÏÈÔÚcockhorseclient³ÌÐòÖн¨Á¢Ò»¸ö´°Ìå,¼ÓÔØÒ»¸öwinsock¿Ø¼þ,³ÆÎªtcpclient,ÔÙ¼ÓÉÏÁ½¸öÎı¾¿ò,ÓÃÀ´
ÊäÈë·þÎñÆ÷µÄIPµØÖ·ºÍ¶Ë¿ÚºÅ.ÁíÍ⻹Ҫ½¨Á¢Ò»¸ö°´Å¥,°´Ïºó¿ÉÒÔ¶ÔÁ¬½Ó½øÐгõʼ»¯.
´úÂëÎÒдÏÂ:
Private Sub Command1_Click()
'µ÷ÓÃconnect·½·¨,³õʼ»¯Á¬½Ó.
tcpclient.RemoteHost = ipinput.Text
tcpclient.RemotePort = Val(portinput.Text) 'ÕâÊǶ˿ںÅ,ĬÈÏΪ1001
tcpclient.Connect 'ºÍÖ¸¶¨µÄIPÏà¶ÔµÄ¼ÆËã»úÏàÁ¬½Ó
cmdconnect.Enabled = False
End Sub
(ÔÚÊÕµ½Êý¾ÝÖ®ºó,¾ÍÒª¶ÔÕâЩÊý¾Ý×ö³öÏàÓ¦µÄ´¦Àí,ʹÓÃdataarrivalʼþ,¿ÉÒÔ·½±ãÔËÔØÊý¾Ý½ø²Ù×÷.
Private Sub tcpclient_dataArrival(ByVal bytestotal As Long)
Dim strdata As String
tcpclient.GetData strdata
If strdata = "test connect" Then
tcpstate.Text = "connect OK" + vbNewLine + LocalIP Is ":" + -tcpclient.LocalIP + "computer name is¡¡:¡¡" + tcpclient.LocalHostName
tcpstate.Text = tcpstate.Text + vbNewLine + "remote ip is :" + -tcpclient.RemoteHostIP + "computer name is : " + tcpclient.remotehostname
If InStr(Trim(strdata), "clos
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......