亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? unit1.~pas

?? delphi串口能信例程
?? ~PAS
字號: 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  SPComm, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    Button1: TButton;
    Comm1: TComm;
    Button2: TButton;
    ListBox1: TListBox;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
      BufferLength: Word);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //-----------------刷ＩＣ卡----------------
     procedure CardSound;//鳴叫；
     procedure FindCard; //尋卡；
     procedure downloatPW;//驗證密碼；
     procedure ReadCard;//讀卡
     procedure CloseCard;//關閉卡
  end;

var
  Form1: TForm1;
  //ictag:Integer;
  //-----------------ＩＣ卡----------------
  iclist:TStringList;//讀卡器返回值
  ICTag:Integer;//讀卡操作表示，1：尋卡，2：驗證密碼，3：讀卡，4：關閉卡
  ICSuc:Integer;//讀卡操作表示,1:操作成功；2：操作失敗；
  cardID1,cardID2,cardID3,cardID4:Byte;
  cardID:array [0..20] of Byte;
  CardI:Integer;

implementation

{$R *.DFM}

//-----------------刷ＩＣ卡----------------------------
procedure TForm1.ReadCard;//讀卡
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  ListBox1.Items.Add('   ');
  ListBox1.Items.Add('======發(fā)送讀卡命令=========');
  ictag:=3;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=4;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=1;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$66;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$20;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=0;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr(s);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
end;
procedure TForm1.CloseCard;//關閉卡
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  ictag:=4;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=$04;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$68;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr($51);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
  ListBox1.Items.Add('   ');
  ListBox1.Items.Add('======發(fā)送關閉卡命令=========');
end;
procedure TForm1.downloatPW;//驗證密碼；
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  ictag:=2;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=$08;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$6A;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;  //'模式1
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$20;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID1;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID2 ;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID3;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID4;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr(s);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
  ListBox1.Items.Add('   ');
  ListBox1.Items.Add('======發(fā)送驗證密碼命令=========');
end;
procedure TForm1.FindCard; //尋卡；
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  ICTag:=1;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=$04;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$70;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;  //'模式1
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr(s);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
  ListBox1.Items.Add('   ');
  ListBox1.Items.Add('======發(fā)送尋卡卡命令=========');
end;

procedure TForm1.CardSound;//鳴叫；
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  a:='';
  bufs:=$3C;
  s:=$3C;
  a:=chr(bufs);
  bufs:=$03;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$6B;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$10;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr(s);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Comm1.StopComm;
  Comm1.CommName:=Trim(ComboBox1.Text);
  Comm1.StartComm;
  ListBox1.Items.Clear;
end;

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
type
  ss=array[1..500]of char ;
var    str1:^ss;
       i:integer;
       s:array[0..15] of char ;
       n:integer;
       strlist:TStringList;
       cardbh:string;
       cardint:Int64;
