.NET (Core and Framework)

d@nish wrote:

will stop running once the password expires

d@nish wrote:

if the service tries to do any kind of file operations, since the account has already expired it should not be allowed to

Public Overrides Sub Initialize(ByVal component As IComponent)
    MyBase.Initialize(component)

    Dim iccs As IComponentChangeService = _
    DirectCast(GetService(GetType(IComponentChangeService)), IComponentChangeService)
    If iccs IsNot Nothing Then AddHandler iccs.ComponentRemoved, AddressOf ComponentRemoved

    Dim s As ISelectionService = DirectCast(GetService(GetType(ISelectionService)), ISelectionService)
    If s IsNot Nothing Then AddHandler s.SelectionChanged, AddressOf sSelectionChanged

    'Attempt to add two pages
    Dim DH As IDesignerHost = DirectCast(GetService(GetType(IDesignerHost)), IDesignerHost)
    If DH IsNot Nothing Then
        Dim MPP As MultiPanelPage = _
        DirectCast(DH.CreateComponent(GetType(MultiPanelPage)), MultiPanelPage)
        MPP.Text = MPP.Name
        _MPanel.Controls.Add(MPP)
        _MPanel.SelectedPage = MPP

        MPP = DirectCast(DH.CreateComponent(GetType(MultiPanelPage)), MultiPanelPage)
        MPP.Text = MPP.Name
        _MPanel.Controls.Add(MPP)
    End If
End Sub

gymgym_jim wrote:

Really could do with some help!

Imports System
Imports System.Net.Sockets
Imports System.Text

Public Class Form1
    Private Const portNum As Integer = 13
    Private Const hostName As String = "hostMachineName" ' or IP "192.168.131.67"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim client As New TcpClient(hostName, portNum)

            Dim ns As NetworkStream = client.GetStream()

            Dim bytes(1024) As Byte
            Dim bytesRead As Integer = ns.Read(bytes, 0, bytes.Length)
            Dim xx$
            xx = Encoding.ASCII.GetString(bytes, 0, bytesRead)
            Beep()
            'client.Connect
            client.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


        'Return 0

    End Sub
End Class

Imports System
Imports System.Net.Sockets
Imports System.Text


Public Class Form1
    Private Const portNum As Integer = 13

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim done As Boolean = False

        Dim listener As New TcpListener(portNum)

        listener.Start()

        While Not done
            Console.Write("Waiting for connection...")
            Dim client As TcpClient = listener.AcceptTcpClient()

            Console.WriteLine("Connection accepted.")
            Dim ns As NetworkStream = client.GetStream()

            Dim byteTime As Byte() = _
                Encoding.ASCII.GetBytes(DateTime.Now.ToString())

            Try
                ns.Write(byteTime, 0, byteTime.Length)
                ns.Close()
                client.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End While

        listener.Stop()

    End Sub
End Class