مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[shhabcd]

خوب سخت ترین روش چی منظورم اینه با کدوم روش بنویسم که کمتر کسی بتونه بهشون دسترسی داشته باشه می خوام هکر ها نتونن یا کمتر کسی بتونه بهشون دسترسی داشته باشن؟اگر سورسشو دارین خواهشن سورسشه برام بگذارید؟

سوال دوم؟چگونه یه متنی رو طوری ذخیره کنم که برای باز کردن اون با برنامه های دگه رمز بخواد؟
سوال سوم؟چطوری روی فایل های موجود در کامپیوتر پسوند بگذارم؟

[MoBiN.R]

خوب سخت ترین روش چی منظورم اینه با کدوم روش بنویسم که کمتر کسی بتونه بهشون دسترسی داشته باشه می خوام هکر ها نتونن یا کمتر کسی بتونه بهشون دسترسی داشته باشن؟اگر سورسشو دارین خواهشن سورسشه برام بگذارید؟

سوال دوم؟چگونه یه متنی رو طوری ذخیره کنم که برای باز کردن اون با برنامه های دگه رمز بخواد؟
سوال سوم؟چطوری روی فایل های موجود در کامپیوتر پسوند بگذارم؟

یکی از روش های ذخیره مقدار ، ذخیره در Resource هست که البته این مقدار رو فقط در حالت طراحی میشه تغییر داد و برنامه وقتی EXE شد دیگه نمیشه اون رو ادیت کرد و فقط خاصیت ReadOnly داره . برای استفاده از Resource هم میتونید در منوی Add-Ins >> Add-Ins Manager گزینه VB6 Resource Editor رو انتخب کنید و در پایین تیک Load On StartUp و Loaded/Unloadded رو بزنید و OK ... با اینکار آیکون سبز رنگی در نوار تولبار اضافه میشود و میتونین با استفاده از گزینه Edit String Table هر مقداری رو در خود EXE ذخیره کنید و در آخر فراموش نکنید فایل .res رو سیو کنید ...

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

سوال سوم : متوجه سوالتون نشدم ؟

[shhabcd]

سلام درمورد سوال دوم چطوری متن خودم به رمز در بیارم وذخیره کنم؟
درمورد سوال سوم یه فایل روی کامپیوتر هسته می خوام براش یه رمز تعیین کنم که به وارد کردن اون پرونده باز بشه؟
سوال چهارم!چطور دوتا عکس باهم تو ویژوال بیسیک مقایسه کنم که مثل هم هستن یا نه؟

[MoBiN.R]

سلام درمورد سوال دوم چطوری متن خودم به رمز در بیارم وذخیره کنم؟
درمورد سوال سوم یه فایل روی کامپیوتر هسته می خوام براش یه رمز تعیین کنم که به وارد کردن اون پرونده باز بشه؟
سوال چهارم!چطور دوتا عکس باهم تو ویژوال بیسیک مقایسه کنم که مثل هم هستن یا نه؟

سوال اول : شما باید با الگوریتم کدگذاری متن موردنظرتون رو کد کنید .. من برای مثال یکی از الگوریتم های کدگذاری و دیکد کردن رو براتون نوشتم :

Public Function CodeStr(TextStr As String) As String
On Error Resume Next
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) + 17)
Next i
CodeStr = OutputStr
End Function
Public Function DeCodeStr(TextStr As String) As String
On Error Resume Next
Dim InputStr As String, OutputStr As String
For i = 1 To Len(TextStr) Step 1
OutputStr = OutputStr & Chr(Asc(Mid(TextStr, i, 1)) - 17)
Next i
DeCodeStr = OutputStr
End Function

در مورد سوال دوم من در پست قبلی گفتم که امکان رمز گذاری مستقیم فایل در ویژوال بیسیک نیست . مگر اینکه اون فایل رو هم کد کنید ..

سوال سوم : یه نمونه سورس براتون در مورد مقایسه 2 عکس براتون آپلود کردم :

[rrasheli]

دوستان دوباره سلام
من هي ميرم و ميام و يه چيز جديد مي خوام بايد ببخشيد.
هر كي بلده كمك كنه. توي برنامه نويسي به جايي رسيدم كه مي خوام دوتا تاريخ رو بگيره مثلاً 01/01/1388 و تاريخ پايان 13/12/1388 و تعداد ماه ها و روزها رو اينطوري محاسبه كنه و بگه.
12 ماه
13 روز
اگه توضيحات اضافي خواستين بگين بيشتر توضيح بدم.
در ضمن از آقاي مبين كه خيلي خيلي به من توي برنامه نويسي كمك كردن تشكر مي كنم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
يا علي

[MoBiN.R]

