sayeha.777
Member
سلام اين يه برنامه هست كه من درستش كردم با كلي نقص اگه ميتونيد كمك كنيد با
نظر هاتون و پيشنهاد هايي كه داريد
نظر هاتون و پيشنهاد هايي كه داريد
مگه داري وبلاگ مينويسي مينويسي که هي نظر ميخاي؟چه طور بود............................................ .
نظر نمي دين؟......
سلام!برنامه تون جالب بود!ولی به نظر میومد میشد بیشتر روش کار بشه!و اینترفیس قشنگ تری براش ساخت.چون ایده قشنگی هست!چند تا سئوال و پیشنهاد:1-کار اون پلاگینی mmbmiscکه امبد شده چیه؟2-اگر روی سیستم یوزر برنامه وینرار نباشه برنامه شما میتونه بازم کار کنه؟فکری براش کردین؟3-بهتر نبود انتخاب اسم عکسی که قراره ذخیره بشه در اختیار یوزر باشه؟4-بعد ز اتمام کار بهتر نبود به فلش دستور استپ میدادین؟بعد مسیج باکس ظاهر میشد؟چون با خاتمه عمل کانورت و تا فشردن دکمه اوکی اون لودینگ داره واسه خودش کار میکنه و این یک کم مصنوعی بودن کار رو نمود میده!اما اینها هیچ کدوم فکر بکری که پشت این کار بوده رو کم رنگ نمیکنه! موفق باشید.
copy/b sayeha00.jpg + sayeha00.rar @2BAS.jpg
OpenFile("JPEG Files (*.jpg)|*.jpg|All Files|*.*||","*.jpg")
Image$=OpenFile$
** OR file$=<File>
OpenFile("RAR Archive Files (*.RAR)|*.RAR|All Files|*.*||","*.RAR")
Archive$=OpenFile$
** OR RAR$=<File>
SaveFile("JPEG Files (*.jpg)|*.jpg|All Files|*.*||","*.jpg")
FinalFile$=OpenFile$
Param$='HIDE, copy/b '+'"'+Image$+'" '+CHR(43)+ ' "'+Archive$+'" "'+ FinalFile$+'"'
Run("<System>\cmd.exe","Param$")
سلام،خوب دوست عزیز من که انجام دادم ولی کار نکرد....
واسه خودم هم قبلا خواسته بودم این کارو بکنم(ولی ضعیف تر از چیزی بود که شما ذکر کردین) اما "داس" قبول نکر د
اگه میشه خودتون این خط رو برسی و توضیح بیشتری واسه اون بدید.....
-------------------------------------------------------------------------------------------------------------------------------------
param$='hide, copy/b '+'"'+image$+'" '+chr(43)+ ' "'+archive$+'" "'+ finalfile$+'"'
run("<system>\cmd.exe","param$")
تشکر
اول مسیر ذخیره ی فایل رو با دستور SaveFile از کاربر بپرسیدبا سلام
يه راهنمايي مي خواستم
واسه ذخيره كردن با save file چيكار كنم
اگر يه فايل مثه a.jpgرو بخوام ذخيره كنم در يه مسير ديگه ، با يه اسم ديگه
[COLOR=#000090][B]SaveFile[/B][/COLOR]("All Files|*.*||","*.*")
[COLOR=#009000]**OpenFile$ = Full path[/COLOR]
FileName$=[COLOR=#0000ff]CBK_OpenFile[/COLOR]
DirPath$=[COLOR=#0000ff]CBK_OpenDir[/COLOR]
SourceFile$=[COLOR=#800000]'<Embedded>\MyFile.txt'[/COLOR]
[COLOR=#0000ff]If[/COLOR] (OpenFile$<>[COLOR=#800000]''[/COLOR]) [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090][B]SysCommand[/B][/COLOR]("CopyFile","SourceFile$,OpenFile$")
[COLOR=#0000ff]Else[/COLOR]
[COLOR=#0000ff]End[/COLOR]
[COLOR=#000090][B]SaveFile[/B][/COLOR]("All Files|*.*||","*.*")
[COLOR=#009000]**OpenFile$ = Full path[/COLOR]
FileName$ = [COLOR=#0000ff]CBK_OpenFile[/COLOR]
DirPath$ = [COLOR=#0000ff]CBK_OpenDir[/COLOR]
SourceFile$ = [COLOR=#800000]'<Embedded>\MyFile.txt'[/COLOR]
DestFile$ = [COLOR=#0000ff]CBK_OpenDir[/COLOR] + [COLOR=#800000]'AnotherName.txt'[/COLOR]
[COLOR=#0000ff]If[/COLOR] (OpenFile$<>[COLOR=#800000]''[/COLOR]) [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090][B]SysCommand[/B][/COLOR]("CopyFile","SourceFile$,DestFile$")
[COLOR=#0000ff]Else[/COLOR]
[COLOR=#0000ff]End[/COLOR]









