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ÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......