کار این کدها چی؟

[aleas2]

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

کد اول

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)