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

VBÈçºÎ²»ÓÃAPI¾ÍÄܲÙ×÷×¢²á±í

ÎÒÓиö×Ö·û´®Èç¡°MyName¡±Òª±£´æµ½×¢²á±íHKEY_CURRENT_USER\softwareÏ¡£
ÈçºÎ´´½¨¸ÃÏÈçºÎ¶ÁÈ¡¸ÃÏî¡£
²»ÓÃAPI¿ÉÒÔÂ𣿺ÃÏñMicrosoft.Win32.Registry.CurrentUser.OpenSubKeyÓиöÕâÑùµÄ·½·¨£¡
.NET¿ÉÒÔ¡£VB6²»¿ÉÒÔ¡£
VB6¿ÉÒÔʹÓÃSaveSetting ±£´æµ½Ìض¨Î»Ö㬻òÕßʹÓà Shell.Scripting COM ·ÃÎÊ×¢²á±í¡£


ÄÇË­¸ø¸öÓÃAPIÈçºÎʵÏֵİɣ¿
ÎҵŦÄÜÊÇ£ºÓиö×Ö·û´®£¬±ÈÈç ¡°BeiJing¡±,ÎÒÒª°ÑËü±£´æµ½
×¢²á±íHKEY_CURRENT_USER\softwareϵļü¡°JK¡±ÖС£
²¢ÇÒÒª¶ÁÈ¡£¬ÈçºÎʵÏÖÄØ£¿

d¶¥£¬£¬Ë³±ãѧϰһÏ£¬ºÃºÃѧ

ºÇºÇ,Æäʵ.NETÒ²ÊÇÔÚµ÷ÓÃWIN32 APIµÄ.Ö»ÊÇ·â×°µÄ±È½Ï³¹µ×,¿´²»µ½APIµÄºÛ¼£ÁË.

Shell.Scripting COM ÆäʵҲÊÇÔÚµ÷ÓÃWIN32 APIµÄ... ...

Õâ¸ö¾ÍÊÇ·´Éämscorlib ÖÐ:
Microsoft.Win32.Registry.CurrentUser.OpenSubKey
µÄÔ´´úÂë.

C# code:

public RegistryKey OpenSubKey(string name, bool writable)
{
IntPtr ptr;
if (name == null)
{
throw new ArgumentNullException("name");
}
if (name.Length >= 0xff)
{
throw new ArgumentException(Environment.GetResourceString("Arg_RegKeyStrLenBug"));
}
this.ValidateState(false);
name = FixupName(name);
int samDesired = 0;
if (!writable)
{
samDesired = 0x20019;
}
else
{
samDesired = 0x2001f;
}
if (!this.remoteKey)
{
new RegistryP


Ïà¹ØÎÊ´ð£º

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