Joforn

¦^´_ 1# lshsien
²K¥[¤@­Ó·sªº¼Ò¶ô¡A±N¤U­±ªº¥N½XÖ߶K¨ì¦¹¼Ò¶ô¤¤¡G

1. Option Explicit
   
2. 
   
3. #If VBA7 Then
   
4.   Private Declare PtrSafe Function waveOutGetNumDevs Lib "winmm.dll" () As Long
   
5.   Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringW" (ByVal lpstrCommand As LongPtr, ByVal lpstrRetumString As LongPtr, ByVal uReturnLength As Long, ByVal hwndCallback As LongPtr) As Long
   
6.   Private Declare PtrSafe Function GetShortPathNameW Lib "kernel32" (ByVal lpszLongPath As LongPtr, ByVal lpszShortPath As LongPtr, ByVal cchBuffer As Long) As Long
   
7.   Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
8.   Private Declare PtrSafe Function PathFindExtension Lib "shlwapi.dll" Alias "PathFindExtensionW" (ByVal pszPath As LongPtr) As LongPtr
   
9.   Private Declare PtrSafe Function lStrLen Lib "kernel32.dll" Alias "lstrlenW" (ByVal lpString As LongPtr) As Long
   
10.   Private Declare PtrSafe Sub CopyMemoryByPtr Lib "kernel32.dll" Alias "RtlMoveMemory" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As Long)
    
11. #Else
    
12.   Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
    
13.   Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringW" (ByVal lpstrCommand As Long, ByVal lpstrRetumString As Long, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    
14.   Private Declare Function GetShortPathNameW Lib "kernel32" (ByVal lpszLongPath As Long, ByVal lpszShortPath As Long, ByVal cchBuffer As Long) As Long
    
15.   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    
16.   Private Declare Function PathFindExtension Lib "shlwapi.dll" Alias "PathFindExtensionW" (ByVal pszPath As Long) As Long
    
17.   Private Declare Function lStrLen Lib "kernel32.dll" Alias "lstrlenW" (ByVal lpString As Long) As Long
    
18.   Private Declare Sub CopyMemoryByPtr Lib "kernel32.dll" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
    
19. #End If
    
20. 
    
21. Private Type FileList
    
22.   FileName  As String
    
23.   ShortName As String
    
24. End Type
    
25. 
    
26. Private FileList() As FileList
    
27. Private ListCount  As Long
    
28. 
    
29. Public Sub Clean()
    
30.   ListCount = 0
    
31.   Erase FileList
    
32. End Sub
    
33. 
    
34. Public Property Get Item(ByVal Index As Long) As String
    
35.   If Index > 0 And Index <= ListCount Then
    
36.     Item = FileList(Index).FileName
    
37.   End If
    
38. End Property
    
39. 
    
40. Public Property Let Item(ByVal Index As Long, ByVal FileName As String)
    
41.   Dim I As Long
    
42.   If Index = ListCount + 1 Then
    
43.     ListCount = ListCount + 1
    
44.     ReDim Preserve FileList(1 To ListCount)
    
45.   End If
    
46.   If (Index > 0) And (Index <= ListCount) Then
    
47.     With FileList(Index)
    
48.       .FileName = FileName
    
49.       
    
50.       I = Len(FileName)
    
51.       If I > 0 Then
    
52.         .ShortName = GetShortPathName(FileName)
    
53.       Else
    
54.         .ShortName = vbNullString
    
55.       End If
    
56.     End With
    
57.   End If
    
58. End Property
    
59. 
    
60. Public Function ItemAdd(ByVal FileName As String) As Long
    
61.   Dim I As Long
    
62.   I = ListCount + 1
    
63.   Item(I) = FileName
    
64.   ItemAdd = I
    
65. End Function
    
66. 
    
67. Public Function ItemReMove(ByVal Index As Long) As Boolean
    
68.   If Index > 0 And Index <= ListCount Then
    
69.     With FileList(Index)
    
70.       .FileName = vbNullString
    
71.       .ShortName = vbNullString
    
72.     End With
    
73.   End If
    
74. End Function
    
75. 
    
76. Public Sub StartPlay()
    
77.   Dim I         As Long
    
78.   
    
79.   If waveOutGetNumDevs > 0 Then
    
80.     For I = 1 To ListCount Step 1
    
81.       With FileList(I)
    
82.         If Len(.ShortName) Then
    
83.           Select Case UCase$(ExtractFileExtension(.ShortName))
    
84.             Case ".WAV": mciSendString StrPtr("open " & .ShortName & " type waveaudio alias JofornMusic"), 0, 0, 0
    
