ايران ويج

با سلام
خدا قوت ...
من یه برنامه میخواستم
که توی مثلا فایل EXE دنبال یک رشته خاصی بگرده
جستجو هم کردم و برنامه هایی دیدو ولی مشکلی که دارن اینه که فایلهایه کوچک رو سرچ میکنن
یعنی اگر فایل مورد نظر مثلا 1 مگابایت باشه جواب نمیدن کسی میتونه یک برنامه ساده برام بنویسه
در ضمن یه برنامه الحاق دوتا فایل به هم Binder که ساده باشه میخوام
این رو هم سرچ کردم ولی همشون کد خوده برنامه رو هم به فایل نهایی الحاق میکنن
من فقط میخام 2 تا exe به هم الحاق بشه که اجرا شدن هردو excute بشن
اگه بوده لینک بدین اگی هم نه که سورسشو بنویسین !
اینو برای پروژه ای میخوام که بعدا حتما در این سایت میزار م
ممنون
میثم

Rolleyes

کسی نبود کمک کنه

خوب خودت اول یه استارتی بزن .
چیزی بذار . تا بعد کمکت کاملش کنیم .

سلام.
کاری نداره که فایل رو باینری باز کن محتویاتش رو بریز تو یه متغیر استرینگ بعد با instr دنبال رشتت بگرد.

خوب من هم فایلو باینری باز میکنم نشد ولی
شما که راهنمایی کردین با یک برنامه کاملش کنید پیمان جان
ببینید من ویروسی دارم میسازم که خودشو به فایل اجرایی الحاق میکنه
حالا باید برای الحاق فایلو اول بررسیکنه که ایا قبلا ویروس به اون الحاق نشده بعد الحاق کنه!
خوب حالا اینم راهنماییش
در ضمن همونطور که گفتم
اگی الحاق طوری باشه که کد قسمت الحاق کنندا به انتهای فایل الحاق نشه و تنها ویروس الحاق شه که عالی میشه
حالا میشه کمک کنید ؟؟؟

اه مردم از انتظار

سلام.
این کد سرچ رشته تو یه فایل exe . یه تکس باکس به اسم txtAdrsOfFile و یه تکس باکس به اسم txtFindString رو فرم قرار بده.

کد: 
Private Sub Command1_Click()

Dim strData As String

Dim lngFind As Long

    Open txtAdrsOfFile For Binary As #1

        strData = Space$(FileLen(txtAdrsOfFile))

        Get #1, , strData

    Close #1

    lngFind = InStr(1, strData, txtFindString)

End Sub

دمت گرم داداشی با یکم تغیر این کد شد!
حال دادی
میمونه bind کردن کسی در این زمینه میتونه کمک کنه !

سلام.
برای بایند کردن از property bag استفاده کن. خیلی به درد میخوره.

من که تو گوگل گردیدم نبود چیزه خاصی منظورتونو با یک برنامه ساده بیان بفرمایید

ممنون از هلپ

Scorpion

Scorpion

arnh

Payman62

Scorpion

Scorpion

Payman62

Scorpion

Payman62

Scorpion

Scorpion