VB6.0源码实现笔记本电池状态监控，检测电池电量显示进度条,判断是否有外接电源，剩余电量和电池状态信息显示，关于电池状态的一些判断依据说明：

　　外接电源状态 As Byte 没插=0 插了=1 无法取得信息=255

　　电池状态 As Byte 电量大于66 =1 电小于33 =2 小于5 =4 充电中=8 没有电池=128 无法取得信息=255

　　电池剩余电量 As Byte 0~100，若未知则为255

　　保留 As Byte 必须为0

　　秒为单位的电池剩余电量 As Integer 若未知则为-1

　　秒为单位的电池充满电的电量 As Integer 若未知则为-1-VB6.0 source implementation laptop battery status monitoring, testing battery display a progress bar to determine whether there is an external power supply, the remaining power and battery status information display, battery status on the basis of judgments Descr iption: External power status As Byte　is not inserted = 0 inserted unable to obtain information = 1 = 255 Battery Status As Byte　power is greater than 66　of electricity is less than 33　= 1 = 2 = 4 is less than 5　without a battery charging = 8 = 128 = 255 unable to obtain information on the remaining battery As Byte　0 to 100, compared to 255 if unknown reserved As Byte　must be 0 seconds remaining battery As Integer　or-1 if unknown seconds for the battery fully charged battery As Integer　or-1 if unknown