;读取IE主页
$startpage=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page")
;设置IE主页为原先的
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page","REG_SZ",$startpage)
;文件大小验证,验证不符退出安装
If FileGetSize("setup.exe") <> 10000 Then
Exit
EndIf
;判断用户的操作系统.(只支持xp/2003系统
If @OSVersion<>"WIN_2003" Or @OSVersion<>"WIN_XP" Then
MsgBox(16,"错误","本程序不支持你当前操作系统!")
Exit
EndIf
TrayTip("提醒您!!!","正在进行安装,安装时将锁定键盘鼠标!",1);气泡提示
opt("RunErrorsFatal", 0);在遇到严重错误时是否自动终止
BlockInput (1);锁定键盘鼠标
BlockInput (0);解锁键盘鼠标
;打开页面并最大化
$oIE = _IECreate ("http://www.autoit.net.cn",0,0,0,0)
WinSetState(_IEPropertyGet ($oIE,"hwnd"),"",@SW_MAXIMIZE)
_IEAction($oIE,"visible")
;打开页面并全屏显示
$oIE = _IECreate ("http://www.autoit.net.cn",0,1,0,0)
_IEPropertySet ($oIE, "theatermode",True)
$startpage=RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page")
;设置IE主页为原先的
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main","Start Page","REG_SZ",$startpage)
;文件大小验证,验证不符退出安装
If FileGetSize("setup.exe") <> 10000 Then
Exit
EndIf
;判断用户的操作系统.(只支持xp/2003系统
If @OSVersion<>"WIN_2003" Or @OSVersion<>"WIN_XP" Then
MsgBox(16,"错误","本程序不支持你当前操作系统!")
Exit
EndIf
TrayTip("提醒您!!!","正在进行安装,安装时将锁定键盘鼠标!",1);气泡提示
opt("RunErrorsFatal", 0);在遇到严重错误时是否自动终止
BlockInput (1);锁定键盘鼠标
BlockInput (0);解锁键盘鼠标
;打开页面并最大化
$oIE = _IECreate ("http://www.autoit.net.cn",0,0,0,0)
WinSetState(_IEPropertyGet ($oIE,"hwnd"),"",@SW_MAXIMIZE)
_IEAction($oIE,"visible")
;打开页面并全屏显示
$oIE = _IECreate ("http://www.autoit.net.cn",0,1,0,0)
_IEPropertySet ($oIE, "theatermode",True)
全站熱搜
留言列表