begin
    Application.ProcessMessages;
    //iclist.Clear;
    strlist:=TStringList.Create; strlist.Clear;
    str1:=Buffer;
    for i:=0 to 9 do s[i]:=chr(48+i);
    for i:=10 to 15 do s[i]:=chr(55+i);
    for i:=1 to bufferlength do
    begin
      n:=ord(str1^[i]);
      strlist.add(s[n div 16]+s[n mod 16]);
      //iclist.Add(IntToStr(n));
      //iclist.Add(IntToHex(n,2));

    end;
  case ICTag of
      1:begin //尋卡；
          ListBox1.Items.Add('     ');
          ListBox1.Items.Add(strlist.Text);
          ListBox1.Items.Add('=========接收尋卡返回值=========');
          if (strlist.Strings[0]='3C')and(strlist.Strings[1]='05')and(strlist.Strings[2]<>'FF') then
          begin
            ICSuc:=0;   //Byte(StrToInt('$'+aa));
            cardID1:=StrToInt('$'+Trim(strlist.Strings[2]));
            cardID2:=StrToInt('$'+trim(strlist.Strings[3]));
            cardID3:=StrToInt('$'+trim(strlist.Strings[4]));
            cardID4:=StrToInt('$'+trim(strlist.Strings[5]));
            cardbh:='';
            cardbh:=trim(strlist.Strings[2])
                    +trim(strlist.Strings[3])
                    +trim(strlist.Strings[4])
                    +trim(strlist.Strings[5]);
              //cardID[n]:=Byte(StrToInt('$'+trim(iclist.Strings[i])));;
              //Inc(n);

            cardint:=StrToInt64('$'+cardbh);
            cardbh:='';
            cardbh:=Trim(FormatFloat('0',cardint));
            ListBox1.Items.Add('此卡卡號：'+cardbh);
            //ListBox1.Items.Add('==========================');
            Sleep(30);
            downloatPW;
            //CloseCard;
            //Sleep(500);
            //TimerIC.Enabled:=True;
            //ListBox1.Items.Add('========================尋卡2');
          end else
          begin
            Sleep(100);
            CloseCard;
            Sleep(500);
            //TimerIC.Enabled:=True;
            ICSuc:=0;
          end;
        end;
      2:begin //驗證密碼；
          ListBox1.Items.Add('     ');
          ListBox1.Items.Add(strlist.Text);
          ListBox1.Items.Add('=======接收驗證密碼返回值=======');
          if (Trim(strlist.Strings[0])='3C')and(Trim(strlist.Strings[1])='02')and(Trim(strlist.Strings[2])='00') then
          begin
            Sleep(30);
            ReadCard;
            ICSuc:=0;
            ListBox1.Items.Add('========================驗證密碼成功！');
          end else
          begin
            ListBox1.Items.Add('========================驗證密碼失敗！');
            Sleep(100);
            CloseCard;
            Sleep(500);
            //TimerIC.Enabled:=True;
            ICSuc:=0;
          end;
        end;
      3:begin //讀卡；
          //ShowMessage('讀卡1'+strlist.Text);
          ListBox1.Items.Add('     ');
          ListBox1.Items.Add(strlist.Text);
          ListBox1.Items.Add('========接受讀卡返回值=========');
          if (strlist.Strings[0]='3C')and(strlist.Strings[1]='12')and(strlist.Strings[2]='00') then
          begin
            ICSuc:=0;
            //ListBox1.Items.Add('========================讀卡1');
             n:=0; cardbh:='';
            for i:=3 to strlist.Count-3 do
            begin
              //if Trim(strlist.Strings[i])<>'20' then
              cardbh:=cardbh+trim(strlist.Strings[i]);
              //cardID[n]:=Byte(StrToInt('$'+trim(iclist.Strings[i])));;
              //Inc(n);
            end;
            cardint:=StrToInt64('$'+cardbh);
            cardbh:='';
            cardbh:=Trim(FormatFloat('0',cardint));
            ListBox1.Items.Add('卡號：'+cardbh);
            ListBox1.Items.Add('===============卡里數據內容====讀卡成功！=======');
            //DoTmBuf(cardbh);
            //CardI:=n-1;
            //ShowMessage('讀卡2'+strlist.Text);
            Sleep(20);
            CloseCard;
          end else
          begin
            ListBox1.Items.Add('========================讀卡失敗！');
            Sleep(50);
            CloseCard;
            Sleep(500);
            //TimerIC.Enabled:=True;
            ICSuc:=0;
          end;
        end;
      4:begin  //關閉卡；
          if ICSuc=4 then Exit;
          ListBox1.Items.Add('     ');
          ListBox1.Items.Add(strlist.Text);
          ListBox1.Items.Add('=========接收關閉卡返回值========');
          if (strlist.Strings[0]='3C')and(strlist.Strings[1]='02')and(strlist.Strings[2]='00') then
          begin
            //ListBox1.Items.Add('========================關閉卡1');
            Sleep(50);
            CardSound;
            Sleep(500);
            //Comm1.StopComm;
            //TimerIC.Enabled:=True;
            ICSuc:=4;
          end else
          begin
            //ListBox1.Items.Add('========================關閉卡2');
            Sleep(100);
            //CloseCard;
            Sleep(500);
            //TimerIC.Enabled:=True;
            ICSuc:=0;
          end;
        end;
      5:begin
          ListBox1.Items.Add('     ');
          ListBox1.Items.Add(strlist.Text);
          ListBox1.Items.Add('=====================單獨===尋卡');
          if (strlist.Strings[0]='3C')and(strlist.Strings[1]='05')and(strlist.Strings[2]<>'FF') then
          begin
            ICSuc:=0;   //Byte(StrToInt('$'+aa));
            cardID1:=StrToInt('$'+Trim(strlist.Strings[2]));
            cardID2:=StrToInt('$'+trim(strlist.Strings[3]));
            cardID3:=StrToInt('$'+trim(strlist.Strings[4]));
            cardID4:=StrToInt('$'+trim(strlist.Strings[5]));
            cardbh:='';
            cardbh:=trim(strlist.Strings[2])
                    +trim(strlist.Strings[3])
                    +trim(strlist.Strings[4])
                    +trim(strlist.Strings[5]);
              //cardID[n]:=Byte(StrToInt('$'+trim(iclist.Strings[i])));;
              //Inc(n);
            end;
            cardint:=StrToInt64('$'+cardbh);
            cardbh:='';
            cardbh:=Trim(FormatFloat('0',cardint));
            ListBox1.Items.Add('此卡卡號：'+cardbh);
            ListBox1.Items.Add('=====================單獨===尋卡成功');

        end;
        6:begin //驗證密碼；
          ListBox1.Items.Add('     ');
          ListBox1.Items.Add(strlist.Text);
          ListBox1.Items.Add('=====================單獨===驗證密碼');
          if (strlist.Strings[0]='3C')and(strlist.Strings[1]='02')and(strlist.Strings[2]='00') then
          begin
            Sleep(30);
            ReadCard;
            ICSuc:=0;
            ListBox1.Items.Add('=====================單獨===驗證密碼成功');
          end else
          begin
            ListBox1.Items.Add('=====================單獨===驗證密碼失敗');
            Sleep(100);
            CloseCard;
            Sleep(500);
            //TimerIC.Enabled:=True;
            ICSuc:=0;
          end;
        end;
    end;

  //ShowMessage(strlist.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //Comm1.StopComm;
  //omm1.StartComm;

  FindCard;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  ictag:=3;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=4;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=1;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$66;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$20;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=0;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr(s);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
