Autoit写一个带GUI的自动执行小工具

逃离我推掉我的手 2022-12-27 12:49 177阅读 0赞

在域中没有权限的用户可以通过域管理权限执行某个特定程序、执行cmd命令等等。

点击按钮后开始执行，过程中有进度条提示。可以判断程序文件是否存在，不存在则会有不同的提示。

# 源码 #

#Region
    #AutoIt3Wrapper_Icon=111.ico ;图标文件
    #EndRegion
    
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    
    Opt("GUICloseOnESC", 0)
    
    $Form2 = GUICreate("自动执行小工具", 460, 120, -1, -1)
    $Button1 = GUICtrlCreateButton("软件执行", 40, 30, 380, 40)
    GUISetState(@SW_SHOW)
    
    
    While 1
    	$nMsg = GUIGetMsg()
    	Switch $nMsg
    		Case $GUI_EVENT_CLOSE
    			Exit
    		Case $GUI_EVENT_MINIMIZE
    			GUISetState(@SW_HIDE)
    			
    		Case $Button1 ;执行
    			_start()
    			
    			
    	EndSwitch
    WEnd
    
    
    Func _start()
        local $sUserName = "域管理员账户"
        local $domain = "域"
        local $spassword = "密码"
    	ProgressOn("软件自动执行程序", "程序执行", "开始执行...") 
    	ProgressSet(10, "准备执行……","开始执行...")	
    	Sleep(1000)
    	ProgressSet(30, "准备执行……","开始执行...")
    	Sleep(1000)
    	ProgressSet(50, "准备执行……","开始执行...")		
    	Sleep(1000)
    	ProgressSet(60, "正在执行……","开始执行...")		
    	Sleep(1000)
    	;判断文件是否存在
    	If FileExists("程序路径.exe") then 
    	;以管理员权限执行程序
    	RunAs($sUserName, $domain, $sPassword, 0, "程序路径.exe") 
    	ProgressSet(70, "正在执行……","开始执行...")		
    	Sleep(1000)
    	ProgressSet(80, "正在执行……","开始执行...")		
    	Sleep(1000)
    	ProgressSet(90, "正在执行……","开始执行...")		
    	Sleep(1000)	
    	ProgressSet(100, "执行完成!","开始执行...")
    	Sleep(5000)
    	ProgressOff()
    	Else
    	ProgressSet(100, "程序异常!请联系管理员协助。","自动执行工具")
    	Sleep(10000)
    	ProgressOff()
    	EndIf
    EndFunc

# 效果 #

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70]  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70 1]  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70 2]  
文件不存在则会失败  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70 3]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70]: /images/20221120/283a2bd7337a43faae439f266449c9ab.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70 1]: /images/20221120/d9346cbbf40a4d129422f50418c695e4.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70 2]: /images/20221120/3470fbf0a3dc4fdcb52c1dede8d48fb2.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L25vMXhpdW0_size_16_color_FFFFFF_t_70 3]: /images/20221120/1c167fce1f844555ae18bb268a84823f.png