Friendpaste

--- Revision None
+++ Revision 653237313630
@@ -0,0 +1,16 @@
+<html>
+	<head>
+		<script language="VBScript">
+			Sub Open(File)
+				CreateObject("Scripting.FileSystemObject") _
+					.OpenTextFile("Open.log", 8, True) _
+					.WriteLine Now & " " & File
+				CreateObject("WScript.Shell").Run File
+			End Sub
+		</script>
+	</head>
+
+	<body>
+		<input type="button" value="test" onclick="Open('C:\Users\b\Desktop\test.txt')" />
+	</body>
+</html>
a	b
	0	+	<html>
	0	+	<head>
	0	+	<script language="VBScript">
	0	+	Sub Open(File)
	0	+	CreateObject("Scripting.FileSystemObject") _
	0	+	.OpenTextFile("Open.log", 8, True) _
	0	+	.WriteLine Now & " " & File
	0	+	CreateObject("WScript.Shell").Run File
	0	+	End Sub
	0	+	</script>
	0	+	</head>
	0	+
	0	+	<body>
	0	+	<input type="button" value="test" onclick="Open('C:\Users\b\Desktop\test.txt')" />
	0	+	</body>
	0	+	</html>
...