AutoIt 建立彷Windows 更新程式訊息功能

一般使用Windows Update 更新後會顯示提示重新開機訊息，若是佈署非Windows 更新程式，又想要讓使用者可以自訂安裝的時間，只能自已動手寫了，AutoIt除了可以撰寫一般的程序碼，也可以撰寫Windows GUI程式，以下是使用GUI彷Windows 更新後提示重新啟動及延時安裝的功能。
Dim $sSoftName = "Java8 Update"
  ==>定義顯示畫面的訊息，本例為安裝Java8 Update 的訊息

Case $Button1
     MsgBox(4096, "Software Install", "Install Beging")

  ==> 在Case $Button1 中定義時間內點選立即安裝時所要執行的程序，當然你可以自訂啟動執行安裝程式

Case $Button2
              $sComboRead = GUICtrlRead($Combo1)
            If $sComboRead ="10 分" Then
                GUISetState(@SW_HIDE)
                Sleep(600000)
                GUISetState(@SW_SHOW)
            ElseIf $sComboRead ="1 小時" Then
                GUISetState(@SW_HIDE)
                Sleep(3600000)
                GUISetState(@SW_SHOW)
            ElseIf $sComboRead ="4 小時" Then
                GUISetState(@SW_HIDE)
                Sleep(14400000)
                GUISetState(@SW_SHOW)
            EndIf

==>Case $Button2 中訂義下拉選項程式等待安裝的時間，例如我點選10分後，畫面會隱藏600000 毫秒，其它1小時、4小時依此類推，只要訂義好時間畫面會隱藏，這樣就可以達到由使用者自訂安裝的時間，彈性佈署。

範例：



#cs ----------------------------------------------------------------

AutoIt Version: 3.3.14.2
Author: 奔騰兔開發誌
Date : 2017/06/16
Script Function: Script Demo
Description :彷Windows更新重啟訊息
Notes:http://pentiumto.blogspot.tw/


#ce -----------------------------------------------------------------


Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Opt("TrayIconHide", 0) ;0=show, 1=hide tray icon

Dim $sNowtime=@YEAR &"-"& @MON &"-"& @MDAY &" "& @HOUR &":"& @MIN

ConsoleWrite($sNowtime & " [Info] " & @ScriptLineNumber & " 自訂訊息可以在開發過程除錯 "&@CRLF)



#include
#include
#include
#include
#include
#include

; Display the tray icon.
Opt("TrayIconHide", 1)


Dim $sSoftName = "Java8 Update"


#Region ### START Koda GUI section ### Form=AlarmInfo.kxf
$Form1 = GUICreate("SoftWare Update", 600, 212, 229, 500,$WS_CAPTION)
$Label1 = GUICtrlCreateLabel( $sSoftName &" 軟體派送更新，請將您的文件儲存", 8, 16, 600, 28)
GUICtrlSetFont(-1, 18, 800, 0, "標楷體")
GUICtrlSetColor(-1, 0x0000FF)
$Icon1 = GUICtrlCreateIcon("D:\icon\Leopard_ico\ico\AppleScript Utility.ico", -1, 8, 112, 48, 48)
$Group1 = GUICtrlCreateGroup("執行選項", 172, 112, 369, 89)
$Combo1 = GUICtrlCreateCombo("請選擇", 372, 136, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "10 分|1 小時|4 小時")
GUICtrlSetFont(-1, 10, 800, 0, "標楷體")
$Button1 = GUICtrlCreateButton("立即安裝", 268, 165, 121, 33)
GUICtrlSetFont(-1, 12, 800, 0, "標楷體")
$Button2 = GUICtrlCreateButton("延期", 420, 164, 105, 33)
GUICtrlSetFont(-1, 12, 800, 0, "標楷體")
$Label2 = GUICtrlCreateLabel("過了下列時間後提醒我：", 180, 136, 191, 20)
GUICtrlSetFont(-1, 12, 800, 0, "標楷體")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label3 = GUICtrlCreateLabel("程式更新過程中有可能造成不可預期的錯誤，為避免資料遺失，"& @CRLF &"請務必儲存您的檔案後，再進行安裝", 8, 48, 884, 63)
GUICtrlSetFont(-1, 14, 400, 0, "標楷體")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Local $sComboRead = ""



While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Combo1
$sComboRead = GUICtrlRead($Combo1)
; MsgBox($MB_SYSTEMMODAL, "", "The combobox is currently displaying: " & $sComboRead, 0, $Form1)
Case $Button1

MsgBox(4096, "Software Install", "Install Beging")

Case $Button2

$sComboRead = GUICtrlRead($Combo1)
If $sComboRead ="10 分" Then

