conseque's Journal

um mais blecaute aconteceu enquanto comprava cigarros...
é paranóia, mas gostaria de ser informado!!

você pode ser informado também :)

--------------------------------------------------------
hw: computer, ups (backrs), modem (cdma)
vb5: form, timer, mscomm, sysinfo
--------------------------------------------------------
Private Sub tmr_Timer()
  If frm.Tag = "" Then frm.Tag = snf.BatteryLifePercent
  frm.Cls
  With snf
    frm.Print .ACStatus & " "; .BatteryFullTime & " " & .BatteryLifePercent & " " & _
              .BatteryLifeTime & " " & .BatteryStatus & " " & frm.Tag
  End With
  If snf.ACStatus = 0 And frm.Tag <> snf.BatteryLifePercent Then
    If cmm.PortOpen = False Then cmm.PortOpen = True
    cmm.Output = "at+cdv88121148885" + Chr$(13)
    Do: DoEvents: Loop Until cmm.InBufferCount >= 2
    txt.Text = txt.Text & cmm.Input
    frm.Tag = snf.BatteryLifePercent
  End If
End Sub
--------------------------------------------------------

é todo...