在厨房拨开内裤进入毛片-欧美一区亚洲二区-www九九热com-亚洲午夜久久久精品一区二区三剧-国产91精品看黄网站在线观看动漫-heyzo朝桐光一区二区

dujiang100
我是一只小小鳥(niǎo)
級(jí)別: 家園常客
精華主題: 0
發(fā)帖數(shù)量: 440 個(gè)
工控威望: 642 點(diǎn)
下載積分: 1895 分
在線時(shí)間: 243(小時(shí))
注冊(cè)時(shí)間: 2011-03-11
最后登錄: 2024-05-22
查看dujiang100的 主題 / 回貼
樓主  發(fā)表于: 2016-03-23 17:29
   最近在研究VB跟歐姆龍CP1H的通信.了解到可以用串口進(jìn)行HOSTLINK通信,還可以用以太網(wǎng)進(jìn)行FANS通信.CP1H沒(méi)有網(wǎng)口所以不可以用FANS通信嗎?串口通信情況下,PLC處于運(yùn)行時(shí)寫(xiě)入不了數(shù)據(jù),只有當(dāng)PLC是監(jiān)控狀態(tài)時(shí)才能寫(xiě)入.這怎么能達(dá)到隨時(shí)寫(xiě)入的目的呢?
本帖最近評(píng)分記錄:
  • 下載積分:+1(56071988)
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級(jí)別: 家園常客
    精華主題: 0
    發(fā)帖數(shù)量: 344 個(gè)
    工控威望: 891 點(diǎn)
    下載積分: 1083 分
    在線時(shí)間: 115(小時(shí))
    注冊(cè)時(shí)間: 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通訊計(jì)算校驗(yàn)碼
        ''' </summary>
        ''' <param name="Value">傳入需要校驗(yàn)內(nèi)容</param>
        ''' <returns>返回Fins校驗(yàn)值</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
        ''' 寫(xiě)單個(gè)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)制長(zhǎng)度
            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"           '位寫(xiě)入需要寫(xiě)數(shù)值 0-15;字寫(xiě)如=0
            Dim WriteNum As String = "0001"        '寫(xiě)PLC地址個(gè)數(shù);單個(gè)寫(xiě)入=0001
            Dim HexValue As String                '寫(xiě)入數(shù)值轉(zhuǎn)換為16進(jìn)制
            Dim FCSString As String               '需要校驗(yàn)的字符串
            Dim FCSValue As String                '命令校驗(yàn)碼
            Dim EndCode As String = "*" & vbCr    '結(jié)束碼
            Dim SenCode As String                 '發(fā)送到PLC字符串
            '*************************************************************************
            '修改版本20150526 新建
            '寫(xiě)入數(shù)值到D
            '通訊發(fā)送命令
            'HCode & CommandCode & MemoryAreaCode  & HEXADDNum & BitNum & WriteNum & Value & FCS & EndCode
            '*************************************************************************


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


                    '寫(xiě)入地址轉(zhuǎn)換為HEX,計(jì)算長(zhǎng)度是否=4;長(zhǎng)度不夠補(bǔ)滿
                    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

                    '寫(xiě)入數(shù)值轉(zhuǎn)換位16進(jìn)制,計(jì)算長(zhǎng)度=4;長(zhǎng)度不夠布滿
                    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
                            '超時(shí)報(bào)警
                            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
                        '未知錯(cuò)誤報(bào)警
                        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)制長(zhǎng)度
            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"           '位讀取需要寫(xiě)數(shù)值 0-15;字讀入=0
            Dim ReadNum As String = "0001"        '讀PLC地址個(gè)數(shù);單個(gè)寫(xiě)入=0001
            'Dim HexValue As String                '寫(xiě)入數(shù)值轉(zhuǎn)換為16進(jìn)制
            Dim FCSString As String               '需要校驗(yàn)的字符串
            Dim FCSValue As String                '命令校驗(yàn)碼
            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地址類(lèi)型
                    Select Case AddName
                        Case "D"
                            MemoryAreaCode = "82"
                        Case Else
                            Return 1000
                            Exit Function
                    End Select


                    '讀地址轉(zhuǎn)換為HEX,計(jì)算長(zhǎng)度是否=4;長(zhǎng)度不夠補(bǔ)滿
                    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
                            '超時(shí)報(bào)警
                            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
                        '未知錯(cuò)誤報(bào)警
                        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  '返回校驗(yàn)碼
            Dim FcsCount As String = String.Empty '計(jì)算出校驗(yàn)碼
            Dim RtCommand As String = String.Empty '返回命令
            Dim RtMsg As String = String.Empty '返回報(bào)警代碼
            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寫(xiě)入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寫(xiě)入PLC值正常
                                    RtErrValue(0) = "1"
                                    Exit Sub
                                End If
                            Case Else
                                '不能識(shí)別通訊命令
                                RtErrValue(0) = "9002"
                                Exit Sub

                        End Select






                    Else
                        '返回校驗(yàn)碼不對(duì)報(bào)警
                        RtErrValue(0) = "9001"
                    End If




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

    主站蜘蛛池模板: 国产精品xxxxxx | 国内视频自拍 | 国产精品福利视频 | 久久久久久久久久久免费精品 | 国产精品一区二区三区不卡 | 国产天堂视频在线观看 | 欧美色图在线播放 | 久久人人爽人人爽人人片ⅴ | 久久精品国产日本波多野结衣 | 国产精品乡下勾搭老头1 | 亚洲不卡中文字幕无码 | 中韩乱幕日产无线码一区 | 久久一级免费视频 | 法国少妇愉情理伦片 | 久久久久久久久久免费视频 | 大肉大捧一进一出好爽视色大师 | 国产成人一区二区三区视频 | 狠狠色婷婷久久一区二区 | 九九九九精品视频在线观看 | 亚洲综合无码精品一区二区三区 | 日韩在线视屏 | 在线不卡中文字幕 | 在线免费观看国产视频 | 免费国产又色又爽又黄的网站 | 色播亚洲视频在线观看 | 人人妻一区二区三区 | 婷婷亚洲天堂 | 午夜精品美女久久久久av福利 | 国精产品一品二品国精在线观看 | 91香蕉在线看| 国产自偷自偷免费一区 | 26uuu成人网| 久久精品7 | 找国产毛片看 | 91九色国产ts另类人妖 | 精品乱码久久久久久中文字幕 | 成人在线免费看视频 | 综合色婷婷一区二区亚洲欧美国产 | 国产三级a | 天堂综合在线 | 性欧美1819性猛交 | 久久久社区 | 精品久久久久久久久中文字幕 | 午夜精品久久久久久久星辰影院 | 中文字幕一区二区三区四区视频 | 91蜜桃在线观看 | 国精产品一区一区三区有限在线 | 69国产 | 日韩av图片 | 高h破瓜受孕龙精 | 色婷婷社区 | 女人被狂躁到高潮视频免费软件 | 大桥未久av一区二区三区中文 | 欧美一区高清 | 少妇高潮喷水久久久久久久久久 | 精品久久久久久中文字幕大豆网 | 欧美福利专区 | 我要看18毛片 | 亚洲第一区国产精品 | www.国产麻豆 | 91成人福利 | 午夜免费啪视频 | 他揉捏她两乳不停呻吟动态图 | 97在线观看免费观看 | 国产激情图片 | 麻豆精品国产精华精华液好用吗 | 国产精品美女乱子伦高 | 52avavjizz亚洲精品 | 国产精品免费av | 国产乡下妇女做爰视频 | 亚洲精品第一国产综合野草社区 | 亚洲精品国产欧美 | 另类欧美日韩 | 欧美精品第一页 | 狠狠入 | av免费观看入口 | 另类综合网 | 黄色av片三级三级三级免费看 | 91黑丝在线观看 | 在线观看超碰 | 欧美牲交a欧美牲交aⅴ一 | 公妇乱淫3 | 澳门久久久 | 六月婷婷久香在线视频 | 在线日韩一区 | 久久艹精品 | 亚洲一卡2卡三卡四卡精品 曰批免费视频播放免费 | 免费视频a | 一级黄色裸体片 | 中文字幕+乱码+中文字幕明步 | 岛国精品在线 | 欧美aa一级片| hitomi一区二区三区精品 | 亚洲字幕av | 成人做爰高潮片免费视频韩国 | 国产成人午夜精品影院游乐网 | 欧美色图偷窥自拍 | 日日躁狠狠躁夜夜躁av中文字幕 | 色婷婷久久综合 | 极品少妇露脸一区二区 | 亚洲色视频| 又色又爽又黄无遮挡的免费视频 | 女的被弄到高潮娇喘喷水视频 | 中文字幕人成人乱码亚洲电影 | 国产清纯粉嫩学生白丝在线观看 | 成人在线视频免费看 | 欧美日韩不卡合集视频 | 免费精品一区二区三区视频日产 | 成人免费视频在线看 | 91精品国产人妻国产毛片在线 | 老湿机69福利 | sese在线视频| 国产igao为爱做激情在线观看 | 午夜 国产 | 日日摸日日碰人妻无码 | 成人aaa视频 | 久久精品国产亚洲 | 亚洲天堂第一区 | 国产乱妇无乱码大黄aa片 | 中文字日产幕乱码免费 | 国产毛片aaa | 成人欧美一区二区三区在线播放 | 97人人模人人爽人人喊网 | 亚洲精品蜜桃久在线 | 欧美黑吊大战白妞 | 女警一级淫片免费放 | 99久久精品免费看国产免费软件 | 日韩精品中文字幕无码一区 | 国产一区日韩 | 国产真实交换配乱淫视频 | 欧美精品久久久久久久自慰 | 中文字幕乱码人妻二区三区 | 国产资源在线播放 | 天天舔天天爱 | 鲁鲁狠狠狠7777一区二区 | 97国产精品自拍 | 天天躁日日躁狠狠躁喷水 | 欧美做爰性生交视频 | 高h禁伦餐桌上的肉伦水视频 | 97久久久久久久久久久久 | 国产熟人av一二三区 | 13一15学生毛片视频软件 | 欧州一区二区 | 99热这里是精品 | 亚洲最大色综合成人av | 国产 中文 字幕 日韩 在线 | 少妇高潮惨叫久久久久电影69 | 国产麻豆一区二区三区在线观看 | 日本r级无打码中文 | 亚洲精品一区二区另类图片 | 插我舔内射18免费视频 | 高清一区二区三区日本久 | 国产精品鲁鲁鲁 | 97夜夜澡人人波多野结衣 | 午夜视频网 | 麻豆国产一区二区三区 | 国产亚洲视频在线观看 | 欧美日韩资源 | 色在线免费视频 | 亚洲国产精品无码观看久久 | 成人妇女免费播放久久久 | 精品久久久久久久免费看女人毛片 | 在线观看老湿视频福利 | pt美日韩欧pt网 | 成年人免费看黄色 | 免费无码av片在线观看网站 | 国产热の有码热の无码视频 | 在线丨暗呦小u女国产精品 在线爽 | 疯狂做受xxxx欧美肥白少妇 | 精品国产黄色 | 国产精品国产免费无码专区不卡 | 精品国产一区二区三区蜜殿 | 国产高清在线精品一区二区三区 | 国产成人精品三级麻豆 | 国产一二区在线 | 夜夜骚网站 | 鲁大师在线视频播放免费观看 | 两个人看的vvv在线高清 | 国产伦视频 | 俄罗斯兽交黑人又大又粗水汪汪 | 色婷婷狠狠干 | 亚洲欧洲美洲无码精品va | 亚洲国产理论片在线播放 | 翘臀后进少妇大白嫩屁股视频 | 国产成人小视频在线观看 | 中文字幕在线精品 | 亚洲成av人影院 | 国产黄色美女视频 | 日本久久久网站 | 天天影视亚洲 | 日本性生活一级片 | 国产乱肥老妇国产一区二 | 啪啪啪毛片 | 久久久精品久久日韩一区综合 | 成人高清在线 | 日本激情久久 | 国产日韩综合 | 向日葵视频在线播放 | 成人午夜久久 | 青青草视频在线观看免费 | 精射女上司 | 亚洲加勒比无码一区二区 | 亚洲最大中文字幕 | 3d动漫精品h区xxxxx区 | 国产精品99久久久精品无码 | 少妇被黑人到高潮喷出白浆 | 亚洲人成网站在线在线观看 | 国产超碰自拍 | 免费看片亚洲 | 性感少妇av | 欧美bbw精品一区二区三区 | 中文字幕第二区 | 黄色工厂在线观看 | 午夜免费小视频 | 亚洲人成在线影院 | 特级毛片爽www免费版 | 成人免费视频毛片 | 在线成人www免费观看视频 | 亚洲制服丝袜一区二区三区 | 伊人精品在线观看 | bnb99八度免费影院 | 国模精品一区二区三区 | 另类欧美日韩 | 国产一区久久久 | 久久观看最新视频 | 成人vagaa免费观看视频 | 亚洲精品欧美日韩 | 北条麻妃一区二区三区在线视频 | 亚洲免费视频在线观看 | 日本乱子人伦在线视频 | 福利片网址 | 久草操 | 在线播放ww| 91成人在线播放 | 亚洲欧美国产精品 | 无人在线观看高清视频 | 日本亚洲欧美 | 欧美日批| 99久久精品国产同性同志 | 国产免费又硬又黄又爽的视频喷水 | 日韩精品视频一二三 | 91大神福利视频 | 超碰网站在线观看 | 亚洲日韩精品一区二区三区 | 国产国产精品久久久久 | 999黄色片 | av在线免费观看网址 | 在线亚洲欧美 | 在线看片中文字幕 | 黄色免费在线视频 | 69精品人人人人 | 一卡二卡国产 | 色翁荡息又大又硬又粗又爽 | 国产精品自拍av | 午夜精品久久久久久99热软件 | 国产精品丝袜高跟鞋 | 女人喷液抽搐高潮视频 | 国产情侣啪啪 | 在线观看国产精品日韩av | 夜夜精品浪潮av一区二区三区 | 一区二区三区午夜 | 又黄又爽又色的免费软件 | 国产白丝无码免费视频 | 大尺度网站在线观看 | 可以免费看的黄色 | 国产精品久久久久7777按摩 | 91porn国产成人 | 中文日韩亚洲欧美字幕 | 区一区二区三区中文字幕 | 亚欧美在线观看 | 亚洲欧美日韩成人一区 | 欧美一级专区 | 久久综合欧美 | 亚洲精品国产精品乱码不66 | 美女xx网站| 中国xxxx性xxxx产国 | 久久久久日本精品一区二区三区 | 亚洲一区高清视频 | 亚洲欧美视频一区 | 日本黄网站色大片免费观看 | www.17c.com小草影视 | 三级全黄做爰龚玥菲在线 | 想看一级黄色片 | 久久网一区二区 | 中日韩在线播放 | 第一色影院| 亚洲免费网 | 国产日韩一区二区在线 | 国产无 | 亚洲毛片儿| 国产三级全黄 | 亚洲欧洲成人精品久久一码二码 | 欧美亚洲综合网 | 成人在线网址 | 欧美第一页草草影院 | 黄色小网站在线观看 | 日韩视频在线播放 | 婷婷免费 | 国产又粗又硬又大爽黄老大爷 | 综合 欧美 亚洲日本 | www.com捏胸挤出奶 | 精品国产偷窥一区二区 | 欧美又粗又大xxxxbbbb疯狂 | 国产伦精品一区二区三区免.费 | 97久久精品无码一区二区天美 | 影音先锋成人网 | 大桥未久av片 | yy6080午夜| 日日噜噜噜夜夜爽爽狠狠小说 | 国产精品任我爽爆在线播放 | 久久久久久免费精品 | 久久久蜜桃一区二区人 | 日韩午夜视频在线观看 | 色多多污污 | 农村少妇野战做爰全过程 | 国产特级毛片aaaaaaa高清 | 伊人久久久久久久久 | 久久人人爽人人爽人人片av高请 | 97久人人做人人妻人人玩精品 | 99热这里都是精品 | 最新黄色av | 免费一级全黄裸片 | 亚洲吧| 夜爽8888视频在线观看 | 国产精品一级二级 | 国产丝袜一区二区三区 | 在线国产小视频 | 内射人妻视频国内 | 日韩av在线影院 | 波多野结衣网站 | 国产a∨精品一区二区三区不卡 | 五月婷婷亚洲 | 午夜影院私人 | 国产免费色视频 | 成人黄色在线视频 | 久久网站视频 | 国精品一区 | 一本一本久久a久久精品综合妖精 | 伊人网网站 | 久久久最新 | 色综合色综合色综合色欲 | 五月婷婷六月情 | 99热九九这里只有精品10 | 麻豆精品a∨在线观看 | 久久人人妻人人爽人人爽 | 噼里啪啦动漫高清在线观看 | 激情欧美一区二区三区 | 成人中文网| 色狠狠一区二区 | 亚洲乱色伦图片区小说 | jizz免费观看| 久久精品午夜福利 | 欧美日韩免费高清一区色橹橹 | 国产女人被狂躁到高潮小说 | 亚洲精品中文字幕久久久久下载 | 九色porny丨首页入口网页 | 久章草在线观看 | 国产色播| 最新黄网 | 久久久久a | 国产禁女女网站免费看 | 国内视频一区二区三区 | 蜜桃av无码免费看永久 | 精品国产sm最大网站 | 久久久久久久久久久久久女国产乱 | 尤果网福利视频在线观看 | 日本一区二区在线免费观看 | 人人射人人爱 | 国产色爱| 中文区中文字幕免费看 | 亚洲天堂欧美 | 印度女人狂野牲交 | 日本毛片在线 | 91九色porn| 成人免费一级伦理片在线播放 | xxxx日本高清 | 夜夜性日日交xxx性视频 | 青娱乐最新视频 | 国产午夜免费福利 | 国产乱子伦视频在线播放 | 色香欲综合网 | 不卡的av网站 | 亚洲精品久久久艾草网 | 欧美日韩亚洲色图 | 日本一区二区在线播放 | 日韩免费成人 | 国产伦理一区二区 | 女人色极品影院 | 亚洲视频手机在线 | 色五月五月丁香亚洲综合网 | 奇米影视888欧美在线观看 | 欧美人妻aⅴ中文字幕 | 国内毛片毛片毛片毛片毛片毛片 | 国产又黄又硬又粗 | 欧美色图片区 | 人与动物av | 亚洲综合成人亚洲 | 国产精品极品 | 久久精品女人天堂av免费观看 | vvv成人观看视频 | caoporm超碰| 久草成人在线 | 丝袜五月天 | 日韩黄页在线观看 | 青草国产视频 | 国产操操操 | 亚洲欧美日韩第一页 | 亚洲色图另类 | 成人婷婷网色偷偷亚洲男人的天堂 | 丰满人妻被黑人猛烈进入 | 插入综合网 | 一起射导航 | 性欧美xxxx | 久久久久久久久久久久91 | 97zyz成人免费视频 | 国产精品二 | 国产成人精品在线观看 | 国产无套粉嫩白浆内精品 | 欧美综合网站 | 91视频成人 | 国产精品日韩一区 | 一级裸体视频 | 精品国产一区二区三区四区在线看 | 日本aⅴ写真网站免费 | 精品动漫3d一区二区三区免费版 | 99精品视频在线播放免费 | 成人性生交大片免费看vr | 公的~yin之手筱田优中文字幕 | 亚洲自偷自拍熟女另类 | 国产精品亚洲精品一区二区三区 | 中文字幕成人网 | 日韩精品一区二区三区免费视频 | 亚洲伦理在线播放 | 亚洲色图p| 国产成人福利视频 | 成人免费在线视频 | 一区二区三区不卡在线 | 香港黄色网| 久久亚洲精品国产亚洲老地址 | 国产精品资源在线 | 免费看男女做爰爽爽 | re久久| 久操青青 | zzijzzij亚洲日本少妇熟睡 | 六月婷婷七月丁香 | 永久av免费在线观看 | 日韩三级欧美 | 欧产日产国产精品乱噜噜 | 日韩视频无码中字免费观 | 中文无码日韩欧 | 国内精品国产三级国产 | 欧美日韩在线观看一区 | aaa私人欧美69 | 欧美精品偷自拍另类在线观看 | 美女视频黄8频a美女大全 | 人妻聚色窝窝人体www一区 | 精品亚洲一区二区三区四区五区 | 久久精品女人毛片国产 | 欧美久草在线 | 亚洲精品无码不卡 | 一区二区中文字幕在线观看 | 一区二区三区精 | 日本精品入口免费视频 | 国产成人自拍网站 | 性h欲短篇合集 | 漂亮少妇激烈床戏 | 国产高清在线观看视频 | 乱码人妻一区二区三区 | 97成人精品| 亚洲少妇视频 | 特黄aaaaaaa片免费视频 | 久久人人97超碰精品888 | 三级三级18女男 | 九九热1| 国产精品人人爽人人做av片 | 久久精品黄aa片一区二区三区 | 国产欧美精品一区二区三区 | 久久人人艹 | 国产美女精品 | 一道本在线观看视频 | 免费黄色日本 | 精品久久久久久亚洲精品 | 久久久中日ab精品综合 | 精品久久久久中文字幕日本 | 国产传媒在线 | 黄色网页免费观看 | 久久久久国产精品无码免费看 | 免费看成人片 | 91嫩草国产露脸精品国产 | 亚洲人成在线播放 | 久久av无码精品人妻系列果冻传媒 | jzzijzzij亚洲成熟少妇在线观看 jzzijzzij亚洲日本少妇熟 | 青草青草久热精品视频在线观看 | 古风h啪肉h文 | 国产视频第二页 | 日本极品xnxxcom| 亚洲精品网站在线 | 毛片免费视频在线观看 | 天堂а√在线地址中文在线 | 亚洲天堂免费 | 午夜丁香网 | 欧美精品一区二区三区久久久 | 欧美日韩不卡在线 | 国产一级免费不卡 | 91麻豆精品国产91久久久使用方法 | 国产探花一区二区 | 亚洲最大色大成人av | 中文字幕一区二区三区精华液 | 日日摸日日干 | 四虎影视在线播免费观看 | 欧美黄色小说 | 中文字幕15页 | 91成人免费 | 久久亚洲精 | 人人妻人人妻人人人人妻 | 天天操天天操天天操天天操天天操 | 天干夜天干天天天爽视频 | 暴力强奷在线播放无码 | 人人草人人插 | 日韩一区二区a片免费观看 性色av无码久久一区二区三区 | 91视频毛片 | 寂寞少妇让水电工爽hd | 日日摸日日碰夜夜爽久久四季 | 蜜桃久久精品成人无码av | 久久婷婷丁香五月综合五 | 亚洲一区在线视频 | 日韩成人无码一区二区三区 | 成人gav | 久久免费公开视频 | 99热久久成人免费频精品2 | 国产交换配乱淫视频α | 国产精品视频入口 | 波多野结衣视频免费看 | 久久久亚洲精品一区二区三区浴池 | 一区二区国产精品视频 | 四虎永久在线精品免费网站 | 久久九九网站 | 国产日韩欧美高清 | 久久久久精 | 日本精品视频 | 欧美亚洲天堂 | 黄色一极片| 国产性猛交╳xxx乱大交 | 肉肉av福利一精品导航 | 欧美成人网视频 | 久久综合香蕉国产蜜臀av | 久久人人人 | 欧美日韩一级黄色片 | 国产一级揄自揄精品视频 | 亚洲男女一区二区三区 | 456欧美成人免费视频 | av 一区二区三区 | 久久国产精品偷 | 亚洲精品久久久久久久蜜桃 | 久久精品国产精品青草 | 午夜美女裸体福利视频 | 91午夜剧场 | 高清中文字幕 | 日本女人黄色片 | 蜜桃免费在线视频 | 国产99在线 | 欧美 | 无码人妻精品一区二区三区下载 | 国产成人无码aⅴ片在线观看 | 激情黄色av | 欧美人与禽zoz0性伦交 | 欧美性猛交xxxxx水多 | 亚洲综合一区二区三区葵つかさ | 手机看片久久 | 波多野结衣在线视频播放 | 九九五月天 | 久久综合久久综合久久 | 天天拍夜夜添久久精品 | 国产乱子伦精品无码码专区 | 亚洲天堂成人网 | 国产成a人亚洲精品无码久久网 | 精品一区二区三区久久久 | 老牛嫩草一区二区三区消防 | 欧美黄色a级大片 | 久草免费福利视频 | 久久日韩乱码一二三四区别 | 亚洲激情第一页 | 蜜桃av在线看 | 亚洲精品久久久久国色天香 | 97毛片| 亚洲乱码一区av春药高潮 | 国产黑丝视频 | 亚洲一区二区三区乱码aⅴ蜜桃女 | 精品久久国产字幕高潮 | 日本毛片在线观看 | 午夜成人免费影院 | 性欧美videos高清hd4k | 免费国精产品—品二品 | 99国产精品人妻噜啊噜 | 亚洲精品少妇久久久久久 | 国产亚洲xxxx在线播放 | 成人午夜视频在线观看 | 91精品视频在线播放 | 在线观看91精品国产网站 | 国产粉嫩高中无套进入 | av亚洲产国偷v产偷v自拍 | 色拍拍在线精品视频 | 国产美女高潮一区二区三区 | 国产乱码精品一区二区三区亚洲人 | 国产农村乱对白刺激视频 | 亚洲私人影院 | 无码国产精品成人 | www成人网com| 日本h漫在线观看 | 地下室play道具走绳结 | 嫩草网站| 色视屏| 久久国产香蕉视频 | 精品久久国产视频 | 国产高清精品软件 | 啪啪综合|