GUISetState(@SW_HIDE)
Sleep(600000)
GUISetState(@SW_SHOW)

ElseIf $sComboRead ="1 小時" Then
GUISetState(@SW_HIDE)
Sleep(3600000)
GUISetState(@SW_SHOW)

ElseIf $sComboRead ="4 小時" Then
GUISetState(@SW_HIDE)
Sleep(14400000)
GUISetState(@SW_SHOW)

EndIf


EndSwitch
WEnd





執行結果：

AutoIt 修復Windows WMI

Windows 內的WMI服務提供了不少好用的指令，若是企業中有導入SCCM (Microsoft System Center Configuration Manager )可參考以下 System Center Configuration Manager Overview 連結說明，在這就不多介紹了。
講了這麼多為什麼要修復WMI 呢？因為在企業中SCCM 的Client 安裝到Windows 系統後若WMI服務有問題，將造成SCCM Client 功能異常，這個時侯就需要進行WMI 的修復，以下是透過AutoIt 的程式碼進行修復。

範例：


Func WmiFix()


RunWait(@ComSpec & " /c " & 'sc config winmgmt start= disabled', "", @SW_HIDE)

Sleep(2000)


RunWait(@ComSpec & " /c " & 'net stop winmgmt /y', "", @SW_HIDE)

Sleep(2000)


DirMove("C:\WINDOWS\system32\wbem\Repository","C:\WINDOWS\system32\wbem\Repository.bak",1 )


Sleep(2000)

RunWait(@ComSpec & " /c " & 'sc config winmgmt start= auto', "", @SW_HIDE)

Sleep(3000)


EndFunc




AutoIt 軟體自動化安裝

在企業的環境中常常有需要自動化佈署軟體的需求，AutIt可以讓佈署更加便利且自動化，以下是介紹軟體佈署的做法：
程式碼的運作可以定義要執行軟體的數量並且一個接一個依序執行，這裡以安裝Windows 的修正程式為例。語法中   Global $sExecPath[2]   本行定義增加增加執行多少程式，本例為2個，若有多個程式要執行只要增加數字就可以了，本例程式碼是陣例的應用。
以下程式碼定義要執行的程式名稱及參數，要注意的是要佈署的程式和AutoIt程式要放在一起，若放在不同的路徑要定義清楚否則就會失敗。因為要透過自動化佈署所以參數要定義為自動且靜默( Silent install )

以下是要安裝的程式碼：

$sExecPath[0] = @ScriptDir & "wusa.exe X86-all-windows6.1-kb3170455-x86.msu" &" /log /quiet /norestart"
$sExecPath[1] = @ScriptDir & "wusa.exe Windows6.1-KB3192403-x86.msu" &" /log /quiet /promptrestart"


範例：




#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.14.2
Author: 奔騰兔開發誌
Date : 2017/06/16
Script Function: Script Demo
Description :陣列的簡單運用於軟體佈署
Notes:http://pentiumto.blogspot.tw/


#ce ----------------------------------------------------------------------------


#include


Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Opt("TrayIconHide", 1) ;0=show, 1=hide tray icon

Dim $sNowtime=@YEAR &"-"& @MON &"-"& @MDAY &" "& @HOUR &":"& @MIN

;指定要執行的程式數量，並提供執行路徑

Global $sExecPath[2]

$sExecPath[0] = @ScriptDir & "wusa.exe X86-all-windows6.1-kb3170455-x86.msu" &" /log /quiet /norestart"
$sExecPath[1] = @ScriptDir & "wusa.exe Windows6.1-KB3192403-x86.msu" &" /log /quiet /promptrestart"




ExecuteMe() ;啟動程式


Func ExecuteMe()


For $element In $sExecPath
Sleep(2000)
ConsoleWrite($sNowtime & " [Info] " & @ScriptLineNumber & " " &$element&@CRLF)


Local $iPID = RunWait(@ComSpec & " /c " & $element, @ScriptDir, @SW_MINIMIZE )

ProcessWaitClose($iPID)

ConsoleWrite($sNowtime & " [Info] " & @ScriptLineNumber & " " & $iPID&@CRLF)
Next


EndFunc







AutoIt 建立本機帳號並設定管理者群組中

在方便自動化作業，常常有需要在Windows 中建立帳號，並且設定好權限，以下用一段簡單的程式碼建立一個帳號，並將帳號加入到本機的管理者群組中

範例：


#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.14.2
Author: 奔騰兔開發誌
Date : 2017/06/16
Script Function: Script Demo
Description :建立本機帳號並設定管理者群組中
Notes:http://pentiumto.blogspot.tw/


