程序开机自动运行 au3源码

程序开机自动运行 au3源码

Submitted by hopol on 2008, June 15, 9:14 AM. 網管相關

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

AutoIt 版本: 3.2.4.8(第二版)
脚本作者:
Email:
QQ/TM:
脚本版本:
脚本功能:

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

; 脚本开始 - 在这后面添加您的代码.
#include <GUIConstants.au3>
#NoTrayIcon
$g_szVersion = "My Script"
If WinExists($g_szVersion) Then
MsgBox(32,"哈哈！","注意已经运行了")
Exit ; 此脚本已经运行了
EndIf
AutoItWinSetTitle($g_szVersion)
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\work.RED\My Documents\Form1.kxf
dim $1
$Form1 = GUICreate("设置自动运行程序", 370, 220, -1, -1)
$Input1 = GUICtrlCreateInput("", 80, 24, 153, 21)
$Label1 = GUICtrlCreateLabel("文件名", 24, 28, 40, 17)
$Button1 = GUICtrlCreateButton("浏览", 248, 20, 81, 25, 0)
$Checkbox1 = GUICtrlCreateCheckbox("只运行一次", 64, 64, 89, 33)
$Button2 = GUICtrlCreateButton("关机", 48, 120, 129, 25, 0)
$Button3 = GUICtrlCreateButton("注消", 48, 174, 129, 25, 0)
$Button4 = GUICtrlCreateButton("重启", 192, 120, 129, 25, 0)
$Button5 = GUICtrlCreateButton("关于", 192, 174, 129, 25, 0)
$Button6 = GUICtrlCreateButton("确定", 192, 72, 129, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button6
if GUICtrlRead($Checkbox1) = 1 Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Runonce",$str1[1],"REG_SZ",GUICtrlRead($input1))
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",$str1[1],"REG_SZ",GUICtrlRead($input1))
EndIf
Case $Button1
$1=FileOpenDialog("请选择您要自动运行的文件：", @ScriptFullPath, "可执行文件(*.exe)|所有文件(*.*)", 1 + 4 )
if @error = 1 Then
Msgbox(48,"警告","您没有选择文件！", 5)
EndIf
$2=GUICtrlSetData($input1,$1)
$str=StringSplit ($1, "\")
$str1=StringSplit ($str[$str[0]], ".",1)
; MsgBox(64,"文件名",$str[$str[0]])
; MsgBox(64,"文件名",$str1[1])
Case $Button2
Shutdown(1)
Exit
Case $Button3
Shutdown(0)
Exit
Case $Button4
Shutdown(6)
Exit
Case $Button5
MsgBox(0,"关于","QQ:16325975"&@CRLF&"制作：红苹果"&@CRLF&"网名：redapple")
EndSwitch
WEnd