Visual Basic

tcombs07 wrote:

the problem that I am having is whenever I disconnect my computer for the internet, the service throws an error.

tcombs07 wrote:

Dim webURL As String = "http://www.virasec.com/intranet/tech/heart/heartdb.asp?hdur=300&hsid=" & serverID

Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
'Close the response request
response.Close()

Dim response As ...
If response Is Nothing Then
    ' The request obviously failed...
Else
    response.Close()
End If

Dave Kreskowiak wrote:

You better don your asbestos suit for posting this in the programming forums, where, if you bothered to read the Posting Guidlines, posts like this are expressly forbidden.

Dave Kreskowiak wrote:

It was a recruiter from TEKsystems, posting a job opening in Illinois.

Mr. Wonderful wrote:

I am new in programming

Dim eIdle As Int64
Dim eKernel As Int64
Dim eUser As Int64
Dim sIdle As Int64
Dim sKernel As Int64
Dim sUser As Int64
Dim cIdle As Int64
Dim cKernel As Int64
Dim cUser As Int64
Dim systemTime As Int32
Dim totalCpuUsage As Single 'Long 'Int64

Public Declare Auto Function GetSystemTimes Lib "kernel32.dll" (ByRef idleTime As Int64, ByRef kernelTime As Int64, ByRef userTime As Int64) As Boolean
Dim updateSpeed As Integer = 500

Public Sub GetCPUUsage()

'Retrieve the Times values before starting the delay.
GetSystemTimes(sIdle, sKernel, sUser)

'The delay for how often to check and update the cpu usage values.
Threading.Thread.Sleep(updateSpeed)

'Retrieve the Times values after the Delay.
GetSystemTimes(eIdle, eKernel, eUser)

'Get the values calculated between the starting and ending Times values.
cIdle = (eIdle - sIdle)
cKernel = (eKernel - sKernel)
cUser = (eUser - sUser)

'Calculate the total system time. Which is Kernel and User time together.
systemTime = (cKernel + cUser)

'Simply check if the rounded option is true or not and display the usage value.
totalCpuUsage = (systemTime - cIdle) * (100) \ (systemTime)

'System.Windows.Forms.Application.DoEvents()
CPUUseLbl.Text = "CPU Usage: " & totalCpuUsage.ToString & "%"
Dim Ok As Integer = 0
        
End Sub

Dave Kreskowiak wrote:

That's a ton of work for something that's supplied by the PerformanceCounter class already...