在WIN7中激活VS2008的升级框（有图有源码）

前言

最近刚开始接触学习AutoIT，该软件纯天然绿色、免费、轻量级、易上手，弱类型的BASIC语言风格，连CTRL+SHIFT+SPACE的用法都一样，不用安装身材硕大的开发环境，自带编译器，适合除98之外的WIN平台，解压后即可使用，我都是放在U盘里，随便插一台机器就能用了（这段算广告吧）。尽管说的那么容易，但还是要学习，尤其是各种函数以及辅助工具的配合使用。

言归正传

此次的学习实例是，解决在WIN7中安装VS2008后，无法在维护模式输入序列号的问题。分析一下，在WIN7以前的系统中可以显示，安装程序并没有更新，可以肯定只是在WIN7中对输入控件和升级按钮做了隐藏处理，我们要做的就是让这些控件显示出来即可，废话不多说，直接分享完整源代码。

完整源码

view source print ?

001

#cs

002	Author:J.Wang

003	Company:www.chinavalue.net

004	CreateTime:2010.08.07

005	Function:Show VS2008 Serial Number Controls For WIN7

006

#ce

007

008	#include <GUIConstantsEx.au3>

009	#include <ButtonConstants.au3>

010

011

;不显示任务栏图标

012	#NoTrayIcon

013

014	If @OSVersion <> "WIN_7" Then

015	ShowMessage("该程序只能运行在Windows7系统中")

016

Exit

017

EndIf

018

019	;窗口标题，可根据本机安装的VS版本自行设置

020	Dim $windowTitle = "Microsoft Visual Studio 2008 安装程序 - 维护页"

021

022	;序列号，可根据本机安装的VS版本自行设置

023	Dim $snArray[7]

024	$snArray[0] = "VS2008"

025	$snArray[1] = "SerialNumber"

026	$snArray[2] = "PYHYP"

027	$snArray[3] = "WXB3B"

028	$snArray[4] = "B2CCM"

029	$snArray[5] = "V9DX9"

030	$snArray[6] = "VDY8T"

031

032

;创建窗体

033	GUICreate("WIN7安装VS2008的激活升级程序", 336, 195)

034	GUISetIcon("VS2008.ico")

035	GUISetBkColor(0xE4F4FF)

036

037

;打包文件

038	FileInstall("banner.jpg", @TempDir & "\banner.jpg")

039	FileInstall("blog.bmp", @TempDir & "\blog.bmp")

040	FileInstall("button.bmp", @TempDir & "\button.bmp")

041

042

;创建内容

043	GuiCtrlCreatePic(@TempDir & "\banner.jpg", 1, 1, 334, 157)

044

045

;创建博客地址按钮

046	$btnBlog = GUICtrlCreateButton("博客地址", 5, 165, 114, 23, $BS_BITMAP)

047	GUICtrlSetImage($btnBlog, @TempDir & "\blog.bmp")

048	GUICtrlSetCursor($btnBlog, 0)

049

050

;创建激活按钮

051	$btnActive = GUICtrlCreateButton("激活输入框", 201, 165, 126, 23, $BS_BITMAP)

052	GUICtrlSetImage($btnActive, @TempDir & "\button.bmp")

053	GUICtrlSetCursor($btnActive, 0)

054

055	GUISetState(@SW_SHOW)

056

057

While 1

058	$msg = GUIGetMsg()

059

060

Select

061	Case $msg = $btnActive

062

;激活窗口

063	WinActivate($windowTitle)

064

065

;获取窗口是否激活

066	Dim $isActive = WinActive($windowTitle)

067

068	;等于零时表示未找到窗口或者未激活

069	If $isActive = 0 Then

070	ShowMessage("请先进入VS2008维护模式再运行本程序")

071

EndIf

072

073	;不等于零时表示窗口已激活

074	If $isActive <> 0 Then

075

076

;显示序列号文本框

077	Dim $controlID = 2

078

079	While $controlID < 7

080	ControlShow($windowTitle, "", "[CLASS:Edit; INSTANCE:" & $controlID & "]")

081	ControlEnable($windowTitle, "", "[CLASS:Edit; INSTANCE:" & $controlID & "]")

082	ControlSetText($windowTitle, "", "[CLASS:Edit; INSTANCE:" & $controlID & "]", $snArray[$controlID])

083

084	$controlID = $controlID + 1

085

WEnd

086

087

;显示升级按钮

088	ControlShow($windowTitle, "", "[CLASS:Button; INSTANCE:43]")

089	ControlEnable($windowTitle, "", "[CLASS:Button; INSTANCE:43]")

090

091

EndIf

092

093	Case $msg = $btnBlog

094	ShellExecute("http://0417.cnblogs.com")

095

096	Case $msg = $GUI_EVENT_CLOSE

097

ExitLoop

098

EndSelect

099

WEnd

100

101

;显示提示对话框

102	Func ShowMessage($msg)

103	MsgBox(64, "系统提示", $msg)

104

EndFunc

注释已经很清楚了，我就不多说什么了。

截图预览

程序下载（已激活的也可以试用）