vb´®¿Ú×Ö·û´®½ÓÊÜ - VB / ¿Ø¼þ
ÎÒ×öÁ˸ö´®¿Ú½ÓÊÕµ¥Æ¬»úµÄ³ÌÐò£¬ÓÐ2¸öÎÊÌâû·¨½â¾ö£¬µÚÒ»£¬ÎÒ½ÓÊÜÁË×Ö·û´®ÈçºÎÔÚtextÖÐʵÏÖÇ¿ÖÆ»»ÐУ¬ÎÒ´¥·¢oncommµÄ×Ö½ÚÊýÊÇ2¸ö£¬ÎÒÏë½ÓÊÜÒ»´®×Ö·û´®Ê±Èç68 00 00 00 01 68 01 04 44 e9 88 16£¬ÈçºÎ»»ÐÐÄØ£¿ÎҸоõÎÒ½ÓÊܵÄÊÇÁ½Î»Á½Î»µÄ½ÓÊÜ£¬µ«ÊÇÔõô°ÑÎÒÉÏÃæµÄÕâÒ»×éÕûºÏ³ÉÒ»×éÄØ£¿
LZ:ÄãËÆºõÊÇ2½øÖƽÓÊÕÏÔʾΪ16½øÖÆ×Ö·û´®ÐÎʽ.
Ôõô°ÑÎÒÉÏÃæµÄÕâÒ»×éÕûºÏ³ÉÒ»×é?Çë²ÎÔÄ:http://www.vbgood.com/thread-83700-1-1.html
·û´®ÈçºÎÔÚtextÖÐʵÏÖÇ¿ÖÆ»»ÐÐ?ÇëÉèÖÃÎı¾¿òÊôÐÔMultiLineΪTrue¾Í¿É.
http://download.csdn.net/source/1498637
http://download.csdn.net/source/1498644
Dim sta As String
Dim receved() As Byte
Dim inbutter As Variant
Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
''''''''''''''''''''''''''''''''''''''''''''''''''''MSComm1.InBufferCount = 0 '"Çå³ý·¢ËÍ»º³åÇøÊý¾Ý
''''''''''''''''''''''''''''''''''''''''''''''''''' MSComm1.OutBufferCount = 0 '"Çå³ý½ÓÊÕ»º³åÇøÊý¾Ý
Print "we"
Print Tab
Print "2343432424"
End Sub
Private Sub Form_Load()
With MSComm1
.CommPort = 3
.Settings = "1200,e,8,1"
.RThreshold = 1
.InputMode = c
Ïà¹ØÎÊ´ð£º
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡¡
·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?
ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡
°ï¶¥ ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......