谢谢 rolaka ,republican!
mono的没有找到,修改了一下脚本,如下:
$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\v2.0.50727", "")
If @error < 0 Then
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管","CreateSR","REG_SZ", "True")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管","Licence Key","REG_SZ", "VsvVy1Dw4B2x6b6")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管","Licence User","REG_SZ", "Administrator")
Run("WinXP Manager.exe")
Exit
EndIf
$massage = MsgBox(0+64,"Windows XP 总管 v6.0 运行程序", "Windows XP 总管 检测到系统中没有安装 Microsoft.NET 2.0 运行库,"& @Cr & "请不要执行任何操作,5 秒钟后自动安装 Microsoft.NET 2.0!",5)
If $massage=1 Or $massage=-1 Then
$A = "Microsoft .NET Framework 2.0 安装程序"
Run("Microsoft.NET Framework 2.0.exe")
WinWaitActive($A, "欢迎使用 Microsoft .NET Framework 2.0 安装程序")
Send("!n")
WinWaitActive($A, "最终用户许可协议")
ControlClick($A, "最终用户许可协议","Button11")
ControlClick($A, "最终用户许可协议","Button8")
WinWaitActive($A, "安装完成")
Send("!f")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管","CreateSR","REG_SZ", "True")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管","Licence Key","REG_SZ", "VsvVy1Dw4B2x6b6")
RegWrite("HKEY_CURRENT_USER\Software\Yamicsoft\WinXP总管","Licence User","REG_SZ", "Administrator")
Run("WinXP Manager.exe")
EndIf
Exit 回复 15# rolaka
我手上有的.Net 2.0 Sp1安装包也要17M,还是乖乖用虚拟机吧... 谢谢 rolaka ,republican!
mono的没有找到,修改了一下脚本,如下:
$var = RegRead("HKEY_LOCAL_MACHI ...
yuanyannian 发表于 2010-9-1 22:59 http://www.autoitx.com/images/common/back.gif
高于这个版本都可以用的其实...只检测这个不合适 高于这个版本都可以用的其实...只检测这个不合适
rolaka 发表于 2010-9-1 23:13 http://www.autoitx.com/images/common/back.gif
有道理。可是如何检测呢? 有道理。可是如何检测呢?
yuanyannian 发表于 2010-9-4 20:14 http://www.autoitx.com/images/common/back.gif
有办法把所有的值 枚举出来是最好了... 有办法把所有的值 枚举出来是最好了...
rolaka 发表于 2010-9-4 20:21 http://www.autoitx.com/images/common/back.gif
问题大了,看来我要首先修行半年了。枚举? 好像最简单的办法就是去检查
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy
下面的"v2.0" "v3.5" "v4.0"项 好像最简单的办法就是去检查
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy
下面的"v ...
rolaka 发表于 2010-9-4 20:43 http://www.autoitx.com/images/common/back.gif
是不是可以这样写:
$reg=RenRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy
\v2.0") or RenRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy
\v3.5") or RenRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy
\v4.0")
If $reg= ......? 是不是可以这样写:
$reg=RenRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy
\v2. ...
yuanyannian 发表于 2010-9-4 20:58 http://www.autoitx.com/images/common/back.gif
俄 没有实际应用过 不知道结果 本帖最后由 yuanyannian 于 2010-9-4 23:17 编辑
我曾经写过一个脚本---判断文件夹?
$file1=a
$file2=b
$file3=c
$file4=d
If $file1=1 or $file2=1 or $file3=1 or $file4=1 Then
.....
运行可通过,单自己觉得太菜,不知可否指点。 没思考过.NET的问题,只是针对枚举注册表项给个参考:
#Include <Array.au3>
#Include <WinAPIEx.au3>
Global $hKey, $Count, $Num = 1
$hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\.NETFramework')
$Count = _WinAPI_RegQueryInfoKey($hKey)
Dim $reg_array
For $i = 0 To $Count
If StringRegExp( _WinAPI_RegEnumKey($hKey, $i),'v\d\.\d.*',0) Then
$Num+=1
ReDim $reg_array[$Num]
$reg_array[$Num-1]=_WinAPI_RegEnumKey($hKey, $i)
$reg_array=UBound($reg_array)-1
EndIf
Next
_WinAPI_RegCloseKey($hKey)
_ArrayDisplay($reg_array) 没思考过.NET的问题,只是针对枚举注册表项给个参考:
3mile 发表于 2010-9-4 23:20 http://www.autoitx.com/images/common/back.gif
太深奥,看不懂,可否帮我写一个.......
页:
1
[2]