تو رو خدا كمكم كنيد

[bah69man]

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

اونقد اعصابم خورده که کم مونده مثل بچه ها .......


ممنونم از همتون لطف بزرگی کردین بهم

[hamed_Arfaee]

داداش کدو خودتون دادین ببخشین از رو سایت حذفش کنین منم پاک میکنم از رو سیستم تا ناراحت نشین

عجب
من چی میگم تو چی میگی

عزیز من ، نوشته منو با ملایمت بخون نه با خشونت.

میگم این کدها که فرستادی، کد همون پروژه ای هست که من بهت دادم نه پروژه خودت .
اینها که خطا ندارن یعنی از اولشم نداشتن .
شما میگی پروژت خطا میده، خوب دوست عزیز من اون پروژه ای که خطا میده رو بذار نه همون نمونه سالمی که من بهت دادم رو عزیز من .

[bah69man]

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

[Mr.pRoGraMmer]

الان برات شروع میکنم یکی مینیویسم :d

[bah69man]

ممنون داداش فداتون بشم الهییییییییییییییییییییییییییییییییییییییییییی

فقط ویندوز عوض شد با سریال قبلی کار کنه
تا ویندوز عوض نشده سریال نخواد
قابلیت انتقال به فرم 2 بعد از تائید صحت سریال رو داشته باشه
پی سی عوض شد کد جدید بده که مال من نمیداد

هیچوقت خوبیتونو فراموش نمیکنمط:X

[Mr.pRoGraMmer]

بیا اینم سورس کد
هم اکتیو کی میده هم سریال
اسون راحت نوشتمش تا راحت بتونی یاد بگیری
برام دعا کن خوشبخت بشم
دانلود سورس کد :

  Register App With Activation(Www.ParsiCoders.com).zip (اندازه: 11.24 KB / تعداد دفعات دریافت: 60)

[bah69man]

ممنون ایشالاااااااااا خوشبخت شی

داداش این من یه چیزیشو سر در نیاوردم چرا سریال میده تو فیلد ÷ائینش یه عدد میاره ما الان باید کجا سریال و بدیم که بررسی کنه درس بود بره فرم 2 این دکمه تائیدشم کار نکرد


منون از لطف بزرگی که بهم کردین

[Mr.pRoGraMmer]

خوب یه اکتیو کی میده
بعد اکتیو کی میده شما و شما یه سریال میدی طرف
دکمه رو فشار میدی اگر سریال به اکتیو کی خورد برنامه اکتیو میشه
اینو پاک کن
اون فیلد دومی دیگه پر نمیشه
InputKey = UnActiveKey 'Code Active Key
من خیلی ساده خیلی ساده نوشتمش که راحت بفهمی

---

یه توضیح دیگه میدم
این 2 تا تابع

کد:

Public Function GetActiveKey() As String
GetActiveKey = Val(GetSerialNumber("c:\")) + Val("1234")
End Function
Public Function UnActiveKey() As String
UnActiveKey = Val(GetSerialNumber("c:\")) - Val("1234")
End Function

یکیش اکتیو کی میده بر اساس سریال هارد دیسک درایو c یکیش هم سریال
سریالو بدتس اووردم به اضافه عدد 1234 کردم نیومدم پیچیدش کنم
2 تا تابع قبلی پاک کن اون 2 تا بالایی جایگزین کن
به دلخواه یه الگوریتم بنویس
منم قاط کردم
اینم عکس تست برنامه

[hamed_Arfaee]

من که اخرشم نفهمیدم مشکل شما با خود قفل بود یا اگه اگه قفل خوب بود با ترکیبش تو پروژه خودتون بود .

در هر صورت من ا... توفیق .

[bah69man]

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

بازم بخخشین وقتتونو گرفتم
ممنون