تم الفحص ممكن فحص هذا الملف و هو لاسترجاع الفنرة التجريبية

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

ممكن فحص هذا الملف و هو لاسترجاع الفنرة التجريبية

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

الفحص على الفايروس توتال

https://www.virustotal.com/ar/file/...0c283e4288ae9e06bb5984d0/analysis/1454156559/

التحميل بالمرفقات

 

ملف مشبوه يتصل على

http://kaspersky.atspace.cc/

وهو موقع استضافه

الاى بى

83.125.22.211

يتصل على الرابط لتحميل نفس الملف

https://yadi.sk/d/p3fdd5Tgkz5EB

يتصل على

http://persky.atspace.cc/versiyon.txt

ويقوم بقرائه معلومات الجهاز

يزرع نفسه فى الاستارت اب

تعليمات الملف

ليست مشبوهه ولكن اتصالاته هى المشبوهه

كود PHP:

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    MyProject.Forms.Form1.Basslat.Visible = False
    Me.baslat.Enabled = False
    If (Me.kis.Text = "Kaspersky PURE 4.0 X86") Then
        islem.sistemicon_pure_14
        islem.cevap_pure_14
    ElseIf (Me.kis.Text = "Kaspersky PURE 4.0 X64") Then
        islem.sistemicon_pure_14
        islem.cevap_pure_14
    ElseIf (Me.kis.Text = "Kaspersky PURE 3.0 X86") Then
        islem.sistemicon_pure_13
        islem.cevap_pure_13
    ElseIf (Me.kis.Text = "Kaspersky PURE 3.0 X64") Then
        islem.sistemicon_pure_13
        islem.cevap_pure_13
    ElseIf (Me.kis.Text = "Kaspersky Total Security 2016 X86") Then
        Dim objectValue As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(objectValue, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(objectValue), MsgBoxStyle.Information, "Hata: Kaspersky Total Security 2016 çalıştırınız.")
        Else
            islem.cevap_16_total
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(objectValue, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2016 X86") Then
        Dim left As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(left, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(left), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2016 çalıştırınız.")
        Else
            islem.cevap_16
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(left, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Total Security 2015 X86") Then
        Dim obj4 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj4, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj4), MsgBoxStyle.Information, "Hata: Kaspersky Total Security 2015 çalıştırınız.")
        Else
            islem.cevap_15_total
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj4, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2015 X86") Then
        Dim obj5 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj5, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj5), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2015 çalıştırınız.")
        Else
            islem.cevap_15
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj5, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2016 X86") Then
        Dim obj6 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj6, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj6), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2016 çalıştırınız.")
        Else
            islem.cevap_16_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj6, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2015 X86") Then
        Dim obj7 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj7, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj7), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2015 çalıştırınız.")
        Else
            islem.cevap_15_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj7, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Total Security 2016 X64") Then
        Dim obj8 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj8, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj8), MsgBoxStyle.Information, "Hata: Kaspersky Total Security 2016 çalıştırınız.")
        Else
            islem.cevap_16_total
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj8, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2016 X64") Then
        Dim obj9 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj9, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj9), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2016 çalıştırınız.")
        Else
            islem.cevap_16
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj9, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Total Security 2015 X64") Then
        Dim obj10 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj10, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj10), MsgBoxStyle.Information, "Hata: Kaspersky Total Security 2015 çalıştırınız.")
        Else
            islem.cevap_16_total
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj10, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2015 X64") Then
        Dim obj11 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj11, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj11), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2015 çalıştırınız.")
        Else
            islem.cevap_15
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj11, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2016 X64") Then
        Dim obj12 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj12, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj12), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2016 çalıştırınız.")
        Else
            islem.cevap_16_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj12, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2015 X64") Then
        Dim obj13 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj13, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj13), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2015 çalıştırınız.")
        Else
            islem.cevap_15_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj13, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2014 X86") Then
        Dim obj14 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj14, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj14), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2014 çalıştırınız.")
        Else
            islem.cevap_14
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj14, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2014 X86") Then
        Dim obj15 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj15, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj15), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2014 çalıştırınız.")
        Else
            islem.cevap_14_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj15, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2014 X64") Then
        Dim obj16 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj16, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj16), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2014 çalıştırınız.")
        Else
            islem.cevap_14
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj16, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2014 X64") Then
        Dim obj17 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj17, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj17), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2014 çalıştırınız.")
        Else
            islem.cevap_14_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj17, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2013 X86") Then
        Dim obj18 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj18, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj18), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2013 çalıştırınız.")
        Else
            islem.cevap_13
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj18, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2013 X86") Then
        Dim obj19 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj19, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj19), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2013 çalıştırınız.")
        Else
            islem.cevap_13_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj19, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2013 X64") Then
        Dim obj20 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj20, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj20), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2013 çalıştırınız.")
        Else
            islem.cevap_13
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj20, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2013 X64") Then
        Dim obj21 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj21, "\avpui.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj21), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2013 çalıştırınız.")
        Else
            islem.cevap_13_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj21, "\avpui.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2012 X86") Then
        Dim obj22 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj22, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj22), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2012 çalıştırınız.")
        Else
            islem.cevap_12
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj22, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2012 X86") Then
        Dim obj23 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj23, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj23), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2012 çalıştırınız.")
        Else
            islem.cevap_12_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj23, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2012 X64") Then
        Dim obj24 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj24, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj24), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2012 çalıştırınız.")
        Else
            islem.cevap_12
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj24, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2012 X64") Then
        Dim obj25 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\WOW6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj25, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj25), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2012 çalıştırınız.")
        Else
            islem.cevap_12_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj25, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2011 X86") Then
        Dim obj26 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj26, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj26), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2011 çalıştırınız.")
        Else
            islem.cevap_11
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj26, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2011 X86") Then
        Dim obj27 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj27, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj27), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2011 çalıştırınız.")
        Else
            islem.cevap_11_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj27, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2011 X64") Then
        Dim obj28 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\Wow6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj28, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj28), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2011 çalıştırınız.")
        Else
            islem.cevap_11
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj28, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2011 X64") Then
        Dim obj29 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\Wow6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj29, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj29), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2011 çalıştırınız.")
        Else
            islem.cevap_11_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj29, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2010 X86") Then
        Dim obj30 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj30, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj30), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2010 çalıştırınız.")
        Else
            islem.cevap_10
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj30, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2010 X86") Then
        Dim obj31 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj31, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj31), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2010 çalıştırınız.")
        Else
            islem.cevap_10_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj31, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2010 X64") Then
        Dim obj32 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\Wow6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj32, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj32), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2010 çalıştırınız.")
        Else
            islem.cevap_10
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj32, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2010 X64") Then
        Dim obj33 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\Wow6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj33, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj33), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2010 çalıştırınız.")
        Else
            islem.cevap_10_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj33, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2009 X86") Then
        Dim obj34 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj34, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj34), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2009 çalıştırınız.")
        Else
            islem.cevap_09
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj34, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2009 X86") Then
        Dim obj35 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj35, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj35), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2009 çalıştırınız.")
        Else
            islem.cevap_09_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj35, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Internet Security 2009 X64") Then
        Dim obj36 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\Wow6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj36, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj36), MsgBoxStyle.Information, "Hata: Kaspersky Internet Security 2009 çalıştırınız.")
        Else
            islem.cevap_09
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj36, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    ElseIf (Me.kis.Text = "Kaspersky Anti-Virus 2009 X64") Then
        Dim obj37 As Object = RuntimeHelpers.GetObjectValue(MyProject.Computer.Registry.GetValue(("HKEY_Local_Machine\SOFTWARE\Wow6432Node\KasperskyLab\protected\" & MyProject.Forms.Form1.kayitbul & "\environment"), "ProductRoot", Nothing))
        If (FileSystem.Dir(Conversions.ToString(Operators.ConcatenateObject(obj37, "\avp.exe")), FileAttribute.Normal) = "") Then
            Interaction.MsgBox(RuntimeHelpers.GetObjectValue(obj37), MsgBoxStyle.Information, "Hata: Kaspersky Anti-Virus 2009 çalıştırınız.")
        Else
            islem.cevap_09_kav
            Interaction.Shell(Conversions.ToString(Operators.ConcatenateObject(obj37, "\avp.exe")), AppWinStyle.NormalFocus, False, -1)
        End If
    End If
    MyBase.Close
End Sub


يفضل الابتعاد عنه

 

شكرا لك اخي مصطفى كفيت ووفيت

 

يغلق للإنتهاء