85.             Case ".MDI": mciSendString StrPtr("open " & .ShortName & " type sequencer alias JofornMusic"), 0, 0, 0
    
86.             Case Else:   mciSendString StrPtr("open " & .ShortName & " alias JofornMusic"), 0, 0, 0
    
87.           End Select
    
88.           mciSendString StrPtr("play JofornMusic FROM 0"), 0&, 0, 0
    
89.           Do While Not IsEnd
    
90.             Sleep 50
    
91.             DoEvents
    
92.           Loop
    
93.           mciSendString StrPtr("close JofornMusic"), 0&, 0, 0
    
94.         End If
    
95.       End With
    
96.     Next I
    
97.   End If
    
98. End Sub
    
99. 
    
100. Private Function IsEnd() As Boolean
     
101.   Dim I         As Long
     
102.   Dim strStatus As String
     
103.   
     
104.   strStatus = String$(256, vbNullChar)
     
105.   mciSendString StrPtr("status JofornMusic mode"), StrPtr(strStatus), 256, 0
     
106.   I = InStr(strStatus, vbNullChar)
     
107.   If I > 1 Then
     
108.     IsEnd = UCase$(Left$(strStatus, I - 1)) = "STOPPED"
     
109.   Else
     
110.     IsEnd = True
     
111.   End If
     
112. End Function
     
113. 
     
114. '从¸ô径´£¨ú¤å¥ó¦Z缀¦W
     
115. Public Function ExtractFileExtension(ByVal strPath As String) As String
     
116.   #If VBA7 Then
     
117.     Dim ptrExt As LongPtr
     
118.   #Else
     
119.     Dim ptrExt As Long
     
120.   #End If
     
121.   Dim ExtLen As Long
     
122.   
     
123.   strPath = strPath & vbNullChar
     
124.   ptrExt = PathFindExtension(StrPtr(strPath))
     
125.   If ptrExt Then
     
126.     ExtLen = lStrLen(ptrExt)
     
127.     If ExtLen > 0 Then
     
128.       ExtractFileExtension = String(ExtLen, vbNullChar)
     
129.       CopyMemoryByPtr StrPtr(ExtractFileExtension), ptrExt, ExtLen * 2
     
130.     End If
     
131.   End If
     
132. End Function
     
133. 
     
134. Public Sub StopPlay()
     
135.   mciSendString StrPtr("close JofornMusic"), 0&, 0, 0
     
136. End Sub
     
137. 
     
138. Private Function GetShortPathName(ByVal FileName As String) As String
     
139.   Dim I       As Long
     
140.   Dim strTemp As String
     
141.   
     
142.   strTemp = Space$(256)
     
143.   I = GetShortPathNameW(StrPtr(FileName), StrPtr(strTemp), 256)
     
144.   If I > 0 Then GetShortPathName = Left$(strTemp, I)
     
145. End Function

½Æ»s¥N½X

±N­ì¦³ªº¥N½X­×§ï¬°¡G

1. Public Sub macro_test2()
   
2. 
   
3.     Dim Bk_A As String
   
4.     Bk_A = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
   
5.     '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
   
6.    
   
7.     Dim book_name As String
   
8.     Dim book_path As String
   
9.    
   
10.     book_name = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
    
11.     book_path = ThisWorkbook.Path
    
12.    
    
13.     Clear
    
14.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¦U¦ì®È«È±z¦n" & ".wav"
    
15.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_6ÂI" & ".wav"
    
16.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¤À50" & ".wav"
    
17.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¤À" & ".wav"
    
18.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¶}©¹" & ".wav"
    
19.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¥x¥_ªº" & ".wav"
    
20.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¨®¦¸5" & ".wav"
    
21.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¨®¦¸0" & ".wav"
    
22.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¨®¦¸0" & ".wav"
    
23.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¦¸" & ".wav"
    
24.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_°ªÅK" & ".wav"
    
25.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¥_¤W" & ".wav"
    
26.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_ªº¦C¨®§Y±N¶i¯¸½Ð«e©¹" & ".wav"
    
27.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_²Ä¤G¤ë¥x" & ".wav"
    
28.     ItemAdd ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_·f­¼¨Ã¯d·N¤ë¥x¶¡»ØÁÂÁÂ" & ".wav"
    
29.     StartPlay
    
30. End Sub

½Æ»s¥N½X

§¹¦¨¤W­±ªº¨â¨B¾Þ§@«á¹B¦æmacro_test2´ú¸Õ¡C

Joforn

