ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
PMP ¹Ø¾¢ËÉ
¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
¶ÁÈ¡¡¢Ð޸Ķþ½øÖÆÎļþÈÔÊǴ󲿷ֱà³ÌÓïÑԵĻù±¾¿ª·¢¼¼ÄÜ¡£¿ÉÒÔÌá¸ß´¦ÀíÎļþЧÂÊ£¬Ö÷ÒªÓ¦ÓÃÔÚͨÐÅ¡¢½»»»Êý¾ÝµÈ·½Ãæ¡£
'open filename$ for binary #filenumber'ÒÔ¶þ½øÖÆ·½Ê½½¨Á¢»òÕß´ò¿ªÎļþ£¬È»ºóÔÙÓÃ
'Put #FileNumber, postion, inputdata 'дÈëÊý¾Ýinputdata£¬
'Get #FileNumber, postion, outputdata '¶Á³öÊý¾Ýµ½outputvarible
#FileNumber, ´ò¿ªµÄ¶þ½øÖÆÎļþÁ÷¡£
postion, ÎļþÖеÄÊý¾ÝλÖá£
inputdata ÊäÈëÊý¾Ý»º³å¡£¿ÉÒÔʹÓÃÊý×é»ò×Ö·û´®¡£
outputdata Êä³öÊý¾Ý»º³å¡£¿ÉÒÔʹÓÃÊý×é»ò×Ö·û´®¡£
´úÂë
Sub read()
Dim strFileName1, s As String
Dim aryContent(20) As Byte
strFileName1 = App.Path & "\test.hex"
Open strFileName1 For Binary As 1
Get #1, 120, aryContent() '´ÓÎļþÖÐ120×Ö½Ú´¦È¡³ö³¤¶È20µÄÊý¾Ýµ½Êý×éÖС£
msgbox(aryContent()) 'ÒÔ16½øÖƵķ½Ê½ÏÔʾ¡£
s = Space(20) 'ÖØ¶¨Òå×Ö·û´®³¤¶È¡£
Get #1, 2514, s ' ´ÓÎļþÖÐ120×Ö½Ú´¦È¡³ö³¤¶È20µÄÊý¾Ýµ½×Ö·û´®ÖС£
msgbox(s) 'ÒÔ×Ö·ûµÄ·½Ê½ÏÔʾ¡£
Close 1
End Sub
Sub write()
Dim strFileName1, s As String
Dim aryContent(20) As Byte
strFileName1 = App.Path & "\test.hex"
Open strFileName1 For Binary As 1
s = Space(20)
s = "teststtsestssts33333"
Put #1, 2486, s 'ÔÚÎļþÖÐ2486×Ö½Ú´¦Ð´È볤¶È20µÄ×Ö·û´®Êý¾Ý¡£
Debug.Print s
aryContent(0) = &H4F '³õʼ»¯Êý×é
aryContent(1) = &H33
aryContent(2) = &HA1
aryContent(3) = &H42
aryContent(4) = &H8D
Put #1, 2514, aryContent() ''ÔÚÎļþÖÐ2514×Ö½Ú´¦Ð´È볤¶È20µÄÊ®Áù½øÖÆÊý×éÊý¾Ý¡£
Debug.Print aryContent()
Close 1
End Sub
Ïà¹ØÎĵµ£º
ºÜ¾ÃÒÔǰµÄÒ»¸ö´úÂëÁË¡£¡£¡£¡£¡£ÄÇʱ»¹³ÁÃÔÓÚÑо¿WindowsXPµÇ¼ÃÜÂëµÄ¼ÆËã·½·¨¡£¡£¡£¡£
ÏÈн¨Ò»¸öVB¹¤³Ì£¬»Ò»¸öCommandButton£¬¸ÄÃûΪcmdGetSYSKEY£¬»Ò»¸öTextBox£¬¸ÄÃûΪtxtSYSKEY£¬È»ºóÕ³ÌùÏÂÃæµÄ´úÂ룬ÔËÐм´¿É£¬ÔÚWindowsXP SP2 Build 2600 + VB6.0 SP6ϲâÊÔͨ¹ý£¬»ñµÃµÄSYSKEYÓëCain&Abel v4.9.6Ò»Ö¡£¡£¡£¡£ ......
Ò»¡¢ VB¶ÁдEXCEL±í£º
¡¡¡¡VB±¾ÉíÌá×Ô¶¯»¯¹¦ÄÜ¿ÉÒÔ¶ÁдEXCEL±í£¬Æä·½·¨ÈçÏ£º
¡¡¡¡1¡¢ÔÚ¹¤³ÌÖÐÒýÓÃMicrosoft ExcelÀàÐͿ⣺
¡¡¡¡´Ó"¹¤³Ì"²Ëµ¥ÖÐÑ¡Ôñ"ÒýÓÃ"À¸£»Ñ¡ÔñMicrosoft Excel 9.0 Object Library£¨EXCEL2000£©£¬È»ºóÑ¡Ôñ"È·¶¨"¡£±íʾÔÚ¹¤³ÌÖÐÒªÒýÓÃEXCELÀàÐͿ⡣
¡¡¡¡2¡¢ÔÚͨÓöÔÏó ......
'**************************¶ÁͼƬÎļþ**************************************
Sub GetPicfromDB(cn As ADODB.Connection)
On Error Resume Next
Dim ......
½ñÌì×öÒ»¸öVB³ÌÐòµÄ×ÔÏÔ×¢²áÂë¡£ÎÒÒ²²»ÖªµÀ¸ÃÔõô½Ð£¬¾ÍÊÇÕÒµ½³öÏÖ×¢²áÂëµÄµØ·½£¬È»ºóÓöԻ°¿òµ¯³öÀ´¡£Ëµ°×Á˾ÍÊÇÓÃMessageBox°ÑÒ»¸ö×Ö·û´®¸øµ¯³öÀ´£¨Ã»×·Ç󰢡£¡£¡££©
ΪÁËÓеã×·Ç󣬽ñÌì²»µ¼Èëuser32ÀïÃæµÄAPI£¬¶øÊǰÑVBÀïÃæ×Ô´øµÄMsgboxº¯Êý¸øÍÚ³öÀ´µ÷Ó㬾ÍÊÇÒýÓÃMSVBVM60.rtcMsgBoxº¯Êý¡£ÎÒÊ ......
VB¶ÔINIÎļþ²Ù×÷
2009-02-25 00:17
INI ÎļþÊÇʲôÑù×Ó£¿——²»»á°É£¬Õâ¶¼²»ÖªµÀ¡£INI Îļþ¾ÍÊÇ Windows Öг£¼û
µÄÒÔ .ini ΪÀ©Õ¹ÃûµÄÎļþ£¬ÆäÄÚ²¿¸ñʽºÍ¸÷²¿·ÖµÄÃû³ÆÈçÏ£º
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
& ......