دوستان دوباره سلام
من هي ميرم و ميام و يه چيز جديد مي خوام بايد ببخشيد.
هر كي بلده كمك كنه. توي برنامه نويسي به جايي رسيدم كه مي خوام دوتا تاريخ رو بگيره مثلاً 01/01/1388 و تاريخ پايان 13/12/1388 و تعداد ماه ها و روزها رو اينطوري محاسبه كنه و بگه.
12 ماه
13 روز
اگه توضيحات اضافي خواستين بگين بيشتر توضيح بدم.
در ضمن از آقاي مبين كه خيلي خيلي به من توي برنامه نويسي كمك كردن تشكر مي كنم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
يا علي

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

mystring = DateDiff(Interval,Date1, Date2)

Interval مقدار برگشتی تابع را مشخص می کند که در زیر اورده شده

"yyyy" = سال
"m" = ماه
"d" = روز
"h" = ساعت
"n" = دقیقه
"s" = ثانیه

همشیه مقدار date1 از مقدار date2 کم می شود مثال :

mystring = DateDiff("yyyy", "1386/11/1", "1388/11/1")

مقدار 2 در mystring ذخیره می شود برای زمان نیز به همین صورت .

برای کار با اختلاف ساعت :

از سه مقدار interval زیر برای جمع و تفریق استفاده می شه
"h" = ساعت
"n" = دقیقه
"s" = ثانیه

بدست آوردن اختلاف بر حسب ساعت

myvalue = DateDiff("h", "10:50:11", "11:20:10")
مقدار برگشتی 1

بدست آوردن اختلاف بر حسب دقیقه

myvalue = DateDiff("n", "11:00:00", "12:20:00")
مقدار برگشتی 80

بدست آوردن اختلاف بر حسب ثانیه

myvalue= DateDiff("s", "12:00:00", "12:01:10")
مقدار برگشتی 70

باز هم توجه کنید که همیشه مقدار date1 از مقدار date2 کسر می شود
موفق باشید

[rrasheli]

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

mystring = DateDiff(Interval,Date1, Date2)

Interval مقدار برگشتی تابع را مشخص می کند که در زیر اورده شده

"yyyy" = سال
"m" = ماه
"d" = روز
"h" = ساعت
"n" = دقیقه
"s" = ثانیه

همشیه مقدار date1 از مقدار date2 کم می شود مثال :

mystring = DateDiff("yyyy", "1386/11/1", "1388/11/1")

مقدار 2 در mystring ذخیره می شود برای زمان نیز به همین صورت .

برای کار با اختلاف ساعت :

از سه مقدار interval زیر برای جمع و تفریق استفاده می شه
"h" = ساعت
"n" = دقیقه
"s" = ثانیه

بدست آوردن اختلاف بر حسب ساعت

myvalue = DateDiff("h", "10:50:11", "11:20:10")
مقدار برگشتی 1

بدست آوردن اختلاف بر حسب دقیقه

myvalue = DateDiff("n", "11:00:00", "12:20:00")
مقدار برگشتی 80

بدست آوردن اختلاف بر حسب ثانیه

myvalue= DateDiff("s", "12:00:00", "12:01:10")
مقدار برگشتی 70

باز هم توجه کنید که همیشه مقدار date1 از مقدار date2 کسر می شود
موفق باشید

مبين جان مي توني يه سورسش رو بذاري بيشتر آشنا بشيم؟
ممنون

[hadi-_-maker]

آخيــــــــــــــــــــــ ـــــــــــش بالاخره تموم شد ، آقا واقعا خسته نباشيد و ايول خيلي كارتون خوبه مخصوصا برنامه هايي كه گذاشتين . من از صفحه 1 تا آخرين صفحه (31) رو تماما خوندم و دانلود كردم برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید فقط يكم اين آخراشو ديگه سر درد گرفتم سر سري ردشون كردم رفت ، ولي كلا خيلي مفيد بود ممنون دستون درد نكنه برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

[hadi-_-maker]

بعد از اينهمه خوندنو دانلود چيزي به ذهنم نميرسه بنويسم پس يه راست عنوان رو ميگم :

دانلود سورس مرلين ، جادوگر تنها برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید


دانلود

[hadi-_-maker]

وااااااااي كه چه باحاله !! من كه باهاش حال كردم شما رو نميدونم برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید
سورس مديا پلير چيزه خوبيه دانلود كنيد به قول مبين آموزندس برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید هم صوتي و هم تصويري رو ميشه باهاش پخش كرد تنها مشكلي كه داره اينه كه كنترلر زمان رو نداره (بكشيم عقب و جلو ، استوپ و...)

برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید


دانلود