您在這裡

如何在Office Excel 環境下控制IPPower

如何在Office Excel 環境下控制IPPower

PPower 是網路控制電源設備。這裡要告訴幾個簡單步驟整合在你的既成系統裡面。

許多工程應用都是在人機界面(HMI/SCDA)環境下進行,這些介面有些是既成都軟件有些是自己開發。這裡要告訴你,IPPower 這種利用網路控制的電源的產品怎麼連結在Office套裝軟件下。方法都是大同小異。只要打通了一種就可以套用在大部分的應用軟體。

大概所有人都用過微軟Office的 Excel,Word,PowerPoint。看似文書處理的工具其實廣泛應用在工程計算,蒐集資料及報表演示上。

因為IPPower提供一個非常方便的 CGI 介面。如果寫過程式的朋友 你可以透過 HTTP GET 方式發出指令或接收指令

現在就以 Excel 為例,進行IP Power 控制

  • 1)首先你要知道你的設備 IP, 帳號,密碼
                  例如將 IPPower 第一開關打開的CGI指令是 HTTP://192.168.100.47:80/set.cmd?user=admin+pass=12345678+cmd=setpower+p61=1
                  例如將 IPPower 第一開關關閉的CGI指令是 HTTP://192.168.100.47:80/set.cmd=user=admin+pass=12345678+cmd=setpower+p61=0
  • 2)你要會簡單的VBA,下載原始碼當場學也OK,利用幾個網路讀寫的固定格式。替換CGI 到 URL
  • 3)在Excel檔案標籤-->選項-->自訂功能區-->啟用開發人員
  • 4)回到Excel標籤-->開發人員-->Visual Basic-->開始編輯你的巨集
  • Dim strResult As String
    Dim objHTTP As Object
    Dim URL As String
    Dim strIP As String
    Dim strUSER As String
    Dim strPASS As String
    strIP = Worksheets("工作表1").Range("B2:B2")
    strUSER = Worksheets("工作表1").Range("B3:B3")
    strPASS = Worksheets("工作表1").Range("B4:B4")
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    URL = "http://" & strIP & "/set.cmd?user=" & strUSER & "+pass=" & strPASS & "+cmd=setpower+p62=1"
    objHTTP.Open "GET", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    objHTTP.send ("")
    strResult = objHTTP.responseText
    Worksheets("工作表1").Range("A1:A1") = strResult

  • 5)剩下的就是讓畫面更友善,你可以用圖片用按鈕等各種技巧潤飾成一個人機界面
  • 請至下載Excel vba 9258原始檔

    以下是Excel 與 IPPower結合的範例