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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......