[ Visual Basic 6 ] طلب كود لتختطي برنامج معين بي الفجيوال بيسك

تم تحميل الصفحة في 0,4881168 ثانية
طلب كود لتختطي برنامج معين بي الفجيوال بيسك
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
27 أغسطس 2010
المشاركات
3,103
الإعجابات
1,204
النقاط
113
السلام عليكم ورحمة الله وبركاتة

ابي كود للفجيوال بيسك

مثال انا عندي برنامج افير وجيت افحص الباتش ابي كود احط فيه اسم العمليه يصير الافير ما يفحص هذا الملف وهكذا


وله مني احلى تقيم
 

spu_hak

Active DeveloPer
rankrank
إنضم
28 ديسمبر 2009
المشاركات
447
الإعجابات
63
النقاط
28
رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

اخي لاوجود لكود يتخطي الافيرا

 
إنضم
28 أكتوبر 2009
المشاركات
2,708
الإعجابات
472
النقاط
0
رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

ابي كود احط فيه اسم العمليه يصير الافير ما يفحص

اللي فهمته انك تبي كود قتل عملية باسم معيّن , وان كان صحيح تفضّل . .​

killproc = S hell("taskkill /f /im avgnt.exe", vbHide)​

S hell < قم بازالة المسافه . .​

avgnt.exe = اسم العملية المراد قتلها . .​

مع العلّم الحمايات الجديده عملياتها الحساسه لاتقتل بسهوله​

:32:
 
إنضم
27 أغسطس 2010
المشاركات
3,103
الإعجابات
1,204
النقاط
113
رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

اللي فهمته انك تبي كود قتل عملية باسم معيّن , وان كان صحيح تفضّل . .​

killproc = s hell("taskkill /f /im avgnt.exe", vbhide)​

s hell < قم بازالة المسافه . .​

avgnt.exe = اسم العملية المراد قتلها . .​

مع العلّم الحمايات الجديده عملياتها الحساسه لاتقتل بسهوله​

:32:
مرورك شرف لي يا نصرواي صميم
ويعطيك الف عافيه ما قصرت يا الغاالي:32::32::32:
قصدي يا الغالي نفس هاذا





لتخطي ما تريده عن طريق البحث عن اسم العملية process name اي انه لكل برنامج اسم عملية خاص به
مثل برنامج wireshark اسم عمليته wireshark.exe مثلا .. فاذا وجد السيرفر هذه العملية شغالة بعدها
اما سيغلق او سينتظر حسب ما اخترته في المجموعة الاولى .



المجموعة الخامسة : Custom anti - window name



لتخطي ما تريده عن طريق البحث عن اسم النافذة window name اي انه لكل برنامج اسم نافذة خاص به
مثل برنامج wireshark اسم نافذته the wireshark network analyzer .. فاذا وجد السيرفر هذه هذه النافذة
بعدها اما سيغلق او سينتظر حسب ما اخترته في المجموعة الاولى .



لاحظوا اخواني الكرام مع هذا النظام يمكن تخطي اي شيء واي برنامج حتى المواقع فبعضها يستخدم
برامج للفحص اي لها window name او process name او dll وبالتالي اذا عرفتها تضيفها وتتخطى اللي
بدك اياه .. بس كيف تعرفها ( صمم برنامج يبعثلك اسماء النوافذ او العمليات او ملفات ال dll ) ثم افحصه
وشوف ايش يبعثلك وضيفه للبرنامج :10:

انا ابي الاكود هاذي

منتظر ردك يا الغالي:32::32:
 
إنضم
28 أكتوبر 2009
المشاركات
2,966
الإعجابات
1,194
النقاط
113
الإقامة
Egypt
رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

شوف اخوي

انا بديك كود برايفت

بس ما يغلي عليك

Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Function Antidll(FileName As String)
If GetModuleHandle(FileName) = 0 Then
MsgBox "Not Found"
Else
MsgBox "File Found"
End If
End Function
Private Sub Form_Load()
Antidll ("SbieDll.dll")
End Sub
شوف لو تم ايجاد الملف حيقولك File Found
ولو تم ايجاد الملف حيقولك Not Found

و اكب مكان SbieDll.dll الملف العايزو يتخطاه
مع العلم ملف SbieDll.dll يتخطي sandbox :2:
 
إنضم
27 أغسطس 2010
المشاركات
3,103
الإعجابات
1,204
النقاط
113
رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

شوف اخوي

انا بديك كود برايفت

بس ما يغلي عليك

اقتباس:
Private declare function getmodulehandle lib "kernel32" alias "getmodulehandlea" (byval lpmodulename as string) as long
function antidll(filename as string)
if getmodulehandle(filename) = 0 then
msgbox "not found"
else
msgbox "file found"
end if
end function
private sub form_load()
antidll ("sbiedll.dll")
end sub
شوف لو تم ايجاد الملف حيقولك file found
ولو تم ايجاد الملف حيقولك not found

و اكب مكان sbiedll.dll الملف العايزو يتخطاه
يعطيك الف عافيه ما قصرت يا الغالي ان شاء الله في ميزان حسناتك
تم+
لعيونك يا الغالي :32::32::32:
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل