文章

AHK演奏——Music库

调用的是Winapi的midi模块

  1. ; Author: Mono
  2. ; Time: 2022.08.17
  3. ; Class Music
  5. File2KeyArr(Filename, Flags := "r", Encoding := "utf-8")
  6. {
  7.     Res := []
  8.     FileObj := FileOpen(Filename, Flags, Encoding)
  9.     Flag := (FileObj.ReadLine() == "Key::") ? 1 : 0
  10.     
  11.     if Flag
  12.     {
  13.         While !FileObj.AtEOF
  14.         {
  15.             NewLine := StrSplit(FileObj.ReadLine())
  16.             Lst_Flag := 0
  17.             Tmp := []
  18.             
  19.             For i in NewLine
  20.             {
  21.                 if i == " "
  22.                     Res.Push(_)
  23.                 
  24.                 else if i == "+"
  25.                     Res.Push("*0.5")
  26.                 
  27.                 else if i == "-"
  28.                     Res.Push("*2")
  29.                 
  30.                 else if i == "("
  31.                 {
  32.                     Lst_Flag := 1
  33.                     Continue
  34.                 }
  35.                 
  36.                 else if i == ")"
  37.                 {
  38.                     Lst_Flag := 0
  39.                     Res.Push(Tmp.Clone())
  40.                     Tmp := []
  41.                     Continue
  42.                 }
  43.                 
  44.                 else if Lst_Flag
  45.                     Tmp.Push(i)
  46.                 
  47.                 else if i == "|"
  48.                     Continue
  49.                 
  50.                 else
  51.                     Res.Push(i)
  52.             }
  53.         }
  54.     }
  55.         
  56.     Return Res
  57. }
  59. LoadMidi()
  60. {
  61.     hModule := DllCall("LoadLibrary", "Str", "winmm.dll")
  62.     Return hModule
  63. }
  65. MidiOutClose(handle)
  66. {
  67.     result := DllCall("winmm.dll\midiOutClose", "UInt", handle)
  68.     
  69.     if result
  70.     {
  71.         Msgbox "There was an error closing the midi output port.  There may still be midi events being processed through it."
  72.         Return -1
  73.     }
  74.     
  75.     Return
  76. }
  78. MidiOutOpen(DeviceID := 0)
  79. {
  80.     dwFlags := 0
  82.     result := DllCall("winmm.dll\midiOutOpen"
  83.                     , "UInt*", &handle := 0
  84.                     , "UInt", DeviceID
  85.                     , "UInt", 0
  86.                     , "UInt", 0
  87.                     , "UInt", dwFlags)
  89.     if result
  90.     {
  91.         Msgbox "There was an error opening the midi port.  The port may be in use.  Try closing and reopening all midi-enabled applications."
  92.         Return -1
  93.     }
  94.     
  95.     Return handle
  96. }
  98. MidiOutShortMsg(handle, voice)
  99. {
  100.     result := DllCall("winmm.dll\midiOutShortMsg"
  101.                     , "UInt", handle
  102.                     , "UInt", voice)
  103.   
  104.     if result
  105.     {
  106.         Msgbox "There was an error sending the midi event."
  107.         Return -1
  108.     }
  109.     
  110.     Return
  111. }
  113. Class Music
  114. {
  115.     Static KeyPlay(Arr, DeviceID := 0, QuitKey := "Esc", Speed := 300, Wait := 0.5)
  116.     {
  117.         handle := MidiOutOpen(DeviceID)
  118.         volume := 0x7f
  119.         voice := 0x0
  120.         SleepTime := Speed
  121.         Lst_Voice := []
  122.         v := Map('Z',C3,'X',D3,'C',E3,'V',F3,'B',G3,'N',A3,'M',B3,
  123.             'A',C4,'S',D4,'D',E4,'F',F4,'G',G4,'H',A4,'J',B4,
  124.             'Q',C5,'W',D5,'E',E5,'R',F5,'T',G5,'Y',A5,'U',B5)
  125.         Print("请按"  QuitKey "键退出演奏")
  126.         
  127.         For i in Arr
  128.         {
  129.             tmp := []
  130.             Lst_i := Type(i) == "Array" ? i : [i]
  131.             
  132.             if GetKeyState(QuitKey)
  133.             {
  134.                 MidiOutClose(handle)
  135.                 WinClose("Sinet Print")
  136.                 Return
  137.             }
  138.             
  139.             For j in Lst_i
  140.             {
  141.                 
  142.                 if (j == LOW_SPEED || j == HIGH_SPEED || j == MIDDLE_SPEED)
  143.                 {
  144.                     SleepTime := j
  145.                     Continue 2
  146.                 }
  147.                 
  148.                 if InStr(j, "*")
  149.                 {
  150.                     SleepTime *= StrReplace(j, "*")
  151.                     Continue 2
  152.                 }
  153.                 
  154.                 if (j == _)
  155.                 {
  156.                     Sleep(SleepTime * Wait)
  157.                     Continue 2
  158.                 }
  159.                 
  160.                 voice := (volume << 16) + (v[j] << 8) + 0x94
  161.                 tmp.Push(voice)
  162.             }
  163.             
  164.             For j in tmp
  165.                 MidiOutShortMsg(handle, j)
  166.             
  167.             Lst_Voice.Push(tmp)
  168.             Sleep(SleepTime)
  169.         }
  170.         
  171.         MidiOutClose(handle)
  172.         WinClose("Sinet Print")
  173.         Return Lst_Voice
  174.     }
  175.     
  176.     Static Piano(DeviceID := 0, QuitKey := "Esc")
  177.     {
  178.         handle := MidiOutOpen(DeviceID)
  179.         v := Map('Z',C3,'X',D3,'C',E3,'V',F3,'B',G3,'N',A3,'M',B3,
  180.             'A',C4,'S',D4,'D',E4,'F',F4,'G',G4,'H',A4,'J',B4,
  181.             'Q',C5,'W',D5,'E',E5,'R',F5,'T',G5,'Y',A5,'U',B5)
  182.             
  183.         Print("钢琴已开启，敲击键盘Q-U,A-J,Z-M")
  184.         Print("请按"  QuitKey "键退出`n")
  185.         
  186.         While True
  187.         {
  188.             if GetKeyState(QuitKey)
  189.             {
  190.                 MidiOutClose(handle)
  191.                 WinClose("Sinet Print")
  192.                 Return
  193.             }
  194.             
  195.             For i in Range(Ord('A'), Ord('Z') + 1)
  196.             {
  197.                 if GetKeyState(Chr(i))
  198.                 {
  199.                     MidiOutShortMsg(handle, (0x007f << 16) + (v[Chr(i)] << 8) + 0x90)
  200.                     Print("已按下" Chr(i) "键")
  201.                     
  202.                     While GetKeyState(Chr(i))
  203.                         Sleep(100)
  204.                 }
  205.             }
  206.         }
  207.     }
  208.     
  209.     Static Play(Arr, DeviceID := 0, QuitKey := "Esc", Speed := 300)
  210.     {
  211.         handle := MidiOutOpen(DeviceID)
  212.         volume := 0x7f
  213.         voice := 0x0
  214.         SleepTime := Speed
  215.         Lst_Voice := []
  216.         Print("请按"  QuitKey "键退出演奏")
  217.         
  218.         For i in Arr
  219.         {
  220.             tmp := []
  221.             Lst_i := Type(i) == "Array" ? i : [i]
  222.             
  223.             For j in Lst_i
  224.             {
  225.                 if GetKeyState(QuitKey)
  226.                 {
  227.                     MidiOutClose(handle)
  228.                     WinClose("Sinet Print")
  229.                     Return
  230.                 }
  231.                 
  232.                 if (j == LOW_SPEED || j == HIGH_SPEED || j == MIDDLE_SPEED)
  233.                 {
  234.                     SleepTime := j
  235.                     Continue 2
  236.                 }
  237.                 
  238.                 if InStr(j, "*")
  239.                 {
  240.                     SleepTime *= StrReplace(j, "*")
  241.                     Continue 2
  242.                 }
  243.                 
  244.                 if (j == _)
  245.                 {
  246.                     Sleep(SleepTime / 2)
  247.                     Continue 2
  248.                 }
  249.             
  250.                 voice := (volume << 16) + (j << 8) + 0x94
  251.                 tmp.Push(voice)
  252.             }
  253.             
  254.             For j in tmp
  255.                 MidiOutShortMsg(handle, j)
  256.             
  257.             Lst_Voice.Push(tmp)
  258.             Sleep(SleepTime)
  259.         }
  260.         
  261.         MidiOutClose(handle)
  262.         WinClose("Sinet Print")
  263.         Return Lst_Voice
  264.     }
  265. }
  267. Print(Text*)
  268. {
  269.     Global Print_Gui
  270.     Global Print_Edit
  271.     Print_Text := ""
  273.     Loop Text.Length
  274.     {
  275.         String_Text := ToStringPrint(Text[A_Index])
  276.         
  277.         if SubStr(String_Text, -1) == "," && (Type(Text[A_Index]) == "Array" || Type(Text[A_Index]) == "ComObjArray" || Type(Text[A_Index]) == "Map" || Type(Text[A_Index]) == "Object")
  278.             String_Text := SubStr(String_Text, 1, StrLen(String_Text) - 1)
  279.         
  280.         Print_Text .= String_Text "`n"
  281.     }
  282.     
  283.     Print_Text := SubStr(Print_Text, 1, StrLen(Print_Text) - 1)
  284.     
  285.     if WinExist("Sinet Print")
  286.     {
  287.         WinActivate("Sinet Print")
  288.         Print_Edit.Value .= "`n" Print_Text
  289.         Return
  290.     }
  291.     
  292.     Print_Gui := Gui()
  293.     Print_Gui.Title := "Sinet Print"
  294.     Print_Gui.BackColor := "87CEFA"
  295.     Print_Edit := Print_Gui.Add("Edit", "R30 W800 ReadOnly")
  296.     Print_Edit.SetFont("S12", "Arial")
  297.     Print_Edit.Value := Print_Text
  298.     Print_Gui.Show()
  299. }
  301. Range(start, stop)
  302. {
  303.     tmp := []
  304.     
  305.     Loop stop - start
  306.         tmp.Push(start + A_Index - 1)
  307.     
  308.     Return tmp
  309. }
  311. ToStringPrint(Text)
  312. {
  313.     if Type(Text) == "Array"
  314.     {
  315.         if Text.Length < 1
  316.             Text.InsertAt(1, "")
  317.         
  318.         String_Plus := ""
  319.         String_Text := "[" . ToStringPrint(Text[1])
  320.         
  321.         Loop Text.Length - 1
  322.             String_Plus .= "," . ToStringPrint(Text[A_Index + 1])
  323.         
  324.         String_Text .= String_Plus
  325.         String_Text .= "]"
  326.         
  327.         Return String_Text
  328.     }
  329.     
  330.     else if Type(Text) == "ComObjArray"
  331.     {
  332.         if Text.MaxIndex() < 0
  333.         {
  334.             Text := ComObjArray(VT_VARIANT:=12, 1)
  335.             Text[0] := ""
  336.         }
  337.         
  338.         String_Plus := ""
  339.         String_Text := "[" . ToStringPrint(Text[0])
  340.         
  341.         Loop Text.MaxIndex()
  342.             String_Plus .= "," . ToStringPrint(Text[A_Index])
  343.         
  344.         String_Text .= String_Plus
  345.         String_Text .= "]"
  346.         
  347.         Return String_Text
  348.     }
  349.     
  350.     else if Type(Text) == "Map"
  351.     {
  352.         String_Text := "{"
  353.         
  354.         For i, Value in Text
  355.             String_Text .= ToStringPrint(i) . ":" . ToStringPrint(Value) . ","
  356.         
  357.         if SubStr(String_Text, -1) !== "{"
  358.             String_Text := SubStr(String_Text, 1, StrLen(String_Text) - 1)
  359.         
  360.         String_Text .= "}"
  361.         
  362.         Return String_Text
  363.     }
  364.     
  365.     else if Type(Text) == "Integer" || Type(Text) == "Float" || Type(Text) == "String"
  366.         Return Text
  367.     
  368.     else if Type(Text) == "Object"
  369.     {
  370.         String_Text := "{"
  371.         
  372.         For i, Value in Text.OwnProps()
  373.             String_Text .= ToStringPrint(i) . ":" . ToStringPrint(Value) . ","
  374.         
  375.         if SubStr(String_Text, -1) !== "{"
  376.             String_Text := SubStr(String_Text, 1, StrLen(String_Text) - 1)
  377.         
  378.         String_Text .= "},"
  379.         
  380.         Return String_Text
  381.     }
  382.     
  383.     else
  384.         Return "#Type: " Type(Text) "#"
  385. }
  387. ; Scale音阶参数
  388. Rest := 0, C8 := 108, B7 := 107, A7s := 106, A7 := 105, G7s := 104, G7 := 103, F7s := 102, F7 := 101, E7 := 100,
  389. D7s := 99, D7 := 98, C7s := 97, C7 := 96, B6 := 95, A6s := 94, A6 := 93, G6s := 92, G6 := 91, F6s := 90, F6 := 89,
  390. E6 := 88, D6s := 87, D6 := 86, C6s := 85, C6 := 84, B5 := 83, A5s := 82, A5 := 81, G5s := 80, G5 := 79, F5s := 78,
  391. F5 := 77, E5 := 76, D5s := 75, D5 := 74, C5s := 73, C5 := 72, B4 := 71, A4s := 70, A4 := 69, G4s := 68, G4 := 67,
  392. F4s := 66, F4 := 65, E4 := 64, D4s := 63, D4 := 62, C4s := 61, C4 := 60, B3 := 59, A3s := 58, A3 := 57, G3s := 56,
  393. G3 := 55, F3s := 54, F3 := 53, E3 := 52, D3s := 51, D3 := 50, C3s := 49, C3 := 48, B2 := 47, A2s := 46, A2 := 45,
  394. G2s := 44, G2 := 43, F2s := 42, F2 := 41, E2 := 40, D2s := 39, D2 := 38, C2s := 37, C2 := 36, B1 := 35, A1s := 34,
  395. A1 := 33, G1s := 32, G1 := 31, F1s := 30, F1 := 29, E1 := 28, D1s := 27, D1 := 26, C1s := 25, C1 := 24, B0 := 23,
  396. A0s := 22, A0 := 21
  398. ; Voice
  399. L1 := C3, L2 := D3, L3 := E3, L4 := F3, L5 := G3, L6 := A3, L7 := B3,
  400. M1 := C4, M2 := D4, M3 := E4, M4 := F4, M5 := G4, M6 := A4, M7 := B4,
  401. H1 := C5, H2 := D5, H3 := E5, H4 := F5, H5 := G5, H6 := A5, H7 := B5,
  402. LOW_SPEED := 600, MIDDLE_SPEED := 300, HIGH_SPEED := 150,
  403. _ := 0XFF
  1. ; 8.15新使用方法——键盘演奏
  2. ; 初始化winmm.dll
  3. LoadMidi()
  4. ; 转换演奏曲谱为库支持类型
  5. Arr := File2KeyArr("Ultramarine.txt")
  6. ; 开始演奏
  7. ; 最后一个参数表示演奏速率（默认为中速300，数值越小速率越快）
  8. Music.KeyPlay(Arr, , , 150)

