به روز کردن رجیستری

[HamidVB]

سلام دوستان

چگونه می توان رجیستری را با برنامه نویسی Update یا همان به روز کرد؟

با تشکر.پیری

[روح اله معینی زاده]

با سلام خدمت دوست گرامی

برای این کار از منوی Project گزینه Reference رو انتخاب کرده و بعد با تعریف یک متغیر از نوع رجیستری، می تونید کارهای لازمه رو انجام بدید.

Dim reg As New Registry, x As Boolean, y As Boolean, data As String
' تشخیص پورت ها
For i = 10 To 1 Step -1
data = ""
x = reg.GetKeyValue(HKEY_LOCAL_MACHINE, "Hardware\DeviceMap\SerialComm", "Com" & i & "", data)
If x Then y = (data <> "")
If y Then
Combo1.AddItem (data)
Combo1.Text = data
y = False
End If
Next
x = False: y = False: data = ""
مثال بالا هم یک نمونه از کار می باشد که در ویندوز 98 می تواند پورت سریال را از 1 تا 10 اگر داشته باشید به شما معرفی کند. دقت نمایید که برای نمایش آن ها از یک Combo استفاده کنید.

ببخشید یادم رفت بگم که متغیر Reg دارای خصیصه به روز رسانی نیز می باشد.

با احترام- خدانگهدار