end;

procedure TForm1.Button6Click(Sender: TObject);
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  //ictag:=4;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=$04;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$68;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr($51);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
end;

procedure TForm1.Button4Click(Sender: TObject);
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  ictag:=6;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=$08;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$6A;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;  //'模式1
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$20;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID1;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID2;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID3;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=cardID4;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr(s);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
   bufs:Byte;
   s:Byte;
   a:string;
begin
  ICTag:=5;
  bufs:=$3C;
  s:=bufs;
  a:=chr(bufs);
  bufs:=$04;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$70;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$01;  //'模式1
  s:=s Xor bufs;
  a:=a+chr(bufs);
  bufs:=$00;
  s:=s Xor bufs;
  a:=a+chr(bufs);
  a:=a+chr(s);
  bufs:=$0D;
  a:=a+chr(bufs);
  Comm1.WriteCommData(PChar(a),Length(a));
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
end;

end.

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
精品少妇一区二区三区视频免付费| 极品美女销魂一区二区三区 | 奇米色一区二区| 亚洲美女屁股眼交| 日韩视频不卡中文| 91啪九色porn原创视频在线观看| 美女脱光内衣内裤视频久久影院| 国产女同性恋一区二区| 日韩一区二区三区四区| 一本色道久久综合亚洲91| 国产毛片一区二区| 日韩成人av影视| 依依成人精品视频| 中文字幕av在线一区二区三区| 亚洲视频在线一区观看| 六月婷婷色综合| 亚洲已满18点击进入久久| 国产亚洲欧美一区在线观看| 欧美一区二区福利视频| 在线精品视频一区二区三四| 91网站黄www| 成人国产精品免费观看动漫| 国产一区二三区好的| 日韩成人av影视| 五月激情综合网| 亚洲尤物在线视频观看| 亚洲猫色日本管| 国产精品久久久久影院亚瑟| 国产女人18毛片水真多成人如厕 | 国产69精品久久久久毛片| 麻豆精品视频在线| 麻豆成人久久精品二区三区红 | 97超碰欧美中文字幕| 成人理论电影网| 国产精品99久久不卡二区| 韩国精品久久久| 极品销魂美女一区二区三区| 男男gaygay亚洲| 日韩av一区二区三区| 日日噜噜夜夜狠狠视频欧美人| 性感美女久久精品| 午夜精品成人在线视频| 亚洲第一精品在线| 日韩电影免费在线看| 日本v片在线高清不卡在线观看| 蜜桃视频在线观看一区| 久久99精品久久久久| 老司机精品视频导航| 国产一区三区三区| 国产一区二区免费看| 国产成人av电影在线观看| 国产91精品精华液一区二区三区| 福利电影一区二区| 99久久er热在这里只有精品15| 一本大道综合伊人精品热热| 欧美体内she精高潮| 欧美精品在线观看播放| 综合欧美亚洲日本| 国产一区二区三区免费播放| 国产一区二区在线视频| 成人午夜在线播放| fc2成人免费人成在线观看播放| 91社区在线播放| 欧美日韩二区三区| 欧美r级在线观看| 国产欧美日韩另类一区| 亚洲精品成人在线| 蜜臀av一区二区在线观看| 国产在线乱码一区二区三区| www.欧美色图| 欧美三级日韩三级| 欧美精品一区二区久久婷婷| 国产精品久久久久三级| 性做久久久久久久久| 国产高清精品久久久久| 欧洲一区在线电影| 亚洲精品一区二区三区影院 | 国产精品99久久久| 色88888久久久久久影院按摩| 制服丝袜亚洲播放| 国产精品色哟哟| 日韩精品91亚洲二区在线观看| 国产成人精品综合在线观看| 欧美日韩免费一区二区三区 | 久久一留热品黄| 亚洲少妇最新在线视频| 精品一区二区免费视频| 91看片淫黄大片一级在线观看| 91麻豆精品国产自产在线观看一区| 国产欧美一区二区精品性色| 亚洲午夜久久久久久久久久久| 精品一区二区三区欧美| 91国偷自产一区二区开放时间 | 久久精品夜夜夜夜久久| 亚洲综合在线观看视频| 国产精品自产自拍| 91麻豆精品国产91久久久使用方法| 亚洲国产激情av| 免费成人av资源网| 欧美亚洲免费在线一区| 欧美国产在线观看| 久久99精品久久久| 7777女厕盗摄久久久| 亚洲欧美偷拍三级| 国产91丝袜在线播放| 欧美成人精品高清在线播放| 亚洲妇熟xx妇色黄| 一本大道久久a久久综合婷婷| 久久日韩精品一区二区五区| 天天免费综合色| 91福利视频在线| 亚洲色图丝袜美腿| jlzzjlzz欧美大全| 国产午夜亚洲精品羞羞网站| 日本不卡视频一二三区| 欧美日韩国产一级片| 亚洲欧美激情在线| 97成人超碰视| 国产精品女主播在线观看| 国内外成人在线视频| 日韩一区二区免费高清| 婷婷六月综合网| 欧美在线小视频| 亚洲在线一区二区三区| 91麻豆国产自产在线观看| 国产精品日日摸夜夜摸av| 成人av资源站| 国产精品国产三级国产三级人妇| 国产成人午夜片在线观看高清观看| 国产制服丝袜一区| 日韩色在线观看| 免费av网站大全久久| 666欧美在线视频| 亚洲成a人v欧美综合天堂下载| 在线这里只有精品| 一区二区三区欧美日| 色综合久久综合网欧美综合网| 亚洲天堂a在线| 91丨porny丨最新| 伊人一区二区三区| 欧美日韩亚州综合| 日本欧美加勒比视频| 欧美日韩国产小视频| 日韩专区一卡二卡| 欧美一区三区四区| 国产一区二区三区最好精华液| 欧美一二三四区在线| 精品一区二区久久久| 久久久亚洲高清| 丁香五精品蜜臀久久久久99网站| 国产精品国产馆在线真实露脸| 91视频免费看| 天天综合网天天综合色| 久久综合色之久久综合| 成+人+亚洲+综合天堂| 亚洲国产日日夜夜| 日韩一区二区三区三四区视频在线观看 | 欧美一区二区三区四区高清| 男女性色大片免费观看一区二区| 精品国产免费一区二区三区四区 | 亚洲久草在线视频| 欧美一区二区免费视频| 国产精品一区二区三区网站| 136国产福利精品导航| 欧美福利电影网| 国产传媒日韩欧美成人| 亚洲激情图片qvod| 日韩三级精品电影久久久 | 一区二区三区在线观看欧美| 欧美一区二区三区视频在线观看| 国产高清精品网站| 午夜视频在线观看一区| 欧美精品一区二区三区在线| 91免费观看视频| 美日韩黄色大片| 亚洲欧洲精品一区二区三区不卡| 制服丝袜亚洲网站| 成人高清视频免费观看| 日韩精品午夜视频| 中文字幕日本不卡| 日韩免费视频一区二区| 91免费视频网址| 六月丁香婷婷久久| 一区二区三区日本| 国产色爱av资源综合区| 欧美日韩在线综合| 成人黄色大片在线观看| 日本亚洲免费观看| 成人免费在线播放视频| 精品国产一区二区精华| 欧美无砖专区一中文字| 丁香亚洲综合激情啪啪综合| 免费在线成人网| 亚洲一区二区三区小说| 国产精品灌醉下药二区| 精品乱人伦小说| 91精品国产麻豆国产自产在线| 日本乱人伦aⅴ精品| 成人综合日日夜夜| 狠狠色伊人亚洲综合成人|