'  
'   Rebex Sample Code License
' 
'   Copyright 2025, REBEX CR s.r.o.
'   All rights reserved.
'   https://www.rebex.net/
' 
'   Permission to use, copy, modify, and/or distribute this software for any
'   purpose with or without fee is hereby granted.
' 
'   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
'   EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
'   OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
'   NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
'   HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
'   WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
'   FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
'   OTHER DEALINGS IN THE SOFTWARE.
' 

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.18449
'
'     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

Imports System


'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.
'''<summary>
'''  A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
 Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
Friend Class Resources
    
    Private Shared resourceMan As Global.System.Resources.ResourceManager
    
    Private Shared resourceCulture As Global.System.Globalization.CultureInfo
    
    <Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")>  _
    Friend Sub New()
        MyBase.New
    End Sub
    
    '''<summary>
    '''  Returns the cached ResourceManager instance used by this class.
    '''</summary>
    <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
        Get
            If Object.ReferenceEquals(resourceMan, Nothing) Then
                Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Rebex.Samples.Resources", GetType(Resources).Assembly)
                resourceMan = temp
            End If
            Return resourceMan
        End Get
    End Property
    
    '''<summary>
    '''  Overrides the current thread's CurrentUICulture property for all
    '''  resource lookups using this strongly typed resource class.
    '''</summary>
    <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
        Get
            Return resourceCulture
        End Get
        Set
            resourceCulture = value
        End Set
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to Imports System.ComponentModel
    '''Imports System.Windows.Forms
    '''Imports Rebex.TerminalEmulation
    '''
    '''Namespace Scripts
    '''	&lt;Description(&quot;05: Close connection&quot;)&gt; _
    '''	Public Class CloseConnection
    '''		Public Shared Sub Execute(scripting As Scripting)
    '''			&apos; send an &apos;exit&apos; command
    '''			scripting.SendCommand(&quot;exit&quot;)
    '''
    '''			&apos; receive data until the connection is closed.
    '''			Dim exitResponse As String = scripting.ReadUntil(ScriptEvent.Closed)
    '''
    '''			&apos; show exit message
    '''			MessageBox.Show(exitResponse)
    '''
    '''			&apos; end of script
    ''' [rest of string was truncated]&quot;;.
    '''</summary>
    Friend Shared ReadOnly Property CloseConnection() As String
        Get
            Return ResourceManager.GetString("CloseConnection", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to Imports Rebex.TerminalEmulation
    '''Imports System.Collections.Generic
    '''Imports System.ComponentModel
    '''Imports System.Text
    '''Imports System.Windows.Forms
    '''
    '''Namespace Scripts
    '''	&lt;Description(&quot;02: Detecting prompt&quot;)&gt; _
    '''	Public Class DetectPrompt
    '''		Public Shared Sub Execute(scripting As Scripting)
    '''			&apos; detect remote shell&apos;s prompt
    '''			scripting.DetectPrompt()
    '''
    '''			&apos; display detected prompt
    '''			MessageBox.Show(&quot;Prompt: &quot; &amp; scripting.Prompt)
    '''
    '''			&apos; send &apos;whoami&apos; command to detect my user name
    '''			scripting.Send [rest of string was truncated]&quot;;.
    '''</summary>
    Friend Shared ReadOnly Property DetectPrompt() As String
        Get
            Return ResourceManager.GetString("DetectPrompt", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to Imports Rebex.TerminalEmulation
    '''Imports System.Collections.Generic
    '''Imports System.ComponentModel
    '''Imports System.Text
    '''
    '''Namespace Scripts
    '''	&lt;Description(&quot;01: Hello world!&quot;)&gt; _
    '''	Public Class HelloWorld
    '''		Public Shared Sub Execute(scripting As Scripting)
    '''			&apos; send a command
    '''			scripting.SendCommand(&quot;echo Hello world!&quot;)
    '''
    '''			&apos; receive and process the response
    '''			&apos; (if no data is available yet, wait up to 1000 ms)
    '''			scripting.Process(1000)
    '''
    '''			&apos; end of script
    '''		End Sub
    '''
    '''	End Class
    '''End Namespace [rest of string was truncated]&quot;;.
    '''</summary>
    Friend Shared ReadOnly Property HelloWorld() As String
        Get
            Return ResourceManager.GetString("HelloWorld", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to Imports Rebex.TerminalEmulation
    '''Imports System.Collections.Generic
    '''Imports System.ComponentModel
    '''Imports System.Text
    '''Imports System.Windows.Forms
    '''
    '''Namespace Scripts
    '''	&lt;Description(&quot;04: Matching events&quot;)&gt; _
    '''	Public Class MatchingEvents
    '''		Public Shared Sub Execute(scripting As Scripting)
    '''			&apos; detect remote shell&apos;s prompt
    '''			scripting.DetectPrompt()
    '''
    '''			&apos; send &apos;ls -l&apos; command to display a list of files and directories
    '''			scripting.SendCommand(&quot;ls -l&quot;)
    '''
    '''			&apos; process the response line-by-line unti [rest of string was truncated]&quot;;.
    '''</summary>
    Friend Shared ReadOnly Property MatchingEvents() As String
        Get
            Return ResourceManager.GetString("MatchingEvents", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to Imports Rebex.TerminalEmulation
    '''Imports System.Collections.Generic
    '''Imports System.ComponentModel
    '''Imports System.Text
    '''Imports System.Windows.Forms
    '''
    '''Namespace Scripts
    '''	&lt;Description(&quot;03: Multiple commands&quot;)&gt; _
    '''	Public Class MultipleCommands
    '''		Public Shared Sub Execute(scripting As Scripting)
    '''			&apos; detect remote shell&apos;s prompt
    '''			scripting.DetectPrompt()
    '''
    '''			&apos; send &apos;uname -a&apos; command to detect OS name
    '''			scripting.SendCommand(&quot;uname&quot;)
    '''
    '''			&apos; read response (until prompt appears)
    '''			Dim systemName  [rest of string was truncated]&quot;;.
    '''</summary>
    Friend Shared ReadOnly Property MultipleCommands() As String
        Get
            Return ResourceManager.GetString("MultipleCommands", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to Imports System.ComponentModel
    '''Imports System.Windows.Forms
    '''Imports Rebex.TerminalEmulation
    '''
    '''Namespace Scripts
    '''	&lt;Description(&quot;06: Scripting conditions&quot;)&gt; _
    '''	Public Class ScriptingConditions
    '''		Public Shared Sub Execute(scripting As Scripting)
    '''			&apos; detect prompt for later use
    '''			scripting.DetectPrompt()
    '''
    '''			&apos; start multiline echo command
    '''			scripting.SendCommand(&quot;echo \&quot;)
    '''
    '''			&apos; see if we get &quot;&gt;&quot; (= multiline echo is supported) or Prompt
    '''			Dim match As ScriptMatch = scripting.WaitFor(&quot;&gt;&quot;, Script [rest of string was truncated]&quot;;.
    '''</summary>
    Friend Shared ReadOnly Property ScriptingConditions() As String
        Get
            Return ResourceManager.GetString("ScriptingConditions", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to This is an instance of TerminalControl object.
    '''Use the button above to switch to using the screen-less VirtualTerminal object..
    '''</summary>
    Friend Shared ReadOnly Property TerminalWelcome() As String
        Get
            Return ResourceManager.GetString("TerminalWelcome", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to Imports System.ComponentModel
    '''Imports System.Windows.Forms
    '''Imports Rebex.TerminalEmulation
    '''
    '''Namespace Scripts
    '''	&lt;Description(&quot;07: Checking text at screen position&quot;)&gt; _
    '''	Public Class TextAtPosition
    '''		Public Shared Sub Execute(scripting As Scripting)
    '''			&apos; determine the row above the cursor
    '''			Dim textRow As Integer = Math.Max(0, scripting.Terminal.Screen.CursorTop - 1)
    '''
    '''			&apos; check for text
    '''			Dim match As ScriptMatch = scripting.CheckFor(ScriptEvent.TextAtPosition(&quot;Hello world!&quot;, textRow, 0))
    '''
    '''		 [rest of string was truncated]&quot;;.
    '''</summary>
    Friend Shared ReadOnly Property TextAtPosition() As String
        Get
            Return ResourceManager.GetString("TextAtPosition", resourceCulture)
        End Get
    End Property
    
    '''<summary>
    '''  Looks up a localized string similar to This is a sample application that demonstrates scripting capabilities of TerminalControl and VirtualTerminal objects.
    '''
    '''Just select a script from the list on the left to view the scripting code, and click the button to execute it..
    '''</summary>
    Friend Shared ReadOnly Property Welcome() As String
        Get
            Return ResourceManager.GetString("Welcome", resourceCulture)
        End Get
    End Property
End Class
