vb Ìá¸ß´®¿Ú·¢ËÍËÙ¶È
Ôʼ×ö·¨
For i = 0 To LenB(Send$) step 2
m1$ = MidB$(Send$, i, 2)
InterFilForm.Comm1.Output = m1$
Next
ÏÖÔÚ×ö·¨
Dim sendOneWord(1) As Byte
For i = 0 To LenB(Send$) step 2
m1$ = MidB$(Send$, i, 2)
Call StringToByteArray_B(sendOneWord, m1$, 2) ½«Ã¿¸östring ×Ö·ûתΪbyte
InterFilForm.Comm1.Output = sendOneWord
Next
·¢ÏÖÏÖÔÚ×ö·¨±ÈÒÔǰ·¢ËÍÂýÁ˺ܶ࣬Ϊʲô£¬ÔõôÌá¸ß·¢ËÍËÙ¶È
ÄãÏȰѴ®¿Ú´úÂëÈ¥µô£¬Ö»ÁôCall StringToByteArray_B(sendOneWord, m1$, 2)£¬¿´¿´µ½µ×ÊÇÄãÕ⺯ÊýÌ«Âý£¬»¹ÊÇ´®¿ÚÂý
Å׿ªÄã×Ô¼º´úÂëµÄÎÊÌ⣬µ¥¾Í´®¿ÚÓ²¼þ¶øÑÔ£¬Ôö¼ÓͨÐÅËÙ¶È×îÓÐЧµÄ°ì·¨¾ÍÊÇÌá¸ß²¨ÌØÂÊ¡£²»¹ýͨ³£Çé¿öÏÂÕâ¸öÒ²½ÚÊ¡²»Á˶àÉÙʱ¼ä£¬ºÁÃë¼Æ¡£
{{
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
¸÷λºÃ£¬ÎÒÏÖÔÚÒªÓÃһ̨¼ÆËã»úͬʱ¼à¿Ø32̨ÐźŽÓÊÕ»ú£¨ÓõÄÊÇMOXA¿¨À©Õ¹32¸ö´®¿Ú£©¡£Ïȵ÷ÊÔ8̨¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÓÐÁ½¸öÃüÁîÐèÒªÏò½ÓÊÕ»ú·¢ËÍ£¬Ò»¸öÊÇ¼à¿Ø½ÓÊÕ»úÉϵÄÐźÅËø¶¨×´Ì¬£¬Ò»¸öÊÇ»ñÈ¡½ÓÊÕ»úĿǰµÄ¸÷À๤×÷× ......
ÎÒÓÃVB×Ô´øµÄTextBox¿Ø¼þ£¬
Option Explicit
Private Type De '¿é¶¨Òå
FSize(1 To 1024) As Byte
End Type
Private Sub Command1_Click()
Dim F As De
Dim N As Integer
Open "C:\WINDOWS\N ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......