+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا (/showthread.php?tid=4343)
كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا - Sniper.ps - 22-09-12
السلام عليكم ورحمة الله وبركاته
إليكم إخواني الأعضاء كود بلغة الفيجوال بيسك 6.0 للتأكد من أن Netframework مثبت أم لا
[b]إليكم إخواني الأعضاء كود بلغة الفيجوال بيسك 6.0 للتأكد من أن Netframework مثبت أم لا
كود :
[/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]كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا - Sniper.ps - 22-09-12
وهذا الكود لفحص تثبيت إصدار معين
كود :
[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 هي رقم الإصدار الذي تريد التأكد من وجوده.
كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا - Ahmad Jawad - 22-09-12
مشكور أخي ، تسلم يمينك
كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا - أحمد محمد - 22-09-12
بارك الله بك
كود في vb 6.0 للتأكد من أن Netframework مثبت أم لا - The Ghost - 01-10-12
سلمتَ وسلمتْ يداك . . . ;