vb ´®¿ÚͨѶ
MSComm¿Ø¼þÌṩÁËÁ½ÖÖ´¦ÀíͨÐŵķ½Ê½£ºÒ»ÖÖΪʼþÇý¶¯·½Ê½£¬¸Ã·½Ê½Ï൱ÓÚÒ»°ã³ÌÐòÉè¼ÆÖеÄÖжϷ½Ê½¡£µ±´®¿Ú·¢Éúʼþ»ò´íÎóʱ£¬MSComm¿Ø¼þ»á²úÉúOnCommʼþ£¬Óû§³ÌÐò¿ÉÒÔ²¶»ñ¸Ãʼþ½øÐÐÏàÓ¦´¦Àí¡£±¾ÎĵÄÁ½¸öÀý×Ó¾ù²ÉÓø÷½Ê½¡£ÁíÒ»ÖÖΪ²éѯ·½Ê½£¬ÔÚÓû§³ÌÐòÖÐÉè¼Æ¶¨Ê±»ò²»¶¨Ê±²éѯ MSComm¿Ø¼þµÄijЩÊôÐÔÊÇ·ñ·¢Éú±ä»¯£¬´Ó¶øÈ·¶¨ÏàÓ¦´¦Àí¡£ÔÚ³ÌÐò¿ÕÏÐʱ¼ä½Ï¶àʱ¿ÉÒÔ²ÉÓø÷½Ê½¡£
³£ÓÃÊôÐԺͷ½·¨
ÀûÓÃMSComm¿Ø¼þʵÏÖ¼ÆËã»úͨÐŵĹؼüÊÇÀí½â²¢ÕýÈ·ÉèÖÃMSComm¿Ø¼þÖÚ¶àÊôÐԺͷ½·¨¡£ÒÔÏÂÊÇMSComm¿Ø¼þµÄ³£ÓÃÊôÐԺͷ½·¨£º
¡ñCommport£ºÉèÖûò·µ»Ø´®¿ÚºÅ¡£
¡ñSettings£ºÒÔ×Ö·û´®µÄÐÎʽÉèÖûò·µ»Ø´®¿ÚͨÐŲÎÊý¡£
¡ñPortopen£ºÉèÖûò·µ»Ø´®¿Ú״̬¡£
¡ñInputMode£ºÉèÖûò·µ»Ø½ÓÊÕÊý¾ÝµÄÀàÐÍ¡£
¡ñInputlen£ºÉèÖûò·µ»ØÒ»´Î´Ó½ÓÊÕ»º³åÇøÖжÁÈ¡×Ö½ÚÊý¡£
¡ñInBufferSize£ºÉèÖûò·µ»Ø½ÓÊÕ»º³åÇøµÄ´óС£¬È±Ê¡ÖµÎª1024×Ö½Ú¡£
¡ñInBufferCount£ºÉèÖûò·µ»Ø½ÓÊÕ»º³åÇøÖеȴý¼ÆËã»ú½ÓÊÕµÄ×Ö·ûÊý¡£
¡ñInput£º´Ó½ÓÊÕ»º³åÇøÖжÁÈ¡Êý¾Ý²¢Çå¿Õ¸Ã»º³åÇø£¬¸ÃÊôÐÔÉè¼ÆÊ±ÎÞЧ£¬ÔËÐÐʱֻ¶Á¡£
¡ñOutBufferSize£ºÉèÖûò·µ»Ø·¢ËÍ»º³åÇøµÄ´óС£¬È±Ê¡ÖµÎª512×Ö½Ú¡£
¡ñOutBufferCount£ºÉèÖûò·µ»Ø·¢ËÍ»º³åÇøÖеȴý¼ÆËã»ú·¢Ë͵Ä×Ö·ûÊý¡£
¡ñOutput£ºÏò·¢ËÍ»º³åÇø·¢ËÍÊý¾Ý£¬¸ÃÊôÐÔÉè¼ÆÊ±ÎÞЧ£¬ÔËÐÐʱֻ¶Á¡£
¡ñRthreshold£º¸ÃÊôÐÔΪһ·§Öµ¡£µ±½ÓÊÕ»º³åÇøÖÐ×Ö·ûÊý´ïµ½¸Ãֵʱ£¬MSComm¿Ø¼þÉèÖÃCommeventÊôÐÔΪComEvReceive£¬²¢²úÉúOnCommʼþ¡£Óû§¿ÉÔÚOnCommʼþ´¦Àí³ÌÐòÖнøÐÐÏàÓ¦´¦Àí¡£ÈôRthresholdÊôÐÔÉèÖÃΪ0£¬Ôò²»²úÉúOnCommʼþ¡£ÀýÈçÓû§Ï£Íû½ÓÊÕ»º³åÇøÖдﵽһ¸ö×Ö·û¾Í½ÓÊÕÒ»¸ö×Ö·û£¬¿É½«RthresholdÉèÖÃΪ1¡£ÕâÑù½ÓÊÕ»º³åÇøÖнÓÊÕµ½Ò»¸ö×Ö·û£¬¾Í²úÉúÒ»´ÎOnCommʼþ¡£
¡ñSthreshold£º¸ÃÊôÐÔÒàΪһ·§Öµ¡£µ±·¢ËÍ»º³åÇøÖÐ×Ö·ûÊýСÓÚ¸Ãֵʱ£¬MSComm¿Ø¼þÉèÖÃCommeventÊôÐÔΪComEvSend£¬²¢²úÉú OnCommʼþ¡£ÈôSthresholdÊôÐÔÉèÖÃΪ0£¬Ôò²»²úÉúOnCommʼþ¡£ÒªÌرð×¢ÒâµÄÊǽöµ±·¢ËÍ»º³åÇøÖÐ×Ö·ûÊýСÓÚ¸ÃÖµµÄ˲¼ä²Å²úÉú OnCommʼþ£¬Æäºó¾Í²»ÔÙ²úÉúOnCommʼþ¡£ÀýÈçSthresholdÉèÖÃΪ3£¬½öµ±·¢ËÍ»º³åÇøÖÐ×Ö·ûÊý´Ó3½µÎª2ʱ£¬MSComm¿Ø¼þÉèÖà CommeventÊôÐÔΪComEvSend£¬Í¬Ê±²úÉúOnCommʼþ£¬Èç·¢ËÍ»º³åÇøÖÐ×Ö·ûʼÖÕΪ2£¬Ôò²»»áÔÙ²úÉúOnCommʼþ¡£Õâ¾Í±ÜÃâÁË·¢ËÍ»º³åÇøÖÐÊý¾Ýδ·¢ËÍÍê¾Í·´¸´·¢ÉúOnCommʼþ¡£
¡ñCommEvent£ºÕâÊÇÒ»¸ö·Ç³£ÖØÒªµÄÊôÐÔ¡£¸ÃÊôÐÔÉè¼ÆÊ±ÎÞЧ£¬ÔËÐÐ
Ïà¹ØÎĵµ£º
À
±¾ÎÄ·¢±íÔÚ2000Äê4ÔÂ17ÈÕ ¡¶¼ÆËã»úÊÀ½ç¡·25ÆÚ
ÖÆ×÷°²×°³ÌÐòÍùÍùÊdzÌÐòÉè¼ÆµÄ×îºóÒ»²½£¬Í¬Ê±Ò²ÊÇÖØÒªµÄÒ»²½£¬ÒòΪÔËÐа²×°³ÌÐòÍùÍùÊÇÓû§µÄµÚÒ»¸ö²Ù×÷¡£ÏÂÃæ¾Í½éÉÜÒ»Ð©ÖÆ×÷
Visual Basic
°²×°³ÌÐòʱ³£Óöµ½ÎÊÌâµÄ½â¾ö·½·¨¡£
1
¡¢Ò»¸ö·Ç³£¼òµ¥µÄ
VB
³ÌÐòÊÇ·ñ¿ÉÒÔ²»ÖÆ×÷°²×°³ÌÐò
ÎÊ£º¼ÙÈçÎÒµÄ
VB5
¿ª·¢µÄ³ÌÐ ......
'´úÂë:
Option Explicit
'======================ÓÃÓÚ²éÕÒ½ø³ÌºÍÖÕÖ¹½ø³ÌµÄAPIº¯Êý³£Êý¶¨Òå================ =====
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessF ......
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......
VB6
ÔÚ³ÌÐòÔËÐÐʱÓÃÈçÏÂÓï¾ä£º
if app.PrevInstance=true then
end
end if
VB 2005:
1. ÔÚVB2005ÖÐ,´ò¿ª"ÊôÐÔ"Ò³,ÆôÓÃ"Ó¦ÓóÌÐò“¿ò¼Ü, Ñ¡ÖÐ"
µ¥ÊµÀýÓ¦ÓóÌÐò"Ç°Ãæ¸´Ñ¡¿ò,¾ÍÐÐÁË¡£
......
Option Explicit
Dim potflag As Integer '±êʶÊÇ·ñÓÃСÊýµã
Dim numcol As Integer ' µã»÷ÔËËã·ûµÄ¸öÊý
Dim LastInput ' ָʾÉÏÒ»´Î²Ù×÷µÄÄÚÈÝ
Dim colflag ......