ª`¡G¼Ó¤Wªº¥N½X¤£»Ý­nMediaPlayer±±¥ó¡C

Joforn

¦^´_  Joforn

½Ð°Ý¼½©ñ¥H«á¦p¦óÁ{®É¼È°±©Î¤¤Â_¼·©ñ
ML089 µoªí©ó 2016-1-22 20:04

1. Public Property Get Pause() As Boolean
   
2.   Dim I         As Long
   
3.   Dim strStatus As String
   
4.   
   
5.   strStatus = String$(256, vbNullChar)
   
6.   mciSendString StrPtr("status JofornMusic mode"), StrPtr(strStatus), 256, 0
   
7.   I = InStr(strStatus, vbNullChar)
   
8.   If I > 1 Then
   
9.     Debug.Print Left$(strStatus, I - 1)
   
10.     Pause = UCase$(Left$(strStatus, I - 1)) = "PAUSED"
    
11.   End If
    
12. End Property
    
13. 
    
14. Public Property Let Pause(ByVal Value As Boolean)
    
15.   If Value Xor Pause Then
    
16.     If Value Then
    
17.       mciSendString StrPtr("pause JofornMusic"), 0, 0, 0
    
18.     Else
    
19.       mciSendString StrPtr("resume JofornMusic"), 0, 0, 0
    
20.     End If
    
21.   End If
    
22. End Property

½Æ»s¥N½X

½Õ¥ÎPause=True´N¥i¥H¼È°±¡APause=FalseÄ~Äò¼½©ñ¡C

Joforn

mciSendString¨ç¼Æ¬O¥Î¨Ó¼½©ñ¦h´CÅé¤å¥óªºAPI«ü¥O¡A¥i¥H¼½©ñMPEG,AVI,WAV,MP3,µ¥µ¥¡A¨Ï¥Î¦¹API¨ç¼Æ¥i¥H³Ð«Ø¤@­Ó²©öªº¼½©ñ¾¹¡A¤U­±¤¶²Ð¥¦ªº¨Ï¥Î¤èªk¡G
¡@¡@¸Ó¨ç¼Æ¦³¥|­Ó°Ñ¼Æ¡G
²Ä¤@­Ó°Ñ¼Æ¡G­nµo°eªº©R¥O¦r²Å¦ê¡C¦r²Å¦êµ²ºc¬O:[©R¥O][³]³Æ§O¦W][©R¥O°Ñ¼Æ].
²Ä¤G­Ó°Ñ¼Æ¡Gªð¦^«H®§ªº½w½Ä°Ï,¬°¤@«ü©w¤F¤j¤pªº¦r²Å¦êÅܶq.
²Ä¤T­Ó°Ñ¼Æ¡G½w½Ä°Ïªº¤j¤p,´N¬O¦r²ÅÅܶqªºªø«×.
²Ä¥|­Ó°Ñ¼Æ¡G¦^½Õ¤è¦¡¡A¤@¯ë³]¬°¹s
ªð¦^­È¡G¨ç¼Æ°õ¦æ¦¨¥\ªð¦^¹s¡A§_«hªð¦^¿ù»~¥N½X

¤@¡B±`¥Î©R¥O
1.¥´¶}¡]Open¡^¡A®æ¦¡¡GOpen ³]³Æ¦W[type ³]³Æ«¬¦¡][alias §O¦W]
Dim mName as string
mName = "f:\mpeg\mpeg1.avi"
mciSendString "open " & mName & " type MPEGVideo Alias​​ JofornMusic parent %u Style %u notify",0&, 0, 0
¡@¨ä¤¤¡G
open ¾Þ§@©R¥O
mName ¥þ¸ô®|¤å¥ó¦W
type MPEGVideo ¬O«ü¥´¶}MPEG,AVIµ¥Ãþ«¬¡A¦pªG¤£¥[³o¤@¥y¡A´N¬O¥´¶}WAV,MP3µ¥
Alias​​ JofornMusic ©w¸q¤F¸Ó¾Þ§@ªº§O¦W¬°movie¡A«áÄò¾Þ§@¥u­n«ü©ú§O¦W§Y¥i
parent %u ·½
Style %u ¼Ë¦¡
notify ³qª¾
2.¼½©ñ¡]Play¡^¡A®æ¦¡¡GPlay ³]³Æ¦W[from °_ÂI][to ²×ÂI]
mciSendString "play JofornMusic", 0&, 0, 0
mciSendString "play JofornMusic fullscreen", 0&, 0, 0 '¥þ«Ì¼½©ñ
¡@¡@3.¼È°±¡]Pause¡^¡G
mciSendString "pause JofornMusic", 0&, 0, 0
¡@¡@4.Ä~Äò¡]Resume¡^¡G
mciSendString "resume JofornMusic", 0&, 0, 0
¡@¡@5.°±¤î¡]Stop¡^¡G
mciSendString "stop JofornMusic", 0&, 0, 0
¡@¡@6.​​Ãö³¬¡]Colse¡^¡G
mciSendString "close JofornMusic", 0&, 0, 0
¡@¡@7.«e¶i¨ì¤U¤@­Ó¦ì¸m¡G
mciSendString "step JofornMusic", 0&, 0, 0
¡@¡@8.«á°h¨ì¤W¤@­Ó¦ì¸m¡G
mciSendString "step JofornMusic reverse", 0&, 0, 0
9.«e¶i©Î«á°hN ­Ó¦ì¸m(¨ä¤¤N<0 §Yªí¥Ü«á°h)
mciSendString "step JofornMusic by " & str(N), 0&, 0, 0
¡@¡@10.Àò¨ú·í«e¼½©ñ¦ì¸m¡G
Dim ST As String*64
mciSendString "status JofornMusic position", st, len(st), 0
¡@¡@11. ​​Àò¨ú´CÅ骺Á`ªø«×¡G
mciSendString "status JofornMusic length", st, len(st), 0
l=val(st) 'l´N¬O©Ò¼½©ñ¤å¥óªºªø«×
¡@¡@12.Àò¨ú¼½©ñ·í«eª¬ºA¡G
Dim ST As String*64
mciSendString "status JofornMusic mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then (³B²z¥N½X) '¼½©ñ§¹²¦
¡@¡@13.´`Àô¼½©ñ¡G
mciSendString "play JofornMusic repeat", 0&, 0, 0

