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
