VB¶ÁÈ¡Îļþ£¨MΪµ¥Î»£©
ÎÒÓÃ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\NOTEPAD.EXE" For Binary As #1
Get #1, , F
Close #1
For N = 1 To 1024 Step 1
Text1.Text = Text1.Text & Hex(F.FSize(N))
Next N
End Sub
»ñÈ¡µ½µÄNOTEPAD.EXEµÄÊ®Áù½øÖÆÊý¾Ý²»È«£¬ÕâÊÇΪʲô£¿
ÊÇTextBox¿Ø¼þµÄ´óСÏÞÖÆÂ𣬻¹ÊÇÎҵĴúÂëÓÐÎÊÌ⣿
´ó¼Ò°ïæ·ÖÎöһϺÃÂð£¿Ð»Ð»£¡
ÊÇTextBox´óСÓÐÏÞÖÆ£¬»»RichtextboxÊÔÊÔ
ºÜÔã¸âµÄÏë·¨¡£¡£¡£
×Ö·û´®Á¬½ÓºÍ¶Áд¿Ø¼þÊôÐÔ¶¼ÊǷdz£ÂýµÄ²Ù×÷¡£
FSize(1 To 1024)--Byte Êý×é±¾ÉíµÄ³¤¶ÈÒ²ÓÐÏÞ¡£
µ±È»²»È«ÁË£¬ÄãÖ»¶ÁÁË1024b
´ó¼ÒÓкÃÒ»µãµÄ˼·Âð£¿
ÄóöÀ´·ÖÏíһϣ¬ÎÒÔÚÍøÉϲéÁ˺þã¬Ã»ÕÒµ½Ê²Ã´ÓмÛÖµµÄ¶«Î÷£¬
´ó¼ÒÄܸøÎÒÒ»¸öʵÀýÂð£¿
Ïà¹ØÎÊ´ð£º
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæÐ´Á˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......
Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔÀ´µÄÊýÖµÁË
´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£
»Ø¸´ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔÀ´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......