¤G¡B±±¨îÁn­µ¤j¤p(1-1000)¡G
Dim V As Long
mciSendString "status JofornMusic volume",&V, len(v), 0 'V¬OÀò¨úªº­µ¶q¤j¤p­È¡C
V = 50
mciSendString "setaudio JofornMusic volume to ¼Æ­È", 0, 0, 0 'V¬O³]¸mªº­µ¶q­È

¤T¡B³]¸m¼½©ñ¦ì¸m.(»Ý¨Æ¥ý³]©w®É¶¡®æ¦¡)¡A®æ¦¡¡GSeek ³]³Æ¦W[to ¦ì¸m| to start | to end]
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek JofornMusic to ", P1, 0, 0 'P1¬O·í«e°_©l¦ì¸m¡A³æ¦ì¡G²@¬í
mciSendString "seek JofornMusic to start", 0&, 0, 0 '©w¦ì¨ì¶}ÀY¦ì¸m
mciSendString "play JofornMusic", 0&, 0, 0 '©w¦ì«á¦A¼½©ñ
©ÎªÌ¡G
mciSendString "play JofornMusic FROM P1 to P2",0&, 0, 0 'P1¬O°_©l¦ì¸m¡AP2¬O°±¤î¦ì¸m¡C³æ¦ì¡G²@¬í
mciSendString "seek JofornMusic to end", 0&, 0, 0 '©w¦ì¨ì³Ì«á¦ì¸m

