[ScreamVoice]

السلام عليكم ورحمة الله وبركاته

عندي كود فيه مشكله ولم اجد لها حل 

   

دا الكود كامل 

كود :

       Dim value As IntPtr = Marshal.StringToHGlobalAnsi("npf")
       If driver.openDeviceDriver(CType((CType(value, __Pointer(Of Void))), __Pointer(Of SByte))) Is Nothing Then
           If File.Exists("license.txt") Then
               Dim cWizard As CWizard = New CWizard()
               cWizard.Show(Me)
               Dim decoder As Decoder = Encoding.UTF7.GetDecoder()
               Dim fileStream As FileStream = File.OpenRead("license.txt")
               Dim array As Byte() = New Byte(CInt(fileStream.Length) - 1) {}
               fileStream.Read(array, 0, CInt(fileStream.Length))
               Dim array2 As Char() = New Char(decoder.GetCharCount(array, 0, array.Length) - 1) {}
               decoder.GetChars(array, 0, array.Length, array2, 0)
               cWizard.RichTextBox1.Text = New String(array2)
               fileStream.Close()
           Else
               licenseAccepted()
           End If
       Else
           MessageBox.Show("Driver WinPcap already installed")
       End If

وشكرا