[boudyonline]

PHP كود :

Public Function check_key() As String

        Try
            Dim chkkey As RegistryKey
            Dim ch_key As String
            chkkey = Registry.LocalMachine.OpenSubKey("software/foxitsoftware")
            ch_key = chkkey.GetValue("system_key")
            Return ch_key

        Catch ex As Exception
            Return ""
        End Try