تولید و ساخت یک کد منحصر به فرد CLSID ریجستری

[Mvbp_soft]

سلام دوستان عزیز ،،، عیدتان مبارک ،،،،
امروز به تشریح موضوع این تاپیک می پردازم
این تابع ، یک کد عددی integer 128 بیتی CLSID می سازد که این کدها می توانند معرف آن برنامه و یا پنجره در ریجستری باشند.انواع مختلف این کدها در مسیر HKEY_Classes_root\CLSID ریجستری قرار دارند.
:لبخندساده:

[siahacker]

سلام دوست عزیز
سال نو شما هم مبارک
این فایلی که گذاشتید اشکال داره
لطفا یک دور دیگه فایل اصلی رو آپلود کنید

[CodeMasterX]

دیدم نوشتین فایل مشکل داره گفتم کد مستقیم رو براتون بنویسم.
کد زیر رو تو قسمت General فرمتون بنویسید:



Private Declare Function CoCreateGuid Lib "ole32" (Id As Any) As Long


حالا این کد رو تو یه ماژول اضافه کنید:



Public Function CreateGUID() As String
Dim Id(0 To 15) As Byte
Dim CLSID As String
Dim Num As Long

If CoCreateGuid(Id(0)) = 0 Then
For Num = 0 To 15
CreateGUID = CreateGUID + IIf(Id(Num) < 16, "0", "") + Hex$(Id(Num))
Next Num
CreateGUID = Left$(CreateGUID, 8) + "-" + Mid$(CreateGUID, 9, 4) + "-" + Mid$(CreateGUID, 13, 4) + "-" + Mid$(CreateGUID, 17, 4) + "-" + Right$(CreateGUID, 12)
Else
Text1.Text = "Error"
End If
End Function


حالا یه کنترل TextBox به فرم اضافه کنید و کد زیر رو تو متد Form_Load بنویسید:



Text1.Text = CreateGUID



حله ؟!