diff --git a/.gitignore b/.gitignore
index 9491a2f..b97bb55 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,6 +3,8 @@
##
## Get latest from https://github.com/github/gitignore/blob/master/VisualStudio.gitignore
+Releases
+
# User-specific files
*.rsuser
*.suo
diff --git a/KILLTWG.sln b/KILLTWG.sln
index 8f88176..72561d8 100644
--- a/KILLTWG.sln
+++ b/KILLTWG.sln
@@ -8,13 +8,11 @@ EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
- KILLTWG|Any CPU = KILLTWG|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{5CDBA091-99D7-41B4-B53A-B53B8457DAAA}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{5CDBA091-99D7-41B4-B53A-B53B8457DAAA}.Debug|Any CPU.Build.0 = Debug|Any CPU
- {5CDBA091-99D7-41B4-B53A-B53B8457DAAA}.KILLTWG|Any CPU.ActiveCfg = Release|Any CPU
{5CDBA091-99D7-41B4-B53A-B53B8457DAAA}.Release|Any CPU.ActiveCfg = Release|Any CPU
{5CDBA091-99D7-41B4-B53A-B53B8457DAAA}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
diff --git a/KILLTWG/App.config b/KILLTWG/App.config
index 90c9970..fb4e38d 100644
--- a/KILLTWG/App.config
+++ b/KILLTWG/App.config
@@ -1,6 +1,14 @@
-
+
-
-
-
-
\ No newline at end of file
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/KILLTWG/ApplicationEvents.vb b/KILLTWG/ApplicationEvents.vb
new file mode 100644
index 0000000..e03e9f2
--- /dev/null
+++ b/KILLTWG/ApplicationEvents.vb
@@ -0,0 +1,10 @@
+Namespace My
+ ' MyApplication 可以使用下列事件:
+ ' Startup:在應用程式啟動時,但尚未建立啟動表單之前引發。
+ ' Shutdown:在所有應用程式表單關閉之後引發。如果應用程式不正常終止,就不會引發此事件。
+ ' UnhandledException:在應用程式發生未處理的例外狀況時引發。
+ ' StartupNextInstance:在啟動單一執行個體應用程式且應用程式已於使用中時引發。
+ ' NetworkAvailabilityChanged:在建立或中斷網路連線時引發。
+ Partial Friend Class MyApplication
+ End Class
+End Namespace
diff --git a/KILLTWG/Form1.vb b/KILLTWG/Form1.vb
deleted file mode 100644
index 647d9ca..0000000
--- a/KILLTWG/Form1.vb
+++ /dev/null
@@ -1,66 +0,0 @@
-Public Class KILLTWG_form
- ReadOnly appVersion = "v1.0.0"
- Private Sub Setup() Handles Me.Activated
- KILLTWGver_linklabel.Text = appVersion
- StatusValue()
- End Sub
- Sub StatusValue()
- If Process.GetProcessesByName("Insomnia").Count > 0 Then
- StatusValue_label.Text = "ON"
- StatusValue_label.ForeColor = Color.Green
- Else
- StatusValue_label.Text = "OFF"
- StatusValue_label.ForeColor = Color.Red
- End If
- End Sub
- Private Sub KILL_Click(sender As Object, e As EventArgs) Handles KILL_button.Click
- Try
- Dim dir = My.Computer.FileSystem.GetDirectories("C:\Program Files (x86)\TWG")(0)
- My.Computer.FileSystem.RenameDirectory(dir, "Classroom")
- Catch ex As Exception
- Exit Try
- End Try
- If Process.GetProcessesByName("Insomnia").Count > 0 Then
- For Each proc As Process In Process.GetProcessesByName("REDAgent")
- proc.Kill()
- Next
- Threading.Thread.Sleep(100)
- StatusValue()
- Else
- StatusValue_label.Text = "OFF"
- StatusValue_label.ForeColor = Color.Red
- End If
- End Sub
-
- Private Sub RESUME_button_Click(sender As Object, e As EventArgs) Handles RESUME_button.Click
- Try
- Dim dir = My.Computer.FileSystem.GetDirectories("C:\Program Files (x86)\TWG")(0)
- My.Computer.FileSystem.RenameDirectory(dir, "eClassroom")
- Catch ex As Exception
- Exit Try
- End Try
- If Process.GetProcessesByName("Insomnia").Count = 0 Then
- Dim redagent As New ProcessStartInfo With {
- .FileName = "C:\Program Files\TWG\eClassroom\REDAgent.exe"
- }
- Dim redagentStats = Process.Start(redagent)
- Threading.Thread.Sleep(100)
- StatusValue()
- Else
- StatusValue_label.Text = "ON"
- StatusValue_label.ForeColor = Color.Green
- End If
- End Sub
-
- Private Sub KILLTWGver_linklabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles KILLTWGver_linklabel.LinkClicked
- Process.Start("https://github.com/Anonymous-AAAA/KILLTWG-App/releases/tag/" + appVersion)
- End Sub
-
- Private Sub WrittenBy_linklabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles WrittenBy_linklabel.LinkClicked
- Process.Start("https://github.com/Anonymous-AAAA")
- End Sub
-
- Private Sub GithubRepo_linklabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles GithubRepo_linklabel.LinkClicked
- Process.Start("https://github.com/Anonymous-AAAA/KILLTWG-App")
- End Sub
-End Class
\ No newline at end of file
diff --git a/KILLTWG/Form1.Designer.vb b/KILLTWG/KILLTWG.Designer.vb
similarity index 93%
rename from KILLTWG/Form1.Designer.vb
rename to KILLTWG/KILLTWG.Designer.vb
index e7bfc2b..3492f8d 100644
--- a/KILLTWG/Form1.Designer.vb
+++ b/KILLTWG/KILLTWG.Designer.vb
@@ -43,7 +43,7 @@ Partial Class KILLTWG_form
'
Me.KILLTWG_label.AutoSize = True
Me.KILLTWG_label.Font = New System.Drawing.Font("Algerian", 30.0!, System.Drawing.FontStyle.Bold)
- Me.KILLTWG_label.Location = New System.Drawing.Point(40, 9)
+ Me.KILLTWG_label.Location = New System.Drawing.Point(54, 9)
Me.KILLTWG_label.Name = "KILLTWG_label"
Me.KILLTWG_label.Size = New System.Drawing.Size(192, 45)
Me.KILLTWG_label.TabIndex = 4
@@ -134,7 +134,7 @@ Partial Class KILLTWG_form
Me.WrittenBy_linklabel.AutoSize = True
Me.WrittenBy_linklabel.Font = New System.Drawing.Font("Calibri", 10.0!, System.Drawing.FontStyle.Bold)
Me.WrittenBy_linklabel.LinkBehavior = System.Windows.Forms.LinkBehavior.HoverUnderline
- Me.WrittenBy_linklabel.Location = New System.Drawing.Point(220, 43)
+ Me.WrittenBy_linklabel.Location = New System.Drawing.Point(219, 43)
Me.WrittenBy_linklabel.Name = "WrittenBy_linklabel"
Me.WrittenBy_linklabel.Size = New System.Drawing.Size(40, 17)
Me.WrittenBy_linklabel.TabIndex = 4
@@ -144,14 +144,16 @@ Partial Class KILLTWG_form
'
'KILLTWGver_linklabel
'
- Me.KILLTWGver_linklabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
- Me.KILLTWGver_linklabel.AutoSize = True
+ Me.KILLTWGver_linklabel.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.KILLTWGver_linklabel.Font = New System.Drawing.Font("Calibri", 10.0!, System.Drawing.FontStyle.Bold)
+ Me.KILLTWGver_linklabel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.KILLTWGver_linklabel.LinkBehavior = System.Windows.Forms.LinkBehavior.HoverUnderline
- Me.KILLTWGver_linklabel.Location = New System.Drawing.Point(216, 21)
+ Me.KILLTWGver_linklabel.Location = New System.Drawing.Point(111, 21)
Me.KILLTWGver_linklabel.Name = "KILLTWGver_linklabel"
- Me.KILLTWGver_linklabel.Size = New System.Drawing.Size(0, 17)
+ Me.KILLTWGver_linklabel.Size = New System.Drawing.Size(149, 17)
Me.KILLTWGver_linklabel.TabIndex = 3
+ Me.KILLTWGver_linklabel.TabStop = True
+ Me.KILLTWGver_linklabel.Text = "Can't get latest version"
Me.KILLTWGver_linklabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'GithubRepo_label
@@ -160,9 +162,9 @@ Partial Class KILLTWG_form
Me.GithubRepo_label.Font = New System.Drawing.Font("Calibri", 10.0!, System.Drawing.FontStyle.Bold)
Me.GithubRepo_label.Location = New System.Drawing.Point(16, 65)
Me.GithubRepo_label.Name = "GithubRepo_label"
- Me.GithubRepo_label.Size = New System.Drawing.Size(90, 17)
+ Me.GithubRepo_label.Size = New System.Drawing.Size(88, 17)
Me.GithubRepo_label.TabIndex = 2
- Me.GithubRepo_label.Text = "Github Repo :"
+ Me.GithubRepo_label.Text = "GitHub repo :"
'
'WrittenBy_label
'
@@ -180,9 +182,9 @@ Partial Class KILLTWG_form
Me.KILLTWGver_label.Font = New System.Drawing.Font("Calibri", 10.0!, System.Drawing.FontStyle.Bold)
Me.KILLTWGver_label.Location = New System.Drawing.Point(16, 21)
Me.KILLTWGver_label.Name = "KILLTWGver_label"
- Me.KILLTWGver_label.Size = New System.Drawing.Size(91, 17)
+ Me.KILLTWGver_label.Size = New System.Drawing.Size(98, 17)
Me.KILLTWGver_label.TabIndex = 0
- Me.KILLTWGver_label.Text = "KILLTWG.exe :"
+ Me.KILLTWGver_label.Text = "Latest version :"
'
'KILLTWG_form
'
diff --git a/KILLTWG/Form1.resx b/KILLTWG/KILLTWG.resx
similarity index 100%
rename from KILLTWG/Form1.resx
rename to KILLTWG/KILLTWG.resx
diff --git a/KILLTWG/KILLTWG.vb b/KILLTWG/KILLTWG.vb
new file mode 100644
index 0000000..2237e25
--- /dev/null
+++ b/KILLTWG/KILLTWG.vb
@@ -0,0 +1,100 @@
+Imports System.IO
+Imports System.Net
+
+Public Class KILLTWG_form
+ Private Sub Setup() Handles Me.Activated
+ KILLTWGver_linklabel.Text = AppVersion()
+ StatusValue()
+ End Sub
+ Function AppVersion()
+ Try
+ Dim request As HttpWebRequest = WebRequest.Create("https://api.github.com/repos/Anonymous-AAAA/KILLTWG-App/releases/latest")
+ request.Method = "GET"
+ request.UserAgent = "request"
+ Dim response As WebResponse = request.GetResponse()
+ Dim dataStream = response.GetResponseStream()
+ Dim reader As New StreamReader(dataStream)
+ Dim responseFromServer As String = reader.ReadToEnd()
+ reader.Close()
+ dataStream.Close()
+ response.Close()
+ Return Mid(responseFromServer, InStr(responseFromServer, """tag_name""") + 12, InStr(responseFromServer, """target_commitish""") - InStr(responseFromServer, """tag_name""") - 14)
+ Catch ex As Exception
+ Return "Can't get latest version"
+ Exit Try
+ End Try
+ End Function
+
+ Public Sub StatusValue()
+ If Process.GetProcessesByName("REDAgent").Count > 0 Then
+ StatusValue_label.Text = "ON"
+ StatusValue_label.ForeColor = Color.Green
+ Else
+ StatusValue_label.Text = "OFF"
+ StatusValue_label.ForeColor = Color.Red
+ End If
+ End Sub
+ Private Sub KILL_Click(sender As Object, e As EventArgs) Handles KILL_button.Click
+ Try
+ Dim dir = My.Computer.FileSystem.GetDirectories("C:\Program Files (x86)\TWG")(0)
+ My.Computer.FileSystem.RenameDirectory(dir, "Classroom")
+ Catch ex As Exception
+ Exit Try
+ End Try
+ Try
+ If Process.GetProcessesByName("REDAgent").Count > 0 Then
+ For Each proc As Process In Process.GetProcessesByName("REDAgent")
+ proc.Kill()
+ Next
+ Threading.Thread.Sleep(100)
+ StatusValue()
+ Else
+ StatusValue_label.Text = "OFF"
+ StatusValue_label.ForeColor = Color.Red
+ End If
+ Catch ex As Exception
+ Exit Try
+ End Try
+ End Sub
+
+ Private Sub RESUME_button_Click(sender As Object, e As EventArgs) Handles RESUME_button.Click
+ Try
+ Dim dir = My.Computer.FileSystem.GetDirectories("C:\Program Files (x86)\TWG")(0)
+ My.Computer.FileSystem.RenameDirectory(dir, "eClassroom")
+ Catch ex As Exception
+ Exit Try
+ End Try
+ Threading.Thread.Sleep(200)
+ Try
+ If Process.GetProcessesByName("REDAgent").Count = 0 Then
+ Dim redagent As New ProcessStartInfo With {
+ .FileName = "C:\Program Files (x86)\TWG\eClassroom\REDAgent.exe"
+ }
+ Dim redagentStats = Process.Start(redagent)
+ Threading.Thread.Sleep(100)
+ StatusValue()
+ Else
+ StatusValue_label.Text = "ON"
+ StatusValue_label.ForeColor = Color.Green
+ End If
+ Catch ex As Exception
+ Exit Try
+ End Try
+ End Sub
+
+ Private Sub KILLTWGver_linklabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles KILLTWGver_linklabel.LinkClicked
+ If AppVersion() <> "Can't get latest version" Then
+ Process.Start("https://github.com/Anonymous-AAAA/KILLTWG-App/releases/tag/" + AppVersion())
+ Else
+ Process.Start("https://www.youtube.com/watch?v=dQw4w9WgXcQ")
+ End If
+ End Sub
+
+ Private Sub WrittenBy_linklabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles WrittenBy_linklabel.LinkClicked
+ Process.Start("https://github.com/Anonymous-AAAA")
+ End Sub
+
+ Private Sub GithubRepo_linklabel_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles GithubRepo_linklabel.LinkClicked
+ Process.Start("https://github.com/Anonymous-AAAA/KILLTWG-App")
+ End Sub
+End Class
\ No newline at end of file
diff --git a/KILLTWG/KILLTWG.vbproj b/KILLTWG/KILLTWG.vbproj
index e670281..b9401f9 100644
--- a/KILLTWG/KILLTWG.vbproj
+++ b/KILLTWG/KILLTWG.vbproj
@@ -12,8 +12,25 @@
512
WindowsForms
v4.7.2
- true
+ false
true
+ false
+
+ C:\Users\Alex\Desktop\
+ false
+ Disk
+ false
+ Foreground
+ 7
+ Days
+ false
+ false
+ true
+ 0
+ 1.0.2.%2a
+ false
+ true
+ true
AnyCPU
@@ -47,14 +64,35 @@
On
+
+
+ 3D380069B0938EA7DCD895729D3C8551D132DB11
+
+
+ KILLTWG_TemporaryKey.pfx
+
+
+ false
+
+
+ false
+
+
+ LocalIntranet
+
app.manifest
+
+ false
+
+
+
@@ -76,17 +114,19 @@
-
+
+
Form
-
- Form1.vb
+
+ KILLTWG.vb
Form
True
Application.myapp
+ True
True
@@ -100,8 +140,8 @@
-
- Form1.vb
+
+ KILLTWG.vb
VbMyResourcesResXFileCodeGenerator
@@ -123,5 +163,20 @@
+
+
+ False
+ Microsoft .NET Framework 4.7.2 %28x86 和 x64%29
+ true
+
+
+ False
+ .NET Framework 3.5 SP1
+ false
+
+
+
+
+
\ No newline at end of file
diff --git a/KILLTWG/My Project/Application.Designer.vb b/KILLTWG/My Project/Application.Designer.vb
index 9f37547..8e0f883 100644
--- a/KILLTWG/My Project/Application.Designer.vb
+++ b/KILLTWG/My Project/Application.Designer.vb
@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
'
-' This code was generated by a tool.
-' Runtime Version:4.0.30319.42000
+' 這段程式碼是由工具產生的。
+' 執行階段版本:4.0.30319.42000
'
-' Changes to this file may cause incorrect behavior and will be lost if
-' the code is regenerated.
+' 對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
+' 變更將會遺失。
'
'------------------------------------------------------------------------------
@@ -13,24 +13,24 @@ Option Explicit On
Namespace My
-
- 'NOTE: This file is auto-generated; do not modify it directly. To make changes,
- ' or if you encounter build errors in this file, go to the Project Designer
- ' (go to Project Properties or double-click the My Project node in
- ' Solution Explorer), and make changes on the Application tab.
+
+ '注意:這是自動產生的檔案,請勿直接修改它。若要進行變更,
+ ' 或者您在這個檔案發生建置錯誤,請到專案設計工具
+ ' (移至專案屬性或者在 [方案總管] 中按兩下 [My Project] 節點),
+ ' 然後在 [應用程式] 索引標籤上進行變更。
'
Partial Friend Class MyApplication
-
- _
+
+ _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
- Me.IsSingleInstance = false
+ Me.IsSingleInstance = true
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
-
- _
+
+ _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.KILLTWG.KILLTWG_form
End Sub
diff --git a/KILLTWG/My Project/Application.myapp b/KILLTWG/My Project/Application.myapp
index 1243847..bff83c1 100644
--- a/KILLTWG/My Project/Application.myapp
+++ b/KILLTWG/My Project/Application.myapp
@@ -1,11 +1,10 @@
-
+
true
- Form1
- false
+ KILLTWG_form
+ true
0
true
0
- 0
true
-
+
\ No newline at end of file
diff --git a/KILLTWG/My Project/Resources.Designer.vb b/KILLTWG/My Project/Resources.Designer.vb
index 6415894..b9c6beb 100644
--- a/KILLTWG/My Project/Resources.Designer.vb
+++ b/KILLTWG/My Project/Resources.Designer.vb
@@ -1,40 +1,41 @@
'------------------------------------------------------------------------------
'
-' This code was generated by a tool.
-' Runtime Version:4.0.30319.42000
+' 這段程式碼是由工具產生的。
+' 執行階段版本:4.0.30319.42000
'
-' Changes to this file may cause incorrect behavior and will be lost if
-' the code is regenerated.
+' 對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
+' 變更將會遺失。
'
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
+Imports System
Namespace My.Resources
-
- 'This class was auto-generated by the StronglyTypedResourceBuilder
- 'class via a tool like ResGen or Visual Studio.
- 'To add or remove a member, edit your .ResX file then rerun ResGen
- 'with the /str option, or rebuild your VS project.
+
+ '這個類別是自動產生的,是利用 StronglyTypedResourceBuilder
+ '類別透過 ResGen 或 Visual Studio 這類工具。
+ '若要加入或移除成員,請編輯您的 .ResX 檔,然後重新執行 ResGen
+ '(利用 /str 選項),或重建您的 VS 專案。
'''
- ''' A strongly-typed resource class, for looking up localized strings, etc.
+ ''' 用於查詢當地語系化字串等的強類型資源類別。
'''
- _
+ _
Friend Module Resources
-
+
Private resourceMan As Global.System.Resources.ResourceManager
-
+
Private resourceCulture As Global.System.Globalization.CultureInfo
-
+
'''
- ''' Returns the cached ResourceManager instance used by this class.
+ ''' 傳回這個類別使用的快取的 ResourceManager 執行個體。
'''
- _
+ _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -44,17 +45,17 @@ Namespace My.Resources
Return resourceMan
End Get
End Property
-
+
'''
- ''' Overrides the current thread's CurrentUICulture property for all
- ''' resource lookups using this strongly typed resource class.
+ ''' 覆寫目前執行緒的 CurrentUICulture 屬性,對象是所有
+ ''' 使用這個強類型資源類別的資源查閱。
'''
- _
+ _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
- Set(ByVal value As Global.System.Globalization.CultureInfo)
+ Set
resourceCulture = value
End Set
End Property
diff --git a/KILLTWG/My Project/Settings.Designer.vb b/KILLTWG/My Project/Settings.Designer.vb
index d444315..61daa61 100644
--- a/KILLTWG/My Project/Settings.Designer.vb
+++ b/KILLTWG/My Project/Settings.Designer.vb
@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------
'
-' This code was generated by a tool.
-' Runtime Version:4.0.30319.42000
+' 這段程式碼是由工具產生的。
+' 執行階段版本:4.0.30319.42000
'
-' Changes to this file may cause incorrect behavior and will be lost if
-' the code is regenerated.
+' 對這個檔案所做的變更可能會造成錯誤的行為,而且如果重新產生程式碼,
+' 變更將會遺失。
'
'------------------------------------------------------------------------------
@@ -13,42 +13,42 @@ Option Explicit On
Namespace My
-
- _
+
+ _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
-
- Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
-
-#Region "My.Settings Auto-Save Functionality"
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
+#Region "My.Settings 自動儲存功能"
#If _MyType = "WindowsForms" Then
- Private Shared addedHandler As Boolean
+ Private Shared addedHandler As Boolean
- Private Shared addedHandlerLockObject As New Object
+ Private Shared addedHandlerLockObject As New Object
- _
- Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
- If My.Application.SaveMySettingsOnExit Then
- My.Settings.Save()
- End If
- End Sub
+ _
+ Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+ If My.Application.SaveMySettingsOnExit Then
+ My.Settings.Save()
+ End If
+ End Sub
#End If
#End Region
-
+
Public Shared ReadOnly Property [Default]() As MySettings
Get
-
+
#If _MyType = "WindowsForms" Then
- If Not addedHandler Then
- SyncLock addedHandlerLockObject
- If Not addedHandler Then
- AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
- addedHandler = True
- End If
- End SyncLock
- End If
+ If Not addedHandler Then
+ SyncLock addedHandlerLockObject
+ If Not addedHandler Then
+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+ addedHandler = True
+ End If
+ End SyncLock
+ End If
#End If
Return defaultInstance
End Get
@@ -57,13 +57,13 @@ Namespace My
End Namespace
Namespace My
-
- _
+
+ _
Friend Module MySettingsProperty
-
- _
+
+ _
Friend ReadOnly Property Settings() As Global.KILLTWG.My.MySettings
Get
Return Global.KILLTWG.My.MySettings.Default
diff --git a/KILLTWG/app.manifest b/KILLTWG/app.manifest
index 966a955..6b09de0 100644
--- a/KILLTWG/app.manifest
+++ b/KILLTWG/app.manifest
@@ -1,6 +1,6 @@
-
+
@@ -16,35 +16,31 @@
如果您的應用程式需要針對回溯相容性進行這項虛擬化,請移除這個
項目。
-->
-
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
+
\ No newline at end of file
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..7f0f9c3
--- /dev/null
+++ b/README.md
@@ -0,0 +1,94 @@
+# *KILLTWG - App*
+
+上電腦課被老師 ***"借 "*** 畫面很煩 ?
+打開 KILLTWG,一次解決問題。
+
+## Why This ?
+
+上電腦課時,明明就會做了,但老師還是一直 ***"借 "*** 畫面,~~害我不能玩遊戲~~,於是就有了這個東東。
+
+## What's New ?
+
+以前的舊版還需要手動打指令,現在改成應用程式後更方便了 !
+
+舊版 : [KILLTWG: 上電腦課不想被老師切換畫面? 用這個就對了~](https://github.com/Anonymous-AAAA/KILLTWG "KILLTWG: 上電腦課不想被老師切換畫面? 用這個就對了~")
+
+## Where Can I Get That ?
+
+可以從 [release](https://github.com/Anonymous-AAAA/KILLTWG-App/releases/latest "Latest Release") 頁面直接下載應用程式
+
+![](https://i.imgur.com/4dvxZ0d.png)
+
+或是直接下載 LTS (長期支援) 版本 :
+
+- [v1.1.0](https://github.com/Anonymous-AAAA/KILLTWG-App/releases/download/v1.1.0/KILLTWG.exe "KILLTWG v1.1.0 [LTS] | New Feature + Some Changes")
+
+## How To Use It ?
+
+下載過後,在電腦中找到檔案的位置
+
+![](https://i.imgur.com/TLLqsbW.png)
+
+點兩下打開,可能會有以下兩種情況 :
+
+- 有出現對話框 :
+
+ - 點擊 "是"
+
+- 沒有出現對話框 :
+
+ - 這是正常的不用管他
+
+![](https://i.imgur.com/QiNTpiO.png)
+
+如果以上步驟都正常執行,那你將會看到一個視窗跳出來
+
+![](https://i.imgur.com/EYINxJ8.png)
+
+視窗中有一個顯示欄位 `Status` :
+
+- ON
+
+ - 學生端的廣播程式為開啟狀態
+
+- OFF
+
+ - 學生端的廣播程式為關閉狀態
+
+以及兩個按鈕 :
+
+- KILL
+
+ - 關閉學生端的廣播程式,老師不會再 ***"借 "*** 到你的畫面
+
+- RESUME
+
+ - 開啟學生端的廣播程式,讓老師可以 ***"借 "*** 到你的畫面
+
+## Q & A
+
+Q : 這個東西是誰做的?
+
+A : 我沒有名字,就叫我 AAAA 好了。
+
+---
+
+Q : 我可以自行修改它嗎?
+
+A : 完全沒問題,如果有任何需要改進的地方,或是有新的功能想加入,隨時都可以與我聯絡或自行修改。
+
+---
+
+Q : 一定每次都要打開這個網站嗎? (好麻煩)
+
+A : 不,你可以下載後存在自己的雲端硬碟,下次只要登入自己的雲端硬碟,把檔案下載就好。
+
+## 我想鼓(炮)勵(轟)你,該怎麼找到你?
+
+你可以透過電子郵件 aaaa125252@gmail.com,或是透過 [Discord Server](https://discord.gg/NzeAnxuRJn) 聯繫到我。
+
+ 備註:
+
+ 此檔案只適用於 "臺中市私立明道高級中學" ,其他學校不確定是否可以使用,若有他校的同學想要使用,歡迎聯絡我,我將會盡快回復,謝謝~ >w<
+
+最後,拜託大家多多分享~