مشكلة مشكلة في فيروس G

[ali yaser]

السلام عليكم
لدي مشكلة فيروس ضرب جميع برامج الفلاشة لدي
و واضع بجنب ملف ال setup حرف g اصبح هكذا gsetup

والبرامج لا تعمل

اريد حل وجزاكم الله كل خير

 

[MagicianMiDo32]

إفحص ب Malwarebytes

+

ينقل لقسم مشاكل الحاسوب

 

[ali yaser]

إفحص ب Malwarebytes

+

ينقل لقسم مشاكل الحاسوب

اشكرك لنقل المشاركة في القسم الصحيح

و هل يوجد رابط للبرنامج ؟

 

[أبو عبد الرحمن.]

و هل يوجد رابط للبرنامج ؟

تفضل اخي الكريم
رابط من موقع البرنامج واستعمله بالفترة التجريبية عادي 14 يوم تقريبا

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

 

[ali yaser]

تفضل اخي الكريم
رابط من موقع البرنامج واستعمله بالفترة التجريبية عادي 14 يوم تقريبا

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

جاري التجربة وجزاك الله كل خير لمساعدة

 

[MagicianMiDo32]

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

يعد ان تنتهي من الفحص بالمالوير بايتس أخي الكريم


قم بتشغيل هذا البرنامج الذي صنعته لك

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

أختر القرص المصاب بالفيروس ثم أضغط بدء

ستظهر شاشة الدوس أتركها حتى تغلق

السورس كود

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        For Each n As String In Directory.GetLogicalDrives()
            ComboBox1.Items.Add(n)
        Next
    End Sub
    Sub fix(pather1 As String)
        On Error Resume Next
        Dim fileinoer As New FileInfo(pather1)
        If fileinoer.Name.Substring(0, 1) = "g" Then
            My.Computer.FileSystem.RenameFile(pather1, fileinoer.Name.TrimStart("g"))
        End If
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        On Error Resume Next
   
        Process.Start("CMD", "/C attrib -h -r -s /s /d " & ComboBox1.SelectedItem.ToString & "*.*")
        For Each s As String In Directory.GetDirectories(ComboBox1.SelectedItem.ToString)
            For Each ff As String In Directory.GetFiles(s, "*.exe")
                fix(ff)
            Next
        Next
        MsgBox("done..!", MsgBoxStyle.Information)
    End Sub
End Class