چطوري مي تونم كارت تلوزيون رو تو وي بي بشناسونم؟

[djnew2009]

مي شه يه كمكي به من بكنيد؟:عصبانی++:

[r0ot$harp]

مي شه يه كمكي به من بكنيد؟:عصبانی++:
دوست عزیز اولا منظورتون DVB هست یا نه Tv Card ?

و دوما هدفتون از این کار چیه ؟



باتشکر احسان

[djnew2009]

منظورم دي وي بي و هدفم از اين كار مي خوام يه فايندر بنويسم
ممنون مي شم يه كم راهنمايي كنيد:افسرده:

[r0ot$harp]

منظورم دي وي بي و هدفم از اين كار مي خوام يه فايندر بنويسم
ممنون مي شم يه كم راهنمايي كنيد:افسرده:

دوست عزیز برای این کار من خیلی راهارو امتحان کردم ولی نشد . شما باید از StreamReader.dll استفاده کنید . در ضمن در کنار این فایل باید فایل skydll.dll موجود باشد .


برای ارتباط با کارت شما باید از طریق یه سری Function موجود در فایل StreamReader.dll استفاده کنید که این فایل به کل با VB مشکل دارد .

اینم توابعی هست که من به سختی تونستم پیداشون کنم . امیدوارم شما بتونید کاری کنید .



Private Declare Function SetChannel _
Lib "StreamReader.dll" (ByVal freq As Long, _
ByVal smyb As Long, _
ByVal pol As Long, _
ByVal fec As Long, _
ByVal lof1 As Long, _
ByVal lof2 As Long, _
ByVal lofsw As Long) As Boolean

Private Declare Function SendDiSEqC _
Lib "StreamReader.dll" (ByVal DiSEqCType As Long, _
ByVal data As Byte) As Boolean

Private Declare Function CheckForDVB Lib "StreamReader.dll" () As Boolean

Private Declare Function StartDVB Lib "StreamReader.dll" () As Boolean

Private Declare Function StopDVB Lib "StreamReader.dll" () As Boolean

Private Declare Function SetFilter _
Lib "StreamReader.dll" (pid As Integer, _
ByVal lpFunc, _
CallBackType As Integer, _
size As Integer, _
lpfilter_num As Integer) As Boolean

Private Declare Function SetBitFilter _
Lib "StreamReader.dll" (pid As Integer, _
FilterData As Byte, _
FilterMask As Byte, _
FilterLength As Byte, _
lpFunc, _
lpfilter_num As Integer) As Boolean

Private Declare Function DelFilter _
Lib "StreamReader.dll" (filter_num As Integer) As Boolean

Private Declare Function SkyOpen Lib "skydll.dll" (ByVal s As String) As Boolean

Private Declare Function SkyAdapterGetTunerInfo Lib "skydll.dll" () As Integer

Private Declare Function SkyAdapterGetName _
Lib "skydll.dll" (ByVal AdapterNumber As Long, _
ByVal AdapterName As String) As Integer

Private Sub Form_Load()

Dim SS2Name As String
SS2Name = Space$(1000)

SkyOpen ByVal SS2Name


' If CheckForDVB = False Then MsgBox "DVB NOT Avaliable": Exit Sub
' If StartDVB = False Then MsgBox "Dont Try Start DVB": Exit Sub


' Call SetChannel(11342000, 24075000, 0, 0, 9750000, 10600000, 11700000)

End Sub





باتشکر احسان

[dvb-dz haker]

Hello
Hello all

r0ot$harp (http://barnamenevis.org/member.php?118689-r0ot-harp)
Please any Source Code for such programs IP/DVB

Visual Basic
I need a necessary and as soon as
Thank you in advance
Good luck