论坛 › 『 提问交流 』 › au3如何检测win7是否激活，然后运行激活工具

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

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

本帖最后由 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结果？{:face (382):}

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

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

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

谢谢3楼分享.. {:face (88):}

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

学习了，{:face (356):}

查看完整版本: au3如何检测win7是否激活，然后运行激活工具