سلام خسته نباشید دوستان میشه بگین کار این کدها چی و روش استفاده کلا" توضیحات کامل برای هر کدوم بدین؟

کد اول

r = RegCreateKey(HKEY_CURRENT_USER, "SOFTWARE\Information", keyhand)
lDataBufSize = Len(txtName.Text)
strBuf = txtName.Text
r = RegSetValueEx(keyhand, "Name", 0, REG_SZ, ByVal strBuf, lDataBufSize)
r = RegCloseKey(keyhand)


کد دوم


r = RegOpenKey(HKEY_CURRENT_USER, "SOFTWARE\Information", keyhand)
Result = RegQueryValueEx(keyhand, "Name", 0, lValueType, ByVal 0, lDataBufSize)
strBuf = String(lDataBufSize, Chr$(0))
r = RegQueryValueEx(keyhand, "Name", 0, REG_SZ, ByVal strBuf, lDataBufSize)
r = RegCloseKey(keyhand)
txtName.Text = Left$(strBuf, InStr(1, strBuf, Chr$(0)))


کد سوم
r = RegOpenKey(HKEY_CURRENT_USER, "SOFTWARE\Information", keyhand)
Result = RegQueryValueEx(keyhand, "SendedList", 0, lValueType, ByVal 0, lDataBufSize)
strBuf = String(lDataBufSize, Chr$(0))
r = RegQueryValueEx(keyhand, "SendedList", 0, REG_SZ, ByVal strBuf, lDataBufSize)
r = RegCloseKey(keyhand)
txtSended.Text = Left$(strBuf, InStr(1, strBuf, Chr$(0)))

txtSended.Text = txtSended.Text & Mid(List1.Text, 8, d - 18) & " " & "+" & " "

r = RegCreateKey(HKEY_CURRENT_USER, "SOFTWARE\Information", keyhand)
lDataBufSize = Len(txtSended.Text)
strBuf = txtSended.Text
r = RegSetValueEx(keyhand, "SendedList", 0, REG_SZ, ByVal strBuf, lDataBufSize)
r = RegCloseKey(keyhand)


کد چهارم

r = RegOpenKey(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\System", keyhand)
Result = RegQueryValueEx(keyhand, "System", 0, lValueType, ByVal 0, lDataBufSize)
strBuf = String(lDataBufSize, Chr$(0))
r = RegQueryValueEx(keyhand, "System", 0, REG_SZ, ByVal strBuf, lDataBufSize)
r = RegCloseKey(keyhand)
If strBuf = "" Then GoTo null4
a7 = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)