ÇëÎÊ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 "ÎļþΪ¿Õ"
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ
vb.net
VC++
ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......