来一首群青

Set danmaku color
Set danmaku type
0:00 / 0:00
Speed
Loop
Show danmaku
Unlimited danmaku
Opacity for danmaku
0.5
0.75
Normal
1.25
1.5
2
[x]
Player version
Player FPS
Video type
Video url
Video resolution
Video duration
Video info
About author
DPlayer v1.26.0

Ultramarine.txt

提取码：mono复制
解压码：无
下载

来一首卡农

Cannon.txt

提取码：mono复制
解压码：无
下载
  1. ; 使用方法——键盘钢琴
  2. ; 初始化winmm.dll
  3. LoadMidi()
  4. ; 打开钢琴
  5. Music.Piano()
Set danmaku color
Set danmaku type
0:00 / 0:00
Speed
Loop
Show danmaku
Unlimited danmaku
Opacity for danmaku
0.5
0.75
Normal
1.25
1.5
2
[x]
Player version
Player FPS
Video type
Video url
Video resolution
Video duration
Video info
About author
DPlayer v1.26.0 
  1. ; 使用方法——演奏曲谱
  2. ; 初始化winmm.dll
  3. LoadMidi()
  4. ; 编写曲谱（需要一定乐理基础）
  5. ; 列表里嵌套的列表表示多音符
  6. Musical := 
  7. [[H1,M5,M1],_,M5,M1,[H1,M5,M1],H2,M3,_,H5,_,[H1,M5,M1],H2,_,H3,_,[H1,M5,M1],H2,_,H3,_,
  8. [H1,M5,M1],_,M5,M1,[H1,M5,M1],H2,M3,_,H5,_,H2,H2,_,H3,_,H2,H3,_,H3,_,
  9. H3,H2,[H1,M5,M1],_,[H1,M5,M1],M5,M6,M3,M5,_,H3,H2,[H1,M5,M1],_,[H1,M5,M1],M5,M6,M3,M5,_,
  10. H3,H2,H2,_,H2,[H1,M5,M1],M7,_,M6,M7,M5,M6,_,_,
  11. M6,M5,M6,_,
  12. M5,[H1,M5,M1],H2,H5,M5,[H1,M5,M1],H2,M5,H5,_,
  13. M5,[H1,M5,M1],H2,M5,H5,M5,[H1,M5,M1],M5,H2,M5,H5,_,
  14. M5,[H1,M5,M1],H2,H5,M5,[H1,M5,M1],H2,M5,H5,_,
  15. M5,[H1,M5,M1],H2,H5,M5,[H1,M5,M1],M5,H2,M5,H5,_,
  16. [H1,M5,M1],_,M5,M1,[H1,M5,M1],H2,M5,H3,_,H5,M5,H2,H2,_,H3,_,[H1,M5,M1],H2,_,H3,_,
  17. [H1,M5,M1],_,M5,M1,[H1,M5,M1],H2,M5,H3,_,H5,_,H2,H2,_,H3,_,H2,M3,_,H3,_,
  18. H3,H2,M3,[H1,M5,M1],_,[H1,M5,M1],M5,M6,M3,M5,_,H3,H2,M3,[H1,M5,M1],_,[H1,M5,M1],M5,M6,M3,M5,_,
  19. H3,H2,H2,_,H2,[H1,M5,M1],M7,_,M6,M7,M5,M6,_,_,_]
  20. Music.Play(Musical)
