思い出広場検索板メニュー
長谷川亮太掲示板

愛知大学のプリンス・福井舜也くんスレ

1000 レス
全レス表示先頭末尾1 / 1000
dat原文
2だれとは言わんが2014/12/10(水) 04:37:50ID:rUMKvy2k 1/1
https://twitter.com/masahiro8x2/status/273106242703065089 まさ　@masahiro8x2 高校2年生のとき、福井舜也君が数学でカンニングがバレて一生懸命書いた反省文を僕が取り上げ、 校舎内を逃げ回った挙げ句臼井達哉先生に見つかり先生をカチキレさせてごめんなさい。 1:49 - 2012年11月27日
X · 投稿プレビュー元のページを開く ↗
Xを読み込みます
4だれとは言わんが[sage]2014/12/19(金) 01:33:34ID:4P0KubZw 1/9
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()>
5だれとは言わんが[sage]2014/12/19(金) 01:34:27ID:4P0KubZw 2/9
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()>
6だれとは言わんが[sage]2014/12/19(金) 01:35:13ID:4P0KubZw 3/9
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()>
7だれとは言わんが[sage]2014/12/19(金) 01:35:59ID:4P0KubZw 4/9
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()>
8だれとは言わんが[sage]2014/12/19(金) 01:36:46ID:4P0KubZw 5/9
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()>
9だれとは言わんが[sage]2014/12/19(金) 01:37:32ID:4P0KubZw 6/9
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()>
10だれとは言わんが[sage]2014/12/19(金) 01:38:18ID:4P0KubZw 7/9
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()>
11だれとは言わんが[sage]2014/12/19(金) 01:39:04ID:4P0KubZw 8/9
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()>
12だれとは言わんが[sage]2014/12/19(金) 01:39:50ID:4P0KubZw 9/9
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()>
13だれとは言わんが[sage]2014/12/19(金) 01:40:36ID:nhZBf3OM 1/5
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()>
14だれとは言わんが[sage]2014/12/19(金) 01:41:23ID:KNondbbo 1/4
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()>
15だれとは言わんが[sage]2014/12/19(金) 01:42:09ID:KNondbbo 2/4
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()>
16だれとは言わんが[sage]2014/12/19(金) 01:42:55ID:KNondbbo 3/4
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()>
17だれとは言わんが[sage]2014/12/19(金) 01:43:42ID:KNondbbo 4/4
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()>
18だれとは言わんが[sage]2014/12/19(金) 01:44:28ID:3UFS/j5A 1/3
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()>
19だれとは言わんが[sage]2014/12/19(金) 01:45:14ID:Y.ExPnxQ 1/3
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()>
20だれとは言わんが[sage]2014/12/19(金) 01:46:00ID:k5aNHWXM 1/6
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()>
21だれとは言わんが[sage]2014/12/19(金) 01:46:46ID:8Cdmy0M. 1/11
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()>
22だれとは言わんが[sage]2014/12/19(金) 01:47:32ID:8Cdmy0M. 2/11
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()>
23だれとは言わんが[sage]2014/12/19(金) 01:48:18ID:8Cdmy0M. 3/11
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()>
24だれとは言わんが[sage]2014/12/19(金) 01:49:04ID:8Cdmy0M. 4/11
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()>
25だれとは言わんが[sage]2014/12/19(金) 01:49:50ID:8Cdmy0M. 5/11
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()>
26だれとは言わんが[sage]2014/12/19(金) 01:50:36ID:8Cdmy0M. 6/11
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()>
27だれとは言わんが[sage]2014/12/19(金) 01:51:22ID:8Cdmy0M. 7/11
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()>
28だれとは言わんが[sage]2014/12/19(金) 01:52:08ID:Jh5BIQKo 1/2
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()>
29だれとは言わんが[sage]2014/12/19(金) 01:53:04ID:xYzCPahI 1/2
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()>
30だれとは言わんが[sage]2014/12/19(金) 01:53:50ID:oBPMmH0Q 1/3
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()>
31だれとは言わんが[sage]2014/12/19(金) 01:54:36ID:R3X/NAUg 1/4
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()>
32だれとは言わんが[sage]2014/12/19(金) 01:55:22ID:svI00g36 1/2
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()>
34だれとは言わんが[sage]2014/12/19(金) 01:56:09ID:eofEFtfI 1/6
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()>
35だれとは言わんが[sage]2014/12/19(金) 01:56:55ID:x7.qhllI 1/2
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()>
36だれとは言わんが[sage]2014/12/19(金) 01:57:41ID:n/OqqdB2 1/38
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()>
37だれとは言わんが2014/12/19(金) 01:57:55ID:Hko9yEgU 2/2
さらに修正 ご尊顔 http://pbs.twimg.com/media/BLUTgBQCMAIKDKh.jpg 貴重な著書 http://i.imgur.com/65hLBop.jpg https://archive.is/GVdGT/e06f219ae6335bb970a0626d3562629e0964f6a4.jpg 行動圏(実家近辺？) http://i.imgur.com/2QXISKT.jpg A　ローソン岐阜三丁目　岐阜県岐阜市長住町3‐1‐1 B　福井君のバイト先？　岐阜県岐阜市徹明通1-15 このコピペの魚拓 https://archive.today/DbMv6
38だれとは言わんが[sage]2014/12/19(金) 01:58:27ID:TnPbTFpw 1/13
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()>
39だれとは言わんが[sage]2014/12/19(金) 01:59:13ID:TnPbTFpw 2/13
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()>
40だれとは言わんが[sage]2014/12/19(金) 01:59:59ID:TnPbTFpw 3/13
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()>
41だれとは言わんが[sage]2014/12/19(金) 02:00:46ID:TnPbTFpw 4/13
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()>
42だれとは言わんが[sage]2014/12/19(金) 02:01:32ID:TnPbTFpw 5/13
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()>
43だれとは言わんが[sage]2014/12/19(金) 02:02:18ID:TnPbTFpw 6/13
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()>
44だれとは言わんが[sage]2014/12/19(金) 02:03:04ID:TnPbTFpw 7/13
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()>
45だれとは言わんが[sage]2014/12/19(金) 02:03:50ID:TnPbTFpw 8/13
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()>
46だれとは言わんが[sage]2014/12/19(金) 02:04:36ID:/lJJ0XXk 1/3
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()>
47だれとは言わんが[sage]2014/12/19(金) 02:05:22ID:dnB6eWP6 1/5
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()>
48だれとは言わんが[sage]2014/12/19(金) 02:06:08ID:XPKve9BA 1/4
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()>
49だれとは言わんが[sage]2014/12/19(金) 02:06:54ID:nhZBf3OM 2/5
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()>
50だれとは言わんが[sage]2014/12/19(金) 02:07:40ID:n/OqqdB2 2/38
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()>
51だれとは言わんが[sage]2014/12/19(金) 02:08:26ID:lvJMDDzQ 1/3
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()>
52だれとは言わんが[sage]2014/12/19(金) 02:09:12ID:R2q/eq3g 1/4
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()>
53だれとは言わんが[sage]2014/12/19(金) 02:09:58ID:TnPbTFpw 9/13
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()>
54だれとは言わんが[sage]2014/12/19(金) 02:10:44ID:TnPbTFpw 10/13
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()>
55だれとは言わんが[sage]2014/12/19(金) 02:11:30ID:TnPbTFpw 11/13
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()>
56だれとは言わんが[sage]2014/12/19(金) 02:12:16ID:c9FYraX2 1/2
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()>
57だれとは言わんが[sage]2014/12/19(金) 02:13:03ID:DsyBwVbY 1/1
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()>
58だれとは言わんが[sage]2014/12/19(金) 02:13:49ID:txlgAGW6 1/3
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()>
59だれとは言わんが[sage]2014/12/19(金) 02:14:35ID:TXIDRxPo 1/3
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()>
60だれとは言わんが[sage]2014/12/19(金) 02:15:21ID:ckq3q.T. 1/1
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()>
61だれとは言わんが[sage]2014/12/19(金) 02:16:07ID:AXbtELUg 1/63
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()>
62だれとは言わんが[sage]2014/12/19(金) 02:16:53ID:nryMQX/2 1/2
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()>
63だれとは言わんが[sage]2014/12/19(金) 02:17:39ID:aN9rFXPY 1/1
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()>
64だれとは言わんが[sage]2014/12/19(金) 02:18:25ID:VI7hcv0E 1/6
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()>
65だれとは言わんが[sage]2014/12/19(金) 02:19:11ID:YXvJZjaA 1/2
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()>
66だれとは言わんが[sage]2014/12/19(金) 02:19:57ID:tgUJ4FcQ 1/2
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()>
67だれとは言わんが[sage]2014/12/19(金) 02:20:53ID:Hx8mZHRQ 1/2
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()>
68だれとは言わんが[sage]2014/12/19(金) 02:21:39ID:eofEFtfI 2/6
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()>
69だれとは言わんが[sage]2014/12/19(金) 02:22:25ID:/D0mA/n6 1/12
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()>
70だれとは言わんが[sage]2014/12/19(金) 02:23:11ID:/D0mA/n6 2/12
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()>
71だれとは言わんが[sage]2014/12/19(金) 02:23:57ID:/D0mA/n6 3/12
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()>
72だれとは言わんが[sage]2014/12/19(金) 02:24:43ID:/D0mA/n6 4/12
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()>
73だれとは言わんが[sage]2014/12/19(金) 02:25:29ID:/D0mA/n6 5/12
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()>
74だれとは言わんが[sage]2014/12/19(金) 02:26:15ID:/D0mA/n6 6/12
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()>
75だれとは言わんが[sage]2014/12/19(金) 02:27:02ID:/D0mA/n6 7/12
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()>
76だれとは言わんが[sage]2014/12/19(金) 02:27:48ID:/D0mA/n6 8/12
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()>
77だれとは言わんが[sage]2014/12/19(金) 02:28:34ID:/D0mA/n6 9/12
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()>
78だれとは言わんが[sage]2014/12/19(金) 02:29:20ID:/D0mA/n6 10/12
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()>
79だれとは言わんが[sage]2014/12/19(金) 02:30:06ID:31P0P/5o 1/8
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()>
80だれとは言わんが[sage]2014/12/19(金) 02:30:52ID:mNS0/GzE 1/3
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()>
81だれとは言わんが[sage]2014/12/19(金) 02:31:38ID:F6/qnyCU 1/5
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()>
82だれとは言わんが[sage]2014/12/19(金) 02:32:24ID:5Oozud4w 1/3
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()>
83だれとは言わんが[sage]2014/12/19(金) 02:33:10ID:QRWf7hNY 1/4
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()>
84だれとは言わんが[sage]2014/12/19(金) 02:33:56ID:vCo9WvF6 1/1
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()>
85だれとは言わんが[sage]2014/12/19(金) 02:34:42ID:31P0P/5o 2/8
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()>
86だれとは言わんが[sage]2014/12/19(金) 02:35:28ID:31P0P/5o 3/8
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()>
87だれとは言わんが[sage]2014/12/19(金) 02:36:14ID:31P0P/5o 4/8
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()>
88だれとは言わんが[sage]2014/12/19(金) 02:37:00ID:31P0P/5o 5/8
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()>
89だれとは言わんが[sage]2014/12/19(金) 02:38:01ID:31P0P/5o 6/8
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()>
90だれとは言わんが[sage]2014/12/19(金) 02:38:47ID:31P0P/5o 7/8
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()>
91だれとは言わんが[sage]2014/12/19(金) 02:39:33ID:31P0P/5o 8/8
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()>
92だれとは言わんが[sage]2014/12/19(金) 02:40:19ID:Y61Tjr5c 1/3
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()>
93だれとは言わんが[sage]2014/12/19(金) 02:41:05ID:zT6VnIaU 1/1
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()>
94だれとは言わんが[sage]2014/12/19(金) 02:41:51ID:QA.bE5VM 1/2
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()>
95だれとは言わんが[sage]2014/12/19(金) 02:42:37ID:yLwOzTQM 1/7
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()>
96だれとは言わんが[sage]2014/12/19(金) 02:43:23ID:vcnmhNTI 1/2
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()>
97だれとは言わんが[sage]2014/12/19(金) 02:44:09ID:20gQnnE2 1/3
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()>
98だれとは言わんが[sage]2014/12/19(金) 02:44:55ID:fANmpfYs 1/1
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()>
99だれとは言わんが[sage]2014/12/19(金) 02:45:42ID:dnB6eWP6 2/5
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()>
100だれとは言わんが[sage]2014/12/19(金) 02:46:28ID:60sJeRRk 1/8
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()>
101だれとは言わんが[sage]2014/12/19(金) 02:47:14ID:60sJeRRk 2/8
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()>
102だれとは言わんが[sage]2014/12/19(金) 02:48:00ID:60sJeRRk 3/8
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()>
103だれとは言わんが[sage]2014/12/19(金) 02:48:46ID:60sJeRRk 4/8
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()>
104だれとは言わんが[sage]2014/12/19(金) 02:49:32ID:60sJeRRk 5/8
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()>
105だれとは言わんが[sage]2014/12/19(金) 02:50:18ID:60sJeRRk 6/8
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()>
106だれとは言わんが[sage]2014/12/19(金) 02:51:04ID:60sJeRRk 7/8
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()>
107だれとは言わんが[sage]2014/12/19(金) 02:51:50ID:ntVh42AU 1/10
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()>
108だれとは言わんが[sage]2014/12/19(金) 02:52:36ID:566MfgOs 1/3
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()>
109だれとは言わんが[sage]2014/12/19(金) 02:53:22ID:U1SBt3YU 1/4
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()>
110だれとは言わんが[sage]2014/12/19(金) 02:54:08ID:oDDchVdE 1/3
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()>
111だれとは言わんが[sage]2014/12/19(金) 02:54:54ID:ydLkLaiY 1/2
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()>
112だれとは言わんが[sage]2014/12/19(金) 02:55:40ID:O/StDUj. 1/1
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()>
113だれとは言わんが[sage]2014/12/19(金) 02:56:26ID:9J4Ki542 1/2
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()>
114だれとは言わんが[sage]2014/12/19(金) 02:57:12ID:CBk3dE4o 1/3
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()>
115だれとは言わんが[sage]2014/12/19(金) 02:57:58ID:kuLOZ4u6 1/3
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()>
116だれとは言わんが[sage]2014/12/19(金) 02:58:44ID:z4LilrCQ 1/16
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()>
117だれとは言わんが[sage]2014/12/19(金) 02:59:30ID:z4LilrCQ 2/16
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()>
118だれとは言わんが[sage]2014/12/19(金) 03:00:16ID:z4LilrCQ 3/16
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()>
119だれとは言わんが[sage]2014/12/19(金) 03:01:03ID:z4LilrCQ 4/16
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()>
120だれとは言わんが[sage]2014/12/19(金) 03:01:49ID:z4LilrCQ 5/16
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()>
121だれとは言わんが[sage]2014/12/19(金) 03:02:35ID:z4LilrCQ 6/16
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()>
122だれとは言わんが[sage]2014/12/19(金) 03:03:21ID:z4LilrCQ 7/16
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()>
123だれとは言わんが[sage]2014/12/19(金) 03:04:07ID:9INC0eCg 1/3
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()>
124だれとは言わんが[sage]2014/12/19(金) 03:04:53ID:PRxjxmDA 1/3
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()>
125だれとは言わんが[sage]2014/12/19(金) 03:05:39ID:nEboNomk 1/2
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()>
126だれとは言わんが[sage]2014/12/19(金) 03:06:25ID:QKDk97F6 1/4
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()>
127だれとは言わんが[sage]2014/12/19(金) 03:07:11ID:RKau3ZRI 1/1
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()>
128だれとは言わんが[sage]2014/12/19(金) 03:07:57ID:vWqe7Nto 1/4
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()>
129だれとは言わんが[sage]2014/12/19(金) 03:08:43ID:vWqe7Nto 2/4
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()>
130だれとは言わんが[sage]2014/12/19(金) 03:09:29ID:vWqe7Nto 3/4
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()>
131だれとは言わんが[sage]2014/12/19(金) 03:10:15ID:9J4Ki542 2/2
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()>
132だれとは言わんが[sage]2014/12/19(金) 03:11:01ID:VI7hcv0E 2/6
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()>
133だれとは言わんが[sage]2014/12/19(金) 03:11:47ID:Wqu7wXzg 1/4
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()>
134だれとは言わんが[sage]2014/12/19(金) 03:12:33ID:1uGnHREU 1/6
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()>
135だれとは言わんが[sage]2014/12/19(金) 03:13:19ID:xspKw..Q 1/1
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()>
136だれとは言わんが[sage]2014/12/19(金) 03:14:05ID:20gQnnE2 2/3
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()>
137だれとは言わんが[sage]2014/12/19(金) 03:14:51ID:UBIFz2MM 1/32
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()>
138だれとは言わんが[sage]2014/12/19(金) 03:15:37ID:iUvWHFHg 1/2
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()>
139だれとは言わんが[sage]2014/12/19(金) 03:16:23ID:dnB6eWP6 3/5
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()>
140だれとは言わんが[sage]2014/12/19(金) 03:17:09ID:GuCyniE. 1/6
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()>
141だれとは言わんが[sage]2014/12/19(金) 03:17:56ID:swLBNLoU 1/1
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()>
142だれとは言わんが[sage]2014/12/19(金) 03:18:42ID:Q/du60aM 1/5
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()>
143だれとは言わんが[sage]2014/12/19(金) 03:19:28ID:NOvu8LMI 1/3
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()>
144だれとは言わんが[sage]2014/12/19(金) 03:20:14ID:PRxjxmDA 2/3
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()>
145だれとは言わんが[sage]2014/12/19(金) 03:21:00ID:eZtoH06A 1/2
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()>
146だれとは言わんが[sage]2014/12/19(金) 03:21:46ID:VybaR6fA 1/2
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()>
147だれとは言わんが[sage]2014/12/19(金) 03:22:32ID:ntVh42AU 2/10
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()>
148だれとは言わんが[sage]2014/12/19(金) 03:23:18ID:ntVh42AU 3/10
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()>
149だれとは言わんが[sage]2014/12/19(金) 03:24:04ID:ntVh42AU 4/10
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()>
150だれとは言わんが[sage]2014/12/19(金) 03:24:50ID:ntVh42AU 5/10
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()>
151だれとは言わんが[sage]2014/12/19(金) 03:25:36ID:ntVh42AU 6/10
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()>
152だれとは言わんが[sage]2014/12/19(金) 03:26:22ID:ntVh42AU 7/10
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()>
153だれとは言わんが[sage]2014/12/19(金) 03:27:08ID:ntVh42AU 8/10
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()>
154だれとは言わんが[sage]2014/12/19(金) 03:27:54ID:ntVh42AU 9/10
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()>
155だれとは言わんが[sage]2014/12/19(金) 03:28:40ID:txlgAGW6 2/3
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()>
156だれとは言わんが[sage]2014/12/19(金) 03:29:26ID:j6uw/5Tc 1/1
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()>
157だれとは言わんが[sage]2014/12/19(金) 03:30:12ID:/lJJ0XXk 2/3
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()>
158だれとは言わんが[sage]2014/12/19(金) 03:30:58ID:TcRAiii2 1/3
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()>
159だれとは言わんが[sage]2014/12/19(金) 03:31:44ID:GuCyniE. 2/6
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()>
160だれとは言わんが[sage]2014/12/19(金) 03:32:30ID:Jk6ZYKMU 1/14
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()>
161だれとは言わんが[sage]2014/12/19(金) 03:33:17ID:Jk6ZYKMU 2/14
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()>
162だれとは言わんが[sage]2014/12/19(金) 03:34:03ID:Jk6ZYKMU 3/14
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()>
163だれとは言わんが[sage]2014/12/19(金) 03:34:49ID:Jk6ZYKMU 4/14
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()>
164だれとは言わんが[sage]2014/12/19(金) 03:35:35ID:Jk6ZYKMU 5/14
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()>
165だれとは言わんが[sage]2014/12/19(金) 03:36:21ID:Jk6ZYKMU 6/14
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()>
166だれとは言わんが[sage]2014/12/19(金) 03:37:07ID:Jk6ZYKMU 7/14
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()>
167だれとは言わんが[sage]2014/12/19(金) 03:37:53ID:Jk6ZYKMU 8/14
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()>
168だれとは言わんが[sage]2014/12/19(金) 03:38:39ID:Jk6ZYKMU 9/14
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()>
169だれとは言わんが[sage]2014/12/19(金) 03:39:25ID:Jk6ZYKMU 10/14
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()>
170だれとは言わんが[sage]2014/12/19(金) 03:40:11ID:68rveaZ6 1/2
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()>
171だれとは言わんが[sage]2014/12/19(金) 03:40:57ID:muMry3Sk 1/2
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()>
172だれとは言わんが[sage]2014/12/19(金) 03:41:43ID:g3YwtNyI 1/2
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()>
173だれとは言わんが[sage]2014/12/19(金) 03:42:39ID:ABd93etA 1/5
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()>
174だれとは言わんが[sage]2014/12/19(金) 03:43:25ID:ABd93etA 2/5
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()>
175だれとは言わんが[sage]2014/12/19(金) 03:44:11ID:s4PTrd2A 1/1
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()>
176だれとは言わんが[sage]2014/12/19(金) 03:44:57ID:dnB6eWP6 4/5
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()>
177だれとは言わんが[sage]2014/12/19(金) 03:45:43ID:Gygbr0Co 1/3
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()>
178だれとは言わんが[sage]2014/12/19(金) 03:46:29ID:z4LilrCQ 8/16
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()>
179だれとは言わんが[sage]2014/12/19(金) 03:47:15ID:z4LilrCQ 9/16
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()>
180だれとは言わんが[sage]2014/12/19(金) 03:48:01ID:z4LilrCQ 10/16
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()>
181だれとは言わんが[sage]2014/12/19(金) 03:48:47ID:z4LilrCQ 11/16
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()>
182だれとは言わんが[sage]2014/12/19(金) 03:49:33ID:z4LilrCQ 12/16
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()>
183だれとは言わんが[sage]2014/12/19(金) 03:50:19ID:z4LilrCQ 13/16
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()>
184だれとは言わんが[sage]2014/12/19(金) 03:51:06ID:z4LilrCQ 14/16
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()>
185だれとは言わんが[sage]2014/12/19(金) 03:51:52ID:z4LilrCQ 15/16
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()>
186だれとは言わんが[sage]2014/12/19(金) 03:52:38ID:HzxhA9Qg 1/3
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()>
187だれとは言わんが[sage]2014/12/19(金) 03:53:33ID:qPN4haI. 1/2
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()>
188だれとは言わんが[sage]2014/12/19(金) 03:54:19ID:/D0mA/n6 11/12
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()>
189だれとは言わんが[sage]2014/12/19(金) 03:55:05ID:98WNQhsQ 1/2
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()>
190だれとは言わんが[sage]2014/12/19(金) 03:55:51ID:pYX1isUI 1/3
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()>
191だれとは言わんが[sage]2014/12/19(金) 03:56:37ID:TybL9GtM 1/3
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()>
192だれとは言わんが[sage]2014/12/19(金) 03:57:23ID:RSj0AwcM 1/1
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()>
193だれとは言わんが[sage]2014/12/19(金) 03:58:09ID:1soY/3Sg 1/2
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()>
194だれとは言わんが[sage]2014/12/19(金) 03:58:55ID:FlX6m/lU 1/10
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()>
195だれとは言わんが[sage]2014/12/19(金) 03:59:41ID:FlX6m/lU 2/10
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()>
196だれとは言わんが[sage]2014/12/19(金) 04:00:27ID:FlX6m/lU 3/10
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()>
197だれとは言わんが[sage]2014/12/19(金) 04:01:14ID:FlX6m/lU 4/10
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()>
198だれとは言わんが[sage]2014/12/19(金) 04:02:00ID:FlX6m/lU 5/10
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()>
199だれとは言わんが[sage]2014/12/19(金) 04:02:47ID:FlX6m/lU 6/10
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()>
200だれとは言わんが[sage]2014/12/19(金) 04:03:33ID:FlX6m/lU 7/10
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()>
201だれとは言わんが[sage]2014/12/19(金) 04:04:19ID:QRWf7hNY 2/4
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()>
202だれとは言わんが[sage]2014/12/19(金) 04:05:05ID:TnPbTFpw 12/13
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()>
203だれとは言わんが[sage]2014/12/19(金) 04:05:51ID:fG3oNv9Y 1/3
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()>
204だれとは言わんが[sage]2014/12/19(金) 04:06:37ID:cFIIx9rg 1/1
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()>
205だれとは言わんが[sage]2014/12/19(金) 04:07:23ID:0NdVTpNY 1/4
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()>
206だれとは言わんが[sage]2014/12/19(金) 04:08:09ID:AEumxkWQ 1/2
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()>
207だれとは言わんが[sage]2014/12/19(金) 04:08:55ID:FlX6m/lU 8/10
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()>
208だれとは言わんが[sage]2014/12/19(金) 04:09:41ID:RwixXfII 1/1
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()>
209だれとは言わんが[sage]2014/12/19(金) 04:10:27ID:vJG2afDU 1/3
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()>
210だれとは言わんが[sage]2014/12/19(金) 04:11:13ID:2nzzQ4K6 1/4
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()>
211だれとは言わんが[sage]2014/12/19(金) 04:11:59ID:eJNH9ix6 1/1
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()>
212だれとは言わんが[sage]2014/12/19(金) 04:12:45ID:txlgAGW6 3/3
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()>
213だれとは言わんが[sage]2014/12/19(金) 04:13:31ID:DFLA3LIc 1/1
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()>
214だれとは言わんが[sage]2014/12/19(金) 04:14:17ID:VF5Wai8g 1/1
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()>
215だれとは言わんが[sage]2014/12/19(金) 04:15:03ID:RSFo11gQ 1/3
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()>
216だれとは言わんが[sage]2014/12/19(金) 04:15:49ID:1uGnHREU 2/6
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()>
217だれとは言わんが[sage]2014/12/19(金) 04:16:35ID:9INC0eCg 2/3
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()>
218だれとは言わんが[sage]2014/12/19(金) 04:17:22ID:AEumxkWQ 2/2
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()>
219だれとは言わんが[sage]2014/12/19(金) 04:18:08ID:NJlzaQdM 1/2
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()>
220だれとは言わんが[sage]2014/12/19(金) 04:18:54ID:X2RgFE6A 1/1
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()>
221だれとは言わんが[sage]2014/12/19(金) 04:19:40ID:nryMQX/2 2/2
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()>
222だれとは言わんが[sage]2014/12/19(金) 04:20:26ID:83aPCJPg 1/1
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()>
223だれとは言わんが[sage]2014/12/19(金) 04:21:12ID:z4LilrCQ 16/16
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()>
224だれとは言わんが[sage]2014/12/19(金) 04:21:58ID:ntVh42AU 10/10
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()>
225だれとは言わんが[sage]2014/12/19(金) 04:22:44ID:kMYBLk4c 1/9
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()>
226だれとは言わんが[sage]2014/12/19(金) 04:23:30ID:kMYBLk4c 2/9
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()>
227だれとは言わんが[sage]2014/12/19(金) 04:24:16ID:kMYBLk4c 3/9
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()>
228だれとは言わんが[sage]2014/12/19(金) 04:25:02ID:kMYBLk4c 4/9
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()>
229だれとは言わんが[sage]2014/12/19(金) 04:25:48ID:kMYBLk4c 5/9
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()>
230だれとは言わんが[sage]2014/12/19(金) 04:26:34ID:kMYBLk4c 6/9
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()>
231だれとは言わんが[sage]2014/12/19(金) 04:27:20ID:kMYBLk4c 7/9
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()>
232だれとは言わんが[sage]2014/12/19(金) 04:28:06ID:q/C5lsYQ 1/1
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()>
233だれとは言わんが[sage]2014/12/19(金) 04:28:52ID:vfjXoN8M 1/2
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()>
234だれとは言わんが[sage]2014/12/19(金) 04:29:38ID:R2q/eq3g 2/4
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()>
235だれとは言わんが[sage]2014/12/19(金) 04:30:24ID:rzJ1C88I 1/3
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()>
236だれとは言わんが[sage]2014/12/19(金) 04:31:10ID:mrtFPxuQ 1/3
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()>
237だれとは言わんが[sage]2014/12/19(金) 04:31:56ID:JzIpWdlA 1/3
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()>
238だれとは言わんが[sage]2014/12/19(金) 04:32:42ID:7k2iZ8SU 1/3
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()>
239だれとは言わんが[sage]2014/12/19(金) 04:33:29ID:9q10yGIc 1/3
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()>
240だれとは言わんが[sage]2014/12/19(金) 04:34:15ID:7DrC.paI 1/32
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()>
241だれとは言わんが[sage]2014/12/19(金) 04:35:01ID:7DrC.paI 2/32
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()>
242だれとは言わんが[sage]2014/12/19(金) 04:35:47ID:7DrC.paI 3/32
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()>
243だれとは言わんが[sage]2014/12/19(金) 04:36:33ID:7DrC.paI 4/32
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()>
244だれとは言わんが[sage]2014/12/19(金) 04:37:19ID:7DrC.paI 5/32
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()>
245だれとは言わんが[sage]2014/12/19(金) 04:38:05ID:7DrC.paI 6/32
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()>
246だれとは言わんが[sage]2014/12/19(金) 04:38:34ID:7DrC.paI 7/32
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()>
247だれとは言わんが[sage]2014/12/19(金) 04:38:45ID:7DrC.paI 8/32
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()>
248だれとは言わんが[sage]2014/12/19(金) 04:38:56ID:7DrC.paI 9/32
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()>
249だれとは言わんが[sage]2014/12/19(金) 04:39:07ID:7DrC.paI 10/32
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()>
250だれとは言わんが[sage]2014/12/19(金) 04:39:18ID:7DrC.paI 11/32
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()>
251だれとは言わんが[sage]2014/12/19(金) 04:39:29ID:7DrC.paI 12/32
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()>
252だれとは言わんが[sage]2014/12/19(金) 04:39:40ID:7DrC.paI 13/32
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()>
253だれとは言わんが[sage]2014/12/19(金) 04:39:51ID:7DrC.paI 14/32
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()>
254だれとは言わんが[sage]2014/12/19(金) 04:40:02ID:7DrC.paI 15/32
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()>
255だれとは言わんが[sage]2014/12/19(金) 04:40:13ID:7DrC.paI 16/32
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()>
256だれとは言わんが[sage]2014/12/19(金) 04:40:24ID:7DrC.paI 17/32
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()>
257だれとは言わんが[sage]2014/12/19(金) 04:40:35ID:7DrC.paI 18/32
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()>
258だれとは言わんが[sage]2014/12/19(金) 04:40:46ID:7DrC.paI 19/32
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()>
259だれとは言わんが[sage]2014/12/19(金) 04:40:57ID:7DrC.paI 20/32
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()>
260だれとは言わんが[sage]2014/12/19(金) 04:41:08ID:7DrC.paI 21/32
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()>
261だれとは言わんが[sage]2014/12/19(金) 04:41:19ID:7DrC.paI 22/32
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()>
262だれとは言わんが[sage]2014/12/19(金) 04:41:30ID:7DrC.paI 23/32
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()>
263だれとは言わんが[sage]2014/12/19(金) 04:41:41ID:7DrC.paI 24/32
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()>
264だれとは言わんが[sage]2014/12/19(金) 04:41:52ID:7DrC.paI 25/32
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()>
265だれとは言わんが[sage]2014/12/19(金) 04:42:03ID:7DrC.paI 26/32
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()>
266だれとは言わんが[sage]2014/12/19(金) 04:42:14ID:7DrC.paI 27/32
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()>
267だれとは言わんが[sage]2014/12/19(金) 04:42:25ID:7DrC.paI 28/32
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()>
268だれとは言わんが[sage]2014/12/19(金) 04:42:36ID:7DrC.paI 29/32
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()>
269だれとは言わんが[sage]2014/12/19(金) 04:42:48ID:7DrC.paI 30/32
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()>
270だれとは言わんが[sage]2014/12/19(金) 04:42:59ID:7DrC.paI 31/32
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()>
271だれとは言わんが[sage]2014/12/19(金) 04:43:10ID:5Oozud4w 2/3
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()>
272だれとは言わんが[sage]2014/12/19(金) 04:43:21ID:yLwOzTQM 2/7
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()>
273だれとは言わんが[sage]2014/12/19(金) 04:43:32ID:JFUDqgp. 1/3
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()>
274だれとは言わんが[sage]2014/12/19(金) 04:43:43ID:xYzCPahI 2/2
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()>
275だれとは言わんが[sage]2014/12/19(金) 04:43:54ID:vPmpwOzw 1/2
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()>
276だれとは言わんが[sage]2014/12/19(金) 04:44:05ID:eZtoH06A 2/2
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()>
277だれとは言わんが[sage]2014/12/19(金) 04:44:16ID:Q/du60aM 2/5
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()>
278だれとは言わんが[sage]2014/12/19(金) 04:44:27ID:ck4Bdx9c 1/4
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()>
279だれとは言わんが[sage]2014/12/19(金) 04:44:38ID:F6/qnyCU 2/5
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()>
280だれとは言わんが[sage]2014/12/19(金) 04:44:49ID:oBPMmH0Q 2/3
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()>
281だれとは言わんが[sage]2014/12/19(金) 04:45:00ID:4.UpdZoo 1/2
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()>
282だれとは言わんが[sage]2014/12/19(金) 04:45:11ID:kBppfzHU 1/1
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()>
283だれとは言わんが[sage]2014/12/19(金) 04:45:22ID:F90Ew3Bk 1/1
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()>
284だれとは言わんが[sage]2014/12/19(金) 04:45:33ID:Y/vH.BsM 1/1
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()>
285だれとは言わんが[sage]2014/12/19(金) 04:45:44ID:TnPbTFpw 13/13
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()>
286だれとは言わんが[sage]2014/12/19(金) 04:45:55ID:6EnQOrAo 1/2
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()>
287だれとは言わんが[sage]2014/12/19(金) 04:46:06ID:U1SBt3YU 2/4
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()>
288だれとは言わんが[sage]2014/12/19(金) 04:46:17ID:UBIFz2MM 2/32
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()>
289だれとは言わんが[sage]2014/12/19(金) 04:46:28ID:UBIFz2MM 3/32
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()>
290だれとは言わんが[sage]2014/12/19(金) 04:46:39ID:UBIFz2MM 4/32
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()>
291だれとは言わんが[sage]2014/12/19(金) 04:46:50ID:UBIFz2MM 5/32
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()>
292だれとは言わんが[sage]2014/12/19(金) 04:47:01ID:UBIFz2MM 6/32
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()>
293だれとは言わんが[sage]2014/12/19(金) 04:47:12ID:UBIFz2MM 7/32
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()>
294だれとは言わんが[sage]2014/12/19(金) 04:47:23ID:UBIFz2MM 8/32
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()>
295だれとは言わんが[sage]2014/12/19(金) 04:47:34ID:UBIFz2MM 9/32
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()>
296だれとは言わんが[sage]2014/12/19(金) 04:47:45ID:UBIFz2MM 10/32
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()>
297だれとは言わんが[sage]2014/12/19(金) 04:47:56ID:UBIFz2MM 11/32
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()>
298だれとは言わんが[sage]2014/12/19(金) 04:48:07ID:UBIFz2MM 12/32
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()>
299だれとは言わんが[sage]2014/12/19(金) 04:48:18ID:UBIFz2MM 13/32
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()>
300だれとは言わんが[sage]2014/12/19(金) 04:48:29ID:UBIFz2MM 14/32
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()>
301だれとは言わんが[sage]2014/12/19(金) 04:48:40ID:UBIFz2MM 15/32
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()>
302だれとは言わんが[sage]2014/12/19(金) 04:48:51ID:UBIFz2MM 16/32
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()>
303だれとは言わんが[sage]2014/12/19(金) 04:49:02ID:UBIFz2MM 17/32
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()>
304だれとは言わんが[sage]2014/12/19(金) 04:49:13ID:UBIFz2MM 18/32
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()>
305だれとは言わんが[sage]2014/12/19(金) 04:49:24ID:UBIFz2MM 19/32
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()>
306だれとは言わんが[sage]2014/12/19(金) 04:49:35ID:UBIFz2MM 20/32
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()>
307だれとは言わんが[sage]2014/12/19(金) 04:49:46ID:UBIFz2MM 21/32
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()>
308だれとは言わんが[sage]2014/12/19(金) 04:49:57ID:UBIFz2MM 22/32
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()>
309だれとは言わんが[sage]2014/12/19(金) 04:50:08ID:UBIFz2MM 23/32
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()>
310だれとは言わんが[sage]2014/12/19(金) 04:50:19ID:UBIFz2MM 24/32
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()>
311だれとは言わんが[sage]2014/12/19(金) 04:50:30ID:UBIFz2MM 25/32
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()>
312だれとは言わんが[sage]2014/12/19(金) 04:50:41ID:UBIFz2MM 26/32
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()>
313だれとは言わんが[sage]2014/12/19(金) 04:50:52ID:UBIFz2MM 27/32
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()>
314だれとは言わんが[sage]2014/12/19(金) 04:51:03ID:UBIFz2MM 28/32
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()>
315だれとは言わんが[sage]2014/12/19(金) 04:51:14ID:UBIFz2MM 29/32
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()>
316だれとは言わんが[sage]2014/12/19(金) 04:51:25ID:UBIFz2MM 30/32
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()>
317だれとは言わんが[sage]2014/12/19(金) 04:51:36ID:YHZpeDTs 1/3
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()>
318だれとは言わんが[sage]2014/12/19(金) 04:51:47ID:qPN4haI. 2/2
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()>
319だれとは言わんが[sage]2014/12/19(金) 04:51:58ID:R3X/NAUg 2/4
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()>
320だれとは言わんが[sage]2014/12/19(金) 04:52:09ID:iUvWHFHg 2/2
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()>
321だれとは言わんが[sage]2014/12/19(金) 04:52:20ID:v.6HURi2 1/1
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()>
322だれとは言わんが[sage]2014/12/19(金) 04:52:31ID:1uGnHREU 3/6
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()>
323だれとは言わんが[sage]2014/12/19(金) 04:52:42ID:YTMyTQW. 1/1
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()>
324だれとは言わんが[sage]2014/12/19(金) 04:52:53ID:Wqu7wXzg 2/4
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()>
325だれとは言わんが[sage]2014/12/19(金) 04:53:04ID:dnB6eWP6 5/5
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()>
326だれとは言わんが[sage]2014/12/19(金) 04:53:15ID:JdbS6LgY 1/3
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()>
327だれとは言わんが[sage]2014/12/19(金) 04:53:26ID:ABd93etA 3/5
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()>
328だれとは言わんが[sage]2014/12/19(金) 04:53:37ID:QkR0GOaY 1/3
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()>
329だれとは言わんが[sage]2014/12/19(金) 04:53:48ID:/zKKwj4U 1/2
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()>
330だれとは言わんが[sage]2014/12/19(金) 04:53:59ID:ZFeLAlBA 1/2
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()>
331だれとは言わんが[sage]2014/12/19(金) 04:54:11ID:Zi4YrDeM 1/1
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()>
332だれとは言わんが[sage]2014/12/19(金) 04:54:23ID:OAZaScL. 1/2
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()>
333だれとは言わんが[sage]2014/12/19(金) 04:54:34ID:F6/qnyCU 3/5
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()>
334だれとは言わんが[sage]2014/12/19(金) 04:54:45ID:K5mhFJMc 1/2
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()>
335だれとは言わんが[sage]2014/12/19(金) 04:54:56ID:QKDk97F6 2/4
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()>
336だれとは言わんが[sage]2014/12/19(金) 04:55:07ID:QKDk97F6 3/4
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()>
337だれとは言わんが[sage]2014/12/19(金) 04:55:18ID:svI00g36 2/2
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()>
338だれとは言わんが[sage]2014/12/19(金) 04:55:29ID:C4fAYOPo 1/40
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()>
339だれとは言わんが[sage]2014/12/19(金) 04:55:40ID:VXLe80ec 1/2
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()>
340だれとは言わんが[sage]2014/12/19(金) 04:55:51ID:T5X5l9ZU 1/2
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()>
341だれとは言わんが[sage]2014/12/19(金) 04:56:02ID:XPKve9BA 2/4
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()>
342だれとは言わんが[sage]2014/12/19(金) 04:56:13ID:VI7hcv0E 3/6
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()>
343だれとは言わんが[sage]2014/12/19(金) 04:56:24ID:mdZuqS/6 1/1
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()>
344だれとは言わんが[sage]2014/12/19(金) 04:56:35ID:TybL9GtM 2/3
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()>
345だれとは言わんが[sage]2014/12/19(金) 04:56:46ID:NP.tzSvQ 1/1
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()>
346だれとは言わんが[sage]2014/12/19(金) 04:56:57ID:2kEGyQQU 1/4
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()>
347だれとは言わんが[sage]2014/12/19(金) 04:57:08ID:FlX6m/lU 9/10
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()>
348だれとは言わんが[sage]2014/12/19(金) 04:57:19ID:vPmpwOzw 2/2
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()>
349だれとは言わんが[sage]2014/12/19(金) 04:57:30ID:3UFS/j5A 2/3
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()>
350だれとは言わんが[sage]2014/12/19(金) 04:57:41ID:8tdPOOTM 1/29
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()>
351だれとは言わんが[sage]2014/12/19(金) 04:57:52ID:DT4FAI0w 1/2
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()>
352だれとは言わんが[sage]2014/12/19(金) 04:58:03ID:vJG2afDU 2/3
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()>
353だれとは言わんが[sage]2014/12/19(金) 04:58:14ID:AXbtELUg 2/63
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()>
354だれとは言わんが[sage]2014/12/19(金) 04:58:25ID:AXbtELUg 3/63
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()>
355だれとは言わんが[sage]2014/12/19(金) 04:58:36ID:AXbtELUg 4/63
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()>
356だれとは言わんが[sage]2014/12/19(金) 04:58:47ID:AXbtELUg 5/63
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()>
357だれとは言わんが[sage]2014/12/19(金) 04:58:58ID:AXbtELUg 6/63
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()>
358だれとは言わんが[sage]2014/12/19(金) 04:59:09ID:AXbtELUg 7/63
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()>
359だれとは言わんが[sage]2014/12/19(金) 04:59:20ID:AXbtELUg 8/63
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()>
360だれとは言わんが[sage]2014/12/19(金) 04:59:31ID:AXbtELUg 9/63
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()>
361だれとは言わんが[sage]2014/12/19(金) 04:59:42ID:AXbtELUg 10/63
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()>
362だれとは言わんが[sage]2014/12/19(金) 04:59:53ID:AXbtELUg 11/63
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()>
363だれとは言わんが[sage]2014/12/19(金) 05:00:04ID:AXbtELUg 12/63
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()>
364だれとは言わんが[sage]2014/12/19(金) 05:00:15ID:AXbtELUg 13/63
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()>
365だれとは言わんが[sage]2014/12/19(金) 05:00:26ID:AXbtELUg 14/63
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()>
366だれとは言わんが[sage]2014/12/19(金) 05:00:37ID:AXbtELUg 15/63
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()>
367だれとは言わんが[sage]2014/12/19(金) 05:00:48ID:AXbtELUg 16/63
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()>
368だれとは言わんが[sage]2014/12/19(金) 05:00:59ID:AXbtELUg 17/63
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()>
369だれとは言わんが[sage]2014/12/19(金) 05:01:10ID:AXbtELUg 18/63
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()>
370だれとは言わんが[sage]2014/12/19(金) 05:01:21ID:AXbtELUg 19/63
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()>
371だれとは言わんが[sage]2014/12/19(金) 05:01:32ID:AXbtELUg 20/63
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()>
372だれとは言わんが[sage]2014/12/19(金) 05:01:43ID:AXbtELUg 21/63
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()>
373だれとは言わんが[sage]2014/12/19(金) 05:01:54ID:AXbtELUg 22/63
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()>
374だれとは言わんが[sage]2014/12/19(金) 05:02:05ID:AXbtELUg 23/63
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()>
375だれとは言わんが[sage]2014/12/19(金) 05:02:16ID:AXbtELUg 24/63
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()>
376だれとは言わんが[sage]2014/12/19(金) 05:02:27ID:AXbtELUg 25/63
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()>
377だれとは言わんが[sage]2014/12/19(金) 05:02:38ID:AXbtELUg 26/63
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()>
378だれとは言わんが[sage]2014/12/19(金) 05:02:49ID:AXbtELUg 27/63
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()>
379だれとは言わんが[sage]2014/12/19(金) 05:03:00ID:AXbtELUg 28/63
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()>
380だれとは言わんが[sage]2014/12/19(金) 05:03:11ID:AXbtELUg 29/63
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()>
381だれとは言わんが[sage]2014/12/19(金) 05:03:22ID:AXbtELUg 30/63
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()>
382だれとは言わんが[sage]2014/12/19(金) 05:03:33ID:AXbtELUg 31/63
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()>
383だれとは言わんが[sage]2014/12/19(金) 05:03:44ID:GuCyniE. 3/6
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()>
384だれとは言わんが[sage]2014/12/19(金) 05:03:55ID:jj.nx3N. 1/2
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()>
385だれとは言わんが[sage]2014/12/19(金) 05:04:06ID:2nzzQ4K6 2/4
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()>
386だれとは言わんが[sage]2014/12/19(金) 05:04:17ID:MenXbZxs 1/2
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()>
387だれとは言わんが[sage]2014/12/19(金) 05:04:28ID:VI7hcv0E 4/6
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()>
388だれとは言わんが[sage]2014/12/19(金) 05:04:39ID:/G83mPYo 1/2
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()>
389だれとは言わんが[sage]2014/12/19(金) 05:04:50ID:Wqu7wXzg 3/4
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()>
390だれとは言わんが[sage]2014/12/19(金) 05:05:01ID:BHXX5ToY 1/3
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()>
391だれとは言わんが[sage]2014/12/19(金) 05:05:12ID:k5aNHWXM 2/6
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()>
392だれとは言わんが[sage]2014/12/19(金) 05:05:23ID:Gygbr0Co 2/3
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()>
393だれとは言わんが[sage]2014/12/19(金) 05:05:34ID:8Cdmy0M. 8/11
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()>
394だれとは言わんが[sage]2014/12/19(金) 05:05:45ID:PI4cs9NI 1/2
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()>
395だれとは言わんが[sage]2014/12/19(金) 05:06:06ID:8Cdmy0M. 9/11
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()>
396だれとは言わんが[sage]2014/12/19(金) 05:06:17ID:mhJVdynQ 1/1
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()>
397だれとは言わんが[sage]2014/12/19(金) 05:06:28ID:a9H1iEsM 1/1
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()>
398だれとは言わんが[sage]2014/12/19(金) 05:06:39ID:rxAU2Cp. 1/1
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()>
399だれとは言わんが[sage]2014/12/19(金) 05:06:50ID:ck4Bdx9c 2/4
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()>
400だれとは言わんが[sage]2014/12/19(金) 05:07:01ID:mrtFPxuQ 2/3
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()>
401だれとは言わんが[sage]2014/12/19(金) 05:07:12ID:TcRAiii2 2/3
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()>
402だれとは言わんが[sage]2014/12/19(金) 05:07:23ID:3qSWIUwo 1/2
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()>
403だれとは言わんが[sage]2014/12/19(金) 05:07:34ID:HzxhA9Qg 2/3
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()>
404だれとは言わんが[sage]2014/12/19(金) 05:07:45ID:pixt43RA 1/2
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()>
405だれとは言わんが[sage]2014/12/19(金) 05:07:56ID:kuLOZ4u6 2/3
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()>
406だれとは言わんが[sage]2014/12/19(金) 05:08:07ID:C4fAYOPo 2/40
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()>
407だれとは言わんが[sage]2014/12/19(金) 05:08:18ID:C4fAYOPo 3/40
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()>
408だれとは言わんが[sage]2014/12/19(金) 05:08:29ID:C4fAYOPo 4/40
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()>
409だれとは言わんが[sage]2014/12/19(金) 05:08:40ID:C4fAYOPo 5/40
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()>
410だれとは言わんが[sage]2014/12/19(金) 05:08:51ID:C4fAYOPo 6/40
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()>
411だれとは言わんが[sage]2014/12/19(金) 05:09:02ID:C4fAYOPo 7/40
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()>
412だれとは言わんが[sage]2014/12/19(金) 05:09:13ID:C4fAYOPo 8/40
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()>
413だれとは言わんが[sage]2014/12/19(金) 05:09:24ID:C4fAYOPo 9/40
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()>
414だれとは言わんが[sage]2014/12/19(金) 05:09:35ID:C4fAYOPo 10/40
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()>
415だれとは言わんが[sage]2014/12/19(金) 05:09:46ID:C4fAYOPo 11/40
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()>
416だれとは言わんが[sage]2014/12/19(金) 05:09:57ID:C4fAYOPo 12/40
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()>
417だれとは言わんが[sage]2014/12/19(金) 05:10:08ID:C4fAYOPo 13/40
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()>
418だれとは言わんが[sage]2014/12/19(金) 05:10:19ID:C4fAYOPo 14/40
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()>
419だれとは言わんが[sage]2014/12/19(金) 05:10:30ID:C4fAYOPo 15/40
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()>
420だれとは言わんが[sage]2014/12/19(金) 05:10:41ID:C4fAYOPo 16/40
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()>
421だれとは言わんが[sage]2014/12/19(金) 05:10:52ID:C4fAYOPo 17/40
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()>
422だれとは言わんが[sage]2014/12/19(金) 05:11:03ID:C4fAYOPo 18/40
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()>
423だれとは言わんが[sage]2014/12/19(金) 05:11:14ID:C4fAYOPo 19/40
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()>
424だれとは言わんが[sage]2014/12/19(金) 05:11:25ID:C4fAYOPo 20/40
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()>
425だれとは言わんが[sage]2014/12/19(金) 05:11:36ID:C4fAYOPo 21/40
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()>
426だれとは言わんが[sage]2014/12/19(金) 05:11:47ID:C4fAYOPo 22/40
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()>
427だれとは言わんが[sage]2014/12/19(金) 05:11:58ID:C4fAYOPo 23/40
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()>
428だれとは言わんが[sage]2014/12/19(金) 05:12:09ID:C4fAYOPo 24/40
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()>
429だれとは言わんが[sage]2014/12/19(金) 05:12:20ID:C4fAYOPo 25/40
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()>
430だれとは言わんが[sage]2014/12/19(金) 05:12:31ID:C4fAYOPo 26/40
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()>
431だれとは言わんが[sage]2014/12/19(金) 05:12:42ID:C4fAYOPo 27/40
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()>
432だれとは言わんが[sage]2014/12/19(金) 05:12:53ID:C4fAYOPo 28/40
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()>
433だれとは言わんが[sage]2014/12/19(金) 05:13:04ID:C4fAYOPo 29/40
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()>
434だれとは言わんが[sage]2014/12/19(金) 05:13:15ID:C4fAYOPo 30/40
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()>
435だれとは言わんが[sage]2014/12/19(金) 05:13:26ID:C4fAYOPo 31/40
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()>
436だれとは言わんが[sage]2014/12/19(金) 05:13:38ID:C4fAYOPo 32/40
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()>
437だれとは言わんが[sage]2014/12/19(金) 05:13:49ID:C4fAYOPo 33/40
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()>
438だれとは言わんが[sage]2014/12/19(金) 05:14:00ID:C4fAYOPo 34/40
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()>
439だれとは言わんが[sage]2014/12/19(金) 05:14:11ID:C4fAYOPo 35/40
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()>
440だれとは言わんが[sage]2014/12/19(金) 05:14:22ID:C4fAYOPo 36/40
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()>
441だれとは言わんが[sage]2014/12/19(金) 05:14:33ID:C4fAYOPo 37/40
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()>
442だれとは言わんが[sage]2014/12/19(金) 05:14:44ID:C4fAYOPo 38/40
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()>
443だれとは言わんが[sage]2014/12/19(金) 05:14:55ID:C4fAYOPo 39/40
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()>
444だれとは言わんが[sage]2014/12/19(金) 05:15:06ID:C4fAYOPo 40/40
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()>
445だれとは言わんが[sage]2014/12/19(金) 05:15:17ID:mNS0/GzE 2/3
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()>
446だれとは言わんが[sage]2014/12/19(金) 05:15:28ID:HyV0ms4w 1/1
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()>
447だれとは言わんが[sage]2014/12/19(金) 05:15:39ID:W2F4M45M 1/2
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()>
448だれとは言わんが[sage]2014/12/19(金) 05:15:50ID:AXbtELUg 32/63
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()>
449だれとは言わんが[sage]2014/12/19(金) 05:16:01ID:unpw0Y4s 1/1
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()>
450だれとは言わんが[sage]2014/12/19(金) 05:16:12ID:mNS0/GzE 3/3
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()>
451だれとは言わんが[sage]2014/12/19(金) 05:16:23ID:LTbYXCBQ 1/2
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()>
452だれとは言わんが[sage]2014/12/19(金) 05:16:34ID:/G83mPYo 2/2
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()>
453だれとは言わんが[sage]2014/12/19(金) 05:16:45ID:R3X/NAUg 3/4
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()>
454だれとは言わんが[sage]2014/12/19(金) 05:16:56ID:zS4GM/a. 1/2
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()>
455だれとは言わんが[sage]2014/12/19(金) 05:17:07ID:GuCyniE. 4/6
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()>
456だれとは言わんが[sage]2014/12/19(金) 05:17:18ID:n/OqqdB2 3/38
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()>
457だれとは言わんが[sage]2014/12/19(金) 05:17:29ID:jmMW4236 1/3
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()>
458だれとは言わんが[sage]2014/12/19(金) 05:17:40ID:JbxSmhio 1/2
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()>
459だれとは言わんが[sage]2014/12/19(金) 05:17:51ID:rzJ1C88I 2/3
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()>
460だれとは言わんが[sage]2014/12/19(金) 05:18:02ID:OKHr79Ek 1/1
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()>
461だれとは言わんが[sage]2014/12/19(金) 05:18:13ID:8tPtHSeE 1/2
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()>
462だれとは言わんが[sage]2014/12/19(金) 05:18:24ID:3qSWIUwo 2/2
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()>
463だれとは言わんが[sage]2014/12/19(金) 05:18:35ID:ib262hyg 1/1
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()>
464だれとは言わんが[sage]2014/12/19(金) 05:18:46ID:7DrC.paI 32/32
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()>
465だれとは言わんが[sage]2014/12/19(金) 05:18:57ID:DG/T2hUA 1/1
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()>
466だれとは言わんが[sage]2014/12/19(金) 05:19:08ID:pnSkaDtM 1/2
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()>
467だれとは言わんが[sage]2014/12/19(金) 05:19:19ID:TXIDRxPo 2/3
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()>
468だれとは言わんが[sage]2014/12/19(金) 05:19:30ID:QkR0GOaY 2/3
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()>
469だれとは言わんが[sage]2014/12/19(金) 05:19:41ID:6EnQOrAo 2/2
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()>
470だれとは言わんが[sage]2014/12/19(金) 05:19:52ID:AXbtELUg 33/63
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()>
471だれとは言わんが[sage]2014/12/19(金) 05:20:03ID:FlX6m/lU 10/10
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()>
472だれとは言わんが[sage]2014/12/19(金) 05:20:14ID:U1SBt3YU 3/4
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()>
473だれとは言わんが[sage]2014/12/19(金) 05:20:25ID:.f2AK4I. 1/1
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()>
474だれとは言わんが[sage]2014/12/19(金) 05:20:36ID:Jh5BIQKo 2/2
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()>
475だれとは言わんが[sage]2014/12/19(金) 05:20:47ID:QnrASOLc 1/1
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()>
476だれとは言わんが[sage]2014/12/19(金) 05:20:58ID:lvJMDDzQ 2/3
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()>
477だれとは言わんが[sage]2014/12/19(金) 05:21:09ID:4wXHj6Uc 1/2
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()>
478だれとは言わんが[sage]2014/12/19(金) 05:21:20ID:jmMW4236 2/3
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()>
479だれとは言わんが[sage]2014/12/19(金) 05:21:31ID:GuCyniE. 5/6
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()>
480だれとは言わんが[sage]2014/12/19(金) 05:21:42ID:fo0BEifQ 1/2
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()>
481だれとは言わんが[sage]2014/12/19(金) 05:21:53ID:ZaFLHprk 1/34
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()>
482だれとは言わんが[sage]2014/12/19(金) 05:22:04ID:CBk3dE4o 2/3
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()>
483だれとは言わんが[sage]2014/12/19(金) 05:22:15ID:uiJW201Y 1/34
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()>
484だれとは言わんが[sage]2014/12/19(金) 05:22:26ID:uiJW201Y 2/34
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()>
485だれとは言わんが[sage]2014/12/19(金) 05:22:37ID:uiJW201Y 3/34
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()>
486だれとは言わんが[sage]2014/12/19(金) 05:22:48ID:uiJW201Y 4/34
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()>
487だれとは言わんが[sage]2014/12/19(金) 05:22:59ID:uiJW201Y 5/34
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()>
488だれとは言わんが[sage]2014/12/19(金) 05:23:10ID:uiJW201Y 6/34
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()>
489だれとは言わんが[sage]2014/12/19(金) 05:23:21ID:uiJW201Y 7/34
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()>
490だれとは言わんが[sage]2014/12/19(金) 05:23:32ID:uiJW201Y 8/34
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()>
491だれとは言わんが[sage]2014/12/19(金) 05:23:43ID:uiJW201Y 9/34
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()>
492だれとは言わんが[sage]2014/12/19(金) 05:23:54ID:uiJW201Y 10/34
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()>
493だれとは言わんが[sage]2014/12/19(金) 05:24:05ID:uiJW201Y 11/34
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()>
494だれとは言わんが[sage]2014/12/19(金) 05:24:16ID:uiJW201Y 12/34
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()>
495だれとは言わんが[sage]2014/12/19(金) 05:24:27ID:uiJW201Y 13/34
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()>
496だれとは言わんが[sage]2014/12/19(金) 05:24:38ID:uiJW201Y 14/34
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()>
497だれとは言わんが[sage]2014/12/19(金) 05:24:49ID:uiJW201Y 15/34
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()>
498だれとは言わんが[sage]2014/12/19(金) 05:25:00ID:uiJW201Y 16/34
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()>
499だれとは言わんが[sage]2014/12/19(金) 05:25:11ID:uiJW201Y 17/34
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()>
500だれとは言わんが[sage]2014/12/19(金) 05:25:22ID:uiJW201Y 18/34
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()>
501だれとは言わんが[sage]2014/12/19(金) 05:25:33ID:uiJW201Y 19/34
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()>
502だれとは言わんが[sage]2014/12/19(金) 05:25:44ID:uiJW201Y 20/34
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()>
503だれとは言わんが[sage]2014/12/19(金) 05:25:55ID:uiJW201Y 21/34
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()>
504だれとは言わんが[sage]2014/12/19(金) 05:26:06ID:uiJW201Y 22/34
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()>
505だれとは言わんが[sage]2014/12/19(金) 05:26:17ID:uiJW201Y 23/34
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()>
506だれとは言わんが[sage]2014/12/19(金) 05:26:28ID:uiJW201Y 24/34
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()>
507だれとは言わんが[sage]2014/12/19(金) 05:26:40ID:uiJW201Y 25/34
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()>
508だれとは言わんが[sage]2014/12/19(金) 05:26:51ID:uiJW201Y 26/34
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()>
509だれとは言わんが[sage]2014/12/19(金) 05:27:02ID:uiJW201Y 27/34
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()>
510だれとは言わんが[sage]2014/12/19(金) 05:27:13ID:uiJW201Y 28/34
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()>
511だれとは言わんが[sage]2014/12/19(金) 05:27:24ID:uiJW201Y 29/34
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()>
512だれとは言わんが[sage]2014/12/19(金) 05:27:35ID:uiJW201Y 30/34
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()>
513だれとは言わんが[sage]2014/12/19(金) 05:27:46ID:uiJW201Y 31/34
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()>
514だれとは言わんが[sage]2014/12/19(金) 05:27:57ID:uiJW201Y 32/34
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()>
515だれとは言わんが[sage]2014/12/19(金) 05:28:08ID:uiJW201Y 33/34
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()>
516だれとは言わんが[sage]2014/12/19(金) 05:28:19ID:/lJJ0XXk 3/3
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()>
517だれとは言わんが[sage]2014/12/19(金) 05:28:30ID:.tGMzXek 1/38
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()>
518だれとは言わんが[sage]2014/12/19(金) 05:28:41ID:ck4Bdx9c 3/4
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()>
519だれとは言わんが[sage]2014/12/19(金) 05:28:52ID:60sJeRRk 8/8
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()>
520だれとは言わんが[sage]2014/12/19(金) 05:29:03ID:.tGMzXek 2/38
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()>
521だれとは言わんが[sage]2014/12/19(金) 05:29:14ID:ydLkLaiY 2/2
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()>
522だれとは言わんが[sage]2014/12/19(金) 05:29:25ID:nhZBf3OM 3/5
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()>
523だれとは言わんが[sage]2014/12/19(金) 05:29:36ID:8tPtHSeE 2/2
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()>
524だれとは言わんが[sage]2014/12/19(金) 05:29:47ID:UBIFz2MM 31/32
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()>
525だれとは言わんが[sage]2014/12/19(金) 05:29:58ID:98WNQhsQ 2/2
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()>
526だれとは言わんが[sage]2014/12/19(金) 05:30:09ID:PRxjxmDA 3/3
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()>
527だれとは言わんが[sage]2014/12/19(金) 05:30:21ID:2mOtve.s 1/3
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()>
528だれとは言わんが[sage]2014/12/19(金) 05:30:32ID:JFUDqgp. 2/3
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()>
529だれとは言わんが[sage]2014/12/19(金) 05:30:43ID:TcRAiii2 3/3
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()>
530だれとは言わんが[sage]2014/12/19(金) 05:30:54ID:aEGpVHp. 1/3
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()>
531だれとは言わんが[sage]2014/12/19(金) 05:31:05ID:g3YwtNyI 2/2
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()>
532だれとは言わんが[sage]2014/12/19(金) 05:31:16ID:lvJMDDzQ 3/3
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()>
533だれとは言わんが[sage]2014/12/19(金) 05:31:27ID:pYX1isUI 2/3
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()>
534だれとは言わんが[sage]2014/12/19(金) 05:31:38ID:Q/du60aM 3/5
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()>
535だれとは言わんが[sage]2014/12/19(金) 05:31:49ID:zLV4Ce1s 1/2
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()>
536だれとは言わんが[sage]2014/12/19(金) 05:32:00ID:W2F4M45M 2/2
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()>
537だれとは言わんが[sage]2014/12/19(金) 05:32:11ID:9INC0eCg 3/3
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()>
538だれとは言わんが[sage]2014/12/19(金) 05:32:22ID:tgUJ4FcQ 2/2
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()>
539だれとは言わんが[sage]2014/12/19(金) 05:32:33ID:2nzzQ4K6 3/4
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()>
540だれとは言わんが[sage]2014/12/19(金) 05:32:44ID:ZODnB94k 1/1
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()>
541だれとは言わんが[sage]2014/12/19(金) 05:32:55ID:0SaANb2Q 1/2
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()>
542だれとは言わんが[sage]2014/12/19(金) 05:33:06ID:muMry3Sk 2/2
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()>
543だれとは言わんが[sage]2014/12/19(金) 05:33:17ID:qHhE9boY 1/1
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()>
544だれとは言わんが[sage]2014/12/19(金) 05:33:28ID:.tGMzXek 3/38
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()>
545だれとは言わんが[sage]2014/12/19(金) 05:33:39ID:.tGMzXek 4/38
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()>
546だれとは言わんが[sage]2014/12/19(金) 05:33:50ID:.tGMzXek 5/38
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()>
547だれとは言わんが[sage]2014/12/19(金) 05:34:01ID:.tGMzXek 6/38
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()>
548だれとは言わんが[sage]2014/12/19(金) 05:34:15ID:.tGMzXek 7/38
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()>
549だれとは言わんが[sage]2014/12/19(金) 05:34:26ID:.tGMzXek 8/38
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()>
550だれとは言わんが[sage]2014/12/19(金) 05:34:37ID:.tGMzXek 9/38
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()>
551だれとは言わんが[sage]2014/12/19(金) 05:34:48ID:.tGMzXek 10/38
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()>
552だれとは言わんが[sage]2014/12/19(金) 05:34:59ID:.tGMzXek 11/38
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()>
553だれとは言わんが[sage]2014/12/19(金) 05:35:10ID:.tGMzXek 12/38
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()>
554だれとは言わんが[sage]2014/12/19(金) 05:35:21ID:.tGMzXek 13/38
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()>
555だれとは言わんが[sage]2014/12/19(金) 05:35:32ID:.tGMzXek 14/38
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()>
556だれとは言わんが[sage]2014/12/19(金) 05:35:43ID:.tGMzXek 15/38
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()>
557だれとは言わんが[sage]2014/12/19(金) 05:35:54ID:.tGMzXek 16/38
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()>
558だれとは言わんが[sage]2014/12/19(金) 05:36:05ID:.tGMzXek 17/38
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()>
559だれとは言わんが[sage]2014/12/19(金) 05:36:16ID:.tGMzXek 18/38
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()>
560だれとは言わんが[sage]2014/12/19(金) 05:36:27ID:.tGMzXek 19/38
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()>
561だれとは言わんが[sage]2014/12/19(金) 05:36:38ID:.tGMzXek 20/38
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()>
562だれとは言わんが[sage]2014/12/19(金) 05:36:49ID:.tGMzXek 21/38
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()>
563だれとは言わんが[sage]2014/12/19(金) 05:37:00ID:.tGMzXek 22/38
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()>
564だれとは言わんが[sage]2014/12/19(金) 05:37:11ID:.tGMzXek 23/38
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()>
565だれとは言わんが[sage]2014/12/19(金) 05:37:22ID:.tGMzXek 24/38
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()>
566だれとは言わんが[sage]2014/12/19(金) 05:37:33ID:.tGMzXek 25/38
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()>
567だれとは言わんが[sage]2014/12/19(金) 05:37:44ID:.tGMzXek 26/38
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()>
568だれとは言わんが[sage]2014/12/19(金) 05:37:55ID:.tGMzXek 27/38
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()>
569だれとは言わんが[sage]2014/12/19(金) 05:38:06ID:.tGMzXek 28/38
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()>
570だれとは言わんが[sage]2014/12/19(金) 05:38:17ID:.tGMzXek 29/38
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()>
571だれとは言わんが[sage]2014/12/19(金) 05:38:29ID:.tGMzXek 30/38
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()>
572だれとは言わんが[sage]2014/12/19(金) 05:38:39ID:.tGMzXek 31/38
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()>
573だれとは言わんが[sage]2014/12/19(金) 05:38:51ID:.tGMzXek 32/38
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()>
574だれとは言わんが[sage]2014/12/19(金) 05:39:02ID:.tGMzXek 33/38
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()>
575だれとは言わんが[sage]2014/12/19(金) 05:39:13ID:.tGMzXek 34/38
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()>
576だれとは言わんが[sage]2014/12/19(金) 05:39:24ID:.tGMzXek 35/38
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()>
577だれとは言わんが[sage]2014/12/19(金) 05:39:35ID:.tGMzXek 36/38
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()>
578だれとは言わんが[sage]2014/12/19(金) 05:39:46ID:.tGMzXek 37/38
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()>
579だれとは言わんが[sage]2014/12/19(金) 05:39:57ID:.tGMzXek 38/38
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()>
580だれとは言わんが[sage]2014/12/19(金) 05:40:08ID:QRWf7hNY 3/4
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()>
581だれとは言わんが[sage]2014/12/19(金) 05:40:19ID:ENxYUetU 1/2
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()>
582だれとは言わんが[sage]2014/12/19(金) 05:40:30ID:Jk6ZYKMU 11/14
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()>
583だれとは言わんが[sage]2014/12/19(金) 05:40:41ID:NOvu8LMI 2/3
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()>
584だれとは言わんが[sage]2014/12/19(金) 05:40:52ID:1soY/3Sg 2/2
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()>
585だれとは言わんが[sage]2014/12/19(金) 05:41:03ID:yT3BxDKA 1/1
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()>
586だれとは言わんが[sage]2014/12/19(金) 05:41:14ID:QKDk97F6 4/4
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()>
587だれとは言わんが[sage]2014/12/19(金) 05:41:25ID:G2poh0UE 1/1
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()>
588だれとは言わんが[sage]2014/12/19(金) 05:41:36ID:P4qdhhbI 1/3
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()>
589だれとは言わんが[sage]2014/12/19(金) 05:41:47ID:Q/du60aM 4/5
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()>
590だれとは言わんが[sage]2014/12/19(金) 05:41:58ID:2kEGyQQU 2/4
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()>
591だれとは言わんが[sage]2014/12/19(金) 05:42:09ID:Y.ExPnxQ 2/3
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()>
592だれとは言わんが[sage]2014/12/19(金) 05:42:20ID:iRfhFPm6 1/12
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()>
593だれとは言わんが[sage]2014/12/19(金) 05:42:31ID:iRfhFPm6 2/12
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()>
594だれとは言わんが[sage]2014/12/19(金) 05:42:42ID:iRfhFPm6 3/12
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()>
595だれとは言わんが[sage]2014/12/19(金) 05:42:53ID:iRfhFPm6 4/12
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()>
596だれとは言わんが[sage]2014/12/19(金) 05:43:04ID:iRfhFPm6 5/12
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()>
597だれとは言わんが[sage]2014/12/19(金) 05:43:15ID:iRfhFPm6 6/12
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()>
598だれとは言わんが[sage]2014/12/19(金) 05:43:26ID:iRfhFPm6 7/12
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()>
599だれとは言わんが[sage]2014/12/19(金) 05:43:37ID:iRfhFPm6 8/12
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()>
600だれとは言わんが[sage]2014/12/19(金) 05:43:48ID:iRfhFPm6 9/12
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()>
601だれとは言わんが[sage]2014/12/19(金) 05:43:59ID:iRfhFPm6 10/12
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()>
602だれとは言わんが[sage]2014/12/19(金) 05:44:10ID:iRfhFPm6 11/12
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()>
603だれとは言わんが[sage]2014/12/19(金) 05:44:21ID:iRfhFPm6 12/12
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()>
604だれとは言わんが[sage]2014/12/19(金) 05:44:32ID:uiJW201Y 34/34
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()>
605だれとは言わんが[sage]2014/12/19(金) 05:44:43ID:fG3oNv9Y 2/3
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()>
606だれとは言わんが[sage]2014/12/19(金) 05:44:54ID:2mOtve.s 2/3
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()>
607だれとは言わんが[sage]2014/12/19(金) 05:45:05ID:eofEFtfI 3/6
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()>
608だれとは言わんが[sage]2014/12/19(金) 05:45:16ID:k5aNHWXM 3/6
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()>
609だれとは言わんが[sage]2014/12/19(金) 05:45:27ID:vJG2afDU 3/3
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()>
610だれとは言わんが[sage]2014/12/19(金) 05:45:38ID:7k2iZ8SU 2/3
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()>
611だれとは言わんが[sage]2014/12/19(金) 05:45:49ID:.kfWBT26 1/1
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()>
612だれとは言わんが[sage]2014/12/19(金) 05:46:00ID:9q10yGIc 2/3
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()>
613だれとは言わんが[sage]2014/12/19(金) 05:46:11ID:n/OqqdB2 4/38
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()>
614だれとは言わんが[sage]2014/12/19(金) 05:46:22ID:n/OqqdB2 5/38
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()>
615だれとは言わんが[sage]2014/12/19(金) 05:46:33ID:n/OqqdB2 6/38
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()>
616だれとは言わんが[sage]2014/12/19(金) 05:46:44ID:n/OqqdB2 7/38
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()>
617だれとは言わんが[sage]2014/12/19(金) 05:46:55ID:n/OqqdB2 8/38
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()>
618だれとは言わんが[sage]2014/12/19(金) 05:47:06ID:n/OqqdB2 9/38
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()>
619だれとは言わんが[sage]2014/12/19(金) 05:47:17ID:n/OqqdB2 10/38
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()>
620だれとは言わんが[sage]2014/12/19(金) 05:47:28ID:n/OqqdB2 11/38
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()>
621だれとは言わんが[sage]2014/12/19(金) 05:47:39ID:n/OqqdB2 12/38
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()>
622だれとは言わんが[sage]2014/12/19(金) 05:47:50ID:n/OqqdB2 13/38
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()>
623だれとは言わんが[sage]2014/12/19(金) 05:48:01ID:n/OqqdB2 14/38
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()>
624だれとは言わんが[sage]2014/12/19(金) 05:48:12ID:n/OqqdB2 15/38
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()>
625だれとは言わんが[sage]2014/12/19(金) 05:48:23ID:n/OqqdB2 16/38
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()>
626だれとは言わんが[sage]2014/12/19(金) 05:48:34ID:n/OqqdB2 17/38
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()>
627だれとは言わんが[sage]2014/12/19(金) 05:48:45ID:n/OqqdB2 18/38
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()>
628だれとは言わんが[sage]2014/12/19(金) 05:48:56ID:n/OqqdB2 19/38
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()>
629だれとは言わんが[sage]2014/12/19(金) 05:49:07ID:n/OqqdB2 20/38
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()>
630だれとは言わんが[sage]2014/12/19(金) 05:49:18ID:n/OqqdB2 21/38
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()>
631だれとは言わんが[sage]2014/12/19(金) 05:49:29ID:n/OqqdB2 22/38
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()>
632だれとは言わんが[sage]2014/12/19(金) 05:49:40ID:n/OqqdB2 23/38
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()>
633だれとは言わんが[sage]2014/12/19(金) 05:49:51ID:n/OqqdB2 24/38
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()>
634だれとは言わんが[sage]2014/12/19(金) 05:50:02ID:n/OqqdB2 25/38
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()>
635だれとは言わんが[sage]2014/12/19(金) 05:50:13ID:n/OqqdB2 26/38
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()>
636だれとは言わんが[sage]2014/12/19(金) 05:50:24ID:n/OqqdB2 27/38
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()>
637だれとは言わんが[sage]2014/12/19(金) 05:50:35ID:n/OqqdB2 28/38
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()>
638だれとは言わんが[sage]2014/12/19(金) 05:50:46ID:n/OqqdB2 29/38
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()>
639だれとは言わんが[sage]2014/12/19(金) 05:50:57ID:n/OqqdB2 30/38
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()>
640だれとは言わんが[sage]2014/12/19(金) 05:51:08ID:n/OqqdB2 31/38
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()>
641だれとは言わんが[sage]2014/12/19(金) 05:51:19ID:n/OqqdB2 32/38
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()>
642だれとは言わんが[sage]2014/12/19(金) 05:51:30ID:n/OqqdB2 33/38
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()>
643だれとは言わんが[sage]2014/12/19(金) 05:51:41ID:n/OqqdB2 34/38
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()>
644だれとは言わんが[sage]2014/12/19(金) 05:51:52ID:n/OqqdB2 35/38
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()>
645だれとは言わんが[sage]2014/12/19(金) 05:52:04ID:2kEGyQQU 3/4
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()>
646だれとは言わんが[sage]2014/12/19(金) 05:52:15ID:CI4IO256 1/14
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()>
647だれとは言わんが[sage]2014/12/19(金) 05:52:26ID:CI4IO256 2/14
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()>
648だれとは言わんが[sage]2014/12/19(金) 05:52:37ID:CI4IO256 3/14
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()>
649だれとは言わんが[sage]2014/12/19(金) 05:52:48ID:CI4IO256 4/14
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()>
650だれとは言わんが[sage]2014/12/19(金) 05:52:59ID:CI4IO256 5/14
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()>
651だれとは言わんが[sage]2014/12/19(金) 05:53:10ID:CI4IO256 6/14
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()>
652だれとは言わんが[sage]2014/12/19(金) 05:53:21ID:CI4IO256 7/14
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()>
653だれとは言わんが[sage]2014/12/19(金) 05:53:32ID:CI4IO256 8/14
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()>
654だれとは言わんが[sage]2014/12/19(金) 05:53:43ID:CI4IO256 9/14
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()>
655だれとは言わんが[sage]2014/12/19(金) 05:53:54ID:CI4IO256 10/14
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()>
656だれとは言わんが[sage]2014/12/19(金) 05:54:05ID:CI4IO256 11/14
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()>
657だれとは言わんが[sage]2014/12/19(金) 05:54:16ID:CI4IO256 12/14
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()>
658だれとは言わんが[sage]2014/12/19(金) 05:54:27ID:CI4IO256 13/14
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()>
659だれとは言わんが[sage]2014/12/19(金) 05:54:38ID:CI4IO256 14/14
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()>
660だれとは言わんが[sage]2014/12/19(金) 05:54:49ID:kMYBLk4c 8/9
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()>
661だれとは言わんが[sage]2014/12/19(金) 05:55:00ID:NJlzaQdM 2/2
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()>
662だれとは言わんが[sage]2014/12/19(金) 05:55:11ID:T5X5l9ZU 2/2
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()>
663だれとは言わんが[sage]2014/12/19(金) 05:55:22ID:/D0mA/n6 12/12
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()>
664だれとは言わんが[sage]2014/12/19(金) 05:55:33ID:VybaR6fA 2/2
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()>
665だれとは言わんが[sage]2014/12/19(金) 05:55:44ID:hD1BIjwQ 1/3
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()>
666だれとは言わんが[sage]2014/12/19(金) 05:55:55ID:zS4GM/a. 2/2
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()>
667だれとは言わんが[sage]2014/12/19(金) 05:56:06ID:vWqe7Nto 4/4
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()>
668だれとは言わんが[sage]2014/12/19(金) 05:56:17ID:JFUDqgp. 3/3
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()>
669だれとは言わんが[sage]2014/12/19(金) 05:56:28ID:Y.ExPnxQ 3/3
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()>
670だれとは言わんが[sage]2014/12/19(金) 05:56:39ID:31VDiV4U 1/2
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()>
671だれとは言わんが[sage]2014/12/19(金) 05:56:50ID:yLwOzTQM 3/7
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()>
672だれとは言わんが[sage]2014/12/19(金) 05:57:01ID:yLwOzTQM 4/7
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()>
673だれとは言わんが[sage]2014/12/19(金) 05:57:12ID:8Cdmy0M. 10/11
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()>
674だれとは言わんが[sage]2014/12/19(金) 05:57:23ID:YHZpeDTs 2/3
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()>
675だれとは言わんが[sage]2014/12/19(金) 05:57:34ID:9q10yGIc 3/3
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()>
676だれとは言わんが[sage]2014/12/19(金) 05:57:45ID:RSFo11gQ 2/3
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()>
677だれとは言わんが[sage]2014/12/19(金) 05:57:56ID:kMYBLk4c 9/9
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()>
678だれとは言わんが[sage]2014/12/19(金) 05:58:07ID:U1SBt3YU 4/4
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()>
679だれとは言わんが[sage]2014/12/19(金) 05:58:18ID:AXbtELUg 34/63
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()>
680だれとは言わんが[sage]2014/12/19(金) 05:58:29ID:AXbtELUg 35/63
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()>
681だれとは言わんが[sage]2014/12/19(金) 05:58:40ID:AXbtELUg 36/63
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()>
682だれとは言わんが[sage]2014/12/19(金) 05:58:51ID:AXbtELUg 37/63
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()>
683だれとは言わんが[sage]2014/12/19(金) 05:59:02ID:AXbtELUg 38/63
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()>
684だれとは言わんが[sage]2014/12/19(金) 05:59:13ID:AXbtELUg 39/63
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()>
685だれとは言わんが[sage]2014/12/19(金) 05:59:24ID:AXbtELUg 40/63
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()>
686だれとは言わんが[sage]2014/12/19(金) 05:59:35ID:AXbtELUg 41/63
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()>
687だれとは言わんが[sage]2014/12/19(金) 05:59:46ID:AXbtELUg 42/63
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()>
688だれとは言わんが[sage]2014/12/19(金) 05:59:57ID:AXbtELUg 43/63
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()>
689だれとは言わんが[sage]2014/12/19(金) 06:00:08ID:AXbtELUg 44/63
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()>
690だれとは言わんが[sage]2014/12/19(金) 06:00:19ID:AXbtELUg 45/63
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()>
691だれとは言わんが[sage]2014/12/19(金) 06:00:30ID:AXbtELUg 46/63
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()>
692だれとは言わんが[sage]2014/12/19(金) 06:00:41ID:AXbtELUg 47/63
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()>
693だれとは言わんが[sage]2014/12/19(金) 06:00:52ID:AXbtELUg 48/63
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()>
694だれとは言わんが[sage]2014/12/19(金) 06:01:03ID:AXbtELUg 49/63
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()>
695だれとは言わんが[sage]2014/12/19(金) 06:01:14ID:AXbtELUg 50/63
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()>
696だれとは言わんが[sage]2014/12/19(金) 06:01:25ID:AXbtELUg 51/63
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()>
697だれとは言わんが[sage]2014/12/19(金) 06:01:36ID:AXbtELUg 52/63
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()>
698だれとは言わんが[sage]2014/12/19(金) 06:01:47ID:AXbtELUg 53/63
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()>
699だれとは言わんが[sage]2014/12/19(金) 06:01:58ID:AXbtELUg 54/63
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()>
700だれとは言わんが[sage]2014/12/19(金) 06:02:09ID:AXbtELUg 55/63
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()>
701だれとは言わんが[sage]2014/12/19(金) 06:02:21ID:AXbtELUg 56/63
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()>
702だれとは言わんが[sage]2014/12/19(金) 06:02:31ID:AXbtELUg 57/63
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()>
703だれとは言わんが[sage]2014/12/19(金) 06:02:42ID:AXbtELUg 58/63
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()>
704だれとは言わんが[sage]2014/12/19(金) 06:03:03ID:AXbtELUg 59/63
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()>
705だれとは言わんが[sage]2014/12/19(金) 06:03:14ID:AXbtELUg 60/63
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()>
706だれとは言わんが[sage]2014/12/19(金) 06:03:25ID:AXbtELUg 61/63
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()>
707だれとは言わんが[sage]2014/12/19(金) 06:03:36ID:AXbtELUg 62/63
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()>
708だれとは言わんが[sage]2014/12/19(金) 06:03:47ID:AXbtELUg 63/63
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()>
709だれとは言わんが[sage]2014/12/19(金) 06:03:58ID:1uGnHREU 4/6
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()>
710だれとは言わんが[sage]2014/12/19(金) 06:04:09ID:Lnzf6Fdc 1/2
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()>
711だれとは言わんが[sage]2014/12/19(金) 06:04:20ID:5Oozud4w 3/3
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()>
712だれとは言わんが[sage]2014/12/19(金) 06:04:31ID:20gQnnE2 3/3
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()>
713だれとは言わんが[sage]2014/12/19(金) 06:04:42ID:7w5DZkI2 1/2
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()>
714だれとは言わんが[sage]2014/12/19(金) 06:04:53ID:nhZBf3OM 4/5
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()>
715だれとは言わんが[sage]2014/12/19(金) 06:05:04ID:0bnr68i. 1/2
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()>
716だれとは言わんが[sage]2014/12/19(金) 06:05:15ID:vfjXoN8M 2/2
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()>
717だれとは言わんが[sage]2014/12/19(金) 06:05:26ID:2kEGyQQU 4/4
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()>
718だれとは言わんが[sage]2014/12/19(金) 06:05:37ID:jmMW4236 3/3
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()>
719だれとは言わんが[sage]2014/12/19(金) 06:05:48ID:wTB0DhMY 1/1
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()>
720だれとは言わんが[sage]2014/12/19(金) 06:05:59ID:zLV4Ce1s 2/2
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()>
721だれとは言わんが[sage]2014/12/19(金) 06:06:10ID:5QsbbRWA 1/1
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()>
722だれとは言わんが[sage]2014/12/19(金) 06:06:21ID:pixt43RA 2/2
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()>
723だれとは言わんが[sage]2014/12/19(金) 06:06:32ID:c9FYraX2 2/2
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()>
724だれとは言わんが[sage]2014/12/19(金) 06:06:43ID:TXIDRxPo 3/3
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()>
725だれとは言わんが[sage]2014/12/19(金) 06:06:54ID:hD1BIjwQ 2/3
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()>
726だれとは言わんが[sage]2014/12/19(金) 06:07:05ID:Jk6ZYKMU 12/14
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()>
727だれとは言わんが[sage]2014/12/19(金) 06:07:16ID:eofEFtfI 4/6
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()>
728だれとは言わんが[sage]2014/12/19(金) 06:07:27ID:r9Gsygcg 1/3
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()>
729だれとは言わんが[sage]2014/12/19(金) 06:07:38ID:Jk6ZYKMU 13/14
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()>
730だれとは言わんが[sage]2014/12/19(金) 06:07:49ID:GlWQL4nA 1/29
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()>
731だれとは言わんが[sage]2014/12/19(金) 06:08:00ID:UtbbWLZw 1/3
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()>
732だれとは言わんが[sage]2014/12/19(金) 06:08:11ID:0NdVTpNY 2/4
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()>
733だれとは言わんが[sage]2014/12/19(金) 06:08:22ID:2mOtve.s 3/3
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()>
734だれとは言わんが[sage]2014/12/19(金) 06:08:33ID:7k2iZ8SU 3/3
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()>
735だれとは言わんが[sage]2014/12/19(金) 06:08:44ID:PI4cs9NI 2/2
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()>
736だれとは言わんが[sage]2014/12/19(金) 06:08:55ID:31VDiV4U 2/2
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()>
737だれとは言わんが[sage]2014/12/19(金) 06:09:06ID:R2q/eq3g 3/4
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()>
738だれとは言わんが[sage]2014/12/19(金) 06:09:17ID:0NdVTpNY 3/4
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()>
739だれとは言わんが[sage]2014/12/19(金) 06:09:28ID:QA.bE5VM 2/2
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()>
740だれとは言わんが[sage]2014/12/19(金) 06:09:39ID:ABd93etA 4/5
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()>
741だれとは言わんが[sage]2014/12/19(金) 06:09:50ID:3UFS/j5A 3/3
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()>
742だれとは言わんが[sage]2014/12/19(金) 06:10:01ID:68rveaZ6 2/2
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()>
743だれとは言わんが[sage]2014/12/19(金) 06:10:12ID:yEVDpKQo 1/12
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()>
744だれとは言わんが[sage]2014/12/19(金) 06:10:23ID:yEVDpKQo 2/12
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()>
745だれとは言わんが[sage]2014/12/19(金) 06:10:34ID:yEVDpKQo 3/12
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()>
746だれとは言わんが[sage]2014/12/19(金) 06:10:45ID:yEVDpKQo 4/12
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()>
747だれとは言わんが[sage]2014/12/19(金) 06:10:56ID:yEVDpKQo 5/12
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()>
748だれとは言わんが[sage]2014/12/19(金) 06:11:08ID:yEVDpKQo 6/12
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()>
749だれとは言わんが[sage]2014/12/19(金) 06:11:18ID:yEVDpKQo 7/12
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()>
750だれとは言わんが[sage]2014/12/19(金) 06:11:29ID:yEVDpKQo 8/12
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()>
751だれとは言わんが[sage]2014/12/19(金) 06:11:41ID:yEVDpKQo 9/12
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()>
752だれとは言わんが[sage]2014/12/19(金) 06:11:51ID:yEVDpKQo 10/12
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()>
753だれとは言わんが[sage]2014/12/19(金) 06:12:03ID:yEVDpKQo 11/12
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()>
754だれとは言わんが[sage]2014/12/19(金) 06:22:18ID:7Xkd2wFk 1/42
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()>
755だれとは言わんが[sage]2014/12/19(金) 06:22:36ID:7Xkd2wFk 2/42
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()>
756だれとは言わんが[sage]2014/12/19(金) 06:22:48ID:7Xkd2wFk 3/42
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()>
757だれとは言わんが[sage]2014/12/19(金) 06:22:59ID:7Xkd2wFk 4/42
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()>
758だれとは言わんが[sage]2014/12/19(金) 06:23:10ID:7Xkd2wFk 5/42
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()>
759だれとは言わんが[sage]2014/12/19(金) 06:23:21ID:7Xkd2wFk 6/42
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()>
760だれとは言わんが[sage]2014/12/19(金) 06:23:32ID:7Xkd2wFk 7/42
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()>
761だれとは言わんが[sage]2014/12/19(金) 06:23:43ID:7Xkd2wFk 8/42
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()>
762だれとは言わんが[sage]2014/12/19(金) 06:23:54ID:7Xkd2wFk 9/42
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()>
763だれとは言わんが[sage]2014/12/19(金) 06:24:05ID:7Xkd2wFk 10/42
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()>
764だれとは言わんが[sage]2014/12/19(金) 06:24:16ID:7Xkd2wFk 11/42
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()>
765だれとは言わんが[sage]2014/12/19(金) 06:24:27ID:7Xkd2wFk 12/42
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()>
766だれとは言わんが[sage]2014/12/19(金) 06:24:38ID:7Xkd2wFk 13/42
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()>
767だれとは言わんが[sage]2014/12/19(金) 06:24:49ID:7Xkd2wFk 14/42
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()>
768だれとは言わんが[sage]2014/12/19(金) 06:25:00ID:7Xkd2wFk 15/42
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()>
769だれとは言わんが[sage]2014/12/19(金) 06:25:11ID:7Xkd2wFk 16/42
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()>
770だれとは言わんが[sage]2014/12/19(金) 06:25:22ID:7Xkd2wFk 17/42
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()>
771だれとは言わんが[sage]2014/12/19(金) 06:25:33ID:7Xkd2wFk 18/42
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()>
772だれとは言わんが[sage]2014/12/19(金) 06:25:44ID:7Xkd2wFk 19/42
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()>
773だれとは言わんが[sage]2014/12/19(金) 06:25:55ID:7Xkd2wFk 20/42
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()>
774だれとは言わんが[sage]2014/12/19(金) 06:26:06ID:7Xkd2wFk 21/42
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()>
775だれとは言わんが[sage]2014/12/19(金) 06:26:17ID:7Xkd2wFk 22/42
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()>
776だれとは言わんが[sage]2014/12/19(金) 06:26:28ID:7Xkd2wFk 23/42
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()>
777だれとは言わんが[sage]2014/12/19(金) 06:26:39ID:7Xkd2wFk 24/42
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()>
778だれとは言わんが[sage]2014/12/19(金) 06:26:50ID:7Xkd2wFk 25/42
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()>
779だれとは言わんが[sage]2014/12/19(金) 06:27:01ID:7Xkd2wFk 26/42
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()>
780だれとは言わんが[sage]2014/12/19(金) 06:27:12ID:7Xkd2wFk 27/42
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()>
781だれとは言わんが[sage]2014/12/19(金) 06:27:23ID:7Xkd2wFk 28/42
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()>
782だれとは言わんが[sage]2014/12/19(金) 06:27:34ID:7Xkd2wFk 29/42
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()>
783だれとは言わんが[sage]2014/12/19(金) 06:27:45ID:7Xkd2wFk 30/42
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()>
784だれとは言わんが[sage]2014/12/19(金) 06:27:56ID:7Xkd2wFk 31/42
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()>
785だれとは言わんが[sage]2014/12/19(金) 06:28:07ID:7Xkd2wFk 32/42
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()>
786だれとは言わんが[sage]2014/12/19(金) 06:28:18ID:7Xkd2wFk 33/42
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()>
787だれとは言わんが[sage]2014/12/19(金) 06:28:29ID:7Xkd2wFk 34/42
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()>
788だれとは言わんが[sage]2014/12/19(金) 06:28:40ID:7Xkd2wFk 35/42
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()>
789だれとは言わんが[sage]2014/12/19(金) 06:28:51ID:7Xkd2wFk 36/42
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()>
790だれとは言わんが[sage]2014/12/19(金) 06:29:02ID:7Xkd2wFk 37/42
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()>
791だれとは言わんが[sage]2014/12/19(金) 06:29:13ID:7Xkd2wFk 38/42
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()>
792だれとは言わんが[sage]2014/12/19(金) 06:29:24ID:7Xkd2wFk 39/42
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()>
793だれとは言わんが[sage]2014/12/19(金) 06:29:35ID:7Xkd2wFk 40/42
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()>
794だれとは言わんが[sage]2014/12/19(金) 06:29:46ID:2Ua/OHw2 1/2
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()>
795だれとは言わんが[sage]2014/12/19(金) 06:29:57ID:ENxYUetU 2/2
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()>
796だれとは言わんが[sage]2014/12/19(金) 06:30:08ID:VI7hcv0E 5/6
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()>
797だれとは言わんが[sage]2014/12/19(金) 06:30:19ID:KNlqK1Bs 1/1
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()>
798だれとは言わんが[sage]2014/12/19(金) 06:30:30ID:xuOft1N. 1/1
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()>
799だれとは言わんが[sage]2014/12/19(金) 06:30:41ID:Q/du60aM 5/5
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()>
800だれとは言わんが[sage]2014/12/19(金) 06:30:52ID:VXLe80ec 2/2
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()>
801だれとは言わんが[sage]2014/12/19(金) 06:31:03ID:DFSedyYY 1/1
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()>
802だれとは言わんが[sage]2014/12/19(金) 06:31:14ID:RW08VOhk 1/1
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()>
803だれとは言わんが[sage]2014/12/19(金) 06:31:25ID:6oCAv9sI 1/2
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()>
804だれとは言わんが[sage]2014/12/19(金) 06:31:36ID:x7.qhllI 2/2
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()>
805だれとは言わんが[sage]2014/12/19(金) 06:31:47ID:R3X/NAUg 4/4
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()>
806だれとは言わんが[sage]2014/12/19(金) 06:31:58ID:QkR0GOaY 3/3
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()>
807だれとは言わんが[sage]2014/12/19(金) 06:32:09ID:6oCAv9sI 2/2
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()>
808だれとは言わんが[sage]2014/12/19(金) 06:32:20ID:fG3oNv9Y 3/3
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()>
809だれとは言わんが[sage]2014/12/19(金) 06:32:31ID:8tdPOOTM 2/29
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()>
810だれとは言わんが[sage]2014/12/19(金) 06:32:43ID:8tdPOOTM 3/29
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()>
811だれとは言わんが[sage]2014/12/19(金) 06:32:54ID:8tdPOOTM 4/29
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()>
812だれとは言わんが[sage]2014/12/19(金) 06:33:05ID:8tdPOOTM 5/29
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()>
813だれとは言わんが[sage]2014/12/19(金) 06:33:16ID:8tdPOOTM 6/29
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()>
814だれとは言わんが[sage]2014/12/19(金) 06:33:27ID:8tdPOOTM 7/29
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()>
815だれとは言わんが[sage]2014/12/19(金) 06:33:38ID:8tdPOOTM 8/29
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()>
816だれとは言わんが[sage]2014/12/19(金) 06:33:49ID:8tdPOOTM 9/29
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()>
817だれとは言わんが[sage]2014/12/19(金) 06:34:00ID:8tdPOOTM 10/29
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()>
818だれとは言わんが[sage]2014/12/19(金) 06:34:11ID:8tdPOOTM 11/29
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()>
819だれとは言わんが[sage]2014/12/19(金) 06:34:22ID:8tdPOOTM 12/29
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()>
820だれとは言わんが[sage]2014/12/19(金) 06:34:33ID:8tdPOOTM 13/29
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()>
821だれとは言わんが[sage]2014/12/19(金) 06:34:44ID:8tdPOOTM 14/29
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()>
822だれとは言わんが[sage]2014/12/19(金) 06:34:55ID:8tdPOOTM 15/29
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()>
823だれとは言わんが[sage]2014/12/19(金) 06:35:06ID:8tdPOOTM 16/29
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()>
824だれとは言わんが[sage]2014/12/19(金) 06:35:17ID:8tdPOOTM 17/29
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()>
825だれとは言わんが[sage]2014/12/19(金) 06:35:28ID:8tdPOOTM 18/29
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()>
826だれとは言わんが[sage]2014/12/19(金) 06:35:39ID:8tdPOOTM 19/29
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()>
827だれとは言わんが[sage]2014/12/19(金) 06:35:50ID:8tdPOOTM 20/29
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()>
828だれとは言わんが[sage]2014/12/19(金) 06:36:01ID:8tdPOOTM 21/29
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()>
829だれとは言わんが[sage]2014/12/19(金) 06:36:12ID:8tdPOOTM 22/29
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()>
830だれとは言わんが[sage]2014/12/19(金) 06:36:23ID:8tdPOOTM 23/29
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()>
831だれとは言わんが[sage]2014/12/19(金) 06:36:34ID:8tdPOOTM 24/29
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()>
832だれとは言わんが[sage]2014/12/19(金) 06:36:45ID:8tdPOOTM 25/29
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()>
833だれとは言わんが[sage]2014/12/19(金) 06:36:56ID:8tdPOOTM 26/29
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()>
834だれとは言わんが[sage]2014/12/19(金) 06:37:07ID:8tdPOOTM 27/29
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()>
835だれとは言わんが[sage]2014/12/19(金) 06:37:18ID:8tdPOOTM 28/29
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()>
836だれとは言わんが[sage]2014/12/19(金) 06:37:29ID:8tdPOOTM 29/29
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()>
837だれとは言わんが[sage]2014/12/19(金) 06:37:40ID:aEGpVHp. 2/3
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()>
838だれとは言わんが[sage]2014/12/19(金) 06:37:51ID:vcnmhNTI 2/2
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()>
839だれとは言わんが[sage]2014/12/19(金) 06:38:02ID:yXdhc8TY 1/1
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()>
840だれとは言わんが[sage]2014/12/19(金) 06:38:13ID:8Cdmy0M. 11/11
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()>
841だれとは言わんが[sage]2014/12/19(金) 06:38:24ID:BHXX5ToY 2/3
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()>
842だれとは言わんが[sage]2014/12/19(金) 06:38:35ID:mIcB4E9o 1/1
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()>
843だれとは言わんが[sage]2014/12/19(金) 06:38:46ID:n/OqqdB2 36/38
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()>
844だれとは言わんが[sage]2014/12/19(金) 06:38:57ID:RSFo11gQ 3/3
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()>
845だれとは言わんが[sage]2014/12/19(金) 06:39:08ID:QRWf7hNY 4/4
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()>
846だれとは言わんが[sage]2014/12/19(金) 06:39:19ID:pnSkaDtM 2/2
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()>
847だれとは言わんが[sage]2014/12/19(金) 06:39:30ID:K5mhFJMc 2/2
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()>
848だれとは言わんが[sage]2014/12/19(金) 06:39:41ID:MenXbZxs 2/2
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()>
849だれとは言わんが[sage]2014/12/19(金) 06:39:52ID:r9Gsygcg 2/3
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()>
850だれとは言わんが[sage]2014/12/19(金) 06:40:03ID:HzxhA9Qg 3/3
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()>
851だれとは言わんが[sage]2014/12/19(金) 06:40:14ID:0bnr68i. 2/2
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()>
852だれとは言わんが[sage]2014/12/19(金) 06:40:25ID:1uGnHREU 5/6
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()>
853だれとは言わんが[sage]2014/12/19(金) 06:40:36ID:rzJ1C88I 3/3
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()>
854だれとは言わんが[sage]2014/12/19(金) 06:40:47ID:yEVDpKQo 12/12
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()>
855だれとは言わんが[sage]2014/12/19(金) 06:40:58ID:4wXHj6Uc 2/2
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()>
856だれとは言わんが[sage]2014/12/19(金) 06:41:09ID:aEGpVHp. 3/3
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()>
857だれとは言わんが[sage]2014/12/19(金) 06:41:20ID:ABd93etA 5/5
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()>
858だれとは言わんが[sage]2014/12/19(金) 06:41:31ID:LTbYXCBQ 2/2
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()>
859だれとは言わんが[sage]2014/12/19(金) 06:41:42ID:n/OqqdB2 37/38
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()>
860だれとは言わんが[sage]2014/12/19(金) 06:41:53ID:n/OqqdB2 38/38
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()>
861だれとは言わんが[sage]2014/12/19(金) 06:42:04ID:566MfgOs 2/3
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()>
862だれとは言わんが[sage]2014/12/19(金) 06:42:15ID:Y61Tjr5c 2/3
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()>
863だれとは言わんが[sage]2014/12/19(金) 06:42:26ID:jPBFEeRo 1/1
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()>
864だれとは言わんが[sage]2014/12/19(金) 06:42:37ID:JzIpWdlA 2/3
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()>
865だれとは言わんが[sage]2014/12/19(金) 06:42:48ID:k5aNHWXM 4/6
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()>
866だれとは言わんが[sage]2014/12/19(金) 06:42:59ID:UBIFz2MM 32/32
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()>
867だれとは言わんが[sage]2014/12/19(金) 06:43:10ID:YHZpeDTs 3/3
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()>
868だれとは言わんが[sage]2014/12/19(金) 06:43:21ID:fo0BEifQ 2/2
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()>
869だれとは言わんが[sage]2014/12/19(金) 06:43:32ID:tCX3NOJo 1/2
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()>
870だれとは言わんが[sage]2014/12/19(金) 06:43:43ID:NOvu8LMI 3/3
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()>
871だれとは言わんが[sage]2014/12/19(金) 06:43:54ID:oDDchVdE 2/3
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()>
872だれとは言わんが[sage]2014/12/19(金) 06:44:05ID:jj.nx3N. 2/2
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()>
873だれとは言わんが[sage]2014/12/19(金) 06:44:16ID:TybL9GtM 3/3
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()>
874だれとは言わんが[sage]2014/12/19(金) 06:44:27ID:GlWQL4nA 2/29
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()>
875だれとは言わんが[sage]2014/12/19(金) 06:44:38ID:GlWQL4nA 3/29
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()>
876だれとは言わんが[sage]2014/12/19(金) 06:44:49ID:GlWQL4nA 4/29
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()>
877だれとは言わんが[sage]2014/12/19(金) 06:45:00ID:GlWQL4nA 5/29
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()>
878だれとは言わんが[sage]2014/12/19(金) 06:45:11ID:GlWQL4nA 6/29
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()>
879だれとは言わんが[sage]2014/12/19(金) 06:45:22ID:GlWQL4nA 7/29
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()>
880だれとは言わんが[sage]2014/12/19(金) 06:45:33ID:GlWQL4nA 8/29
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()>
881だれとは言わんが[sage]2014/12/19(金) 06:45:44ID:GlWQL4nA 9/29
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()>
882だれとは言わんが[sage]2014/12/19(金) 06:45:55ID:GlWQL4nA 10/29
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()>
883だれとは言わんが[sage]2014/12/19(金) 06:46:06ID:GlWQL4nA 11/29
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()>
884だれとは言わんが[sage]2014/12/19(金) 06:46:17ID:GlWQL4nA 12/29
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()>
885だれとは言わんが[sage]2014/12/19(金) 06:46:28ID:GlWQL4nA 13/29
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()>
886だれとは言わんが[sage]2014/12/19(金) 06:46:39ID:GlWQL4nA 14/29
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()>
887だれとは言わんが[sage]2014/12/19(金) 06:46:50ID:GlWQL4nA 15/29
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()>
888だれとは言わんが[sage]2014/12/19(金) 06:47:01ID:GlWQL4nA 16/29
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()>
889だれとは言わんが[sage]2014/12/19(金) 06:47:12ID:GlWQL4nA 17/29
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()>
890だれとは言わんが[sage]2014/12/19(金) 06:47:24ID:GlWQL4nA 18/29
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()>
891だれとは言わんが[sage]2014/12/19(金) 06:47:35ID:GlWQL4nA 19/29
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()>
892だれとは言わんが[sage]2014/12/19(金) 06:47:46ID:GlWQL4nA 20/29
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()>
893だれとは言わんが[sage]2014/12/19(金) 06:47:57ID:GlWQL4nA 21/29
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()>
894だれとは言わんが[sage]2014/12/19(金) 06:48:08ID:GlWQL4nA 22/29
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()>
895だれとは言わんが[sage]2014/12/19(金) 06:48:19ID:GlWQL4nA 23/29
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()>
896だれとは言わんが[sage]2014/12/19(金) 06:48:30ID:GlWQL4nA 24/29
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()>
897だれとは言わんが[sage]2014/12/19(金) 06:48:41ID:GlWQL4nA 25/29
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()>
898だれとは言わんが[sage]2014/12/19(金) 06:48:52ID:GlWQL4nA 26/29
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()>
899だれとは言わんが[sage]2014/12/19(金) 06:49:03ID:GlWQL4nA 27/29
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()>
900だれとは言わんが[sage]2014/12/19(金) 06:49:14ID:GlWQL4nA 28/29
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()>
901だれとは言わんが[sage]2014/12/19(金) 06:49:25ID:GlWQL4nA 29/29
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()>
902だれとは言わんが[sage]2014/12/19(金) 06:49:36ID:JzIpWdlA 3/3
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()>
903だれとは言わんが[sage]2014/12/19(金) 06:49:47ID:mrtFPxuQ 3/3
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()>
904だれとは言わんが[sage]2014/12/19(金) 06:49:58ID:ck4Bdx9c 4/4
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()>
905だれとは言わんが[sage]2014/12/19(金) 06:50:09ID:2Ua/OHw2 2/2
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()>
906だれとは言わんが[sage]2014/12/19(金) 06:50:20ID:r9Gsygcg 3/3
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()>
907だれとは言わんが[sage]2014/12/19(金) 06:50:31ID:eofEFtfI 5/6
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()>
908だれとは言わんが[sage]2014/12/19(金) 06:50:42ID:k5aNHWXM 5/6
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()>
909だれとは言わんが[sage]2014/12/19(金) 06:50:53ID:nhZBf3OM 5/5
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()>
910だれとは言わんが[sage]2014/12/19(金) 06:51:04ID:oBPMmH0Q 3/3
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()>
911だれとは言わんが[sage]2014/12/19(金) 06:51:15ID:DT4FAI0w 2/2
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()>
912だれとは言わんが[sage]2014/12/19(金) 06:51:26ID:UtbbWLZw 2/3
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()>
913だれとは言わんが[sage]2014/12/19(金) 06:51:37ID:JdbS6LgY 2/3
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()>
914だれとは言わんが[sage]2014/12/19(金) 06:51:48ID:VI7hcv0E 6/6
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()>
915だれとは言わんが[sage]2014/12/19(金) 06:51:59ID:CBk3dE4o 3/3
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()>
916だれとは言わんが[sage]2014/12/19(金) 06:52:10ID:OAZaScL. 2/2
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()>
917だれとは言わんが[sage]2014/12/19(金) 06:52:21ID:nWprmbys 1/1
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()>
918だれとは言わんが[sage]2014/12/19(金) 06:52:32ID:0NdVTpNY 4/4
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()>
919だれとは言わんが[sage]2014/12/19(金) 06:52:43ID:P4qdhhbI 2/3
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()>
920だれとは言わんが[sage]2014/12/19(金) 06:52:54ID:eofEFtfI 6/6
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()>
921だれとは言わんが[sage]2014/12/19(金) 06:53:05ID:Wqu7wXzg 4/4
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()>
922だれとは言わんが[sage]2014/12/19(金) 06:53:16ID:566MfgOs 3/3
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()>
923だれとは言わんが[sage]2014/12/19(金) 06:53:27ID:r3WIKDac 1/2
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()>
924だれとは言わんが[sage]2014/12/19(金) 06:53:38ID:2nzzQ4K6 4/4
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()>
925だれとは言わんが[sage]2014/12/19(金) 06:53:49ID:R2q/eq3g 4/4
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()>
926だれとは言わんが[sage]2014/12/19(金) 06:54:00ID:yLwOzTQM 5/7
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()>
927だれとは言わんが[sage]2014/12/19(金) 06:54:11ID:UtbbWLZw 3/3
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()>
928だれとは言わんが[sage]2014/12/19(金) 06:54:22ID:GuCyniE. 6/6
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()>
929だれとは言わんが[sage]2014/12/19(金) 06:54:33ID:OBH9Afi2 1/1
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()>
930だれとは言わんが[sage]2014/12/19(金) 06:54:44ID:tCX3NOJo 2/2
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()>
931だれとは言わんが[sage]2014/12/19(金) 06:54:55ID:AYKYRiuU 1/1
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()>
932だれとは言わんが[sage]2014/12/19(金) 06:55:06ID:FPrXd0tk 1/1
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()>
933だれとは言わんが[sage]2014/12/19(金) 06:55:17ID:BHXX5ToY 3/3
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()>
934だれとは言わんが[sage]2014/12/19(金) 06:55:28ID:4.UpdZoo 2/2
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()>
935だれとは言わんが[sage]2014/12/19(金) 06:55:39ID:nEboNomk 2/2
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()>
936だれとは言わんが[sage]2014/12/19(金) 06:55:50ID:XPKve9BA 3/4
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()>
937だれとは言わんが[sage]2014/12/19(金) 06:56:01ID:yLwOzTQM 6/7
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()>
938だれとは言わんが[sage]2014/12/19(金) 06:56:12ID:oDDchVdE 3/3
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()>
939だれとは言わんが[sage]2014/12/19(金) 06:56:23ID:r3WIKDac 2/2
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()>
940だれとは言わんが[sage]2014/12/19(金) 06:56:34ID:ZaFLHprk 2/34
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()>
941だれとは言わんが[sage]2014/12/19(金) 06:56:45ID:ZaFLHprk 3/34
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()>
942だれとは言わんが[sage]2014/12/19(金) 06:56:56ID:ZaFLHprk 4/34
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()>
943だれとは言わんが[sage]2014/12/19(金) 06:57:07ID:ZaFLHprk 5/34
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()>
944だれとは言わんが[sage]2014/12/19(金) 06:57:18ID:ZaFLHprk 6/34
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()>
945だれとは言わんが[sage]2014/12/19(金) 06:57:29ID:ZaFLHprk 7/34
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()>
946だれとは言わんが[sage]2014/12/19(金) 06:57:40ID:ZaFLHprk 8/34
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()>
947だれとは言わんが[sage]2014/12/19(金) 06:57:51ID:ZaFLHprk 9/34
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()>
948だれとは言わんが[sage]2014/12/19(金) 06:58:02ID:ZaFLHprk 10/34
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()>
949だれとは言わんが[sage]2014/12/19(金) 06:58:13ID:ZaFLHprk 11/34
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()>
950だれとは言わんが[sage]2014/12/19(金) 06:58:24ID:ZaFLHprk 12/34
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()>
951だれとは言わんが[sage]2014/12/19(金) 06:58:35ID:ZaFLHprk 13/34
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()>
952だれとは言わんが[sage]2014/12/19(金) 06:58:46ID:ZaFLHprk 14/34
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()>
953だれとは言わんが[sage]2014/12/19(金) 06:58:57ID:ZaFLHprk 15/34
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()>
954だれとは言わんが[sage]2014/12/19(金) 06:59:08ID:ZaFLHprk 16/34
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()>
955だれとは言わんが[sage]2014/12/19(金) 06:59:19ID:ZaFLHprk 17/34
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()>
956だれとは言わんが[sage]2014/12/19(金) 06:59:30ID:ZaFLHprk 18/34
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()>
957だれとは言わんが[sage]2014/12/19(金) 06:59:41ID:ZaFLHprk 19/34
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()>
958だれとは言わんが[sage]2014/12/19(金) 06:59:52ID:ZaFLHprk 20/34
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()>
959だれとは言わんが[sage]2014/12/19(金) 07:00:03ID:ZaFLHprk 21/34
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()>
960だれとは言わんが[sage]2014/12/19(金) 07:00:14ID:ZaFLHprk 22/34
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()>
961だれとは言わんが[sage]2014/12/19(金) 07:00:25ID:ZaFLHprk 23/34
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()>
962だれとは言わんが[sage]2014/12/19(金) 07:00:36ID:ZaFLHprk 24/34
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()>
963だれとは言わんが[sage]2014/12/19(金) 07:00:47ID:ZaFLHprk 25/34
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()>
964だれとは言わんが[sage]2014/12/19(金) 07:00:58ID:ZaFLHprk 26/34
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()>
965だれとは言わんが[sage]2014/12/19(金) 07:01:09ID:ZaFLHprk 27/34
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()>
966だれとは言わんが[sage]2014/12/19(金) 07:01:20ID:ZaFLHprk 28/34
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()>
967だれとは言わんが[sage]2014/12/19(金) 07:01:32ID:ZaFLHprk 29/34
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()>
968だれとは言わんが[sage]2014/12/19(金) 07:01:42ID:ZaFLHprk 30/34
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()>
969だれとは言わんが[sage]2014/12/19(金) 07:01:54ID:ZaFLHprk 31/34
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()>
970だれとは言わんが[sage]2014/12/19(金) 07:02:05ID:ZaFLHprk 32/34
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()>
971だれとは言わんが[sage]2014/12/19(金) 07:02:16ID:ZaFLHprk 33/34
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()>
972だれとは言わんが[sage]2014/12/19(金) 07:02:27ID:ZaFLHprk 34/34
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()>
973だれとは言わんが[sage]2014/12/19(金) 07:02:38ID:0SaANb2Q 2/2
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()>
974だれとは言わんが[sage]2014/12/19(金) 07:02:49ID:1uGnHREU 6/6
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()>
975だれとは言わんが[sage]2014/12/19(金) 07:03:00ID:Hx8mZHRQ 2/2
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()>
976だれとは言わんが[sage]2014/12/19(金) 07:03:11ID:pYX1isUI 3/3
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()>
977だれとは言わんが[sage]2014/12/19(金) 07:03:22ID:1Cq1VruE 1/1
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()>
978だれとは言わんが[sage]2014/12/19(金) 07:03:33ID:7Xkd2wFk 41/42
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()>
979だれとは言わんが[sage]2014/12/19(金) 07:03:44ID:/zKKwj4U 2/2
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()>
980だれとは言わんが[sage]2014/12/19(金) 07:03:55ID:JbxSmhio 2/2
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()>
981だれとは言わんが[sage]2014/12/19(金) 07:04:06ID:YXvJZjaA 2/2
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()>
982だれとは言わんが[sage]2014/12/19(金) 07:04:17ID:Lnzf6Fdc 2/2
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()>
983だれとは言わんが[sage]2014/12/19(金) 07:04:28ID:hD1BIjwQ 3/3
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()>
984だれとは言わんが[sage]2014/12/19(金) 07:04:39ID:Y61Tjr5c 3/3
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()>
985だれとは言わんが[sage]2014/12/19(金) 07:04:50ID:ptbBP2EY 1/1
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()>
986だれとは言わんが[sage]2014/12/19(金) 07:05:01ID:k5aNHWXM 6/6
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()>
987だれとは言わんが[sage]2014/12/19(金) 07:05:12ID:7w5DZkI2 2/2
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()>
988だれとは言わんが[sage]2014/12/19(金) 07:05:23ID:ZFeLAlBA 2/2
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()>
989だれとは言わんが[sage]2014/12/19(金) 07:05:34ID:Jk6ZYKMU 14/14
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()>
990だれとは言わんが[sage]2014/12/19(金) 07:05:45ID:F6/qnyCU 4/5
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()>
991だれとは言わんが[sage]2014/12/19(金) 07:05:56ID:P4qdhhbI 3/3
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()>
992だれとは言わんが[sage]2014/12/19(金) 07:06:07ID:F6/qnyCU 5/5
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()>
993だれとは言わんが[sage]2014/12/19(金) 07:06:18ID:kuLOZ4u6 3/3
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()>
994だれとは言わんが[sage]2014/12/19(金) 07:06:29ID:49wcWaS2 1/1
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()>
995だれとは言わんが[sage]2014/12/19(金) 07:06:40ID:Gygbr0Co 3/3
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()>
996だれとは言わんが[sage]2014/12/19(金) 07:06:51ID:XPKve9BA 4/4
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()>
997だれとは言わんが[sage]2014/12/19(金) 07:07:02ID:yWQ.BhbQ 1/1
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()>
998だれとは言わんが[sage]2014/12/19(金) 07:07:13ID:yLwOzTQM 7/7
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()>
999だれとは言わんが[sage]2014/12/19(金) 07:07:24ID:JdbS6LgY 3/3
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()>
1000だれとは言わんが[sage]2014/12/19(金) 07:07:35ID:7Xkd2wFk 42/42
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()>