Printable View
خوب سخت ترین روش چی منظورم اینه با کدوم روش بنویسم که کمتر کسی بتونه بهشون دسترسی داشته باشه می خوام هکر ها نتونن یا کمتر کسی بتونه بهشون دسترسی داشته باشن؟اگر سورسشو دارین خواهشن سورسشه برام بگذارید؟
سوال دوم؟چگونه یه متنی رو طوری ذخیره کنم که برای باز کردن اون با برنامه های دگه رمز بخواد؟
سوال سوم؟چطوری روی فایل های موجود در کامپیوتر پسوند بگذارم؟
یکی از روش های ذخیره مقدار ، ذخیره در Resource هست که البته این مقدار رو فقط در حالت طراحی میشه تغییر داد و برنامه وقتی EXE شد دیگه نمیشه اون رو ادیت کرد و فقط خاصیت ReadOnly داره . برای استفاده از Resource هم میتونید در منوی Add-Ins >> Add-Ins Manager گزینه VB6 Resource Editor رو انتخب کنید و در پایین تیک Load On StartUp و Loaded/Unloadded رو بزنید و OK ... با اینکار آیکون سبز رنگی در نوار تولبار اضافه میشود و میتونین با استفاده از گزینه Edit String Table هر مقداری رو در خود EXE ذخیره کنید و در آخر فراموش نکنید فایل .res رو سیو کنید ...نقل قول:
سوال دوم : فعلا روشی خوبی وجود نداره که بشه بطور مستقیم روی فایل ها پسورد گذاشت ولی شما میتونین اون متن خودتون رو به رمز در بیارید و ذخیره کنید .
سوال سوم : متوجه سوالتون نشدم ؟
سلام درمورد سوال دوم چطوری متن خودم به رمز در بیارم وذخیره کنم؟
درمورد سوال سوم یه فایل روی کامپیوتر هسته می خوام براش یه رمز تعیین کنم که به وارد کردن اون پرونده باز بشه؟
سوال چهارم!چطور دوتا عکس باهم تو ویژوال بیسیک مقایسه کنم که مثل هم هستن یا نه؟
سوال اول : شما باید با الگوریتم کدگذاری متن موردنظرتون رو کد کنید .. من برای مثال یکی از الگوریتم های کدگذاری و دیکد کردن رو براتون نوشتم :نقل قول:
در مورد سوال دوم من در پست قبلی گفتم که امکان رمز گذاری مستقیم فایل در ویژوال بیسیک نیست . مگر اینکه اون فایل رو هم کد کنید ..کد: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 عکس براتون آپلود کردم :
دوستان دوباره سلام
من هي ميرم و ميام و يه چيز جديد مي خوام بايد ببخشيد.
هر كي بلده كمك كنه. توي برنامه نويسي به جايي رسيدم كه مي خوام دوتا تاريخ رو بگيره مثلاً 01/01/1388 و تاريخ پايان 13/12/1388 و تعداد ماه ها و روزها رو اينطوري محاسبه كنه و بگه.
12 ماه
13 روز
اگه توضيحات اضافي خواستين بگين بيشتر توضيح بدم.
در ضمن از آقاي مبين كه خيلي خيلي به من توي برنامه نويسي كمك كردن تشكر مي كنم.:11():
يا علي
با استفاده از تابع DateDiff می تونید به راحتی تارخ و زمان را از هم جمع وتفریق کنیدنقل قول:
شکل کلی تابع
کد:mystring = DateDiff(Interval,Date1, Date2)
Interval مقدار برگشتی تابع را مشخص می کند که در زیر اورده شده
"yyyy" = سال
"m" = ماه
"d" = روز
"h" = ساعت
"n" = دقیقه
"s" = ثانیه
همشیه مقدار date1 از مقدار date2 کم می شود مثال :
مقدار 2 در mystring ذخیره می شود برای زمان نیز به همین صورت .کد:mystring = DateDiff("yyyy", "1386/11/1", "1388/11/1")
برای کار با اختلاف ساعت :
از سه مقدار interval زیر برای جمع و تفریق استفاده می شه
"h" = ساعت
"n" = دقیقه
"s" = ثانیه
بدست آوردن اختلاف بر حسب ساعت
بدست آوردن اختلاف بر حسب دقیقهکد:myvalue = DateDiff("h", "10:50:11", "11:20:10")
مقدار برگشتی 1
بدست آوردن اختلاف بر حسب ثانیهکد:myvalue = DateDiff("n", "11:00:00", "12:20:00")
مقدار برگشتی 80
باز هم توجه کنید که همیشه مقدار date1 از مقدار date2 کسر می شودکد:myvalue= DateDiff("s", "12:00:00", "12:01:10")
مقدار برگشتی 70
موفق باشید
مبين جان مي توني يه سورسش رو بذاري بيشتر آشنا بشيم؟نقل قول:
ممنون
آخيــــــــــــــــــــــ ـــــــــــش بالاخره تموم شد ، آقا واقعا خسته نباشيد و ايول خيلي كارتون خوبه مخصوصا برنامه هايي كه گذاشتين . من از صفحه 1 تا آخرين صفحه (31) رو تماما خوندم و دانلود كردم :1. (23): فقط يكم اين آخراشو ديگه سر درد گرفتم سر سري ردشون كردم رفت ، ولي كلا خيلي مفيد بود ممنون دستون درد نكنه :Love-PCN~!:
بعد از اينهمه خوندنو دانلود چيزي به ذهنم نميرسه بنويسم پس يه راست عنوان رو ميگم :
دانلود سورس مرلين ، جادوگر تنها :whistle:
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
وااااااااي كه چه باحاله !! من كه باهاش حال كردم شما رو نميدونم :love:
سورس مديا پلير چيزه خوبيه دانلود كنيد به قول مبين آموزندس :1. (26): هم صوتي و هم تصويري رو ميشه باهاش پخش كرد تنها مشكلي كه داره اينه كه كنترلر زمان رو نداره (بكشيم عقب و جلو ، استوپ و...)
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]
برای مشاهده این لینک/عکس می بایست عضو شوید !برای عضویت اینجا کلیک کنید ]