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

[ms-ninja]

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

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

با تشکر

[mehran901]

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

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

[ms-ninja]

ممنون

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

[mehran901]

ممنون

آیا میشه فایل های درون فایل 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
اکسترکت میشه

[ms-ninja]

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

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

[سید حمید حق پرست]

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

یا علی (ع)

[ms-ninja]

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

[ms-ninja]

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

[mehran901]

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

shell "address",vbnormal

[محسن واژدی]

آیا میشه فایل های درون فایل 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 آدرس آیکونی در ریسورس برنامه است

موفق باشید