نرم افزار ساخت کد فعال سازی در اکسس

[look20]

با سلام ببخشید یه برنامه که با اکسس نوشته شده ضمیمه می کنم متاسفانه نتونستم از کدهاشو به ویژوال تبدیل کنم :متفکر::متفکر::متفکر:

http://barnamenevis.biz/forum/attachment.php?attachmentid=39954&d=1258482751

اگه از دوستان کسی هست که بتونه این کارو بکونه ممنون میشم در واقع نرم افزار مربوط به ساخت کد فعال سازی برای ورود به برنامه است که میشه گفت یه نرم افزار کاربردیه اگه نمونه مشابهی هست ممنون میشم اینجا قرار بدید با تشکر

:چشمک::چشمک::چشمک:

[look20]

کسی نیست؟!

[ali682344]

دوست عزيز من اينو چك مي كنم ،
من يه نمونه سورس براي ساخت تريال گذاشتتم از اون استفاده كن

دانلود
http://barnamenevis.biz/forum/attachment.php?attachmentid=45985&d=1269514498

[look20]

دوست عزيز من اينو چك مي كنم ،
من يه نمونه سورس براي ساخت تريال گذاشتتم از اون استفاده كن

دانلود
http://barnamenevis.biz/forum/attachment.php?attachmentid=45985&d=1269514498
سلام دستون درد نکنه اینو دیدم ولی کار نمی کنه چون هرچی سریال رو درست وارد میکنی پیغام thank you هم میده وقتی فرم رو می بندی و دوباره باز می کنی فرم مثل همون اولشه
در ضمن چطور سریالشو عوض کنم چطور باید و کجا رو ادیت کنم

[ali682344]

رو سيتم من مشكلي نداره

[ali682344]

رو سيستم من مشكلي نداره

براي دست بردن به سورس فكر كنم بايد
Public Function GenCode(ByVal strUN As String) As String
Dim P1 As Long, P2 As Long, P3 As Long
Dim S1 As String, S2 As String, S3 As String
Dim j As Integer

For j = 1 To Len(strUN)
P1 = P1 + Asc(Mid(strUN, j, 1)) * 65
Next
strUN = LCase(strUN)
For j = 1 To Len(strUN)
P2 = P2 + Asc(Mid(strUN, j, 1)) * 50
Next
strUN = UCase(strUN)
For j = 1 To Len(strUN)
P3 = P3 + Asc(Mid(strUN, j, 1)) * 75
Next

S1 = CStr(Hex(P1))
S2 = CStr(Hex(P2))
S3 = CStr(Hex(P3))

If Len(S1) > 4 Then S1 = Left(S1, 4)
If Len(S2) > 4 Then S2 = Left(S2, 4)
If Len(S3) > 4 Then S3 = Left(S3, 4)

GenCode = S1 & "-" & S2 & "-" & S3
End Function
دستكاري كني

[look20]

ببخشید اگه امکانش باشه بخدا شرمندم شمارو اذیت میکنم بزارید رو حساب کم سواتی ما در رابطه با ویژوال بیسیک تونستید فایل اکسسی که ضمیمه کرده بودم رو به ویژوال تبدیل کنید
ببخشید شما چیزی از این قسمت که نوشتید
Public Function GenCode(ByVal strUN As String) As String
چیزی سر درآوردید منکه چیزی متوجه نشدم شما چطور؟!

[ali682344]

به خدا منم مثل شما
اگه سر درمياوردم رو سايت واسه اصلاح نمي گذاشتمش

فقط اينو مي دونم كه اين قسمت سريالو رو توليد مي كنه
حالا روش يه كارايي امجام مي دم ببينم ميشه كاري كرد

[ali682344]

در مورد اين فايل اكسس خودتون اطلاعاتي از اون دارين

مثلا اون شماره سريال يا كد فعال براي هر سيستمي متفاوته
سورس فايل اكسس رو چطوري ميشه ديد

[ali682344]

اينم خدمت دوست عزيزم