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

موفق باشید