zabpehely
/
remoteapptool
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 2 Wiki Activity

After opening HelpSystem.vb, Visual Basic would no longer build RemoteApp Tool without these minor code tweaks. Will find out more.

This commit is contained in:
Kim 2020-09-09 00:03:01 +10:00
parent 05e90580e4
commit 971eb179e1
2 changed files with 19 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
remoteapp-tool/HelpSystem.vb
View File

@ -1,13 +1,12 @@
Module HelpSystem Module HelpSystem
Public Sub SetupTips(TheForm As Windows.Forms.Form) Public Sub SetupTips(TheForm As Windows.Forms.Form)
Dim toolTip1 As New ToolTip With {
.AutoPopDelay = 10000,
.InitialDelay = 500,
.ReshowDelay = 500
}
Dim toolTip1 As New ToolTip() Dim HelpString As String
toolTip1.AutoPopDelay = 10000
toolTip1.InitialDelay = 500
toolTip1.ReshowDelay = 500
Dim HelpString As String = ""
For Each Control As Control In TheForm.Controls For Each Control As Control In TheForm.Controls
For Each SubControl As Control In Control.Controls For Each SubControl As Control In Control.Controls
@ -57,7 +56,6 @@
Return TipFile Return TipFile
End Function End Function
Private Function GetBuiltInTips() As String Private Function GetBuiltInTips() As String
Dim Tips As String = "" Dim Tips As String = ""

27
remoteapp-tool/RemoteAppCreateClientConnection.vb
View File

@ -284,10 +284,10 @@ Public Class RemoteAppCreateClientConnection
Private Sub CreateRDPFile(RDPPath As String, RemoteApp As RemoteAppLib.RemoteApp) Private Sub CreateRDPFile(RDPPath As String, RemoteApp As RemoteAppLib.RemoteApp)
Dim App As New RemoteAppLib.RemoteApp 'Dim App As New RemoteAppLib.RemoteApp = RemoteApp
App = RemoteApp 'App = RemoteApp
Dim FileTypeAssociations As RemoteAppLib.FileTypeAssociationCollection Dim FileTypeAssociations As RemoteAppLib.FileTypeAssociationCollection
FileTypeAssociations = App.FileTypeAssociations FileTypeAssociations = RemoteApp.FileTypeAssociations
Dim ServerAddress = Me.ServerAddress.Text Dim ServerAddress = Me.ServerAddress.Text
Dim AltServerAddress = Me.AltServerAddress.Text Dim AltServerAddress = Me.AltServerAddress.Text
@ -296,17 +296,16 @@ Public Class RemoteAppCreateClientConnection
Dim FlatFileTypes = "" Dim FlatFileTypes = ""
If Not FileTypeAssociations Is Nothing Then FlatFileTypes = FileTypeAssociations.GetFlatFileTypes If Not FileTypeAssociations Is Nothing Then FlatFileTypes = FileTypeAssociations.GetFlatFileTypes
Dim RDPfile As New RDPFileLib.RDPFile Dim RDPfile As New RDPFileLib.RDPFile With {
RDPfile.full_address = ServerAddress .full_address = ServerAddress,
RDPfile.alternate_full_address = AltServerAddress .alternate_full_address = AltServerAddress,
RDPfile.server_port = Val(ServerPort) .server_port = Val(ServerPort),
.remoteapplicationname = RemoteApp.FullName,
RDPfile.remoteapplicationname = App.FullName .remoteapplicationprogram = "||" & RemoteApp.Name,
RDPfile.remoteapplicationprogram = "||" & App.Name .remoteapplicationmode = 1,
RDPfile.remoteapplicationmode = 1 .disableremoteappcapscheck = 1,
RDPfile.disableremoteappcapscheck = 1 .alternate_shell = "rdpinit.exe"
}
RDPfile.alternate_shell = "rdpinit.exe"
If UseRDGatewayCheckBox.Checked Then If UseRDGatewayCheckBox.Checked Then
RDPfile.gatewayhostname = Me.GatewayAddress.Text RDPfile.gatewayhostname = Me.GatewayAddress.Text