ساخت فایل RES برای VB

با سلام و خسته نباشید خدمت تمامی اساتید:قلب:

من یک برنامه دارم که در اون از یک فایل Res استفاده شده
برنامه ای به نام پروکسی فایر درون این فایل هست
من چطور میتونم یک برنامه به این شکل درون این نوع فایل قرار بدم
و در VB6 استفاده کنم

با تشکر

برو منوی add-ins
add in manager
vb6 resource editor
ro bezar roo load on start up

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

ممنون

آیا میشه فایل های درون فایل RES رو هم استخراج کرد؟

نقل قول:

---

نوشته شده توسط ms-ninja

ممنون

آیا میشه فایل های درون فایل RES رو هم استخراج کرد؟

---

پ ن پ فقط میشه ادد کرد اکسترکت نداره :D

اره ، ی ماژول اضافه کن به برنامت اینو توش بنویس :

sub main()

dim k 

on error resume next 

k=freefile

dim file1() as byte

file1() = loadresdata( , )





open "address" for binary as #k

put#k,,file1()

close



end sub 

بعد میری قسمت پروپرتیس پروژه و استارت آپ آبجکت رو بذار رو sub main

توجه کن که آیدی ریسورس رو تو برنامه جاگذاری کنی و آدرس رو هم مثلا بنویس :
d:\123.jpg
اکسترکت میشه

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

http://nodroon.persiangig.com/1res.zip

سلام علیکم
با برنامه های زیر میتونید محتویات فایل res رو به راحتی دربیارید :
resedit و resource hacker
موفق باشید

یا علی (ع)

با resource hacker نمیدونم چرا نشد

اگر بخوام یک فایل exe رو اجراش کنم به چه صورت هست

نقل قول:

---

نوشته شده توسط ms-ninja

اگر بخوام یک فایل exe رو اجراش کنم به چصورت هست

---

shell "address",vbnormal

نقل قول:

---

نوشته شده توسط ms-ninja

آیا میشه فایل های درون فایل RES رو هم استخراج کرد؟

---

سلام علیکم
کد زیر را در ماژول کد کپی کنید:

Option Explicit

Public Enum ResType

    rtIcon

    rtBitmap

    rtCursor

    rtCustom

End Enum



Public Sub ExtractResData(iID%, ResourceType As ResType)

    

    Dim bytData() As Byte

    Dim pData As Picture

    Dim sExt$, vDATA_TYPE

    

    

    

    Select Case ResourceType

        Case rtIcon: vDATA_TYPE = vbPicTypeIcon: sExt$ = "ico"

        Case rtBitmap: vDATA_TYPE = vbPicTypeBitmap: sExt$ = "bmp"

        Case rtCursor: vDATA_TYPE = vbPicTypeNone: sExt$ = "cur"

    End Select



    Select Case ResourceType

        Case rtBitmap, rtIcon, rtCursor

           Set pData = LoadResPicture(iID%, vDATA_TYPE)

            SavePicture pData, App.Path & "\" & iID% & "." & sExt$

        Case Else

            bytData = LoadResData(iID%, "Custom")

            Open App.Path & "\" & iID% For Binary As #1

            Put #1, , bytData

            Close 1

    End Select

    

End Sub

ExtractResData دارای 2 پارامتر است که اولی ID و دومی نوع اطلاعات را انتخاب کنید

برای مثال:

Private Sub Command1_Click()

    ExtractResData 101, rtIcon

End Sub

در نمونه بالا id=101 آدرس آیکونی در ریسورس برنامه است

موفق باشید