نمایش نتایج 1 تا 3 از 3

نام تاپیک: تشخیص نصب بودن فریم ورک ها

  1. #1
    کاربر دائمی آواتار ali reza mansoori 2
    تاریخ عضویت
    تیر 1387
    محل زندگی
    پشت کامپیوتر
    پست
    732

    تشخیص نصب بودن فریم ورک ها

    سلام دوستان
    دنبال کدی میگردم که بررسی کنه ببینه مثلا دانت نت فریم ورک 3.5 نصبه یا نه

  2. #2
    کاربر دائمی آواتار arash020
    تاریخ عضویت
    آذر 1388
    محل زندگی
    گیلان-رودسر
    پست
    392

    نقل قول: تشخیص نصب بودن فریم ورک ها

    سلام

    چندتا لینک ببین:

    لینک 1

    لینک 2
    لینک 3
    لینک 4

  3. #3
    مدیر بخش آواتار gilsoft
    تاریخ عضویت
    آبان 1386
    محل زندگی
    رشت
    پست
    753

    Post نقل قول: تشخیص نصب بودن فریم ورک ها

    نقل قول نوشته شده توسط ali reza mansoori 2 مشاهده تاپیک
    سلام دوستان
    دنبال کدی میگردم که بررسی کنه ببینه مثلا دانت نت فریم ورک 3.5 نصبه یا نه
    سلام دوست عزیز
    من کامپوننت زیر رو پیشنهاد می کنم :

    Imports Microsoft.Win32
    Imports System.Globalization

    Public Class NETVersionChecker
    Public Structure DOTNETVersionInfo
    Public FrameworkVersion As Double
    Public ServicePack As Integer
    End Structure

    Public Shared Function CheckRequiredDOTNETVersion(ByVal required As DOTNETVersionInfo) As Boolean
    Dim reslt As Boolean = False
    Dim tmpFramework As Double = 0
    Dim tmpSP As Integer = 0
    Try
    Dim installed_versions As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microso ft\NET Framework Setup\NDP", False)
    Dim version_names As String() = installed_versions.GetSubKeyNames()
    Dim tmpBaseVersion As String
    'check each installed version
    For Each ver As String In version_names
    'set default values
    tmpFramework = 0
    tmpSP = 0
    tmpBaseVersion = String.Empty
    Try
    'version names start with 'v', eg, 'v3.5' which needs to be trimmed off before conversion
    Dim tmpFullVersion As String = ver.Remove(0, 1)
    'now remove the minor versions 2.0.5725
    If tmpFullVersion.Length > 3 Then
    tmpBaseVersion = tmpFullVersion.Remove(tmpFullVersion.IndexOfAny((" .").ToCharArray(), 2), tmpFullVersion.Length - 3)
    Else
    'its just 3 digit version
    tmpBaseVersion = tmpFullVersion
    End If
    Dim basicVersion As Double = 0
    If Double.TryParse(tmpBaseVersion, basicVersion) Then
    tmpFramework = basicVersion
    End If
    Catch
    tmpFramework = 0
    End Try
    'The service pack key might not exist so it might throw an error
    Try
    tmpSP = Convert.ToInt32(installed_versions.OpenSubKey(ver) .GetValue("SP", 0))
    Catch
    End Try
    If tmpFramework = required.FrameworkVersion AndAlso tmpSP = required.ServicePack Then
    reslt = True
    Exit For
    End If
    Next
    Catch exp As Exception
    Dim message As String = "Error occured:" + exp.Message
    If TypeOf exp Is System.Security.SecurityException Then
    message += vbLf & " Unable to find .NET Framework version. " & vbLf & " The user does not have the permissions required to access the registry key:" & vbLf & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP"
    End If
    MessageBox.Show(message)
    End Try
    Return reslt
    End Function

    Public Shared Function GetLatestDOTNETVersion() As DOTNETVersionInfo
    Dim dnVer As DOTNETVersionInfo
    dnVer.FrameworkVersion = 0
    dnVer.ServicePack = 0
    Try
    Dim installed_versions As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microso ft\NET Framework Setup\NDP", False)
    Dim version_names As String() = installed_versions.GetSubKeyNames()
    'version names start with 'v', eg, 'v3.5' which needs to be trimmed off before conversion
    Dim Framework As Double = Convert.ToDouble(version_names(version_names.Lengt h - 1).Remove(0, 1), CultureInfo.InvariantCulture)
    dnVer.FrameworkVersion = Framework
    'The service pack key might not exist so it might throw an error
    Dim SP As Integer = 0
    Try
    SP = Convert.ToInt32(installed_versions.OpenSubKey(vers ion_names(version_names.Length - 1)).GetValue("SP", 0))
    Catch
    End Try
    dnVer.ServicePack = SP
    Catch exp As Exception
    Dim message As String = "Error occured:" + exp.Message
    If TypeOf exp Is System.Security.SecurityException Then
    message += vbLf & " Unable to find .NET Framework version. " & vbLf & " The user does not have the permissions required to access the registry key:" & vbLf & "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP"
    End If
    MessageBox.Show(message)
    End Try
    Return dnVer
    End Function



    End Class


    اگه ServicePack رو نمیخوای .. میتونی سطر 46 رو تغییر بدی ...

    روش فراخوانی این کامپوننت به شکل زیر میباشد :

    Imports WindowsApplication1.NETVersionChecker

    Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim VerInfo As DOTNETVersionInfo

    VerInfo = GetLatestDOTNETVersion()

    If CheckRequiredDOTNETVersion(VerInfo) = True Then
    MessageBox.Show("Framework Version : " + VerInfo.FrameworkVersion.ToString + vbCrLf + "Service Pack : " + VerInfo.ServicePack.ToString, "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
    End Sub
    End Class


    موفق باشید ...
    قوانین سایت برنامه نویس [به هیچ عنوان از طریق پیام خصوصی به سوالات پاسخ داده نمی‌شود.]
    حمید محرابی

    چون وا نمیکنی گِره‌ای خود گِره مّشو / ابرو گشاده باش چو دستت گشاده نیست

تاپیک های مشابه

  1. سوال: تشخیص نصب بودن دات نت فریم ورک 4 (فوری)
    نوشته شده توسط abizaki در بخش برنامه نویسی در 6 VB
    پاسخ: 4
    آخرین پست: جمعه 07 مرداد 1390, 23:06 عصر
  2. سوال: نحوه تشخیص نصب بودن یا نبودن یک برنامه
    نوشته شده توسط hamid5300 در بخش برنامه نویسی در 6 VB
    پاسخ: 2
    آخرین پست: دوشنبه 06 خرداد 1387, 19:02 عصر
  3. تشخیص نصب بودن چاپگر (فوری)
    نوشته شده توسط vahidm در بخش برنامه نویسی در 6 VB
    پاسخ: 0
    آخرین پست: سه شنبه 24 مهر 1386, 15:47 عصر
  4. تشخیص نصب بودن درایورهای مربوط یه اکسس
    نوشته شده توسط MNosouhi در بخش برنامه نویسی در Delphi
    پاسخ: 1
    آخرین پست: چهارشنبه 29 شهریور 1385, 15:19 عصر
  5. تشخیص نصب بودن کارت صدا
    نوشته شده توسط Mahdi_S_T در بخش برنامه نویسی در Delphi
    پاسخ: 1
    آخرین پست: شنبه 07 آذر 1383, 02:39 صبح

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •