درخواست راهنمایی برای ساخت فایل پنهان

[Di Di]

مي توني اون رو تو شاخه Temp ويندوز كپي و اجرا كني و پس از اتمام كار هم حذفش كني

البته اين كارها هيچ وقت جلوي دسترسي به برنامه رو نمي گيره چون كركر مي تونه قبل از اينكه اون رو از ريسورس برنامه

خارج كني، خودش دستي اين كار رو انجام بده، اصلا فرقي هم نداره كجا كپي مي شه اما براي خالي نبودن عريضه بد نيست!!

[Rain_Saeid]

با تشکر از مدیر عزیز Di Di

میشه همین دستوری که فرمودین رو برام زحمت نوشتنش رو بکشین..

چون بخش ریسورس، دستوراتش رو قاطی میکنم

ممنون میشم

[Di Di]

کد:

Dim filename As String
Dim fso
' Create a File system object
Set fso = CreateObject("Scripting.FileSystemObject")
' you can use SYSTEMFOLDER for System32 or WINDOWSFOLDER to get C:\Windows path too
filename = fso.GetSpecialFolder(TemporaryFolder) & "\ml.exe"
filebyte = LoadResData(101, "CUSTOM")
'Write byte in file
Open filename For Binary As 1
Put #1, , filebyte
Close #1
'end

'Run Program as you like.....
Shell filename

'and finaly delete ml.exe for ever!
Kill filename

توجه داشته باشيد اگر برنامه رو همينطوري اجرا كنيد بهتون خطا مي ده چون در خط اخر قبل از اينكه

بخواين برنامه رو حذف كنيد بايد ml.exe بسته شده باشه و اين كد حذف رو فقط زماني اجرا كنيد كه قبلش Ml.exe‌رو بسته باشيد

[sez]

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

اوکی

بعدشم با Memory Managment میشه حتی در اون حالتی که میخواهی هم عمل Copy رو انجام داد
دادو
ولی خیالت تخت دادو کسی تو ایران از این کارا بلد نیست جز

[Rain_Saeid]

با تشکر از شما Di Di عزیز و sez عزیز

[Rain_Saeid]

استاد عزیز Di Di :

این دستوری که نوشتین، ارور میده..

Dim filename As String
Dim fso
' Create a File system object
Set fso = CreateObject("Scripting.FileSystemObject")
' you can use SYSTEMFOLDER for System32 or WINDOWSFOLDER to get C:\Windows path too
filename = fso.GetSpecialFolder(TemporaryFolder) & "\ml.exe"
filebyte = LoadResData(101, "CUSTOM")
'Write byte in file
Open filename For Binary As 1
Put #1, , filebyte
Close #1
'end

'Run Program as you like.....
Shell filename

'and finaly delete ml.exe for ever!
Kill filename

میشه بررسی نمایید..

با تشکر

[Di Di]

پيغام خطا بخاطر اينه كه در ابتداي برنامه از Option Explicit استفاده كرديد و همينطور Microsoft Scripting در ريفرنيس

برنامه تون تيك نخورده.

اشكالي نداره به جاي TemporaryFolder مي تونيد عدد 2 رو قرار بديد .

[Rain_Saeid]

با تشکر

**********************
پيغام خطا بخاطر اينه كه در ابتداي برنامه از Option Explicit استفاده كرديد و همينطور Microsoft Scripting در ريفرنيس

برنامه تون تيك نخورده.
**********************

میشه بگین چطوری این تیک ها رو فعال کنم؟

[Di Di]

Option Explicit رو كه در قسمت General تعريف كرديد و مي تونيد اون خط كد رو حذف كنيد .

براي اضافه كردن MicrosSoft Scripting Object هم بايد از منوي Project گزينه Refrences.... رو انتخاب كنيد و در پنجره بازشده

تيك اين گزينه رو بزنيد.

اما همونطور كه تو پست قبلي گفتم احتياجي به هيچ كدوم از اينها نيست فقط كافيه به جاي TemporaryFolder از عدد 2

استفاده كنيد.

[lord_viper]

..... میتونین از پکر هایی مثل molebox استفاده کنید .....

میشه بیشتر توضیح بدین.. ممنون میشم

راستش رو بخواهید هم تازه کار هستم و هم این برنامه ای که گفتین رو کار نکردم

با تشکر

این پکر یه برنامست شما از فایلهلیی که استفاده میکنین تو یه پوشه کنار برنامتون قرار میدین بعد molebox رو اجرا میکنین و برنامه exe خودتون و اون پوشه رو به moleboxمیدین وcreate رو میزنین این پکر قابلیت فشرده سازی zip هم داره و 1 فایل به عنوان خروجی به شما میده

[Rain_Saeid]

با تشکر

میشه برنامه molebox رو هم ضمیمه پیوست نمایید تا از این برنامه استفاده نمایم

ممنون میشم