bind کردن برنامه vb با یه فایل دیگه

[RAMA2009]

سلام دوستان
bind کردن به عملی میگن که من بیام فایل exe ی برنامه ای که ساختمو با یه نرم افزار یا یه فایل exe ی دیگه یا یه فایل با هر پسوند دیگه ای مخلوط بکنم و سپس توسط اون فایل برناممو بفرستم به سیستم مقصد!

خوب حالا فرض کنید من یه برنامه ساختم،فایل exeش هم ساختم
حالا چطوری توسط برنامه نویسی با وی بی با فایل دلخواهم bindش کنم؟

[Payman62]

سلام.
از این استفاده کن.

البته احتمال این که آنتی ویروس به فایل نهایی گیر بده هست.

[RAMA2009]

سلام Payman62 جان
ممنون از پاسخت ، بابا ایول خودت ساختی؟
میشه بگی منظور از Parameters چیه؟

[Payman62]

سلام.
پارامتر پارامتره دیگه. پارامترهای ورودی به برنامه.
نمیدونی چیه خالی بذارش.

[RAMA2009]

payman62 جان فقط تو میتونی تو این مورد کمکم کنی
خواهش میکنم اگه ممکنه سریع جواب بده تا آبروم ریخته نشده.
این برنامه ی PJ Binder 1.0.zip که به من دادی کار میکنه.
فرض کن من برنامم فقط یه فرمه خالیه که تو Form_Load ش نوشتم:

کد:

Private Sub Form_Load()
If (App.PrevInstance = True) Then End
End Sub

بعد واسه bind کردن با یه برنامه ی دیگه، exe شو ساختم و bind ش کردم.

اما باهربار باز کردن فایل bind شده form1 هم باز میشه! اصلا انگار که Form_Load خونده نمیشه.
حالا چیکار کنم؟
محتویات شکل زیر رو به ترتیب شماره بندی بخونید، خواهش میکنم جواب بدید.

[Payman62]

سلام.
خوب معلومه دوباره باز میکنه. چون با هر بار اجرا یه کپی جدید از برنامه اجرا میکنه.

مشکل از برنامه خودته. در واقع روش 1 بار اجرا شدن برنامت اشتباه هست. با روش شما هر کپی از فایل مجددا اجرا میشه.

برای حل این مشکل از کد زیر استفاده کن.

کد:

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const InstanceCode = "{B2B5655A-EE8F-4448-B035-7807306D6692}"

Private Sub Form_Load()
    If PrevInstance Then End
End Sub

Private Function PrevInstance() As Boolean
    If FindWindow(vbNullString, ByVal InstanceCode) Then
        PrevInstance = True
    Else
        CreateWindowEx 0&, "STATIC", InstanceCode, 0&, 0&, 0&, 0&, 0&, 0&, 0&, App.hInstance, 0&
        PrevInstance = False
    End If
End Function

فقط "{B2B5655A-EE8F-4448-B035-7807306D6692}" رو عوض کن و GUID خودت رو قرار بده.

[RAMA2009]

سلام
کد بالا رو که نوشتم، اصلا اجازه نمیده برنامه حتی برای بار اول بالا بیاد!
اصلا اجازه ی Run شدن حتی برای بار اول رو نمیده!
خیلی لازمش دارم خواهش میکنم راهنمایی کنید :-(

[Payman62]

سلام.
کد بالا مشکل نداره. ببین کجای کار رو اشتباه کردی و اشکال رو رفع کن.

[RAMA2009]

نمیدونم، هرکاری میکنم نمیشه
میشه یه نگاهی بهش بندازین؟
و بگید مشکلم کجاست؟
وای خدا دارم از خودم ناامید میشم

[Payman62]

سلام.
مشکلش خیلی واضحه. قبلا هم تو یه تاپیک دیگه براتون توضیحش رو دادم.

[RAMA2009]

توروخدا بگید چیه
چیکارش کنم؟