Visual Basic

FeRtoll wrote:

you mean on other operating system or you tink you would catch it (find it)?

FeRtoll wrote:

Nevermind but system restore isnt secured

FeRtoll wrote:

OH and Dave I know you are long time here on forum so please if you can help and connect my 2 accounts this one and the root post user "Member...", i sent mail to this forum but still nothing it happent when i changed my e-mail 2 years ago, i didnt registered twice i just changed mail and it switched me to different account! Actualy i just want this account to have my fertoll@post.t-com.hr address not the old one i have now... if u can do something

FeRtoll wrote:

it is... exsample with my "virus" i created if you have system restore enabled you would be infected forever and you would newer know you are infected...

I are Troll

Eddy Vluggen wrote:

Most virusscanners wouldn't recognize your "virus" because they don't have a signature to recognize.

Eddy Vluggen wrote:

We could ask someone from Symantec or MacAfee to verify it using your code, if you desire? Smile

Public Class CalMonitor
    Private _lastReset As DateTime
    Private Const SecondsBetweenCalibrationsAllowed As Integer = 30
    Private _abort As Boolean

    Public Event TimeToCalibrate()
    Public Event ResetSuccessful()

    Public Sub New()
        _lastReset = DateTime.Now
        _abort = False
    End Sub

    'need to re-calibrate every 30 seconds
    Public Sub StartMonitor()
        While Not _abort
            Dim timeSinceLastReset As TimeSpan = DateTime.Now.Subtract(_lastReset)

            If timeSinceLastReset.TotalSeconds > SecondsBetweenCalibrationsAllowed Then
                RaiseEvent TimeToCalibrate()
                Threading.Thread.Sleep(5000)
            Else
                If ((SecondsBetweenCalibrationsAllowed - _
                    timeSinceLastReset.TotalSeconds) * 100) < 5000 Then
                    Threading.Thread.Sleep((SecondsBetweenCalibrationsAllowed - _
                                            timeSinceLastReset.TotalSeconds) * 100)
                Else
                    Threading.Thread.Sleep(5000)
                End If
            End If
        End While
    End Sub

    Public Sub CalibrationReset()
        _lastReset = DateTime.Now
        RaiseEvent ResetSuccessful()
    End Sub

    Public Sub StopMonitor()
        _abort = True
    End Sub

End Class

Public Class Form1
    Private myCalMonitor As CalMonitor
    Private calMonitorThread As Threading.Thread

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                           Handles MyBase.Load
        myCalMonitor = New CalMonitor
        AddHandler myCalMonitor.TimeToCalibrate, AddressOf CalMonitor_TimeToReset

        calMonitorThread = New Threading.Thread(AddressOf myCalMonitor.StartMonitor)
        calMonitorThread.Start()
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        myCalMonitor.StopMonitor()
        Me.Hide()
        calMonitorThread.Join()
    End Sub

    Private Sub CalMonitor_TimeToReset()
        MessageBox.Show("Time to reset calibration")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                              Handles Button1.Click
        myCalMonitor.CalibrationReset()
    End Sub
End Class

Public Class clsCalMonitor

    Private Const WARNING_TIME As Integer = 12600       '3.5 hours
    Private Const CRITICAL_TIME As Integer = 13800      '3 hours 50 minutes
    Private Const OVER_TIME As Integer = 14400          '4 hours

    Private _lastReset As DateTime
    Private _abort As Boolean

    Public Event Cal_Warning()
    Public Event Cal_Critical()
    Public Event Cal_Over()
    Public Event Cal_ResetSuccessful()
    Public Event MonitorStopped()

    Private Sub Monitor()
        While Not _abort
            Dim timeSinceLastReset As TimeSpan = DateTime.Now.Subtract(_lastReset)

            If timeSinceLastReset.TotalSeconds >= WARNING_TIME AndAlso timeSinceLastReset.TotalSeconds < CRITICAL_TIME Then
                RaiseEvent Cal_Warning()
                Threading.Thread.Sleep(5000)
            ElseIf timeSinceLastReset.TotalSeconds >= CRITICAL_TIME AndAlso timeSinceLastReset.TotalSeconds < OVER_TIME Then
                RaiseEvent Cal_Critical()
                Threading.Thread.Sleep(5000)
            ElseIf timeSinceLastReset.TotalSeconds >= OVER_TIME Then
                RaiseEvent Cal_Over()
                Threading.Thread.Sleep(5000)
            Else
                Threading.Thread.Sleep(5000)
            End If
        End While
    End Sub

    Public Sub CalibrationReset()
        _lastReset = DateTime.Now
        RaiseEvent Cal_ResetSuccessful()
    End Sub

    Public Sub StartMonitor()
        _lastReset = DateTime.Now
        _abort = False
        Monitor()
    End Sub

    Public Sub StopMonitor()
        _abort = True
        RaiseEvent MonitorStopped()
    End Sub

Public Sub ReceiveFile(ByRef ReceivedFile As clsJBXFile, Optional ByVal NewJob As Boolean = True)

        StateFlag = (StateFlag Or StateType.Loading)

        CalMonitor = New clsCalMonitor
        CalMonitorThread = New Threading.Thread(AddressOf CalMonitor.StartMonitor)
        CalMonitor.StartMonitor()

        AddHandler CalMonitor.Cal_Warning, AddressOf CalMonitor_Warning
        AddHandler CalMonitor.Cal_Critical, AddressOf CalMonitor_Critical
        AddHandler CalMonitor.Cal_Over, AddressOf CalMonitor_Warning


        JBXFile = ReceivedFile

        LoadRooms()
        LoadCustoms()
        LoadSettings()

        SaveCounter = 0             'Reset Save Counter to 0
        CurrentReadingNumber = 1    'Reset CurrentReadingNumber to the first reading

        If NewJob Then
            SetForNewJob()
        Else
            SetForPreviousJob()
        End If

        StateFlag = (StateFlag And Not StateType.Loading)
        MessageFlag = MessageType.None

    End Sub

albchinsh wrote:

System.IO.IOException: The Operation completed succesfully

Private WithEvents port As IO.Ports.SerialPort

Private Sub LoadSerialPortNameList()
    'Clear existing list
    ComboBoxSerialPorts.Items.Clear()
    'Get the items
    For Each item As String In My.Computer.Ports.SerialPortNames
        ComboBoxSerialPorts.Items.Add(item)
    Next
End Sub

If ComboBoxSerialPorts.SelectedIndex < 0 Then
    'No port selected
    MsgBox("Select a serial port from the drop down list")
Else
    Try
        port = My.Computer.Ports.OpenSerialPort(ComboBoxSerialPorts.Items.Item(ComboBoxSerialPorts.SelectedIndex))
    Catch ex As Exception
        MsgBox("Error Opening Port: " + ex.Message)
    End Try
End If

If port.IsOpen Then
               port.Close()
               Debug.WriteLine("Port Closed")
           Else
               MsgBox("Port is already closed.")
           End If