ÇëÎÊVBÖÐÈçºÎ¶Áȡij¸öÎļþ£¬²¢ÅжÏÎļþÊÇ·ñΪ¿Õ
Õâ¸ö´úÂë
shell "cmd /c netstat -na | find /c "+chr(34)+" 10.0.0.2:80 ESTABLISHED"+chr(34)+" >out.txt"
ÇëÎÊout.txt Õâ¸öÎı¾´æÔÚÄĶùÁË£¬ÈçºÎ¶ÁÈ¡Õâ¸öÎļþ£¬²¢ÅжÏÕâÊÇÎļþÊÇ·ñΪ¿Õ
лл
ÁôÃû£¬»Ø¼Òд´úÂë~
ÀíÂÛÉÏÓ¦¸ÃҪд³öÍêȫ·¾¶µÄ, µ«ÈçÄãûд µ±È»¾ÍÔÚÄãµÄ±¾µØÂ·¾¶ app.path
ÄãÈç¹ûÊǰ²×°ÔÚ Programfile\mic.......ÔÚ vb98 Ö®ÏÂÕÒÄãµÄ out.txt°É
dim aa$
Open app.path & "\out.txt" For Input As #1
'Text1.Text = StrConv(InputB(LOF(1), 1), vbUnicode)
aa = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
if FileLen(App.Path & "\out.txt")=0 then msgbox "ÎļþΪ¿Õ"
Ïà¹ØÎÊ´ð£º
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......