aleas2
چهارشنبه 20 دی 1391, 00:41 صبح
سلام خسته نباشید کسی میتونه بگه کار این تکه کد چی؟
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)
javascript:window.close();
برای هر خط لطفا توضیح بدین ممنون
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)
javascript:window.close();
برای هر خط لطفا توضیح بدین ممنون