لطفا هر کسی که فکر می کند می تواند کمک کند لطفا دریغ نفرماید.

[senator_aka]

قبل از هر چیزی باید بگم این پست برای تکمیل کردن و برطرف کردن بعضی از سوتفاهم های پیش آمده در رابطه با پست قبلی بنده است :


لطفا هر کسی که فکر می کند می تواند کمک کند لطفا دریغ نفرماید.

خیلی از دوستان به این کد نیاز مندند.

چطور میشه که ما فایل هایی که برنامه به آنها نیاز دارد را مخفی کنیم.(یعنی از دید کاربر مخفی کنیم.)

به عنوان مثال برنامه ما یک آهنگ لوید میکند.اما ما می خواهیم این آهنگ را کاربر نبیند.( منظورم hiden کردن فایل نیستاااااااااااااااااااا !! )

درضمن باید مقداری توضیح درباره ی این برنامه داد:

این برنامه بصورت setup کامپایل نشده که بشه از رجیستری این کار را کرد بلکه بصورت exe درست شده و فایل ها یی که باید مخفی شوند در کنار این فایل exe قرار میگیرند.

همانند چیزی که در cd های atuorun اتفاق می افتد.

با این تفاوت که ما می خواهیم این فایل ها از دید کاربر مخفی باشد یا اینکه در یک فایل cab قرار دهیم و یا هر کاری و هر چیزی که این فایل ها را از دید کاربر مخفی کند.

[perfeshnal]

سلام
دوست عزیز شما می تونید این کار رو با نرم افزارهایی مثل CD Secure انجام بدی و فایلهای اصلی برنامت مثل آهنگ رو باهاش جوری مخفی کنی که به هیچ وجه دیده نشه مگر با نرم افزار های قفل شکن.

[Bahram0110]

سلام
دوست عزیز شما می تونید این کار رو با نرم افزارهایی مثل CD Secure انجام بدی

من که اینو پیشنهاد نمی کنم

[a_roshanfekr2]

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

[S_VB.max]

شما باید آهنگ خودتان در برنامه به کمک VB 6 Resource Editorدرون سازی کنید
برای اینکار در منوی Add-ins ، به قسمت Add-In Manager… بروید. در داخل لیست ، VB 6 Resource Editor را پیدا کرده و انتخاب کنید. جعبه‌های Loaded/UnLoaded و Load on startup را علامت بزنید. OK را بزنید. به نوار ابزار استاندارد و همچنین منوی Tools یک آیکن با عکس یک جعبه سبز رنگ و با نام Resource Editor اضافه شده است. آن را کلیک کنید. یک پنجره کوچک باز خواهد شد. دکمه Add Custome Resource… را در این پنجره کلیک کنید. فایل صوتی خود را انتخاب کرده و Open کنید. کلید Save را در این پنجره فشار دهید. برای فایل Resource خود یک نام انتخاب کنید و آن را ذخیره کند.

حالا از این کد زیر برای اجرا آهنگ استفاده کنید :




Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As

String, ByVal uFlags As Long) As Long

Global Const SND_ASYNC = &H1
Global Const SND_NODEFAULT = &H2
Global Const SND_MEMORY = &H4
Global SoundBuffer As String

Sub PlayResourceSoundFile(ByVal ResourceId As Integer)
SoundBuffer = StrConv(LoadResData(ResourceId, "Custom"), vbUnicode)
sndPlaySound SoundBuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY
End Sub



Private Sub Command1_Click()
PlayResourceSoundFile 101
End Sub