mirror of
https://github.com/kimmknight/remoteapptool.git
synced 2024-11-25 06:57:25 +00:00
57111a3d21
Resulted in breaking some of my habits and putting a messagebox windows in libraries. Not my favorite thing, but it works. This helps debug issue 3, it does not resolve issue 3. To test it - open an office document (such as Word or Excel) and try to overwrite the office document with the RDP file including the office document extention (xls, xlsx, doc, docx, etc). The application will tell you that the file is locked, locked by Word/Excel/etc and the PID that is locking it just in case you have multiple copies of the application that is locking it open. A lot of the code was borrowed from Microsoft (https://code.msdn.microsoft.com/windowsapps/How-to-know-the-process-170ed5f3/sourcecode?fileId=151114&pathId=1558127374).
74 lines
2.9 KiB
VB.net
74 lines
2.9 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' This code was generated by a tool.
|
|
' Runtime Version:4.0.30319.42000
|
|
'
|
|
' Changes to this file may cause incorrect behavior and will be lost if
|
|
' the code is regenerated.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict On
|
|
Option Explicit On
|
|
|
|
|
|
Namespace My
|
|
|
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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"
|
|
#If _MyType = "WindowsForms" Then
|
|
Private Shared addedHandler As Boolean
|
|
|
|
Private Shared addedHandlerLockObject As New Object
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
|
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
|
|
#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
|
|
#End If
|
|
Return defaultInstance
|
|
End Get
|
|
End Property
|
|
End Class
|
|
End Namespace
|
|
|
|
Namespace My
|
|
|
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
|
Friend Module MySettingsProperty
|
|
|
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
|
Friend ReadOnly Property Settings() As Global.LockChecker.My.MySettings
|
|
Get
|
|
Return Global.LockChecker.My.MySettings.Default
|
|
End Get
|
|
End Property
|
|
End Module
|
|
End Namespace
|