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

[Dr.cash]

السلام عليكم ورحمة الله وبركاتة

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

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


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

 

[spu_hak]

رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

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

​

 

[نصراوي صميم]

رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

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

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

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

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

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

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

​

 

[Dr.cash]

رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

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

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

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

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

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

​

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

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

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

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

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

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

منتظر ردك يا الغالي

 

[Ďŕ.ŤřőЈàή]

رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

شوف اخوي

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

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

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

 

[Dr.cash]

رد: طلب كود لتختطي برنامج معين بي الفجيوال بيسك

شوف اخوي

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

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

اقتباس:
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 الملف العايزو يتخطاه

يعطيك الف عافيه ما قصرت يا الغالي ان شاء الله في ميزان حسناتك
تم+
لعيونك يا الغالي