晒晒脚本-依赖.NET Framework 支持的绿色程序运行

yuanyannian

谢谢 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

republican

回复 15# rolaka

我手上有的.Net 2.0 Sp1安装包也要17M，还是乖乖用虚拟机吧...

rolaka

谢谢 rolaka ,republican!
mono的没有找到，修改了一下脚本，如下：

$var = RegRead("HKEY_LOCAL_MACHI ...
yuanyannian 发表于 2010-9-1 22:59

高于这个版本都可以用的其实...只检测这个不合适

yuanyannian

高于这个版本都可以用的其实...只检测这个不合适
rolaka 发表于 2010-9-1 23:13

有道理。可是如何检测呢？

rolaka

有道理。可是如何检测呢？
yuanyannian 发表于 2010-9-4 20:14

有办法把所有的值 枚举出来是最好了...

yuanyannian

有办法把所有的值 枚举出来是最好了...
rolaka 发表于 2010-9-4 20:21

问题大了，看来我要首先修行半年了。枚举？

rolaka

好像最简单的办法就是去检查

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy

下面的"v2.0" "v3.5" "v4.0"项

yuanyannian

好像最简单的办法就是去检查

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy

下面的"v ...
rolaka 发表于 2010-9-4 20:43

是不是可以这样写：
$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= ......?

rolaka

是不是可以这样写：
$reg=RenRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\Policy
\v2. ...
yuanyannian 发表于 2010-9-4 20:58

俄 没有实际应用过 不知道结果

yuanyannian

我曾经写过一个脚本---判断文件夹？
$file1=a
$file2=b
$file3=c
$file4=d
If $file1=1 or $file2=1 or $file3=1 or $file4=1 Then
.....
运行可通过，单自己觉得太菜，不知可否指点。

3mile

没思考过.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[1]
For $i = 0 To $Count[0]
        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[0]=UBound($reg_array)-1
        EndIf
Next

_WinAPI_RegCloseKey($hKey)
_ArrayDisplay($reg_array)

yuanyannian

没思考过.NET的问题，只是针对枚举注册表项给个参考：
3mile 发表于 2010-9-4 23:20

太深奥，看不懂，可否帮我写一个.......