djnew2009
چهارشنبه 09 اردیبهشت 1388, 20:09 عصر
مي شه يه كمكي به من بكنيد؟:عصبانی++:
r0ot$harp
چهارشنبه 09 اردیبهشت 1388, 23:16 عصر
مي شه يه كمكي به من بكنيد؟:عصبانی++:
دوست عزیز اولا منظورتون DVB هست یا نه Tv Card ?
و دوما هدفتون از این کار چیه ؟
باتشکر احسان
djnew2009
پنج شنبه 10 اردیبهشت 1388, 19:52 عصر
منظورم دي وي بي و هدفم از اين كار مي خوام يه فايندر بنويسم
ممنون مي شم يه كم راهنمايي كنيد:افسرده:
r0ot$harp
جمعه 11 اردیبهشت 1388, 13:55 عصر
منظورم دي وي بي و هدفم از اين كار مي خوام يه فايندر بنويسم
ممنون مي شم يه كم راهنمايي كنيد:افسرده:
دوست عزیز برای این کار من خیلی راهارو امتحان کردم ولی نشد . شما باید از 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
جمعه 03 تیر 1390, 18:37 عصر
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.