کمک درجستجو رشته

[Scorpion]

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

[Scorpion]

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

[arnh]

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

[Payman62]

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

[Scorpion]

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

[Scorpion]

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

[Payman62]

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

[Scorpion]

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

[Payman62]

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

[Scorpion]

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

[Scorpion]

ممنون از هلپ