Set danmaku color
Set danmaku type
0:00 / 0:00
Speed
Loop
Show danmaku
Unlimited danmaku
Opacity for danmaku
0.5
0.75
Normal
1.25
1.5
2
[x]
Player version
Player FPS
Video type
Video url
Video resolution
Video duration
Video info
About author
DPlayer v1.26.0
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
其他

朴实无华且枯燥的ahk模板生成工具

2022-8-11 20:55:36

其他

影子输入法功能添加之万能键(一键三用)以及万能防卡工具

2022-8-12 20:45:07

4 条回复 A文章作者 M管理员
欢迎您，新朋友，感谢参与互动！
  1. 陌诺Mono

    小星星曲谱 [[C5,C4],G4,[C5,E4],G4, [G5,C4],F4,[G5,G4],F4, [A5,C4],A4,[A5,F4],A4, [G5,C4],G4,[C5,E5],_, [F5,C4],E4,[F5,A4],E4, [E5,B4],E4,[E5,G4],E4, [D5,B4],G4,[D5,D4],HIGH_SPEED,F4,G4,LOW_SPEED, [C5,E4,G4],HIGH_SPEED,C4,_,MIDDLE_SPEED, [G5,C4],D4,[G5,E4],G4, [F5,C5],A4,[F5,F4],D4, [E5,B4],E4,[E5,G4],E4, [D5,B4],G4,D4,HIGH_SPEED,F4,G4,MIDDLE_SPEED, [G5,C4],D4,[G5,E4],G4, [F5,C5],A4,[F5,F4],D4, [E5,B4],E4,[E5,G4],E4, [D5,B4],G4,D4,HIGH_SPEED,F4,G4,MIDDLE_SPEED, [C5,C4],[E4,G4],[C5,E4,G4],[E4,G4], [G5,C4],[F4,G4],[G5,F4,G4],[F4,G4], [A5,C4],[F4,A4],[A5,F4,A4],[F4,A4], [G5,C4],G4,HIGH_SPEED,[C5,E5],MIDDLE_SPEED,_, [F5,C4],[E4,A4],[F5,E4,A4],[E4,A4], [E5,B4],[E4,G4],[E5,E4,G4],[E4,G4], [D5,B4],[D4,F4,G4],[D5,B4],[D4,F4,G4], [C5,C4],HIGH_SPEED,C5,A4,G4,F4,E4,D4,LOW_SPEED,[C5,C4],_]

  2. hexuren

    多来点曲谱，很感兴趣

  3. hexuren
    1河许人给您打赏了￥2
  4. 陌诺Mono

    卡农曲谱 Key:: (ZBD) |(XBM) |(CNA) |(CBM)| (ZVN) |(ZBA) |(ZVN) |(XBM) | (ZBQE) |(BSJW) |(NDHQ) |(CMGJ)| (VAFH) |(ZBDG) |(VAFH) |(BSGJ) | (ZBQE) |(BSJW) F|(NDHQ) |(CMGJ) S| (VAFH) |(ZBDG) D|(VAFH) |(BSGJ) F| (ZDQ) B A |(BGJ) X (MF)| (NDQ) C (AHE)|(CET) M (DWY)| (VHR) Z (NQ) |(ZGE) B (AD) | (VSF) Z (NHQ)|(BGQ) X (MFQ) J| (ZQ)(BJ)(AQ)(BD)|(BG) X (MGJ) X| (NDQ) C (AHE) C|(CT)(ME)(DT)(MY)| (VHR)(ZGE)(NFW)(ZHR)|(ZE)(BW)(AQ)(BJ)| (VFH)(ZSF)(NHQ) Z|(BGQ)(XF)(MDQ)(XSJ)| (ZQ)(BJ)(AQ)(BF)|(BG) X (MGJ) X| (NDQ) C (AHE) C|(CT)(ME)(DT)(MY)| (VHR)(ZGE)(NFW)(ZHR)|(ZE)(BW)(AQ)(BJ)| (VFH)(ZDG)(NSF)(ZHQ)|(BGQ) XS(MJ) (XW)G| (ZQE) BG(AE) (BQ)W|B XE(MR)E(XW)| (NW) CQA (CJ)Q|(CJ) (BG)DMG (BM)A| (VFH) Z(GJ) N (ZHQ)|(ZDG) B A (BA)A| (VH)AZA (NF)H(ZQ)W|(BQ) XJMQ(XW)G| (ZQE) BG(AE) (BQ)W|B XE(MR)E(XW)| (NW) CQA (CJ)Q|(CJ) (BG)DMG (BM)A| (VFH) Z(HQ)NH(ZR)|(ZE) (BW)QA (BA)A| (VH)AZA (NF)H(ZQ)W|(BJ) XQM (XW)Q| (ZT) (BE)R(AT) (BE)R|(BT)G(XH)J(MQ)W(XE)R| (NE) (CQ)W(AE) (CD)F|(CG)H(BG)F(MG)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)E(XR)T| (ZT) (BE)R(AT) (BE)R|(BT)G(XH)J(MQ)W(XE)R| (NE) (CQ)W(AE) (CD)F|(CG)H(BG)F(MG)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)E(XR)T| (ZT) (BE)R(AT) (BE)R|(BT)G(XH)J(MQ)W(XE)R| (NE) (CQ)W(AE) (CD)F|(CG)H(BG)F(MG)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)E(XR)T| (ZE) (BQ)W(AE) (BW)Q|(BW)J(XQ)W(ME)W(XQ)J| (NQ) (CH)J(AQ) (CA)S|(CD)F(BD)S(MD)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)Q(XH)J| (ZQ) B A D | B X M S| N C N A| C B M D| V Z N A | Z C B A | V Z N A | B X M S | (ZT) (BE)R(AT) (BE)R|(BT)G(XH)J(MQ)W(XE)R| (NE) (CQ)W(AE) (CD)F|(CG)H(BG)F(MG)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)E(XR)T| (ZT) (BE)R(AT) (BE)R|(BT)G(XH)J(MQ)W(XE)R| (NE) (CQ)W(AE) (CD)F|(CG)H(BG)F(MG)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)E(XR)T| (ZT) (BE)R(AT) (BE)R|(BT)G(XH)J(MQ)W(XE)R| (NE) (CQ)W(AE) (CD)F|(CG)H(BG)F(MG)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)E(XR)T| (ZE) (BQ)W(AE) (BW)Q|(BW)J(XQ)W(ME)W(XQ)J| (NQ) (CH)J(AQ) (CA)S|(CD)F(BD)S(MD)Q(BJ)Q| (VH) (ZQ)J(NH) (ZG)F|(ZG)F(BD)F(AG)H(BJ)Q| (VH) (ZQ)J(NQ) (ZJ)Q|(BJ)H(XJ)Q(MW)Q(XH)J| (ZQ) B A D | B X M S| N C N A| C B M D| V Z N A | Z C B A | V Z N A | B X M S |

请输入验证码

请输入图片中的验证码
点击发送按钮获取验证码

取消
×
×
￥undefined
请打开手机使用微信扫码支付
「」
×

....支付确认中....

「」
×
支付金额

￥

undefined
×
积分支付
您当前的积分为0

检测到您未绑定微信账户，请先绑定微信

立刻绑定
确定
×

举报

请选择举报类型*

政治有害
不友善
垃圾广告
违法违规
色情低俗
涉嫌侵权
网络暴力
涉未成年
自杀自残
不实信息
引人不适
抄袭
扰乱社区秩序
请输入举报内容 *

举报提交后，我们会以邮件的形式向您反馈处理结果。

×

打开微信扫一扫

扫码并「关注我们的公众号」安全快捷登录

×

下载海报：

解锁会员权限

开通会员

解锁海量优质VIP资源

立刻开通

个人中心
购物车
优惠劵
私信列表
搜索
客服

  • 扫码打开当前页

返回顶部