#ce ----------------------------------------------------------------------------


Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Opt("TrayIconHide", 0) ;0=show, 1=hide tray icon

Dim $sNowtime=@YEAR &"-"& @MON &"-"& @MDAY &" "& @HOUR &":"& @MIN

; ConsoleWrite($sNowtime & " [Info] " & @ScriptLineNumber & " 自訂訊息可以在開發過程除錯 "&@CRLF)



Dim $NewUser = "Admin" ;This is the User account to be created
Dim $Newpass = "Admin@password" ;This is were you enter the password you want for this account
Dim $Comment = "Windows Account Create Demo" ;This is a discription of the account that is added to the windows. Optional - leave blank for nothing to be entered
Dim $FName = "Admin" ;This is the Full name section of the account. Optional - leave blank for nothing to be entered



CreateUser()



Func CreateUser()

RunWait('net user '& $Newuser & ' ' & $Newpass & ' /add /fullname:"' & $FName & '" /comment:"' & $comment & '"', '', @SW_MAXIMIZE)

RunWait('net user '& $Newuser & ' /EXPIRES:never', '', @SW_HIDE)

RunWait('net localgroup users ' & $Newuser & ' /delete', '', @SW_HIDE)

RunWait('net localgroup Administrators ' & $Newuser & ' /add', '', @SW_HIDE)

RunWait('net accounts /maxpwage:unlimited', '', @SW_HIDE)


EndFunc





執行結果：

AutoIt Function 功能

為了讓你在開發AutoIt程式有效重覆運用程式碼，Function 的運用可以讓你快速開發AutoIt程式，以是介紹使用的方式：
一般的Function 直接將程式碼寫在 Func......EndFunc 之中 同時必須為Function 命名這樣程式才可以呼叫使用 如下，Function 的名稱為 FirstFunction() 在呼叫Function  時有一點要注意必須在Function 之前執行時要加上「()」括號

FirstFunction()     ;呼叫Function
Func FirstFunction()
…
…程式碼寫在這之間
…
EndFunc

範例：


#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.14.2
Author: 奔騰兔開發誌
Date : 2017/06/16
Script Function: Script Demo
Description :Function 簡單運用
Notes:http://pentiumto.blogspot.tw/


#ce ----------------------------------------------------------------------------


Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Opt("TrayIconHide", 0) ;0=show, 1=hide tray icon

Dim $sNowtime=@YEAR &"-"& @MON &"-"& @MDAY &" "& @HOUR &":"& @MIN

FirstFunction() ;呼叫Function

Func FirstFunction()

ConsoleWrite($sNowtime & " [Info] " & @ScriptLineNumber & " 一般 Function 簡單運用 "&@CRLF)

EndFunc






執行結果：

AutoIt 開發範本

為了讓AutoIt 開發的程式後續的維護及讓未來接手維護的人能夠好維護，建議在開發的過程建立標準的範本，就是Templete ，在這裡分享我自已開發過程中使用的範本，當然在這機年開發AutoIt的過程中也參考了網路上許多先進的程式，給同樣使用AutoIt的同好參考囉。





#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.14.2
Author: XXXX XXXX
Date : 2017/06/15
Script Function: AutoIT Script Templete
Description :
Notes:


#ce ----------------------------------------------------------------------------


Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Opt("TrayIconHide", 0) ;0=show, 1=hide tray icon

Dim $sNowtime=@YEAR &"-"& @MON &"-"& @MDAY &" "& @HOUR &":"& @MIN

ConsoleWrite($sNowtime & " [Info] " & @ScriptLineNumber & " 自訂訊息可以在開發過程除錯 "&@CRLF)




執行結果：


在開發工具下方的Debug 視窗可以透過ConsoleWrite() 寫出訊息並且可以得知是那一行，在開發的過程中非常好用。

ListView 資料存取設計

完成ListView 的資料Bind 後可依取得的資料進行後續的設計


在ListView的ItemDataBound 事件中取得ListView 的資料後進行資料處理
protected void ListView1_ItemDataBound(object sender, ListViewItemEventArgs e)
    {
        //使用ItemDataBound事件中找到ListView 的資料ID="UnitsInStockLabel"的值，並且
        //依傳回的值進行判斷，小於10修改ForeColor 為紅色，其它為綠色

        Label lb = (Label)e.Item.FindControl("UnitsInStockLabel");
        if (int.Parse(lb.Text) < 10)
        {
            lb.ForeColor = System.Drawing.Color.Red;
        }
        else
        {
            lb.ForeColor = System.Drawing.Color.Green;
        }
    }
結果：
根據不同的值顯示出紅色或綠色