{"id":27244,"date":"2022-12-23T06:27:46","date_gmt":"2022-12-23T00:57:46","guid":{"rendered":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/"},"modified":"2022-12-23T06:27:46","modified_gmt":"2022-12-23T00:57:46","slug":"solved-vb-code-for-showing-battery-status-closed","status":"publish","type":"post","link":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/","title":{"rendered":"[Solved] VB Code For Showing Battery Status [closed]"},"content":{"rendered":"<p> [ad_1]<br \/>\n<\/p>\n<div id=\"answer-19345752\" class=\"answer js-answer accepted-answer js-accepted-answer\" data-answerid=\"19345752\" data-parentid=\"19345722\" data-score=\"1\" data-position-on-page=\"1\" data-highest-scored=\"1\" data-question-has-accepted-highest-score=\"1\" itemprop=\"acceptedAnswer\" itemscope itemtype=\"https:\/\/schema.org\/Answer\">\n<div class=\"post-layout\">\n<div class=\"votecell post-layout--left\"><\/div>\n<div class=\"answercell post-layout--right\">\n<div class=\"s-prose js-post-body\" itemprop=\"text\">\n<p>If you are looking for VB6 code(which I guessed) Then I found the code <a rel=\"nofollow noopener\" target=\"_blank\" href=\"http:\/\/www.freevbcode.com\/ShowCode.asp?ID=8682\">here<\/a>:-<\/p>\n<pre><code>Private Sub Form_Load()\n    MsgBox \"Battery status: \" &amp; getBatteryStatus(), vbInformation + vbOKOnly, \"Battery Status\"\n    End\nEnd Sub\n\nPublic Function getBatteryStatus() As Integer\n  Dim obj As Object, obj2 As Object, stat As Integer\n'  Get Battery Status\n'  Return Value Meaning\n'0 No battery\n'1 The battery is discharging.\n'2 The system has access to AC so no battery is being discharged. However, the battery is not necessarily charging.\n'3 Fully Charged\n'4 Low\n'5 Critical\n'6 Charging\n'7 Charging and High\n'8 Charging and Low\n'9 Charging and Critical\n'10 Undefined\n'11 Partially Charged\n  stat = 0\n  Set obj = GetObject(\"winmgmts:\").InstancesOf(\"Win32_Battery\")\n  For Each obj2 In obj 'loop in objects\n    stat = obj2.BatteryStatus\n  Next\n  getBatteryStatus = stat\nEnd Function\n<\/code><\/pre>\n<p>In VB.NET you can try like this:-<\/p>\n<pre><code>'Assembly: System.Windows.Forms.dll\n'Namespace: System\n'Namespace: Microsoft.VisualBasic\n'Namespace: System.Windows.Forms\n\nDim power As PowerStatus = SystemInformation.PowerStatus\nDim percent As Single = power.BatteryLifePercent\nMsgBox(\"Percent battery life remaining: \" &amp; percent * 100)\n<\/code><\/pre>\n<\/p><\/div>\n<div class=\"mt24\"><\/div>\n<\/div>\n<p>            <span class=\"d-none\" itemprop=\"commentCount\">4<\/span> <\/p><\/div>\n<\/div>\n<p>[ad_2]<\/p>\n<p>solved VB Code For Showing Battery Status [closed] <\/p>\n","protected":false},"excerpt":{"rendered":"<p>[ad_1] If you are looking for VB6 code(which I guessed) Then I found the code here:- Private Sub Form_Load() MsgBox &#8220;Battery status: &#8221; &amp; getBatteryStatus(), vbInformation + vbOKOnly, &#8220;Battery Status&#8221; End End Sub Public Function getBatteryStatus() As Integer Dim obj As Object, obj2 As Object, stat As Integer &#8216; Get Battery Status &#8216; Return Value &#8230; <a title=\"[Solved] VB Code For Showing Battery Status [closed]\" class=\"read-more\" href=\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\" aria-label=\"More on [Solved] VB Code For Showing Battery Status [closed]\">Read more<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[320],"tags":[353],"class_list":["post-27244","post","type-post","status-publish","format-standard","hentry","category-solved","tag-vb-net"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v26.5 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>[Solved] VB Code For Showing Battery Status [closed] - JassWeb<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"[Solved] VB Code For Showing Battery Status [closed] - JassWeb\" \/>\n<meta property=\"og:description\" content=\"[ad_1] If you are looking for VB6 code(which I guessed) Then I found the code here:- Private Sub Form_Load() MsgBox &quot;Battery status: &quot; &amp; getBatteryStatus(), vbInformation + vbOKOnly, &quot;Battery Status&quot; End End Sub Public Function getBatteryStatus() As Integer Dim obj As Object, obj2 As Object, stat As Integer &#039; Get Battery Status &#039; Return Value ... Read more\" \/>\n<meta property=\"og:url\" content=\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\" \/>\n<meta property=\"og:site_name\" content=\"JassWeb\" \/>\n<meta property=\"article:published_time\" content=\"2022-12-23T00:57:46+00:00\" \/>\n<meta name=\"author\" content=\"Kirat\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Kirat\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"1 minute\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\"},\"author\":{\"name\":\"Kirat\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\"},\"headline\":\"[Solved] VB Code For Showing Battery Status [closed]\",\"datePublished\":\"2022-12-23T00:57:46+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\"},\"wordCount\":44,\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"keywords\":[\"vb.net\"],\"articleSection\":[\"Solved\"],\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\",\"url\":\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\",\"name\":\"[Solved] VB Code For Showing Battery Status [closed] - JassWeb\",\"isPartOf\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#website\"},\"datePublished\":\"2022-12-23T00:57:46+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\/\/jassweb.com\/solved\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"[Solved] VB Code For Showing Battery Status [closed]\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/jassweb.com\/solved\/#website\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"name\":\"JassWeb\",\"description\":\"Build High-quality Websites\",\"publisher\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/jassweb.com\/solved\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/jassweb.com\/solved\/#organization\",\"name\":\"Jass Web\",\"url\":\"https:\/\/jassweb.com\/solved\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"contentUrl\":\"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png\",\"width\":693,\"height\":132,\"caption\":\"Jass Web\"},\"image\":{\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31\",\"name\":\"Kirat\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750\",\"contentUrl\":\"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750\",\"caption\":\"Kirat\"},\"sameAs\":[\"http:\/\/jassweb.com\"],\"url\":\"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"[Solved] VB Code For Showing Battery Status [closed] - JassWeb","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/","og_locale":"en_US","og_type":"article","og_title":"[Solved] VB Code For Showing Battery Status [closed] - JassWeb","og_description":"[ad_1] If you are looking for VB6 code(which I guessed) Then I found the code here:- Private Sub Form_Load() MsgBox \"Battery status: \" &amp; getBatteryStatus(), vbInformation + vbOKOnly, \"Battery Status\" End End Sub Public Function getBatteryStatus() As Integer Dim obj As Object, obj2 As Object, stat As Integer ' Get Battery Status ' Return Value ... Read more","og_url":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/","og_site_name":"JassWeb","article_published_time":"2022-12-23T00:57:46+00:00","author":"Kirat","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Kirat","Est. reading time":"1 minute"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/#article","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/"},"author":{"name":"Kirat","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31"},"headline":"[Solved] VB Code For Showing Battery Status [closed]","datePublished":"2022-12-23T00:57:46+00:00","mainEntityOfPage":{"@id":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/"},"wordCount":44,"publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"keywords":["vb.net"],"articleSection":["Solved"],"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/","url":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/","name":"[Solved] VB Code For Showing Battery Status [closed] - JassWeb","isPartOf":{"@id":"https:\/\/jassweb.com\/solved\/#website"},"datePublished":"2022-12-23T00:57:46+00:00","breadcrumb":{"@id":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/jassweb.com\/solved\/solved-vb-code-for-showing-battery-status-closed\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/jassweb.com\/solved\/"},{"@type":"ListItem","position":2,"name":"[Solved] VB Code For Showing Battery Status [closed]"}]},{"@type":"WebSite","@id":"https:\/\/jassweb.com\/solved\/#website","url":"https:\/\/jassweb.com\/solved\/","name":"JassWeb","description":"Build High-quality Websites","publisher":{"@id":"https:\/\/jassweb.com\/solved\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/jassweb.com\/solved\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/jassweb.com\/solved\/#organization","name":"Jass Web","url":"https:\/\/jassweb.com\/solved\/","logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/","url":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","contentUrl":"https:\/\/jassweb.com\/wp-content\/uploads\/2021\/02\/jass-website-logo-1.png","width":693,"height":132,"caption":"Jass Web"},"image":{"@id":"https:\/\/jassweb.com\/solved\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/65c9c7b7958150c0dc8371fa35dd7c31","name":"Kirat","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/jassweb.com\/solved\/#\/schema\/person\/image\/","url":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750","contentUrl":"https:\/\/jassweb.com\/solved\/wp-content\/litespeed\/avatar\/1261af3c9451399fa1336d28b98ea3bb.jpg?ver=1775798750","caption":"Kirat"},"sameAs":["http:\/\/jassweb.com"],"url":"https:\/\/jassweb.com\/solved\/author\/jaspritsinghghumangmail-com\/"}]}},"_links":{"self":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/27244","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/comments?post=27244"}],"version-history":[{"count":0,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/posts\/27244\/revisions"}],"wp:attachment":[{"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/media?parent=27244"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/categories?post=27244"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/jassweb.com\/solved\/wp-json\/wp\/v2\/tags?post=27244"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}