تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا
#1
السلام عليكم ورحمة الله وبركاته

إليكم إخواني الأعضاء كود بلغة الفيجوال بيسك 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]
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy
#2
وهذا الكود لفحص تثبيت إصدار معين

كود :
[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 هي رقم الإصدار الذي تريد التأكد من وجوده.
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , awidan76
#3
مشكور أخي ، تسلم يمينك
متغيب
الرد }}}
تم الشكر بواسطة:
#4
بارك الله بك
الرد }}}
تم الشكر بواسطة:
#5
سلمتَ وسلمتْ يداك . . . ;
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود للتأكد من وجود ملف RaggiTech 0 2,000 17-10-12, 02:13 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم