[asemshahen5]

PHP كود :

   Private Sub BtnRegeditExport_Click(sender As Object, e As EventArgs) Handles BtnRegeditExport.Click
        Dim Path As String = "C:\RegBackup.reg"
        RegeditExport("HKEY_CURRENT_USER\AsemConnectionXT", Path)
        Dim r As New System.IO.StreamReader(Path)
        Txt_EncodingSN.Text = r.ReadToEnd()
        MessageBox.Show("Test")
    End Sub
    Sub RegeditImport(sFilename As String)
        Process.Start(sFilename)
        Dim r As New System.IO.StreamReader(sFilename)
        Txt_EncodingSN.Text = r.ReadToEnd()
    End Sub
    Sub RegeditExport(sKey As String, sFilename As String)
        System.Diagnostics.Process.Start("Regedit.exe", "/e " & sFilename & " " & sKey)
    End Sub
    Private Sub BtnRegeditImport_Click(sender As Object, e As EventArgs) Handles BtnRegeditImport.Click
        Dim Path As String = "C:\RegBackup.reg"
        RegeditImport(Path)
    End Sub 


---

السلام عليكم و رحمة الله و بركاته هذه اكواد تصدير ملف من الرجستري الى الهارد ديسك و اكواد استيرادها .