افزونه TopTools - دموی اتورانی هوشمند

[mahdi5789]

هرکی سورس برنامه رو می خواد درخواست کنه در خدمتم

درخواست بدین تا براتون بزارم .

سلام مگه این برنامه واسه OMiD نیست پس شما چرا سورسشو دارید

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

در هر صورت خدا قوت گرافیست آپادانا
​

 

[OMiD]

سلا بر آقا امید و همه ی بروبچه های MMB که من هرچی بلدم از شما یادگرفتم.
آقا امید میشه یه کم در مورد الگوریتم فراخوانی کلیدهای Serial, Crack, Keygen در برنامتون(Todp Tools) توضیح بدین؟
چجوری اونا رو در صورت وجود در کنار برنامه موردنظر قرار میده و با انتخاب مثلا Serial اونو از مقصد اجرا میکنه؟
اگه لطف کنی توضیحی، مثالی چیزی بذاری ممنون میشم، دمت گرم...

سلام دوست عزیز الگوریمی که استفاده شده بر پایه ی FileExist است :

knum=0
KArray$='Setup;Setup1;Setup2;Patch;Crack;Keygen;Serial;'
allx$='20:90:160:230:300:370:440:'
For getk=1 To 7
  K$=GetArrayItem(KArray$,;,getk)
  EXT$='.exe'
  If (K$='Serial') Then
    EXT$='.txt'
  End
  Temppath$=AppFolder$+'\\'+K$+EXT$
  FileExist("Temppath$","is")
  If (is) Then
    knum=knum+1
    kx$=GetArrayItem(allx$,:,knum)
    kx=VAL(kx$)
    MoveObject("K$","kx,559")
    Show("K$")
  Else
    Hide("K$")
  End
Next getk
Temppath$=AppFolder$+'\TopV1.dat'
FileExist("Temppath$","is")
If (is) Then
  Show("Preview")
  imgpath$=Temppath$
  ReplaceImage("Preview","Temppath$")
Else
  Hide("Preview")
End

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

KArray$='Setup;Setup1;Setup2;Patch;Crack;Keygen;Serial;'

این کد هم جای کلید ها رو نسبت به تعدادشون مشخص میکنه که اونم آرایه است یعنی x کلید پنجم (که اون کلید هرچی میخواد باشه) میشه عدد 300 و y اون هم همونطور که توی کدها دیدید 559 است :

 allx$='20:90:160:230:300:370:440:'

مابقی ماجرا هم که مشخصه، میمونه کدی که توی کلید ها است :
این کد همه کلید ها به جز کلید سریاله :

r$=AppFolder$+'\\'+CurrentObject()+'.exe'
Run("r$","")

اینجا از CurrentObject استفاده شده چون :

نام کلید توی پروژه با نام فایل برابره

این هم کد Serial

nv$='<SrcDrive>\AppData\NoteViewer.exe'
r$=AppFolder$+'\\'+CurrentObject()+'.txt'
Run("nv$","r$")

امیدوارم که مفید واقع بشه
​

 

[Amit13]

خيلي خوشكله.مرسي

ولي اين ويژگي يعني چي؟؟؟؟چجوري؟؟وقفه ي كجا؟؟؟

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

 

[OMiD]

سوال جالبی بود آمیت جان . شما اگه تابع ImageReplace رو باهاش کار کرده باشید میدونید که برای بارگذاری عکس وقفه ایجاد میکنه (بار اول)

میتونید تست کنید لیست یه سری عکس بزرگتر و کوچیکتر از فریمت رو تو یه لیست باکس بزار بعد روشون کلیک کن؛ میبینی که برای بار اول

یه وقفه کوچیک ایجاد میکنه، البته تو سیستم من و یکی دو سیستم دیگه اینجوری بود که زمانی که روی لیست کلیک میکردم برا چند

میلی ثانیه گیر میکرد؛ دیگه مجبور شدم همه عکسها رو توی لودینگ بزارم تو یه فریم کوچیک به صورت hidden باز بشن .

 

[meysamhasanvand]

سلام امید جان،من با راهنمایی های قبلیتون تونستم خیلی چیزا یاد بگیرم، و همه ی چیزایی رو که توضیح داده بودید تک به تک انجام دادم و کاملا عملی انجامشون دادم که اگه شما مایل باشید اون رو به صورت یه مثال برای بچه ها بذارم،
فقط یه چیز دیگه هست که فکرمو سخت به خودش مشغول کرده که اگر مایل هستید اونو توضیح بدید،( ازتون ممنون میشم)، اونم اینه که:
ListBox چجوری با فایل DBC.TOP ارتباط برقرار میکنه و از روی اون میخونه که مثلا Adobe Flash Player10 در داخل پوشه 3D - Flash - Animation هست و این کار چجوری در نحوه جست و جوی ListBox در حالت All Category مشکلی ایجاد نمی کنه و مثلا با جست و جوی pla در حالت All Category هنوز نرم افزارهارو در داخل پوشه هاشون مثلا همون 3D - Flash - Animation پیدا کنه؟
اگر متوجه نشدید چی گفتم بگید تا بیشتر توضیح بدم.

 

[OMiD]

سلام امید جان،من با راهنمایی های قبلیتون تونستم خیلی چیزی یاد بگیرم، و همه ی چیزایی رو که توضیح داده بودید تک به تک انجام دادم و کاملا عملی انجامشون دادم که اگه شما رازی باشید اون رو به صورت یه مثال برای بچه ها بذارم،

