[Sniper.ps]

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

كود :

[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 هي رقم الإصدار الذي تريد التأكد من وجوده.