PDA

View Full Version : Resource Editor



UpgradeVB6Code
دوشنبه 23 مهر 1386, 16:55 عصر
سلام
من میخواستم ببینم توی VB.Net 2005 چه طوری میشه از Resource استفاده کرد !؟!
یعنی اینکه اولا Resource Editro اون کجاست ؟
دوم اینکه چه طوری فایل ریسورس شده رو اکسترکت کنیم روی هارد ؟
توی VB من این طوری اکسترکت میکردم :

Dim Arr() As Byte
Arr = LoadResData(101, "Custom")
Open App.Path & "\Test.exe" For Binary As #1
Put #1, , Arr
Close #1
ممنون

UpgradeVB6Code
سه شنبه 24 مهر 1386, 14:06 عصر
این پست فقط جهت بالا آوردن تاپیکه و هیچ ارزش دیگه ای نداره

لطفا یکی جواب بده !

ghafoori
سه شنبه 24 مهر 1386, 16:08 عصر
دوست عزیز با این کد

My.Resources.resourcename

UpgradeVB6Code
چهارشنبه 25 مهر 1386, 09:09 صبح
ممنون
اما من اصلا ریسورس ادیتورشو پیدا نمیکنم که فایلمو ریسورس کنم !؟

ghafoori
چهارشنبه 25 مهر 1386, 17:07 عصر
داخل solution explorer گزینه my project را انتخاب کنید و از سمت چپ گزینه resources را انتخاب کنید

UpgradeVB6Code
چهارشنبه 25 مهر 1386, 19:55 عصر
دستت درد نکنه
من یه فایل رو ریسورس کردم بعد حالا میخوام اکسترکش کنم هر کاری میکنم نمیشه
به جون خودم خیلی ور رفتم نشد همه این کلاس ها رو هم Import کردم


Imports Microsoft.VisualBasic
Imports System
Imports System.IO
Imports System.Security.Permissions
Imports ResEditor
Imports System.Resources

در واقع معادل VB.Net این کدا رو میخوام !


Dim Arr() As Byte
Arr = LoadResData(101, "Custom")
Open App.Path & "\Test.exe" For Binary As #1
Put #1, , Arr
Close #1

ghafoori
پنج شنبه 26 مهر 1386, 08:52 صبح
به این کد دقت کن من یک فایل exe به نام TelNoteرا به ریسورس اضافه کردم برای اکسترکش روی یک فایل از کد زیر استفاده می کنم

Dim s As New IO.FileStream("test.exe", IO.FileMode.Create)
Dim sr As New IO.StreamWriter(s)
sr.Write(My.Resources.TelNote)
sr.Flush()
sr.Close()

UpgradeVB6Code
شنبه 28 مهر 1386, 11:27 صبح
سلام
من هنوز نتونستم یه فایل exe رو که ریسورس کردم اکسترکت کنم
البته این کد فایل رو درست میکنه اما فایل exe که درست شده صدمه میبینه و دیگه کار نمیکنه !!!

ghafoori
یک شنبه 29 مهر 1386, 09:37 صبح
این کد را جایگزین کن فکر کنم حواب بده

Dim s As New IO.FileStream("test.exe", IO.FileMode.Create)
Dim br As New IO.BinaryWriter(s)
br.Write(My.Resources.TelNote)
br.Flush()
br.Close()

UpgradeVB6Code
یک شنبه 29 مهر 1386, 12:47 عصر
درست شد
دست شما درد نکنه لطف کردید