از نظر من ایرادی نداره.

فقط یه چیز دیگه هیت که فکرمو سخت به خودش مشغول کرده که اگر مایل هستید اونو توضیح بدید،( ازتون ممنون میشم)، اونم اینه که:
ListBox چجوری با فایل DBC.TOP ارتباط برقرار میکنه و از روی اون میخونه که مثلا Adobe Flash Player10 در داخل پوشه 3D - Flash - Animation هست و این کار چجوری در نحوه جست و جوی ListBox در حالت All Category مشکلی ایجاد نمی کنه و مثلا با جست و جوی pla در حالت All Category هنوز نرم افزارهارو در داخل پوشه هاشون مثلا همون 3D - Flash - Animation پیدا کنه؟
اگر متوجه نشدید چی گفتم بگید تا بیشتر توضیح بدم.

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

DBC$='<SrcDrive>\AppData\DBC.TOP'
PluginSet("plugy","DBC$")
PluginRun("plugy","i_init")
args$='TOPBSC|'+SelectedAPPNAME$
PluginSet("plugy","args$")
PluginRun("plugy","i_get")
PluginGet("plugy","SelectedAPPCategory$")
AppFolder$='<SrcDrive>\Attachments\\'+SelectedAPPCategory$+'\\'+SelectedAPPNAME$

 

[meysamhasanvand]

خیلی توپ بود، ممنون
سوالهای زیادی دارم در مورد همین پروژه که دیگه روم نمیشه بپرسم!!!

********************************
اینم مثالی که گفتم،
دفه قبل یادم رفته بود سورسش رو بذارم ببخشید خلاصه.

 

[OMiD]

سوالهای زیادی دارم در مورد همین پروژه که دیگه روم نمیشه بپرسم!!!

بپرس دوست عزیز، کمکی بر بیاد خوشحال میشم کمکتون کنم.

 

[meysamhasanvand]

ممنون،
سوالم در مورد نحوه جست و جوی آهنگ ها و پخش اونا و Next و Previous کرن اونهاست، چجوریه؟

 

[OMiD]

آقا شرمنده که دیر شد !

 

[ehsan_axe]

سلام امید جان، کارت خوبه
اما کجای این برنامه هوشمنده ؟
????????????!!!!!!!!!!!!!!!??????????????

[ویرایش nevercom]: لطفاً فینگلیش ننویسید !

 

[meysamhasanvand]

سلام امید جان، کارت خوبه
اما کجای این برنامه هوشمنده ؟
????????????!!!!!!!!!!!!!!!??????????????

[ویرایش nevercom]: لطفاً فینگلیش ننویسید !

مگه صفحه اولش رو نخوندی؟

 

[meysamhasanvand]

سلام امید جان،

راستی در مورد اضافه کردن اسم نرم افزارها به ListBox از داخل فایل DB.TOP توضیحی ندادی اگه زحمتی نیست (که میدونم هست) درمورد اون هم توضیح بده،
ممنونم.

 

[meysamhasanvand]

جان مادرتان یکی به من جواب بده،
کمک..........
روش های دیگه رو نمی خوام لطفا اگه توضیح میدید با Plugy توضیح بدید،

 

[OMiD]

میثم جان بیشتر از این تاپیک رو ادامه بدیم از بحث اصلیش خارج میشه، آی دی یاهو من توی پروفایلم هست از طریق یاهو تشریف بیارید همه سوالهاتون رو جواب خواهم داد.

 

[Cheshm-Abi]

خیلی قشنگه یعنی از این بهتر نمیشه. من همیشه پروژه های شما رو دنبال کردم از نظر گرافیکی و امکانات همیشه کامل و بهینه بوده.
می خواستم بدونم تو این سورس همه کد هارو مثل برنامه های قبلیتون بهینه کردین؟

 

[OMiD]

ممنون دوست عزيز، تا منظور شما از بهينه چي باشه؟! :دي
ولي خوب تا جايي كه تونستم برنامه رو دايناميك كردم و همين به كم شدن كدها كمك كرد و به نوعي ميشه گفت بهينه شده است ولي خوب به هر حال قدرت و سرعت مالتي مديا بيلدر مثل يه كامپايلر يا حتي يه مفسر نيست چون پلير يا مفسر مالتي مديا بيلدر خودش كد ها رو به يه مفسر ديگه ميده و اون مفسر دوم اجرا ميكنه و همين باعث ميشه كه به هر صورت سرعت به اون شكل رضايت بخش نباشه!

 

[Cheshm-Abi]

آقا امید اگه با نرم افزار دیگه نوشته بشه نیاز به Loading اولیه داره یا نه؟
مثلاً سرعت جستجو و همچنین سرعت کلی برنامه میره بالا؟

 

[OMiD]

بله قطعا اگه با يه زبان نوشته بشه همه چيز بهتره (كه من اين كار رو انجام دادم همين تازگي ها)
با vb نوشتمش حدود 2500 خط شده كه هم از اين يكي بهتره هم به طور كامل دايناميكه و هم امكانات فوق العاده اي داره و سرعت سرچش هم در كثري از ثانيه بين 4-5 هزار آيتم سرچ ميكنه

 

[Cheshm-Abi]

Wow !!!!! می دونم اینجا شاید درست نباشه سئوال کنم. ولی کنجکاویم نمیذاره.میشه لطف کنید و اگه وقت دارید یه توضیحی در مورد این برنامه بگین.آخه باید خیلی جالب باشه. پیشاپیش ممنونم.