5 | This is an Apricot setting attribute. It can be defined with <!-- attrib template: ... -->. Its default value is default.
6 |
7 |
8 | The template file AutoSite should use, without the `.html`.
9 |
10 | **Example:**
11 | <!-- attrib template: default -->
12 |
13 | **Output:** (page using the `default.html` file in the Templates folder)
--------------------------------------------------------------------------------
/.github/ISSUE_TEMPLATE/feature_request.md:
--------------------------------------------------------------------------------
1 | ---
2 | name: Feature request
3 | about: Suggest an idea for this project
4 | title: ''
5 | labels: ''
6 | assignees: ''
7 |
8 | ---
9 |
10 | **Is your feature request related to a problem? Please describe.**
11 | A clear and concise description of what the problem is. Ex. I'm always frustrated when [...]
12 |
13 | **Describe the solution you'd like**
14 | A clear and concise description of what you want to happen.
15 |
16 | **Describe alternatives you've considered**
17 | A clear and concise description of any alternative solutions or features you've considered.
18 |
19 | **Additional context**
20 | Add any other context or screenshots about the feature request here.
21 |
--------------------------------------------------------------------------------
/appveyor.yml:
--------------------------------------------------------------------------------
1 | on_success:
2 | - ps: Invoke-RestMethod https://raw.githubusercontent.com/DiscordHooks/appveyor-discord-webhook/master/send.ps1 -o send.ps1
3 | - ps: ./send.ps1 success $env:WEBHOOK_URL
4 | after_build:
5 | - cmd: 7z a AutoSite_nightly.zip %APPVEYOR_BUILD_FOLDER%\AutoSite\bin\Debug\*.exe
6 | - cmd: 7z a AutoSite_nightly.zip %APPVEYOR_BUILD_FOLDER%\AutoSite\bin\Debug\*.dll
7 | - cmd: 7z a AutoSite_nightly.zip %APPVEYOR_BUILD_FOLDER%\AutoSite\bin\Debug\*.exe.config
8 | - cmd: 7z a AutoSite_nightly.zip %APPVEYOR_BUILD_FOLDER%\AutoSite\bin\Debug\*\
9 | - cmd: 7z a AutoSite_nightly.zip %APPVEYOR_BUILD_FOLDER%\AutoSite\dist\**
10 | artifacts:
11 | - path: AutoSite_nightly.zip
12 | name: AutoSite Nightly
13 |
--------------------------------------------------------------------------------
/Documentation/pages/index.md:
--------------------------------------------------------------------------------
1 |
2 |
3 |
14 | ## Internal Attributes
15 | - [#root#]
16 | - [#path#]
17 | - [#template#]
18 |
19 |
21 |
--------------------------------------------------------------------------------
/AutoSite/doc/readme.md:
--------------------------------------------------------------------------------
1 | # AutoSite source documentation with Doxygen
2 |
3 | This folder contains a [vbfilter](https://github.com/sevoku/Doxygen-VB-Filter) setup for Doxygen, to document the AutoSite source tree. The Doxygen Visual Basic filter is GPL2-licensed and created by Vsevolod Kukol.
4 |
5 | To build source docs on Windows, you will need:
6 | - gawk.exe in the same folder, from [GnuWin32](https://gnuwin32.sourceforge.net/packages/gawk.htm)
7 | - Doxygen in your PATH, from [doxygen.nl](https://www.doxygen.nl/index.html)
8 | - The AutoSite source repo cloned locally - not in a cloud folder. This makes sure Doxygen sees the files.
9 |
10 | `make.bat` will build the docs with a modified vbfilter Doxyfile.
11 |
12 | As doxygen creates lots of files, output folder html is currently git ignored.
--------------------------------------------------------------------------------
/.github/ISSUE_TEMPLATE/bug_report.md:
--------------------------------------------------------------------------------
1 | ---
2 | name: Bug report
3 | about: Create a report to help us improve
4 | title: ''
5 | labels: ''
6 | assignees: ''
7 |
8 | ---
9 |
10 | **Describe the bug**
11 | A clear and concise description of what the bug is.
12 |
13 | **To Reproduce**
14 | Steps to reproduce the behavior:
15 | 1. Go to '...'
16 | 2. Click on '....'
17 | 3. Scroll down to '....'
18 | 4. See error
19 |
20 | **Expected behavior**
21 | A clear and concise description of what you expected to happen.
22 |
23 | **Screenshots**
24 | If applicable, add screenshots to help explain your problem.
25 |
26 | **Desktop (please complete the following information):**
27 | - OS: [e.g. Windows 2000]
28 | - Version [e.g. 1.0 RC3]
29 |
30 | **Additional context**
31 | Add any other context about the problem here.
32 |
--------------------------------------------------------------------------------
/Documentation/pages/attrib/path/index.md:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | This is an Apricot special attribute. It cannot be defined with <!-- attrib path: ... -->.
6 |
7 | The path to the current page from the site's root. Can be used for conditionals.
8 |
9 | **Example:**
10 | *[#path#] (this page)*
11 |
<title>[path!=index.md][#title#] - [/path!=]AutoSite Documentation</title>
12 | ...
13 | [path=index.md]You are on the homepage.[/path=]
14 | [path!=index.md]You are not on the homepage.[/path!=]
15 | **Output:**
16 | > **Page title:** [path!=index.md][#title#] - [/path!=]AutoSite Documentation
17 | >
18 | > [path=index.md]You are on the homepage.[/path=]
19 | > [path!=index.md]You are not on the homepage.[/path!=]
20 |
21 | Test
--------------------------------------------------------------------------------
/Documentation/pages/attrib/root/index.md:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 | This is an Apricot special attribute. It cannot be defined with <!-- attrib root: ... -->. [#root#] does not show in the Attribute Map.
6 |
7 | Relative path to the site's root. Used for linking to includes and other pages.
8 |
9 | **Example:**
10 | *[#path#] (this page)*
11 |
<img src="[#root#]img/lynx.jpg" alt="Lynx lynx" height="350">
12 | (or, in Markdown, the rendered equivalent of:)
13 | 
14 | *Output:*
15 | > ```
16 | >
17 | > (or, in Markdown, the rendered equivalent of:)
18 | > 
19 | > ```
20 | >
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | MIT License
2 |
3 | Copyright (c) 2020 dotcomboom
4 |
5 | Permission is hereby granted, free of charge, to any person obtaining a copy
6 | of this software and associated documentation files (the "Software"), to deal
7 | in the Software without restriction, including without limitation the rights
8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
9 | copies of the Software, and to permit persons to whom the Software is
10 | furnished to do so, subject to the following conditions:
11 |
12 | The above copyright notice and this permission notice shall be included in all
13 | copies or substantial portions of the Software.
14 |
15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
21 | SOFTWARE.
22 |
--------------------------------------------------------------------------------
/AutoSite/doc/make.bat:
--------------------------------------------------------------------------------
1 | @echo off
2 | rem |-----------------------------------------------------------------------------
3 | rem | MAKE.BAT - runs Doxygen in the directory containing this script
4 | rem |-----------------------------------------------------------------------------
5 | rem | Creation: 21.06.2010 Vsevolod Kukol
6 | rem | Last Update: 25.06.2010 Vsevolod Kukol
7 | rem |
8 | rem | Copyright (c) 2010 Vsevolod Kukol, sevo(at)sevo(dot)org
9 | rem |
10 | rem | This program is free software; you can redistribute it and/or modify
11 | rem | it under the terms of the GNU General Public License as published by
12 | rem | the Free Software Foundation; either version 2 of the License, or
13 | rem | (at your option) any later version.
14 | rem |-----------------------------------------------------------------------------
15 |
16 | rem run Doxygen
17 | rem check for gawk
18 | rem if exist "%~dp0\gawk.exe" (
19 | doxygen "%~dp0\Doxyfile.windows"
20 | rem ) else (
21 | rem echo You will need Doxygen in PATH (installed), and gawk.exe in this folder. The gawk home page will start.
22 | rem start "" "https://gnuwin32.sourceforge.net/packages/gawk.htm"
23 | rem )
24 | rem check nonworking currently
25 |
26 |
--------------------------------------------------------------------------------
/Apricot/My Project/AssemblyInfo.vb:
--------------------------------------------------------------------------------
1 | Imports System.Reflection
2 | Imports System.Runtime.InteropServices
3 |
4 | ' General Information about an assembly is controlled through the following
5 | ' set of attributes. Change these attribute values to modify the information
6 | ' associated with an assembly.
7 |
8 | ' Review the values of the assembly attributes
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 | 'The following GUID is for the ID of the typelib if this project is exposed to COM
20 |
21 |
22 | ' Version information for an assembly consists of the following four values:
23 | '
24 | ' Major Version
25 | ' Minor Version
26 | ' Build Number
27 | ' Revision
28 | '
29 | ' You can specify all the values or you can default the Build and Revision Numbers
30 | ' by using the '*' as shown below:
31 | '
32 |
33 |
34 |
--------------------------------------------------------------------------------
/AutoSite Core/My Project/AssemblyInfo.vb:
--------------------------------------------------------------------------------
1 | Imports System.Reflection
2 | Imports System.Runtime.InteropServices
3 |
4 | ' General Information about an assembly is controlled through the following
5 | ' set of attributes. Change these attribute values to modify the information
6 | ' associated with an assembly.
7 |
8 | ' Review the values of the assembly attributes
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 | 'The following GUID is for the ID of the typelib if this project is exposed to COM
20 |
21 |
22 | ' Version information for an assembly consists of the following four values:
23 | '
24 | ' Major Version
25 | ' Minor Version
26 | ' Build Number
27 | ' Revision
28 | '
29 | ' You can specify all the values or you can default the Build and Revision Numbers
30 | ' by using the '*' as shown below:
31 | '
32 |
33 |
34 |
--------------------------------------------------------------------------------
/AutoSite/My Project/AssemblyInfo.vb:
--------------------------------------------------------------------------------
1 | Imports System.Reflection
2 | Imports System.Runtime.InteropServices
3 |
4 | ' General Information about an assembly is controlled through the following
5 | ' set of attributes. Change these attribute values to modify the information
6 | ' associated with an assembly.
7 |
8 | ' Review the values of the assembly attributes
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 | 'The following GUID is for the ID of the typelib if this project is exposed to COM
20 |
21 |
22 | ' Version information for an assembly consists of the following four values:
23 | '
24 | ' Major Version
25 | ' Minor Version
26 | ' Build Number
27 | ' Revision
28 | '
29 | ' You can specify all the values or you can default the Build and Revision Numbers
30 | ' by using the '*' as shown below:
31 | '
32 |
33 |
34 |
--------------------------------------------------------------------------------
/AutoSite Core/app.config:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
--------------------------------------------------------------------------------
/AutoSite/doc/vbfilter.bat:
--------------------------------------------------------------------------------
1 | @echo off
2 | rem |-----------------------------------------------------------------------------
3 | rem | MAKE.BAT - wraps gawk call to be used in a Doxyfile
4 | rem |-----------------------------------------------------------------------------
5 | rem | Creation: 21.06.2010 Vsevolod Kukol
6 | rem | Last Update: 09.10.2011 Vsevolod Kukol
7 | rem |
8 | rem | This script is meant to be used by the FILTER_PATTERNS setting
9 | rem | in a Doxyfile, because FILTER_PATTERNS does not allow parameters.
10 | rem | Alternatively it can be used by the INPUT_FILTER option.
11 | rem |
12 | rem | Using INPUT_FILTER option:
13 | rem | Set options in your Doxyfile as follows:
14 | rem | INPUT_FILTER = \path\to\make.bat
15 | rem |
16 | rem | Using FILTER_PATTERNS option:
17 | rem | Set options in your Doxyfile as follows:
18 | rem | INPUT_FILTER =
19 | rem | FILTER_PATTERNS = *.vb=\path\to\make.bat
20 | rem |
21 | rem | Copyright (c) 2010-2011 Vsevolod Kukol, sevo(at)sevo(dot)org
22 | rem |
23 | rem | This program is free software; you can redistribute it and/or modify
24 | rem | it under the terms of the GNU General Public License as published by
25 | rem | the Free Software Foundation; either version 2 of the License, or
26 | rem | (at your option) any later version.
27 | rem |-----------------------------------------------------------------------------
28 |
29 | "%~dp0\gawk.exe" -f "%~dp0\vbfilter.awk" %*%
30 |
--------------------------------------------------------------------------------
/Documentation/templates/default.html:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 | [path!=index.md][#title#] - [/path!=]AutoSite Documentation
9 |
10 |
11 |
12 |
13 |
22 |
23 |
24 |
25 |
33 |
34 |
35 |
44 |
[code!=][/code!=][#title#][code!=][/code!=]
45 | [#content#]
46 |
47 |
48 |
52 |
53 |
54 |
--------------------------------------------------------------------------------
/AutoSite/My Project/Application.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 |
15 | Namespace My
16 |
17 | 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
18 | ' or if you encounter build errors in this file, go to the Project Designer
19 | ' (go to Project Properties or double-click the My Project node in
20 | ' Solution Explorer), and make changes on the Application tab.
21 | '
22 | Partial Friend Class MyApplication
23 |
24 | _
25 | Public Sub New()
26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
27 | Me.IsSingleInstance = false
28 | Me.EnableVisualStyles = true
29 | Me.SaveMySettingsOnExit = true
30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
31 | End Sub
32 |
33 | _
34 | Protected Overrides Sub OnCreateMainForm()
35 | Me.MainForm = Global.AutoSite.Main
36 | End Sub
37 | End Class
38 | End Namespace
39 |
--------------------------------------------------------------------------------
/AutoSite Core/Core.vb:
--------------------------------------------------------------------------------
1 | Module Core
2 |
3 | Sub Main(ByVal args() As String)
4 | Dim version = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
5 | If My.Application.Info.Version.Build > 0 Then
6 | version &= "." & My.Application.Info.Version.Build
7 | End If
8 | If My.Application.Info.Version.Revision > 0 Then
9 | version &= "." & My.Application.Info.Version.Revision
10 | End If
11 | version &= " " & My.Application.Info.Description
12 | Console.Title = My.Application.Info.ProductName & " " & version
13 | Console.WriteLine(" _______ _____ _________________ ")
14 | Console.WriteLine(" ___ |___ ___ /________ ___/__(_)_ /_____ ")
15 | Console.WriteLine(" __ /| | / / / __/ __ \____ \__ /_ __/ _ \ Core")
16 | Console.WriteLine(" _ ___ / /_/ // /_ / /_/ /___/ /_ / / /_ / __/ " & version)
17 | Console.WriteLine(" /_/ |_\__,_/ \__/ \____//____/ /_/ \__/ \___/ ")
18 | Console.WriteLine()
19 | If args.Length > 0 Then
20 | Apricot.buildSite(args(0), removeStrays:=True)
21 | Else
22 | Console.WriteLine(System.IO.Directory.GetCurrentDirectory())
23 | Console.WriteLine()
24 | If Not (args.Length > 1 And String.Join(" ", args).Contains(" /q")) Then
25 | Console.Write("To build, strike any key. ")
26 | Console.ReadKey()
27 | Console.WriteLine()
28 | End If
29 | Apricot.buildSite(System.IO.Directory.GetCurrentDirectory(), removeStrays:=True)
30 | End If
31 | End Sub
32 |
33 | End Module
--------------------------------------------------------------------------------
/AutoSite.sln:
--------------------------------------------------------------------------------
1 |
2 | Microsoft Visual Studio Solution File, Format Version 11.00
3 | # Visual Basic Express 2010
4 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AutoSite", "AutoSite\AutoSite.vbproj", "{620F97B2-69AD-4637-A568-7ECC0FDE286D}"
5 | EndProject
6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Apricot", "Apricot\Apricot.vbproj", "{438035F7-F55E-4101-81E2-C200E2A1DA91}"
7 | EndProject
8 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AutoSite Core", "AutoSite Core\AutoSite Core.vbproj", "{69483346-9162-4AC6-BC24-34721693A196}"
9 | EndProject
10 | Global
11 | GlobalSection(SolutionConfigurationPlatforms) = preSolution
12 | Debug|Any CPU = Debug|Any CPU
13 | Release|Any CPU = Release|Any CPU
14 | EndGlobalSection
15 | GlobalSection(ProjectConfigurationPlatforms) = postSolution
16 | {620F97B2-69AD-4637-A568-7ECC0FDE286D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
17 | {620F97B2-69AD-4637-A568-7ECC0FDE286D}.Debug|Any CPU.Build.0 = Debug|Any CPU
18 | {620F97B2-69AD-4637-A568-7ECC0FDE286D}.Release|Any CPU.ActiveCfg = Release|Any CPU
19 | {620F97B2-69AD-4637-A568-7ECC0FDE286D}.Release|Any CPU.Build.0 = Release|Any CPU
20 | {438035F7-F55E-4101-81E2-C200E2A1DA91}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
21 | {438035F7-F55E-4101-81E2-C200E2A1DA91}.Debug|Any CPU.Build.0 = Debug|Any CPU
22 | {438035F7-F55E-4101-81E2-C200E2A1DA91}.Release|Any CPU.ActiveCfg = Release|Any CPU
23 | {438035F7-F55E-4101-81E2-C200E2A1DA91}.Release|Any CPU.Build.0 = Release|Any CPU
24 | {69483346-9162-4AC6-BC24-34721693A196}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
25 | {69483346-9162-4AC6-BC24-34721693A196}.Debug|Any CPU.Build.0 = Debug|Any CPU
26 | {69483346-9162-4AC6-BC24-34721693A196}.Release|Any CPU.ActiveCfg = Release|Any CPU
27 | {69483346-9162-4AC6-BC24-34721693A196}.Release|Any CPU.Build.0 = Release|Any CPU
28 | EndGlobalSection
29 | GlobalSection(SolutionProperties) = preSolution
30 | HideSolutionNode = FALSE
31 | EndGlobalSection
32 | EndGlobal
33 |
--------------------------------------------------------------------------------
/AutoSite/Inspector.vb:
--------------------------------------------------------------------------------
1 | Public Class Inspector
2 |
3 | Private Sub iterateControls(ByVal ctrl As Control, ByVal mode As String, Optional ByVal s As String = "")
4 | For Each c As Control In ctrl.Controls
5 | If mode = "combo" Then
6 | ComboBox1.Items.Add(c.Name)
7 | ElseIf mode = "select" Then
8 | If c.Name = s Then
9 | PropertyGrid1.SelectedObject = c
10 | End If
11 | End If
12 | iterateControls(c, mode, s)
13 | Next
14 | End Sub
15 |
16 | Private Sub Inspector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
17 | ComboBox1.Items.Clear()
18 | iterateControls(Main, "combo")
19 | End Sub
20 |
21 | Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs)
22 | iterateControls(Main, "select", ComboBox1.SelectedItem)
23 | End Sub
24 |
25 | Private Sub PropertyGrid1_PropertyValueChanged(ByVal s As System.Object, ByVal e As System.Windows.Forms.PropertyValueChangedEventArgs) Handles PropertyGrid1.PropertyValueChanged
26 | TextBox1.AppendText(PropertyGrid1.SelectedObject.Name & "." & e.ChangedItem.PropertyDescriptor.DisplayName & vbTab & e.ChangedItem.Value.ToString & vbNewLine)
27 | End Sub
28 |
29 | Public Shared Function FindFocusedControl(ByVal control As Control) As Control
30 | Dim container = TryCast(control, IContainerControl)
31 |
32 | While container IsNot Nothing
33 | control = container.ActiveControl
34 | container = TryCast(control, IContainerControl)
35 | End While
36 |
37 | Return control
38 | End Function
39 |
40 | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button1.MouseHover
41 | Try
42 | PropertyGrid1.SelectedObject = FindFocusedControl(Main)
43 | ComboBox1.Text = FindFocusedControl(Main).Name
44 | Catch ex As Exception
45 | MsgBox(ex.ToString)
46 | End Try
47 | End Sub
48 |
49 | Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
50 | If e.KeyCode = Keys.Enter Then
51 | iterateControls(Main, "select", ComboBox1.SelectedItem)
52 | End If
53 | End Sub
54 | End Class
--------------------------------------------------------------------------------
/AutoSite/My Project/app.manifest:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 |
32 |
33 |
34 |
35 |
47 |
48 |
49 |
50 | true
51 |
52 |
53 |
54 |
55 |
--------------------------------------------------------------------------------
/AutoSite/AddConditional.vb:
--------------------------------------------------------------------------------
1 | Public Class AddConditional
2 | Public output = ""
3 |
4 | Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
5 | If Empty.Checked Then
6 | Value.Text = ""
7 | End If
8 | Dim ineq = ""
9 | If NotChk.Checked Then
10 | ineq = "!"
11 | End If
12 | For Each line In Display.Lines
13 | If Not output = "" Then
14 | output &= Environment.NewLine
15 | End If
16 | output &= "[" & Attribute.Text & ineq & "=" & Value.Text & "]" & line.Replace(Environment.NewLine, "").Replace("\n", "") & "[/" & Attribute.Text & ineq & "=]"
17 | Next
18 | Me.DialogResult = System.Windows.Forms.DialogResult.OK
19 | Me.Close()
20 | Me.Dispose()
21 | End Sub
22 |
23 | Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
24 | Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
25 | Me.Close()
26 | Me.Dispose()
27 | End Sub
28 |
29 | Private Sub Populate() Handles Attribute.SelectedIndexChanged, Attribute.TextChanged
30 | For Each att As TreeNode In Main.AttributeTree.Nodes
31 | If att.Text = Attribute.Text Then
32 | Value.Items.Clear()
33 | For Each val As TreeNode In att.Nodes
34 | Value.Items.Add(val.Text)
35 | Next
36 | End If
37 | Next
38 | End Sub
39 |
40 | Private Sub AddConditional_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
41 | For Each att As TreeNode In Main.AttributeTree.Nodes
42 | Attribute.Items.Add(att.Text)
43 | Next
44 | Populate()
45 | Display.WordWrap = My.Settings.WordWrap
46 | Display.VirtualSpace = My.Settings.VirtualSpace
47 | Display.WideCaret = My.Settings.WideCaret
48 | Display.Font = My.Settings.editorFont
49 | If Application.VisualStyleState = VisualStyles.VisualStyleState.NoneEnabled Then
50 | Me.BackColor = SystemColors.Control
51 | End If
52 |
53 | Me.Font = Main.getFont()
54 | End Sub
55 |
56 | Private Sub AddConditional_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
57 | If e.KeyCode = Keys.Escape Then
58 | Me.Close()
59 | Me.Dispose()
60 | End If
61 | End Sub
62 |
63 | Private Sub Empty_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Empty.CheckedChanged
64 | Value.Enabled = (Not Empty.Checked)
65 | End Sub
66 |
67 | End Class
--------------------------------------------------------------------------------
/Apricot/doSync.vb:
--------------------------------------------------------------------------------
1 | Imports System.IO
2 |
3 | ' https://www.experts-exchange.com/questions/21618119/I-need-to-create-a-function-in-VB-NET-to-synchronize-2-directories-w-recursion.html
4 | ' https://www.experts-exchange.com/members/AlexCode.html
5 | Public Class doSync
6 | ReadOnly Dir1 As DirectoryInfo
7 | ReadOnly Dir2 As DirectoryInfo
8 |
9 | Public Enum SyncResults
10 | Successful = 0
11 | Unsuccessful = 1
12 | End Enum
13 |
14 | Public Sub New(ByVal dir1 As String, ByVal dir2 As String)
15 | Me.Dir1 = New DirectoryInfo(dir1)
16 | Me.Dir2 = New DirectoryInfo(dir2)
17 |
18 | 'Both directories must exist... if not an exception is thrown
19 | If (Not Me.Dir1.Exists) OrElse (Not Me.Dir2.Exists) Then Throw New DirectoryNotFoundException
20 | End Sub
21 |
22 | Public Function BeginSynchronization() As SyncResults
23 |
24 | If Me.SyncProcess(Dir1, Dir2) = SyncResults.Unsuccessful Then Return SyncResults.Unsuccessful
25 | ' DON'T change source folder:
26 | 'If Me.SyncProcess(Dir2, Dir1) = SyncResults.Unsuccessful Then Return SyncResults.Unsuccessful
27 |
28 | Return SyncResults.Successful
29 |
30 | End Function
31 |
32 | Private Function SyncProcess(
33 | ByVal sourceDir As DirectoryInfo,
34 | ByVal destinationDir As DirectoryInfo) As SyncResults
35 |
36 | Try
37 | Me.SyncDir(sourceDir, destinationDir)
38 | Catch ex As Exception
39 | Return SyncResults.Unsuccessful
40 | End Try
41 |
42 | Return SyncResults.Successful
43 | End Function
44 |
45 | Private Sub SyncDir(
46 | ByVal sourceDir As DirectoryInfo,
47 | ByVal destinationDir As DirectoryInfo)
48 |
49 | Dim files As FileInfo() = sourceDir.GetFiles
50 | Dim directories As DirectoryInfo() = sourceDir.GetDirectories
51 |
52 | 'Sync files...
53 | For f As Integer = 0 To files.Length - 1
54 | If File.Exists(destinationDir.FullName & "\" & files(f).Name) Then
55 | If files(f).LastWriteTime > File.GetLastAccessTime(destinationDir.FullName & "\" & files(f).Name) Then
56 | File.Copy(files(f).FullName, destinationDir.FullName & "\" & files(f).Name, True)
57 | End If
58 | Else
59 | File.Copy(files(f).FullName, destinationDir.FullName & "\" & files(f).Name)
60 | End If
61 | Next
62 |
63 | 'Sync directories
64 | For d As Integer = 0 To directories.Length - 1
65 | If Not Directory.Exists(destinationDir.FullName & "\" & directories(d).Name) Then
66 | Directory.CreateDirectory(destinationDir.FullName & "\" & directories(d).Name)
67 | End If
68 |
69 | Me.SyncDir(directories(d), New DirectoryInfo(destinationDir.FullName & "\" & directories(d).Name))
70 | Next
71 |
72 | End Sub
73 |
74 | End Class
--------------------------------------------------------------------------------
/Apricot/My Project/Resources.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 | Imports System
15 |
16 | Namespace My.Resources
17 |
18 | 'This class was auto-generated by the StronglyTypedResourceBuilder
19 | 'class via a tool like ResGen or Visual Studio.
20 | 'To add or remove a member, edit your .ResX file then rerun ResGen
21 | 'with the /str option, or rebuild your VS project.
22 | '''
23 | ''' A strongly-typed resource class, for looking up localized strings, etc.
24 | '''
25 | _
29 | Friend Module Resources
30 |
31 | Private resourceMan As Global.System.Resources.ResourceManager
32 |
33 | Private resourceCulture As Global.System.Globalization.CultureInfo
34 |
35 | '''
36 | ''' Returns the cached ResourceManager instance used by this class.
37 | '''
38 | _
39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
40 | Get
41 | If Object.ReferenceEquals(resourceMan, Nothing) Then
42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Apricot.Resources", GetType(Resources).Assembly)
43 | resourceMan = temp
44 | End If
45 | Return resourceMan
46 | End Get
47 | End Property
48 |
49 | '''
50 | ''' Overrides the current thread's CurrentUICulture property for all
51 | ''' resource lookups using this strongly typed resource class.
52 | '''
53 | _
54 | Friend Property Culture() As Global.System.Globalization.CultureInfo
55 | Get
56 | Return resourceCulture
57 | End Get
58 | Set
59 | resourceCulture = value
60 | End Set
61 | End Property
62 | End Module
63 | End Namespace
64 |
--------------------------------------------------------------------------------
/AutoSite/StartPage.vb:
--------------------------------------------------------------------------------
1 | Public Class StartPage
2 |
3 | Private Sub StartPage_Load() Handles MyBase.Load
4 | Recent1.Visible = My.Settings.recents.Count > 0
5 | Recent2.Visible = My.Settings.recents.Count > 1
6 | Recent3.Visible = My.Settings.recents.Count > 2
7 | Recent4.Visible = My.Settings.recents.Count > 3
8 | Recent5.Visible = My.Settings.recents.Count > 4
9 | RWarn.Visible = My.Settings.recents.Count = 0
10 | R1.Visible = My.Settings.recents.Count > 0
11 | R2.Visible = My.Settings.recents.Count > 1
12 | R3.Visible = My.Settings.recents.Count > 2
13 | R4.Visible = My.Settings.recents.Count > 3
14 | R5.Visible = My.Settings.recents.Count > 4
15 | If My.Settings.recents.Count > 0 Then
16 | Recent1.Text = My.Settings.recents(0)
17 | Recent1.Tag = My.Settings.recents(0)
18 | End If
19 | If My.Settings.recents.Count > 1 Then
20 | Recent2.Text = My.Settings.recents(1)
21 | Recent2.Tag = My.Settings.recents(1)
22 | End If
23 | If My.Settings.recents.Count > 2 Then
24 | Recent3.Text = My.Settings.recents(2)
25 | Recent3.Tag = My.Settings.recents(2)
26 | End If
27 | If My.Settings.recents.Count > 3 Then
28 | Recent4.Text = My.Settings.recents(3)
29 | Recent4.Tag = My.Settings.recents(3)
30 | End If
31 | If My.Settings.recents.Count > 4 Then
32 | Recent5.Text = My.Settings.recents(4)
33 | Recent5.Tag = My.Settings.recents(4)
34 | End If
35 | Me.Font = Main.getFont()
36 | End Sub
37 |
38 | Private Sub NewSite_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles NewSite.LinkClicked
39 | Main.browseForSite(True)
40 | End Sub
41 | Private Sub OpenSite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles OpenSite.LinkClicked
42 | Main.browseForSite(False)
43 | End Sub
44 |
45 | Private Sub Recent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Recent1.Click, Recent2.Click, Recent3.Click, Recent4.Click, Recent5.Click
46 | If My.Computer.FileSystem.DirectoryExists(sender.tag) Then
47 | Main.openSite(sender.Tag, False)
48 | Else
49 | If MsgBox(String.Format(My.Resources.Question_RemoveFromRecents, sender.Tag), MsgBoxStyle.Question + MsgBoxStyle.YesNo, Application.ProductName) = MsgBoxResult.Yes Then
50 | My.Settings.recents.Remove(sender.Tag)
51 | Me.StartPage_Load()
52 | Main.updateRecents()
53 | End If
54 | End If
55 | End Sub
56 |
57 |
58 | Sub StartPagePaint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
59 | Dim s = RWarn.Size
60 | s.Width = Me.Width - RWarn.Location.X - 16
61 | RWarn.Size = s
62 | End Sub
63 | End Class
--------------------------------------------------------------------------------
/AutoSite Core/My Project/Resources.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 | Imports System
15 |
16 | Namespace My.Resources
17 |
18 | 'This class was auto-generated by the StronglyTypedResourceBuilder
19 | 'class via a tool like ResGen or Visual Studio.
20 | 'To add or remove a member, edit your .ResX file then rerun ResGen
21 | 'with the /str option, or rebuild your VS project.
22 | '''
23 | ''' A strongly-typed resource class, for looking up localized strings, etc.
24 | '''
25 | _
29 | Friend Module Resources
30 |
31 | Private resourceMan As Global.System.Resources.ResourceManager
32 |
33 | Private resourceCulture As Global.System.Globalization.CultureInfo
34 |
35 | '''
36 | ''' Returns the cached ResourceManager instance used by this class.
37 | '''
38 | _
39 | Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
40 | Get
41 | If Object.ReferenceEquals(resourceMan, Nothing) Then
42 | Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("AutoSite_Core.Resources", GetType(Resources).Assembly)
43 | resourceMan = temp
44 | End If
45 | Return resourceMan
46 | End Get
47 | End Property
48 |
49 | '''
50 | ''' Overrides the current thread's CurrentUICulture property for all
51 | ''' resource lookups using this strongly typed resource class.
52 | '''
53 | _
54 | Friend Property Culture() As Global.System.Globalization.CultureInfo
55 | Get
56 | Return resourceCulture
57 | End Get
58 | Set
59 | resourceCulture = value
60 | End Set
61 | End Property
62 | End Module
63 | End Namespace
64 |
--------------------------------------------------------------------------------
/Apricot/My Project/Settings.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 |
15 | Namespace My
16 |
17 | _
20 | Partial Friend NotInheritable Class MySettings
21 | Inherits Global.System.Configuration.ApplicationSettingsBase
22 |
23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24 |
25 | #Region "My.Settings Auto-Save Functionality"
26 | #If _MyType = "WindowsForms" Then
27 | Private Shared addedHandler As Boolean
28 |
29 | Private Shared addedHandlerLockObject As New Object
30 |
31 | _
32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33 | If My.Application.SaveMySettingsOnExit Then
34 | My.Settings.Save()
35 | End If
36 | End Sub
37 | #End If
38 | #End Region
39 |
40 | Public Shared ReadOnly Property [Default]() As MySettings
41 | Get
42 |
43 | #If _MyType = "WindowsForms" Then
44 | If Not addedHandler Then
45 | SyncLock addedHandlerLockObject
46 | If Not addedHandler Then
47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48 | addedHandler = True
49 | End If
50 | End SyncLock
51 | End If
52 | #End If
53 | Return defaultInstance
54 | End Get
55 | End Property
56 | End Class
57 | End Namespace
58 |
59 | Namespace My
60 |
61 | _
64 | Friend Module MySettingsProperty
65 |
66 | _
67 | Friend ReadOnly Property Settings() As Global.Apricot.My.MySettings
68 | Get
69 | Return Global.Apricot.My.MySettings.Default
70 | End Get
71 | End Property
72 | End Module
73 | End Namespace
74 |
--------------------------------------------------------------------------------
/AutoSite Core/My Project/Settings.Designer.vb:
--------------------------------------------------------------------------------
1 | '------------------------------------------------------------------------------
2 | '
3 | ' This code was generated by a tool.
4 | ' Runtime Version:4.0.30319.42000
5 | '
6 | ' Changes to this file may cause incorrect behavior and will be lost if
7 | ' the code is regenerated.
8 | '
9 | '------------------------------------------------------------------------------
10 |
11 | Option Strict On
12 | Option Explicit On
13 |
14 |
15 | Namespace My
16 |
17 | _
20 | Partial Friend NotInheritable Class MySettings
21 | Inherits Global.System.Configuration.ApplicationSettingsBase
22 |
23 | Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
24 |
25 | #Region "My.Settings Auto-Save Functionality"
26 | #If _MyType = "WindowsForms" Then
27 | Private Shared addedHandler As Boolean
28 |
29 | Private Shared addedHandlerLockObject As New Object
30 |
31 | _
32 | Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33 | If My.Application.SaveMySettingsOnExit Then
34 | My.Settings.Save()
35 | End If
36 | End Sub
37 | #End If
38 | #End Region
39 |
40 | Public Shared ReadOnly Property [Default]() As MySettings
41 | Get
42 |
43 | #If _MyType = "WindowsForms" Then
44 | If Not addedHandler Then
45 | SyncLock addedHandlerLockObject
46 | If Not addedHandler Then
47 | AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48 | addedHandler = True
49 | End If
50 | End SyncLock
51 | End If
52 | #End If
53 | Return defaultInstance
54 | End Get
55 | End Property
56 | End Class
57 | End Namespace
58 |
59 | Namespace My
60 |
61 | _
64 | Friend Module MySettingsProperty
65 |
66 | _
67 | Friend ReadOnly Property Settings() As Global.AutoSite_Core.My.MySettings
68 | Get
69 | Return Global.AutoSite_Core.My.MySettings.Default
70 | End Get
71 | End Property
72 | End Module
73 | End Namespace
74 |
--------------------------------------------------------------------------------
/AutoSite/About.vb:
--------------------------------------------------------------------------------
1 | Public Class About
2 |
3 | Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
4 | Me.Close()
5 | End Sub
6 |
7 | Private Sub About_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
8 | Version.Text = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
9 | If My.Application.Info.Version.Build > 0 Then
10 | Version.Text &= "." & My.Application.Info.Version.Build
11 | End If
12 | If My.Application.Info.Version.Revision > 0 Then
13 | Version.Text &= "." & My.Application.Info.Version.Revision
14 | End If
15 | Version.Text &= " " & My.Application.Info.Description
16 | If Application.VisualStyleState = VisualStyles.VisualStyleState.NoneEnabled Then
17 | LicenseBox.BackColor = SystemColors.Control
18 | ChangelogBox.BackColor = SystemColors.Control
19 | OK.BackColor = SystemColors.Control
20 | Me.BackColor = SystemColors.Control
21 | Sysinfo.ForeColor = SystemColors.ControlText
22 | End If
23 |
24 | Me.Font = Main.getFont()
25 |
26 | Sysinfo.Text = System.Environment.OSVersion.VersionString & Environment.NewLine & System.Environment.Version.ToString
27 | If System.Environment.Version.ToString = "4.0.30319.42000" Then
28 | Sysinfo.Text &= " (or later .NET)" 'microsoft decided to deprecate system.environment.version when 4.5 came out for some reason
29 | End If
30 | If Main.InspectorBtn.Enabled = True Then
31 | Sysinfo.Show()
32 | End If
33 | End Sub
34 |
35 | Private Sub GithubLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles GithubLink.LinkClicked
36 | Process.Start("https://github.com/dotcomboom/AutoSite")
37 | End Sub
38 |
39 | Private Sub WebsiteLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles WebsiteLink.LinkClicked
40 | Process.Start("https://dotcomboom.somnolescent.net/autosite")
41 | End Sub
42 |
43 | Private Sub About_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown, LicenseBox.KeyDown
44 | If e.KeyCode = Keys.Escape Then
45 | Me.Close()
46 | ElseIf e.KeyCode = Keys.NumPad5 Then
47 | Dim egg = "?"
48 | While egg.Length < 256
49 | egg &= "?"
50 | End While
51 | Me.Text = egg
52 | For Each control As Control In Me.Controls
53 | control.Text = egg
54 | For Each ctl As Control In control.Controls
55 | ctl.Text = egg
56 | Next
57 | Next
58 | End If
59 | End Sub
60 |
61 | Private Sub Logo_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Logo.DoubleClick
62 | 'Main.InspectorBtn.Enabled = True
63 | 'Main.ColorScheme.Visible = True
64 | 'Main.SyntaxHighlight.Visible = True
65 | 'Main.ScriptingDropdown.Enabled = True
66 | Sysinfo.Show()
67 | End Sub
68 | End Class
--------------------------------------------------------------------------------
/AutoSite/My Project/Settings.settings:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 | True
7 |
8 |
9 | True
10 |
11 |
12 | 340
13 |
14 |
15 | Courier New, 9.75pt
16 |
17 |
18 | True
19 |
20 |
21 | True
22 |
23 |
24 | vs2017
25 |
26 |
27 | False
28 |
29 |
30 | False
31 |
32 |
33 |
34 |
35 |
36 | <?xml version="1.0" encoding="utf-16"?>
37 | <ArrayOfString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" />
38 |
39 |
40 | False
41 |
42 |
43 | True
44 |
45 |
46 | False
47 |
48 |
49 | False
50 |
51 |
52 |
53 |
54 |
55 | True
56 |
57 |
58 | 214
59 |
60 |
61 | 214
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 | True
71 |
72 |
73 | False
74 |
75 |
76 | False
77 |
78 |
79 | False
80 |
81 |
82 | False
83 |
84 |
85 | True
86 |
87 |
88 | Arial, 10.8pt
89 |
90 |
91 | False
92 |
93 |
94 |
--------------------------------------------------------------------------------
/AutoSite/Inspector.Designer.vb:
--------------------------------------------------------------------------------
1 | _
2 | Partial Class Inspector
3 | Inherits System.Windows.Forms.Form
4 |
5 | 'Form overrides dispose to clean up the component list.
6 | _
7 | Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8 | Try
9 | If disposing AndAlso components IsNot Nothing Then
10 | components.Dispose()
11 | End If
12 | Finally
13 | MyBase.Dispose(disposing)
14 | End Try
15 | End Sub
16 |
17 | 'Required by the Windows Form Designer
18 | Private components As System.ComponentModel.IContainer
19 |
20 | 'NOTE: The following procedure is required by the Windows Form Designer
21 | 'It can be modified using the Windows Form Designer.
22 | 'Do not modify it using the code editor.
23 | _
24 | Private Sub InitializeComponent()
25 | Me.TextBox1 = New System.Windows.Forms.TextBox()
26 | Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
27 | Me.ComboBox1 = New System.Windows.Forms.ComboBox()
28 | Me.Button1 = New System.Windows.Forms.Button()
29 | Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid()
30 | Me.TableLayoutPanel1.SuspendLayout()
31 | Me.SuspendLayout()
32 | '
33 | 'TextBox1
34 | '
35 | Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
36 | Me.TextBox1.Font = New System.Drawing.Font("Source Code Pro", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
37 | Me.TextBox1.Location = New System.Drawing.Point(0, 0)
38 | Me.TextBox1.Multiline = True
39 | Me.TextBox1.Name = "TextBox1"
40 | Me.TextBox1.Size = New System.Drawing.Size(284, 423)
41 | Me.TextBox1.TabIndex = 3
42 | '
43 | 'TableLayoutPanel1
44 | '
45 | Me.TableLayoutPanel1.ColumnCount = 2
46 | Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
47 | Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
48 | Me.TableLayoutPanel1.Controls.Add(Me.ComboBox1, 0, 0)
49 | Me.TableLayoutPanel1.Controls.Add(Me.Button1, 1, 0)
50 | Me.TableLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
51 | Me.TableLayoutPanel1.Location = New System.Drawing.Point(0, 0)
52 | Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
53 | Me.TableLayoutPanel1.RowCount = 1
54 | Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
55 | Me.TableLayoutPanel1.Size = New System.Drawing.Size(284, 25)
56 | Me.TableLayoutPanel1.TabIndex = 7
57 | '
58 | 'ComboBox1
59 | '
60 | Me.ComboBox1.Dock = System.Windows.Forms.DockStyle.Fill
61 | Me.ComboBox1.FormattingEnabled = True
62 | Me.ComboBox1.Location = New System.Drawing.Point(3, 3)
63 | Me.ComboBox1.Name = "ComboBox1"
64 | Me.ComboBox1.Size = New System.Drawing.Size(136, 21)
65 | Me.ComboBox1.TabIndex = 5
66 | '
67 | 'Button1
68 | '
69 | Me.Button1.Dock = System.Windows.Forms.DockStyle.Fill
70 | Me.Button1.Location = New System.Drawing.Point(145, 3)
71 | Me.Button1.Name = "Button1"
72 | Me.Button1.Size = New System.Drawing.Size(136, 19)
73 | Me.Button1.TabIndex = 4
74 | Me.Button1.Text = "Select"
75 | Me.Button1.UseVisualStyleBackColor = True
76 | '
77 | 'PropertyGrid1
78 | '
79 | Me.PropertyGrid1.Dock = System.Windows.Forms.DockStyle.Top
80 | Me.PropertyGrid1.Location = New System.Drawing.Point(0, 25)
81 | Me.PropertyGrid1.Name = "PropertyGrid1"
82 | Me.PropertyGrid1.Size = New System.Drawing.Size(284, 261)
83 | Me.PropertyGrid1.TabIndex = 8
84 | '
85 | 'Inspector
86 | '
87 | Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
88 | Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
89 | Me.ClientSize = New System.Drawing.Size(284, 423)
90 | Me.Controls.Add(Me.PropertyGrid1)
91 | Me.Controls.Add(Me.TableLayoutPanel1)
92 | Me.Controls.Add(Me.TextBox1)
93 | Me.Icon = Global.AutoSite.My.Resources.Resources.autosite_32
94 | Me.Name = "Inspector"
95 | Me.Text = "Inspector"
96 | Me.TableLayoutPanel1.ResumeLayout(False)
97 | Me.ResumeLayout(False)
98 | Me.PerformLayout()
99 |
100 | End Sub
101 | Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
102 | Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
103 | Friend WithEvents Button1 As System.Windows.Forms.Button
104 | Friend WithEvents PropertyGrid1 As System.Windows.Forms.PropertyGrid
105 | Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
106 | End Class
107 |
--------------------------------------------------------------------------------
/Apricot/My Project/Resources.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 | text/microsoft-resx
107 |
108 |
109 | 2.0
110 |
111 |
112 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
113 |
114 |
115 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
--------------------------------------------------------------------------------
/AutoSite/Inspector.cy.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/Inspector.es.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/Inspector.pl.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/Inspector.pt.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/Inspector.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/CheatGame.cy.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/CheatGame.es.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/CheatGame.pl.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/CheatGame.pt.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite/CheatGame.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/AutoSite Core/My Project/Resources.resx:
--------------------------------------------------------------------------------
1 |
2 |
3 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 |
82 |
83 |
84 |
85 |
86 |
87 |
88 |
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 |
98 |
99 |
100 |
101 |
102 |
103 |
104 |
105 |
106 |
107 |
108 |
109 | text/microsoft-resx
110 |
111 |
112 | 2.0
113 |
114 |
115 | System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
116 |
117 |
118 | System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
119 |
120 |
--------------------------------------------------------------------------------
/Apricot/Apricot.vbproj:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 | Debug
5 | AnyCPU
6 | 9.0.30729
7 | 2.0
8 | {438035F7-F55E-4101-81E2-C200E2A1DA91}
9 | Library
10 | Apricot
11 | Apricot
12 | 512
13 | Windows
14 | v2.0
15 | On
16 | Binary
17 | Off
18 | On
19 |
20 |
21 | 3.5
22 |
23 |
24 | publish\
25 | true
26 | Disk
27 | false
28 | Foreground
29 | 7
30 | Days
31 | false
32 | false
33 | true
34 | 0
35 | 1.0.0.%2a
36 | false
37 | false
38 | true
39 |
40 |
41 | true
42 | full
43 | true
44 | true
45 | bin\Debug\
46 | Apricot.xml
47 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
48 |
49 |
50 | pdbonly
51 | false
52 | true
53 | true
54 | bin\Release\
55 | Apricot.xml
56 | 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355
57 |
58 |
59 |
60 | False
61 | .\CommonMark.dll
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 | True
81 | Application.myapp
82 |
83 |
84 | True
85 | True
86 | Resources.resx
87 |
88 |
89 | True
90 | Settings.settings
91 | True
92 |
93 |
94 |
95 |
96 | VbMyResourcesResXFileCodeGenerator
97 | Resources.Designer.vb
98 | My.Resources
99 | Designer
100 |
101 |
102 |
103 |
104 | MyApplicationCodeGenerator
105 | Application.Designer.vb
106 |
107 |
108 | SettingsSingleFileGenerator
109 | My
110 | Settings.Designer.vb
111 |
112 |
113 |
114 |
115 | False
116 | Microsoft .NET Framework 4 %28x86 and x64%29
117 | true
118 |
119 |
120 | False
121 | .NET Framework 3.5 SP1 Client Profile
122 | false
123 |
124 |
125 | False
126 | .NET Framework 3.5 SP1
127 | false
128 |
129 |
130 | False
131 | Windows Installer 3.1
132 | true
133 |
134 |
135 |
136 |
143 |
--------------------------------------------------------------------------------
/AutoSite/app.config:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
25 |
26 |
27 |
28 |
29 |
30 |
31 | True
32 |
33 |
34 | True
35 |
36 |
37 | 340
38 |
39 |
40 | Courier New, 9.75pt
41 |
42 |
43 | True
44 |
45 |
46 | True
47 |
48 |
49 | vs2017
50 |
51 |
52 | False
53 |
54 |
55 | False
56 |
57 |
58 |
59 |
60 |
61 |
62 |
64 |
65 |
66 |
67 | False
68 |
69 |
70 | True
71 |
72 |
73 | False
74 |
75 |
76 | False
77 |
78 |
79 |
80 |
81 |
82 | True
83 |
84 |
85 | 214
86 |
87 |
88 | 214
89 |
90 |
91 |
92 |
93 |
94 |
95 |
96 |
97 | True
98 |
99 |
100 | False
101 |
102 |
103 | False
104 |
105 |
106 | False
107 |
108 |
109 | False
110 |
111 |
112 | True
113 |
114 |
115 | Arial, 10.8pt
116 |
117 |
118 | False
119 |
120 |
121 |
122 |
123 |
124 |
125 |
126 |
127 |
128 |
129 |
130 |
131 |
132 |
133 |
134 |
135 |
136 |
137 |
138 |
139 |
--------------------------------------------------------------------------------
/AutoSite Core/AutoSite Core.vbproj:
--------------------------------------------------------------------------------
1 |
2 |
3 |
4 | Debug
5 | AnyCPU
6 | 9.0.30729
7 | 2.0
8 | {69483346-9162-4AC6-BC24-34721693A196}
9 | Exe
10 | Sub Main
11 | AutoSite_Core
12 | AutoSite Core
13 | 512
14 | Console
15 | v2.0
16 | On
17 | Binary
18 | On
19 | On
20 | false
21 | Resources\autosite_32.ico
22 |
23 |
24 | 3.5
25 |
26 |
27 | publish\
28 | true
29 | Disk
30 | false
31 | Foreground
32 | 7
33 | Days
34 | false
35 | false
36 | true
37 | 0
38 | 1.0.0.%2a
39 | false
40 | true
41 |
42 |
43 | true
44 | full
45 | true
46 | true
47 | bin\Debug\
48 | AutoSite Core.xml
49 | 42353,42354,42355
50 | 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036
51 |
52 |
53 | pdbonly
54 | false
55 | true
56 | true
57 | bin\Release\
58 | AutoSite Core.xml
59 | 42353,42354,42355
60 | 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036
61 |
62 |
63 |
64 |
65 |
66 |
67 |
68 |
69 |
70 |
71 |
72 |
73 |
74 |
75 |
76 |
77 |
78 |
79 |
80 |
81 | True
82 | Application.myapp
83 |
84 |
85 | True
86 | True
87 | Resources.resx
88 |
89 |
90 | True
91 | Settings.settings
92 | True
93 |
94 |
95 |
96 |
97 | VbMyResourcesResXFileCodeGenerator
98 | Resources.Designer.vb
99 | My.Resources
100 | Designer
101 |
102 |
103 |
104 |
105 |
106 | MyApplicationCodeGenerator
107 | Application.Designer.vb
108 |
109 |
110 | SettingsSingleFileGenerator
111 | My
112 | Settings.Designer.vb
113 |
114 |
115 |
116 |
117 | {438035F7-F55E-4101-81E2-C200E2A1DA91}
118 | Apricot
119 |
120 |
121 |
122 |
123 | False
124 | .NET Framework 3.5 SP1 Client Profile
125 | false
126 |
127 |
128 | False
129 | .NET Framework 2.0 %28x86%29
130 | true
131 |
132 |
133 | False
134 | .NET Framework 3.0 %28x86%29
135 | false
136 |
137 |
138 | False
139 | .NET Framework 3.5
140 | false
141 |
142 |
143 | False
144 | .NET Framework 3.5 SP1
145 | false
146 |
147 |
148 |
149 |
150 |
151 |
152 |
153 |
160 |
--------------------------------------------------------------------------------
/AutoSite/Quickstart.vb:
--------------------------------------------------------------------------------
1 | Public Class Quickstart
2 | Public usite As String = Main.SiteTree.Nodes(0).Tag
3 |
4 | Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
5 | Me.DialogResult = System.Windows.Forms.DialogResult.OK
6 | Me.Close()
7 | End Sub
8 |
9 | Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
10 | Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
11 | Me.Close()
12 | End Sub
13 |
14 | Private Sub AddConditional_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
15 | If e.KeyCode = Keys.Escape Then
16 | Me.Close()
17 | End If
18 | End Sub
19 |
20 | Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
21 | Process.Start("https://tesserae.somnolescent.net")
22 | End Sub
23 |
24 | Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
25 | Process.Start("https://commonmark.org/help/")
26 | End Sub
27 |
28 | Private Sub Label15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
29 |
30 | End Sub
31 |
32 | Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Build.Click
33 | Main.doBuild()
34 | End Sub
35 |
36 | Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SanitaryBuild.Click
37 | Main.doSanitaryBuild()
38 | End Sub
39 |
40 | Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
41 | Dim path = usite & "\includes\" & relpath.Text.Replace("/", "\")
42 | If Not path.EndsWith("\") Then
43 | path &= "\"
44 | End If
45 | If Not My.Computer.FileSystem.DirectoryExists(path) Then
46 | Try
47 | My.Computer.FileSystem.CreateDirectory(path)
48 | Catch ex As Exception
49 | MsgBox("AutoSite was not able to create the given subdirectory for some reason." & Environment.NewLine & Environment.NewLine & ex.ToString, MsgBoxStyle.Critical, "Unable to copy files")
50 | Exit Sub
51 | End Try
52 | End If
53 | Dim dir = ""
54 | If My.Computer.FileSystem.DirectoryExists(path) Then
55 | dir = path
56 | ElseIf My.Computer.FileSystem.FileExists(path) Then
57 | dir = My.Computer.FileSystem.GetFileInfo(path).DirectoryName
58 | End If
59 | If My.Computer.FileSystem.DirectoryExists(dir) Then
60 | Main.AddFilesDialog.Title = "Add Files to " & dir
61 | If Main.AddFilesDialog.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
62 | For Each file In Main.AddFilesDialog.FileNames
63 | Try
64 | My.Computer.FileSystem.CopyFile(file, System.IO.Path.Combine(dir, System.IO.Path.GetFileName(file)))
65 | Catch ex As Exception
66 | MsgBox(ex.Message)
67 | End Try
68 | Next
69 | 'refreshTree(siteTree.Nodes(0))
70 | End If
71 | End If
72 |
73 | End Sub
74 |
75 | Private Sub Quickstart_Load() Handles MyBase.Load
76 | If My.Computer.Info.OSPlatform = "Win32Windows" Then ' Detect non-NT Windows (98)
77 | Main.refreshTree(Main.SiteTree.Nodes(0))
78 | End If
79 |
80 | If My.Computer.FileSystem.FileExists(usite & "\templates\default.html") Then
81 | CreateTemplate.Text = "Created"
82 | CreateTemplate.Enabled = False
83 | Else
84 | CreateTemplate.Enabled = True
85 | End If
86 | indexmd.Enabled = Not (My.Computer.FileSystem.FileExists(usite & "\pages\index.md"))
87 | indexhtml.Enabled = Not (My.Computer.FileSystem.FileExists(usite & "\pages\index.html"))
88 | If Not (indexmd.Enabled And indexhtml.Enabled) Then
89 | Label4.Text = "As the index page has already been created, you can change formats here."
90 | End If
91 |
92 | If Application.VisualStyleState = VisualStyles.VisualStyleState.NoneEnabled Then
93 | Me.BackColor = SystemColors.Control
94 | End If
95 |
96 | Me.Font = Main.getFont()
97 | End Sub
98 |
99 | Private Sub CreateTemplate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateTemplate.Click
100 | My.Computer.FileSystem.WriteAllText(usite & "\templates\default.html", "" & Environment.NewLine & "" & Environment.NewLine & " " & Environment.NewLine & " [#title#]" & Environment.NewLine & " " & Environment.NewLine & " " & Environment.NewLine & "
17 | > (or, in Markdown, the rendered equivalent of:)
18 | > 
19 | > ```
20 | >