Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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£ºÕâÊÇÒ»¸ö·Ç³£ÖØÒªµÄÊôÐÔ¡£¸ÃÊôÐÔÉè¼ÆÊ±ÎÞЧ£¬ÔËÐÐ


Ïà¹ØÎĵµ£º

ÖÆ×÷VB°²×°³ÌÐòÎÊ´ð(Package & Deployment)

À
±¾ÎÄ·¢±íÔÚ2000Äê4ÔÂ17ÈÕ ¡¶¼ÆËã»úÊÀ½ç¡·25ÆÚ

ÖÆ×÷°²×°³ÌÐòÍùÍùÊdzÌÐòÉè¼ÆµÄ×îºóÒ»²½£¬Í¬Ê±Ò²ÊÇÖØÒªµÄÒ»²½£¬ÒòΪÔËÐа²×°³ÌÐòÍùÍùÊÇÓû§µÄµÚÒ»¸ö²Ù×÷¡£ÏÂÃæ¾Í½éÉÜÒ»Ð©ÖÆ×÷
Visual Basic
°²×°³ÌÐòʱ³£Óöµ½ÎÊÌâµÄ½â¾ö·½·¨¡£
1
¡¢Ò»¸ö·Ç³£¼òµ¥µÄ
VB
³ÌÐòÊÇ·ñ¿ÉÒÔ²»ÖÆ×÷°²×°³ÌÐò
ÎÊ£º¼ÙÈçÎÒµÄ
VB5
¿ª·¢µÄ³ÌÐ ......

VBÎļþ·ÛËé»ú


'´úÂë:
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 ......

VBÏÂÔØÎļþ

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 ......

VB µ¥ÊµÀýÔËÐÐ

VB6
ÔÚ³ÌÐòÔËÐÐʱÓÃÈçÏÂÓï¾ä£º
if   app.PrevInstance=true   then  
            end    
end   if
VB 2005:
1. ÔÚVB2005ÖÐ,´ò¿ª"ÊôÐÔ"Ò³,ÆôÓÃ"Ó¦ÓóÌÐò“¿ò¼Ü, Ñ¡ÖÐ"
µ¥ÊµÀýÓ¦ÓóÌÐò"Ç°Ãæ¸´Ñ¡¿ò,¾ÍÐÐÁË¡£
......

VB ¼òµ¥¼ÆËãÆ÷

Option Explicit
Dim potflag As Integer      '±êʶÊÇ·ñÓÃСÊýµã
Dim numcol As Integer       ' µã»÷ÔËËã·ûµÄ¸öÊý
Dim LastInput               ' ָʾÉÏÒ»´Î²Ù×÷µÄÄÚÈÝ
Dim colflag ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