منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا

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

إليكم إخواني الأعضاء كود بلغة الفيجوال بيسك 6.0 للتأكد من أن Netframework مثبت أم لا

[b]

كود :

[/b]

[align=left]Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long  

Const HKEY_LOCAL_MACHINE = &H80000002  

Const ERROR_SUCCESS = 0  

'Const REG_SZ = 1 ' Unicode nul terminated string  

'Const REG_DWORD = 4  

Private Sub Command1_Click()  

' Dim hKey As Long  

If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\.NETFramework\Policy\", 0, 1, hKey) = ERROR_SUCCESS Then  

'KeyExists = True  

MsgBox "You have the framework"  

Else  

MsgBox "Missing the framework"  

'KeyExists = False  

End If  

End Sub  

[/align]

وهذا الكود لفحص تثبيت إصدار معين

كود :

[align=left]

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long  

Const HKEY_LOCAL_MACHINE = &H80000002  

Const ERROR_SUCCESS = 0  

'Const REG_SZ = 1 ' Unicode nul terminated string  

'Const REG_DWORD = 4  

Private Sub Command1_Click()  

' Dim hKey As Long  

If RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\.NETFramework\policy\v4.0", 0, 1, hKey) = ERROR_SUCCESS Then  

'KeyExists = True  

MsgBox "You have the framework"  

Else  

MsgBox "Missing the framework"  

'KeyExists = False  

End If  

End Sub[/align]

ملاحظة: v4.0 هي رقم الإصدار الذي تريد التأكد من وجوده.

مشكور أخي ، تسلم يمينك

بارك الله بك

سلمتَ وسلمتْ يداك . . . ;

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Sniper.ps

Sniper.ps

Ahmad Jawad

أحمد محمد

The Ghost