עבר עריכה לאחרונה בתאריך 06.06.03 בשעה 21:13
הוא בודק מספר סידורי של אחד הרכיבים...
ובגלל שלכל רכיב מספר סידורי ייחודי בכל העולם לא יהיה ניתן להפיץ (כמובן שניתן פשוט זה יקשה
)
הנה הקוד מהפורום ההוא:
"היי,
הדרך המקובלת ביצירת רשיונות תוכנה היא לבדוק את המזהה של כרטיס הרשת (MacAddress) של המחשב בו מותקנת התוכנה (זהו מזהה חד-חד ערכי בעולם). מכיון שאתה כנראה לא מעונין להתחיל להתעסק עם רשיונות תוכנה להפצת התוכנה אלא אתה מדבר רק על מחשב ספיציפי של חבר אחד, תוכל לבדוק ממש בתוך הקוד האם התוכנה הופעלה במחשב עם מזהה כרטיס הרשת של אותו חבר, ואם לא, לצאת מהתוכנה (כדאי גם שתרשה לכרטיס של המחשב שלך להפעיל את התוכנה).
הנה איך: Private Declare Function UuidCreateSequential Lib "rpcrt4.dll" (ByVal UUID As Long) As Long Private Declare Function UuidToString Lib "rpcrt4.dll" Alias "UuidToStringA" (ByVal UUID As Long, ByRef StringUuid As String) As LongPrivate Type Guid Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Function GetMacAddr() As String Dim MyUUID As Guid Dim pUUID As Long Dim ret As Long Dim UUIDStr As String Dim Index As Integer Dim tmpStr As String Dim tmpData As Integer ret = UuidCreateSequential(VarPtr(MyUUID)) UUIDStr = "" For Index = 2 To 7 tmpStr = Hex(MyUUID.Data4(Index)) If Len(tmpStr) = 1 Then tmpStr = "0" & tmpStr UUIDStr = UUIDStr & tmpStr & "-" Next UUIDStr = Left(UUIDStr, Len(UUIDStr) - 1) GetMacAddr = UUIDStr End Function
|
זו רק אחת מהשיטות לקבלת מזהה כרטיס הרשת (MACAddress). זו למיטב הבנתי הכי טובה.
תכין לחבר שלך תוכנית קטנה שיש בה רק את הקוד הזה כדי שהוא יוכל להריץ את זה אצלו במחשב ולהקריא לך (או לשלוח לך כי זה הרבה אותיות ומספרים) את ה MacAddress שלו, כדי שתוכל לשלב את זה בקוד שלך.
בהצלחה,
אורן."
דרך אגב אתה שאלת את השאלה בפורום ההוא (הררי פוטר)
ואני לא רשום שם אלאא חבר שלי TAsn זה הניק שלו...
אבל הוא כבר בקושי מתחבר כי הרמה שם ירדה מאוד... תאמת שאני מסכים איתו :\