¥|¡B¦b«ü©w±±¥ó¤W¼½©ñµøÀW¡G
mciSendString "open AVI ¤å¥ó¦Wparent hWnd style child", 0&, 0, 0
¨ä¤¤¡AhWnd ¬O±±¥óªº¥y¬`
°õ¦æ¤W­z©R¥O¤§«á¡A¼v¤ù·|³Q©ñ¸m¦b±±¥óªº¥ª¤W¨¤¡A¥B¼v¤ùªº¤j¤p¤£¨ü±±¥ó¤j¤pªº¼vÅT¡A¦pªG·Q­n§ïÅÜ
¼v¤ù¼½©ñªº¦ì¸m¤Î¤j¤p¡A¥i¥H¦b°õ¦æplay «ü¥O«e¥ý°õ¦æput «ü¥O¡A®æ¦¡¦p¤U¡G
mcisendString "put AVI ¤å¥ó¦Wwindow at XY [Width Height]", 0&, 0, 0
¨ä¤¤¡GX¡BY¬°¼v¤ù¥ª¤W¨¤§¤¼Ð¡AWidth¡BHeight¬°¼v¤ùªº¼e°ª«×

¤­¡B¦pªG¼½©ñµøÀWÁÙ¥i±±¨î«G«×(1-2000)
Dim B As Long
mciSendString "status JofornMusic brightness", B, 0, 0 'B¬OÀò¨úªº«G«×­È¡C
B = 50
mciSendString "setvideo JofornMusic brightness to " & B, &0, 0, 0 'B¬O³]¸mªº«G«×­È

¤»¡B¿ý­µ³]¸m¡G
¡@¡@¿ý­µ«e¡A¥Î¥H¤U»y¥yªì©l¤Æ
¡@¡@1.³]¬°8¦ì¡G
mciSendString "set wave bitpersample 8", "", 0, 0
¡@¡@2.³]¬°11025Hz
mciSendString "set wave samplespersec 11025", "", 0, 0
¡@¡@3.³]¬°¥ßÅéÁn¡G
mciSendString "set wave channels 2", "", 0, 0
¡@¡@4.¹ê²{PCM®æ¦¡¡]¤£¤@©w¥¿½T¡^¡G
MCISENDSTRING "set wave format tag pcm","", 0, 0
¡@¡@5.¶}©l¿ý­µ¡G
mciSendString "close JofornMusic",0&,0,0
mciSendString "open new type WAVEAudio alias JofornMusic",0&,0,0
mciSendString "record JofornMusic",0&,0,0
¡@¡@6.​​«O¦s¿ý­µ¨ìc:\123.wav
mciSendString "stop JofornMusic",0&,0,0
mciSendString "save JofornMusic C:\123.wav",0&,0,0
mciSendString "close JofornMusic",0&,0,0

¤C¡B¶}Ãö¥úÅX¡G
mciSendString "set cdaudio door open", "", 0, 0 '¥´¶}
mciSendString "set cdaudio door close", "", 0, 0 'Ãö³¬

¤K¡B¨ä¥¦
¡@¡@1.³]¸m³]³Æªº¦UºØª¬ºA¡]Set¡^
Set alias_name[audio all off][audio all on][time format ms]:
Set©R¥O¥Î¨Ó³]¸m³]³Æªº¦UºØª¬ºA.¦p:ÀR­µ,¦³Án­µ,®É¶¡®æ¦¡¬°²@¬íµ¥.
¡@¡@2.¨ú±o³]³Æªºª¬ºA¡]Status¡^
Status alias_name[length][mode][position]:
Status©R¥O¥Î¨Ó¨ú±o³]³Æªºª¬ºA.¦p:¸Ó´CÅé¤å¥óªºªø«×,¸Ó´CÅé¤å¥ó©Ò³Bª¬ºA,¸Ó´CÅé¤å¥óªº·í«e¦ì¸mµ¥. ªºªø«×,¸Ó´CÅé¤å¥ó©Ò³Bª¬ºA,¸Ó
´CÅé¤å¥óªº·í«e¦ì¸mµ¥.
°Ñ¦Ò¥N½X¡G
TCHAR fileName[]="D:\­Íªº¤åÀÉ\my music\·Ý·Ýªwªº¯ù.mp3";
TCHAR shortName[MAX_PATH];
GetShortPathName(fileName,shortName,sizeof(shortName)/sizeof(TCHAR));
TCHAR cmd[MAX_PATH+10];
wsprintf(cmd,"play %s",shortName);
mciSendString(cmd,"",NULL,NULL);
¡]½Õ¥ÎmciSendString²Ä¤@­Ó°Ñ¼Æ¶Ç¡§play ¤å¥ó¥þ¸ô®|¡¨´N¥i¥H¡A¡§¤å¥ó¥þ¸ô®|¡¨³Ì¦n¶Çµ´¹ï¸ô®|¡A¤£«Øijwanghepeng10¨º¼Ë­È¶Ç»¼¤å¥ó¦W¡C
¥t¥~¦pªG¤å¥ó¥þ¸ô®|¤¤§t¦³ªÅ®æªº¸Ü­n¨Ï¥ÎGetShortPathNameÂà´«¦¨µu¸ô®|¡C ¡^

Joforn

¦^´_  Joforn
¦^´_  c_c_lai

·Q¤£¹D EXCEL °£­pºâ¥~¡AÁٯ༷©ñ­µ¼Ö¡A¦U¸ô­^¶¯ªº¿ãÅDµoªíÅýEXCEL¶V¨Ó¶V ...
ML089 µoªí©ó 2016-1-23 15:22

­n¥ý¦w¸Ë¬ÛÃöªº¸Ñ½X¾¹¡A¤£¹L¥»¤H¨S¦³¨ãÅé´ú¸Õ¹L¡A§A¥i¥H¦Û¤v´ú¸Õ¤U¡A¦ý­nª`·Nªº¬O½Õ¥Î®É«ü©w¦n¥Î¨ÓÅã¥Üµe­±ªºµ¡Åé¥y¬`¡C