国产一区二区三区毛片_亚洲乱码AV中文一区二区_亚洲精品无码专区在线播放_日韩欧美一二_咪咪av影院_欧久久av一区二区

dujiang100
我是一只小小鳥
級別: 家園常客
精華主題: 0
發(fā)帖數(shù)量: 440 個
工控威望: 642 點
下載積分: 1895 分
在線時間: 243(小時)
注冊時間: 2011-03-11
最后登錄: 2024-05-22
查看dujiang100的 主題 / 回貼
樓主  發(fā)表于: 2016-03-23 17:29
   最近在研究VB跟歐姆龍CP1H的通信.了解到可以用串口進(jìn)行HOSTLINK通信,還可以用以太網(wǎng)進(jìn)行FANS通信.CP1H沒有網(wǎng)口所以不可以用FANS通信嗎?串口通信情況下,PLC處于運行時寫入不了數(shù)據(jù),只有當(dāng)PLC是監(jiān)控狀態(tài)時才能寫入.這怎么能達(dá)到隨時寫入的目的呢?
本帖最近評分記錄:
  • 下載積分:+1(56071988)
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級別: 家園常客
    精華主題: 0
    發(fā)帖數(shù)量: 344 個
    工控威望: 891 點
    下載積分: 1083 分
    在線時間: 115(小時)
    注冊時間: 2009-08-04
    最后登錄: 2024-07-12
    查看shuangyu的 主題 / 回貼
    1樓  發(fā)表于: 2016-04-13 18:17
    Public Class OmronFins
        Dim WithEvents OmronPLC As New System.IO.Ports.SerialPort
        Dim WithEvents T1 As New Timer
        Dim MLog As New MyFB.RunErrLog


        ''' <summary>
        ''' PLC返回字符
        ''' </summary>
        ''' <remarks></remarks>
        Dim PLCRtString As String

        ''' <summary>
        ''' =True 等待RS返回信息
        ''' </summary>
        ''' <remarks></remarks>
        Dim PLCBusyBit As Boolean = False
        Dim PLCCommd As Integer = 0

        Dim RtValue(19) As String
        Dim RtErrValue(19) As String


        Sub RS232PortSet(ByVal PortNum As Integer)

            Try
                With OmronPLC
                    .BaudRate = 38400
                    .StopBits = 2
                    .DataBits = 7
                    .Parity = IO.Ports.Parity.Even
                    .PortName = "COM" & PortNum
                    .ReceivedBytesThreshold = 1
                End With

                If OmronPLC.IsOpen = False Then
                    OmronPLC.Open()
                End If
            Catch ex As Exception
                MLog.LogErrWrite(ex.ToString)
            End Try



        End Sub

        Sub RS232PortClose()
            If OmronPLC.IsOpen = True Then
                OmronPLC.Close()
            End If
        End Sub

        Sub RS232SendMsg(ByVal SendString As String)
            Dim LenNum As Integer
            LenNum = SendString.Length
            If OmronPLC.IsOpen = True Then
                OmronPLC.Write(SendString)
            Else
                PLCBusyBit = False
            End If

        End Sub



        ''' <summary>
        ''' 20150525
        ''' Fins通訊計算校驗碼
        ''' </summary>
        ''' <param name="Value">傳入需要校驗內(nèi)容</param>
        ''' <returns>返回Fins校驗值</returns>
        ''' <remarks></remarks>
        Public Function FinsFcsCheck(ByVal Value As String) As String

            Dim CheckValue As Integer
            Dim CheckHex As String

            For i As Integer = 1 To Value.Length
                CheckValue = Asc(Mid(Value, i, 1)) Xor CheckValue
            Next
            CheckHex = Hex(CheckValue)
            If CheckHex.Length < 2 Then
                CheckHex = "0" & CheckHex
            End If

        
            Return CheckHex


        End Function
        ''' <summary>
        ''' 20150526
        ''' 寫單個PLC值函數(shù)
        '''
        ''' </summary>
        ''' <param name="AddName"></param>
        ''' <param name="Value"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function SetValue(ByVal AddName As String, ByVal AddNum As Integer, ByVal Value As Integer) As Integer

            Dim AddNumHexLen As Integer '地址16進(jìn)制長度
            Dim HexAddNum As String     '地址值轉(zhuǎn)到16進(jìn)制
            Dim HCode As String = "@00FA000000000" '通訊表頭
            Dim CommandCode As String = "0102"    '通訊命令代碼
            Dim MemoryAreaCode As String          'PLC內(nèi)存功能碼
            Dim BitNum As String = "00"           '位寫入需要寫數(shù)值 0-15;字寫如=0
            Dim WriteNum As String = "0001"        '寫PLC地址個數(shù);單個寫入=0001
            Dim HexValue As String                '寫入數(shù)值轉(zhuǎn)換為16進(jìn)制
            Dim FCSString As String               '需要校驗的字符串
            Dim FCSValue As String                '命令校驗碼
            Dim EndCode As String = "*" & vbCr    '結(jié)束碼
            Dim SenCode As String                 '發(fā)送到PLC字符串
            '*************************************************************************
            '修改版本20150526 新建
            '寫入數(shù)值到D
            '通訊發(fā)送命令
            'HCode & CommandCode & MemoryAreaCode  & HEXADDNum & BitNum & WriteNum & Value & FCS & EndCode
            '*************************************************************************


            Try
                If PLCBusyBit = False And OmronPLC.IsOpen Then
                    PLCCommd = 1
                    PLCBusyBit = True
                    '選擇寫入PLC地址類型
                    Select Case AddName
                        Case "D"
                            MemoryAreaCode = "82"
                        Case Else
                            Return 1000
                            Exit Function
                    End Select


                    '寫入地址轉(zhuǎn)換為HEX,計算長度是否=4;長度不夠補滿
                    HexAddNum = Hex(AddNum)
                    AddNumHexLen = HexAddNum.Length
                    Select Case AddNumHexLen
                        Case 1
                            HexAddNum = "000" & HexAddNum
                        Case 2
                            HexAddNum = "00" & HexAddNum
                        Case 3
                            HexAddNum = "0" & HexAddNum
                        Case 4
                            HexAddNum = HexAddNum
                        Case Else
                            Return 1001
                            Exit Function
                    End Select

                    '寫入數(shù)值轉(zhuǎn)換位16進(jìn)制,計算長度=4;長度不夠布滿
                    HexValue = Hex(Value)
                    Select Case HexValue.Length
                        Case 1
                            HexValue = "000" & HexValue
                        Case 2
                            HexValue = "00" & HexValue
                        Case 3
                            HexValue = "0" & HexValue
                        Case 4
                            HexValue = HexValue
                        Case Else
                            Return 1002
                            Exit Function
                    End Select

                    FCSString = HCode & CommandCode & MemoryAreaCode & HexAddNum & BitNum & WriteNum & HexValue

                    FCSValue = FinsFcsCheck(FCSString)

                    SenCode = FCSString & FCSValue & EndCode
                    RS232SendMsg(SenCode)
                    ' Threading.Thread.Sleep(10)
                    '***************************************************
                    '20150608 返回結(jié)果處理

                    Dim StartTick As Integer
                    StartTick = Environment.TickCount
                    Do
                        If (Environment.TickCount - StartTick) > 1500 Then
                            '超時報警
                            PLCBusyBit = False
                            Return 9001
                            Exit Do
                        End If

                        If PLCBusyBit = False Then

                            Exit Do
                        End If
                        Application.DoEvents()
                    Loop

                    If RtErrValue(0) = "1" Then
                        Return 1
                    Else
                        '未知錯誤報警
                        Return 9002
                    End If
                Else

                    '通訊BUSY
                    Return 9003
                End If
            Catch ex As Exception
                ' MsgBox(ex.Message)
                MLog.LogErrWrite(ex.ToString)
            End Try




        End Function

        Public Function GetValue(ByVal AddName As String, ByVal AddNum As Integer, ByRef RtV As Integer) As Integer

            Dim AddNumHexLen As Integer '地址16進(jìn)制長度
            Dim HexAddNum As String     '地址值轉(zhuǎn)到16進(jìn)制
            Dim HCode As String = "@00FA000000000" '通訊表頭
            Dim CommandCode As String = "0101"    '通訊命令代碼
            Dim MemoryAreaCode As String          'PLC內(nèi)存功能碼
            Dim BitNum As String = "00"           '位讀取需要寫數(shù)值 0-15;字讀入=0
            Dim ReadNum As String = "0001"        '讀PLC地址個數(shù);單個寫入=0001
            'Dim HexValue As String                '寫入數(shù)值轉(zhuǎn)換為16進(jìn)制
            Dim FCSString As String               '需要校驗的字符串
            Dim FCSValue As String                '命令校驗碼
            Dim EndCode As String = "*" & vbCr    '結(jié)束碼
            Dim SenCode As String                 '發(fā)送到PLC字符串
            '*************************************************************************
            '修改版本2015703 新建
            '讀D數(shù)值
            '通訊發(fā)送命令
            'HCode & CommandCode & MemoryAreaCode  & HEXADDNum & BitNum & ReadNum  & FCS & EndCode
            '*************************************************************************


            Try
                If PLCBusyBit = False And OmronPLC.IsOpen Then
                    PLCCommd = 1
                    PLCBusyBit = True
                    '選擇讀PLC地址類型
                    Select Case AddName
                        Case "D"
                            MemoryAreaCode = "82"
                        Case Else
                            Return 1000
                            Exit Function
                    End Select


                    '讀地址轉(zhuǎn)換為HEX,計算長度是否=4;長度不夠補滿
                    HexAddNum = Hex(AddNum)
                    AddNumHexLen = HexAddNum.Length
                    Select Case AddNumHexLen
                        Case 1
                            HexAddNum = "000" & HexAddNum
                        Case 2
                            HexAddNum = "00" & HexAddNum
                        Case 3
                            HexAddNum = "0" & HexAddNum
                        Case 4
                            HexAddNum = HexAddNum
                        Case Else
                            Return 1001
                            Exit Function
                    End Select



                    FCSString = HCode & CommandCode & MemoryAreaCode & HexAddNum & BitNum & ReadNum

                    FCSValue = FinsFcsCheck(FCSString)

                    SenCode = FCSString & FCSValue & EndCode
                    RS232SendMsg(SenCode)
                    ' Threading.Thread.Sleep(10)
                    '***************************************************
                    '20150608 返回結(jié)果處理

                    Dim StartTick As Integer
                    StartTick = Environment.TickCount
                    Do
                        If (Environment.TickCount - StartTick) > 1500 Then
                            '超時報警
                            PLCBusyBit = False
                            Return 9001
                            Exit Do
                        End If

                        If PLCBusyBit = False Then

                            Exit Do
                        End If
                        Application.DoEvents()
                    Loop

                    If RtErrValue(0) = "1" Then
                        RtV = Convert.ToInt32(RtValue(0), 16)
                        Return 1
                    Else
                        '未知錯誤報警
                        Return 9002
                    End If
                Else

                    '通訊BUSY
                    Return 9003
                End If
            Catch ex As Exception
                ' MsgBox(ex.Message)
                MLog.LogErrWrite(ex.ToString)
            End Try




        End Function

        Private Sub OmronPLC_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles OmronPLC.DataReceived
            Threading.Thread.Sleep(100)

            Dim ReadString As String
            If OmronPLC.IsOpen = True Then
                ReadString = OmronPLC.ReadExisting
                Call ReslutCount(ReadString)
            End If


            PLCBusyBit = False

        End Sub

        Sub ReslutCount(ByVal InputS As String)
            Dim FcsRead As String = String.Empty  '返回校驗碼
            Dim FcsCount As String = String.Empty '計算出校驗碼
            Dim RtCommand As String = String.Empty '返回命令
            Dim RtMsg As String = String.Empty '返回報警代碼
            Dim OKMsg As String = "0000"        '返回正確代碼
            Try
                If InputS.Length >= 25 Then
                    If Mid(Microsoft.VisualBasic.Right(InputS, 2), 1, 1) = "*" Then
                        PLCRtString = Mid(InputS, 1, InputS.Length - 4)
                        FcsRead = Mid(InputS, InputS.Length - 3, 2)
                        FcsCount = FinsFcsCheck(PLCRtString)
                        RtCommand = Microsoft.VisualBasic.Mid(PLCRtString, 16, 4)
                    End If

                    If FcsCount = FcsRead Then

                        Select Case RtCommand
                            Case "0101"
                                RtMsg = Microsoft.VisualBasic.Mid(PLCRtString, 20, 4)
                                If RtMsg = OKMsg Then
                                    '=1寫入PLC值正常
                                    RtValue(0) = Microsoft.VisualBasic.Mid(PLCRtString, 24, 4)
                                    RtErrValue(0) = "1"
                                    Exit Sub
                                End If

                            Case "0102"
                                RtMsg = Microsoft.VisualBasic.Mid(PLCRtString, 20, 4)
                                If RtMsg = OKMsg Then
                                    '=1寫入PLC值正常
                                    RtErrValue(0) = "1"
                                    Exit Sub
                                End If
                            Case Else
                                '不能識別通訊命令
                                RtErrValue(0) = "9002"
                                Exit Sub

                        End Select






                    Else
                        '返回校驗碼不對報警
                        RtErrValue(0) = "9001"
                    End If




                Else
                    '返回字符串長度不夠報警
                    RtErrValue(0) = "9000"

                End If
            Catch ex As Exception
                MLog.LogErrWrite(ex.ToString)
            End Try
          



        End Sub

        Sub ResetErr()
            Try
                If OmronPLC.IsOpen = True Then
                    OmronPLC.Close()
                End If


                If OmronPLC.IsOpen = False Then
                    OmronPLC.Open()
                End If

                PLCBusyBit = False
            Catch ex As Exception
                MLog.LogErrWrite(ex.ToString)
                MsgBox(ex.Message)
            End Try

        End Sub


    End Class
    本帖最近評分記錄:
  • 下載積分:+1(吃個鴨梨) 熱心助人!
  • 下載積分:+5(dujiang100) 熱心助人!
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級別: 家園常客
    精華主題: 0
    發(fā)帖數(shù)量: 344 個
    工控威望: 891 點
    下載積分: 1083 分
    在線時間: 115(小時)
    注冊時間: 2009-08-04
    最后登錄: 2024-07-12
    查看shuangyu的 主題 / 回貼
    2樓  發(fā)表于: 2016-04-13 18:20
    2015年一個項目寫的 工控機 與OMRON CP1H串口通訊, 使用FAINS 能夠穩(wěn)定的讀寫數(shù)據(jù);
    本帖最近評分記錄:
  • 下載積分:+1(oahz55) 熱心助人!
  • 下載積分:+1(靜水磐石) 厲害
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級別: 家園常客
    精華主題: 0
    發(fā)帖數(shù)量: 344 個
    工控威望: 891 點
    下載積分: 1083 分
    在線時間: 115(小時)
    注冊時間: 2009-08-04
    最后登錄: 2024-07-12
    查看shuangyu的 主題 / 回貼
    3樓  發(fā)表于: 2016-04-14 23:20
    線程 批量讀取

    主站蜘蛛池模板: 久久国产精品不只是精品66_国产精品扒开腿做爽爽爽_久久aⅴ乱码一区二区三区_欧洲熟妇色XXXXX欧美老妇伦_最近日韩中文字幕_国产精品久久久久乳精毛片毛斤_www日_jjzz18国产 | 国产自主偷在线视频_日本中出在线播放_日本xx18_每日更新在线观看视频_亚洲最新网站_色8久久久噜噜噜久久_在线日本欧美_亚洲Av永久无码精品黑人 | 最新免费av在线观看_天天躁躁水汪汪人碰人_说英雄谁是英雄免费观看影视大全_丰满少妇被粗大的猛烈进出视频_亚洲综合久久精品_婷婷亚洲影院_www999久久_成人在线观看日韩 | 亚洲不卡视频在线_亚洲福利网址_啦啦啦中文免费观看在线_草久视频免费观看_丁香五月天一二三四在线视频_成人午夜国产内射主播_九九久久精品视频_真人与拘做受免费视频 久久久无码精品亚洲日韩啪啪网站_国产三级三级看三级_天堂一区人妻无码_国产成人久久精品_最近中文字幕2019视频1_思思久热_亚洲成AV人在线观看成年美女_日韩少妇内射免费播放18禁裸乳 | 99国产欧美另娄久久久精品_国内自拍农村少妇在线观看_久久亚洲道色宗和久久_日本aⅴ大伊香蕉精品视频_亚洲国产欧美日韩欧美特级_日本视频免费在线观看_日日操影视_曰本女人牲交全视频免费播放 | 国产91对白在线播放九色_欧美精品久久久久久久_国产男女爽爽爽免费视频_H无码精品动漫在线观看免费_国产一级毛片网站_国产免费乱淫av_四虎影视大全_中文字幕av一区二区三区高 | 国产精品高潮呻吟久久久久_中日AV高清字幕版在线观看_一级美国毛片_久久精品国产亚洲精品_国产1区2区3区在线观看_国产一卡二卡新区在线_国产精品美女久久久久av超清_亚洲一区日韩精品 | 在线观av_日韩福利网址_精品成人久久_免费的又色又爽又黄的片捆绑美女_在线免费看av网站_九九色九九_国精品99久9在线_蜜臀AV久久国产午夜福利软件 | 成人久久18免费观看_色69av_激情欧美在线观看_国语自产偷拍精品视频偷_91插插影库_天天躁日日躁狠狠躁av麻豆男男_国产精品久久久久久网站_成人欧美一区 | 久久久久久99精品_成年美女黄的视频网站_国产一区二区三区四区区_亚洲欧美日韩在线播放_国产三区四区视频_四虎永久在线精品免费看_wwwxxx日韩_一级黄色毛片视频 | 免费操比视频_久久久久久精品无码午夜按摩师_中文乱码字幕高清在线观看_91精品国产91久久久娜娜_黄色影视网址_色爱99_啊轻点内射在线视频_www.久久艹 | 中出欧美_中文字幕av无码不卡_怡红院成免费人视频_一区二区三区欧美大片_肉色欧美久久久久久久免费看_秋霞网一区二区_国产精品111_亚洲国产精品精品 | 美女91_一本大道久久a久久精品综合_青草久操_亚洲伦理99热久久_狠狠色噜噜狠狠狠888米奇_久久美女色视频_777影音_狠狠色综合7777久夜色撩人 | 欧美成人精品欧美一级私黄_伦理精品一区二区三精品_黄色一区三区_中文字幕大香视频蕉无码_爱射综合_日韩av午夜_人人弄人人揉人人爱_97青娱国产盛宴精品视频 | 日本天堂在线观看视频_农村妇女一级片_亚洲精品国久久99热_国产精品久久久一区二区三区_无码国产精成人午夜视频_国产日韩新片无码一区_日韩毛片精品_超碰探花 | 超碰CAO已满18进入离开官网_欧美久久网_GOGO全球人体高清大胆亚洲AV_亚洲精品无码久久千人斩探花_九色综合九色综合色鬼_亚洲日韩乱码中文无码蜜桃臀网站_国产精品久久久99_亚洲区日韩精品中文字幕 | 久久精品国产99久久无毒不卡_欧美色欧美亚洲另类七区_国产精品无码天堂av_欧美性色欧美性a片_亚洲日色_日韩A人毛片精品无人区乱码_久久免费毛片大全_国产综合一区二区三区视频一区 国产免费黄色片_久久午夜免费视频_麻豆影视在线免费观看_成人三级做爰av_久久精品中文闷骚内射_美女视频黄的免费_人妻无码一区二区三区_亚洲特黄毛片 | 午夜禁片_久久久亚洲精品一区二区三区浴池_国产成人牲交在线观看视频_免费1级片_国产亚洲精品久久久久久豆腐_成熟丰满熟妇高潮XXXXXA片_久久精品久久久久久久_两个男人吮她的花蒂和奶水视频 | 97精品国产三级A∨在线_欧美一级专区_国产九九99久久99大香伊_宝贝腿抬高点让我爽一点麻豆_97青草超碰久久国内精品91_成人免费乱码大片a毛片视频网站_av三级_久在线中文字幕乱码免费 | 99九九热_公息肉吊粗大爽在线观看_三上悠亚日韩精品二区_久久久日本_色妹子久久_麻豆动漫_好逼天天操_久久精品桃花av综合天堂 | 北条麻妃中文_eeuss影院www影院入口_亚洲视频在线观看一区_最新日韩视频在线观看_久久久久久久久久亚洲_天天操网址_久久成人无码影片_免费无码又爽又刺激高潮 | 手机成人影视_国产精品伦视频看免费三_扒开粉嫩的小缝喷白浆h_亚洲Ⅴa制服丝袜一区二区三区_久草青青在线_久久久小视频_免费A级毛片18禁网站免费_亚洲精品成a人在线观看网站 | 成人中文视频_日本最新免费视_潮喷大喷水系列无码精品视频_18禁在线无遮挡免费观看网站_成人亚洲片_亚洲一级淫片_女性高爱潮AAAA级视频_亚洲日韩欧洲乱码av夜夜摸 | 亚洲精品一区二区在线播放_久久国产精品一国产精品金尊_久久国产精品一国产精品_在线国产日韩_狠狠色综合网站久久久久久久_8060yy中文无码视频在线观看_美女色站_中文第一区 | 一本二卡三卡四卡乱码娱乐网_亚洲av无码成人影院一区_在线观看成人一区_海角国产精品_欧美成人vps_精品视频在线观自拍自拍_亚洲视频网址_超碰caoporen国产 | 国内精品伊人久久久_国产女主播喷水视频在线观看_亚洲AV无码一区二A片变脸_一二三精品_久久99亚洲AV无码四区_日本小视频网址_精品成人久久久_在线观看久草 | 国产午夜福利在线观看视频_四虎1515永久免费_少妇高潮惨叫久久久久久_色综合久久婷婷五月_日韩一区网站_国产精品色内内在线播放_中国鲜肉GAY高中XX禁18网站_91九色porny老版 绝顶丰满少妇av无码_国产精品一区欧美_国产精品色哟哟_日韩淫视频_老熟妇仑乱视频一区二区_亚洲欧美中文日韩在线v日本野外_欧美乱偷一区二区三区在线_成人在线观看www | 久久www免费人成看片高清_亚洲五码久久_免费黄色影视_91成人免费网站_成人免费午夜_二个人看的毛片_在线成人免费视频_一区中文字幕在线观看 | 少妇被又大又粗又爽A片_日韩精品永久免费视频_麻豆传媒免费_在线观看免费av网_伦流澡到高潮hnp_欧美国产日韩精品_99国产网站_免费观看又污又黄在线观看国产 | 国产成人AV区一区二区三_国产91清纯白嫩初高中在线观看_欧美国产日韩一区二区三区_日韩东京热无码AV一区_少妇高潮太爽了在线播放_亚洲精品国产精品国自产在线_国产91艳遇在线观看_黄色三级网站在线观看 | 免费av一级_黄色片一区二区_天天爱天天操天天爽_啪啪一级片_亚洲一区四区_久久久久久久这里只有精品_性高朝大尺度少妇大屁股_99re伊人 | a日韩在线_狠狠做五月爱婷婷综合_四虎影视在线_日日骚一区二区_日本亚洲免费_中出亚洲_2024理论片_精品国产午夜福利在线观看蜜月 | 色婷婷天堂_亚洲网色_国产成人久久AV免费_av狼论坛_国产xxwwxxww视频_吉林小伟无套gay_久久免费看a级毛毛片_欧美猛交 | 亚洲va欧美va人人爽成人影院_www.成人久久_欧洲成人精品_亚洲gay片在线gv网站_亚洲精品视频网站在线观看_久久视频免费在线观看_日本中文字幕二区三区_国产午夜福利久久精品 | 国内精品久久久久影院蜜芽_一级不卡_亚洲国产成人久久综合_yy1111111少妇影院光屁股_国产乱淫av免费_中文字幕高清不卡_538国产精品视频一区二区_国产精品91久久久 | 日本老逼_欧美丰满熟妇乱XXXXX网站_性少妇中国内射XXXX狠干_国产婷婷成人久久av免费高清_九一在线观看_一级做a爰性色毛片免费视频_国产在线免费_亚洲女人网 | av在线免费观看网址_国产传媒果冻天美传媒_亚洲AV片不卡无码久久嫩模_绯色av蜜臀vs少妇_色欲综合久久中文字幕网_脱老师内裤进入gif视频_欧美精品,久久综合_欧美日韩中文字幕在线观看 | 日本人真人姓交大视频_www精品视频_91看片网页_国产一级美女_三级男人添奶爽爽爽视频_av在线中文在线_海绵宝宝英文版双语字幕在线观看_色人在线 | 一级裸体网站_成人激情视频在线播放_久亚洲一线产区二线产区三线区_国产999精品久久久_欧美中文在线视频_久久精品成人欧美大片_国产精品欧美在线_三级毛片儿 | 欧美中文在线观看_国产91精_无码国产69精品久久久久网站_中文在线a在线_毛片大全免费_免费观看色网站_农村一级毛片_意甲赛程2024赛程表最新 | 久久精品国产99久久无毒不卡_欧美色欧美亚洲另类七区_国产精品无码天堂av_欧美性色欧美性a片_亚洲日色_日韩A人毛片精品无人区乱码_久久免费毛片大全_国产综合一区二区三区视频一区 国产免费黄色片_久久午夜免费视频_麻豆影视在线免费观看_成人三级做爰av_久久精品中文闷骚内射_美女视频黄的免费_人妻无码一区二区三区_亚洲特黄毛片 |