au3如何检测win7是否激活，然后运行激活工具

qq4045728 · 发表于 2011-11-23 13:05:39

本帖最后由 qq4045728 于 2011-11-28 21:39 编辑

如果检测win7系统是否激活，如果没有激活则运行激活工具。。激活则退出

;==============================
本人自己写的老土办法，实在是没办法的办法啊。。。如果有高人知道，请指出

ShellExecute(@SystemDir & "\slmgr.vbs","-xpr")
$1 = WinWaitActive("Windows Script Host","计算机已永久激活。",6)


If $1 = "0" Then
        WinWaitActive("Windows Script Host","初始宽限期于")
        ControlCommand("Windows Script Host","初始宽限期于","Button1","Check")
        MsgBox(1,"未激活","系统未激活")
        
Else
        WinWaitActive("Windows Script Host","计算机已永久激活。")
        ControlCommand("Windows Script Host","计算机已永久激活。","Button1","Check")
        MsgBox(1,"激活","系统已激活")
        EndIf

ganyuansi · 发表于 2011-11-23 16:32:18

获取slmgr结果？

netegg · 发表于 2011-11-23 17:24:34

http://msdn.microsoft.com/en-us/ ... 1%28v=vs.85%29.aspx
看这堆玩意吧,可能有用的上的

bdancerlc · 发表于 2011-11-23 21:56:31

谢谢3楼分享..

qq4045728 · 发表于 2011-11-25 10:55:56

- -谁能提供下源码！

nxbigdaddy · 发表于 2011-11-25 11:22:47

谢谢楼主分享啊！

qq4045728 · 发表于 2011-11-25 15:04:00

求源码。谢谢！！

au3x · 发表于 2011-11-26 12:59:34

这个问题正是我想问的...

qq4045728 · 发表于 2011-11-28 21:40:05

欢迎高人指出高招。。

pcbar · 发表于 2014-4-11 20:51:24

本帖最后由 pcbar 于 2014-4-11 21:06 编辑

最近做个程序，找到这了，顺便回复一下，
只是不显示VBS提示窗口，权宜之计，呵呵。

If jh() Then 
        MsgBox(0,0,"系统已激活")
Else
        MsgBox(0,0,"系统未激活")
EndIf



Func jh()
        $t = ""
        $tmpfile = "c:\temp.dat"
        If @OSVersion <> "WIN_7" Then
                SetError(1)
                MsgBox(64,"错误","请在WIN7系统下运行此代码" ,20)
                Return
        EndIf
        RunWait(@ComSpec & " /c " &"cscript " & @WindowsDir & "\system32\slmgr.vbs -xpr >" & $tmpfile ,@WindowsDir, @SW_HIDE )
        $t = FileRead($tmpfile)
        FileDelete($tmpfile)
        If StringInStr($t, "计算机已永久激活") Then
                Return True
        Else
                Return False
        EndIf
EndFunc   ;==>jh

xz00311 · 发表于 2014-4-14 12:03:37

又学到了还是批处理好啊

wybdlut · 发表于 2014-4-14 14:05:22

学习了，

		自动登录	找回密码
密码			加入

[系统综合] au3如何检测win7是否激活，然后运行激活工具

相关帖子