16-11-18, 05:40 AM
السلام عليكم ورحمة الله وبركاته
عندي كود فيه مشكله ولم اجد لها حل
دا الكود كامل
وشكرا
عندي كود فيه مشكله ولم اجد لها حل
دا الكود كامل
كود :
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
وشكرا