找回密码  加入

AUTOIT CN

搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › powershell代码转AU3
返回列表 发新帖
查看: 226|回复: 7

[AU3基础] powershell代码转AU3

[复制链接]
zbezj
发表于 2023-3-2 23:20:04 | 显示全部楼层 |阅读模式
求教大佬

如何把下面的power shell代码转成AU3？谢谢
  1. @exit /b

  3. :embed:
  4. function UninstallLicenses($DllPath) {
  5.     $DynAssembly = New-Object System.Reflection.AssemblyName('Win32Lib')
  6.     $AssemblyBuilder = [AppDomain]::CurrentDomain.DefineDynamicAssembly($DynAssembly, [Reflection.Emit.AssemblyBuilderAccess]::Run)
  7.     $ModuleBuilder = $AssemblyBuilder.DefineDynamicModule('Win32Lib', $False)
  8.     $TypeBuilder = $ModuleBuilder.DefineType('sppc', 'Public, Class')
  9.     $DllImportConstructor = [Runtime.InteropServices.DllImportAttribute].GetConstructor(@([String]))
  10.     $FieldArray = [Reflection.FieldInfo[]] @([Runtime.InteropServices.DllImportAttribute].GetField('EntryPoint'))

  12.     $Open = $TypeBuilder.DefineMethod('SLOpen', [Reflection.MethodAttributes] 'Public, Static', [int], @([IntPtr].MakeByRefType()))
  13.     $Open.SetCustomAttribute((New-Object Reflection.Emit.CustomAttributeBuilder(
  14.                 $DllImportConstructor,
  15.                 @($DllPath),
  16.                 $FieldArray,
  17.                 @('SLOpen'))))

  19.     $GetSLIDList = $TypeBuilder.DefineMethod('SLGetSLIDList', [Reflection.MethodAttributes] 'Public, Static', [int], @([IntPtr], [int], [guid].MakeByRefType(), [int], [int].MakeByRefType(), [IntPtr].MakeByRefType()))
  20.     $GetSLIDList.SetCustomAttribute((New-Object Reflection.Emit.CustomAttributeBuilder(
  21.                 $DllImportConstructor,
  22.                 @($DllPath),
  23.                 $FieldArray,
  24.                 @('SLGetSLIDList'))))

  26.     $UninstallLicense = $TypeBuilder.DefineMethod('SLUninstallLicense', [Reflection.MethodAttributes] 'Public, Static', [int], @([IntPtr], [IntPtr]))
  27.     $UninstallLicense.SetCustomAttribute((New-Object Reflection.Emit.CustomAttributeBuilder(
  28.                 $DllImportConstructor,
  29.                 @($DllPath),
  30.                 $FieldArray,
  31.                 @('SLUninstallLicense'))))

  33.     $SPPC = $TypeBuilder.CreateType()
  34.     $Handle = [IntPtr]::Zero
  35.     $SPPC::SLOpen([ref]$handle) | Out-Null
  36.     $pnReturnIds = 0
  37.     $ppReturnIds = [IntPtr]::Zero

  39.     if (!$SPPC::SLGetSLIDList($handle, 0, [ref][guid]"0ff1ce15-a989-479d-af46-f275c6370663", 6, [ref]$pnReturnIds, [ref]$ppReturnIds)) {
  40.         foreach ($i in 0..($pnReturnIds - 1)) {
  41.             $SPPC::SLUninstallLicense($handle, [System.Int64]$ppReturnIds + [System.Int64]16 * $i) | Out-Null
  42.         }   
  43.     }
  44. }

  46. $OSPP = (Get-ItemProperty -Path "HKLM:\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" -ErrorAction SilentlyContinue).Path
  47. if ($OSPP) {
  48.     UninstallLicenses($OSPP + "osppc.dll")
  49. }
  50. UninstallLicenses("sppc.dll")
  51. :embed:
复制代码


回复

使用道具 举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
发表于 2023-3-4 21:26:45 | 显示全部楼层 


#Include <WinAPI.au3>

Global $DLL = DllOpen("sppc.dll")

UninstallLicenses()

Func UninstallLicenses()

        If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform", "Path") = '' Then Return

        Local $Handle = SLOpen()

        If $Handle Then

                Local $pnReturnIds = 0, $ppReturnIds = 0

                If Not SLGetSLIDList($Handle, 0, _WinAPI_GUIDFromString("0ff1ce15-a989-479d-af46-f275c6370663"), 6, $pnReturnIds, $ppReturnIds) Then

                        For $i = 0 To $pnReturnIds - 1

                                $SPPC = SLUninstallLicense($Handle, $ppReturnIds + 16 * $i)

                        Next

                EndIf

                SLClose($Handle)

        EndIf

EndFunc   ;==>UninstallLicenses

Func SLOpen()

        Local $Ret = DllCall($DLL, 'int', 'SLOpen', 'Handle*', 0)

        If @error Then Return SetError(@error, 0, -1)

        Return SetError(GetLastError(), 0, $Ret[1])

EndFunc   ;==>SLOpen

Func SLGetSLIDList($hSLC, $eQueryIdType, $pQueryId, $eReturnIdType, ByRef $pnReturnIds, ByRef $ppReturnIds)

        Local $Ret = DllCall($DLL, 'int', 'SLGetSLIDList', 'Handle', $hSLC, 'int', $eQueryIdType, 'struct*', $pQueryId, 'int', $eReturnIdType, 'UINT*', 0, 'ptr*', 0)

        If @error Then Return SetError(@error, 0, -1)

        $pnReturnIds = $Ret[5]

        $ppReturnIds = $Ret[6]

        Return SetError(GetLastError(), 0, $Ret[0])

EndFunc   ;==>SLGetSLIDList

Func SLUninstallLicense($hSLC, $pLicenseFileId)

        Local $Ret = DllCall($DLL, 'int', 'SLUninstallLicense', 'Handle', $hSLC, 'ptr', $pLicenseFileId)

        If @error Then Return SetError(@error, 0, -1)

        Return SetError(GetLastError(), 0, $Ret[0])

EndFunc   ;==>SLUninstallLicense

Func SLClose($hSLC)

        Local $Ret = DllCall($DLL, 'int', 'SLClose', 'Handle', $hSLC)

        If @error Then Return SetError(@error, 0, -1)

        Return SetError(GetLastError(), 0, $Ret[0])

EndFunc   ;==>SLClose

Func GetLastError()

        Local $Ret = DllCall("kernel32.dll", "dword", "GetLastError")

        Return $Ret[0]

EndFunc   ;==>GetLastError

回复 支持 1 反对 0

使用道具 举报

发表于 2023-3-3 08:31:46 | 显示全部楼层
看不懂，直接说啥功能
回复 支持 反对

使用道具 举报

zbezj
 楼主| 发表于 2023-3-4 15:36:21 | 显示全部楼层
haijie1223 发表于 2023-3-3 08:31
看不懂，直接说啥功能

卸载office的许可证
回复 支持 反对

使用道具 举报

zbezj
 楼主| 发表于 2023-3-4 16:22:12 | 显示全部楼层
这是C代码：


  1. using System;
  2. using System.Runtime.InteropServices;

  4. public class CleanOffice
  5. {
  6.     private unsafe delegate uint SLOpenDelegate(void** phSLC);

  8.     private unsafe delegate uint SLGetSLIDListDelegate(void* hSLC, int eQueryIdType, Guid* pQueryId, int eReturnIdType, uint* pnReturnIds, Guid** ppReturnIds);

  10.     private unsafe delegate uint SLUninstallLicenseDelegate(void* hSLC, Guid* pLicenseFileId);

  12.     public static void Main()
  13.     {
  14.         UninstallLicenses("sppc");
  15.         string ospp = (string)Microsoft.Win32.Registry.GetValue("HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\OfficeSoftwareProtectionPlatform", "Path", null);
  16.         if (ospp != null)
  17.         {
  18.             Console.WriteLine("Found Office Software Protection installed, cleaning");
  19.             UninstallLicenses(ospp + "osppc.dll");
  20.         }
  21.     }

  23.     [DllImport("kernel32.dll")]
  24.     private static extern IntPtr LoadLibrary(string path);

  26.     [DllImport("kernel32.dll")]
  27.     private static extern IntPtr GetProcAddress(IntPtr hModule, string procName);

  29.     private static void UninstallLicenses(string dllPath)
  30.     {
  31.         IntPtr sppc = LoadLibrary(dllPath);
  32.         SLOpenDelegate open = (SLOpenDelegate)Marshal.GetDelegateForFunctionPointer(GetProcAddress(sppc, "SLOpen"), typeof(SLOpenDelegate));
  33.         SLGetSLIDListDelegate getSLIDList = (SLGetSLIDListDelegate)Marshal.GetDelegateForFunctionPointer(GetProcAddress(sppc, "SLGetSLIDList"), typeof(SLGetSLIDListDelegate));
  34.         SLUninstallLicenseDelegate uninstallLicense = (SLUninstallLicenseDelegate)Marshal.GetDelegateForFunctionPointer(GetProcAddress(sppc, "SLUninstallLicense"), typeof(SLUninstallLicenseDelegate));

  36.         unsafe
  37.         {
  38.             void* phSLC;
  39.             open(&phSLC);
  40.             uint pnReturnIds;
  41.             Guid* ppReturnIds;
  42.             Guid officeGuid = new Guid("0ff1ce15-a989-479d-af46-f275c6370663");
  43.             if (getSLIDList(phSLC, 0, &officeGuid, 6, &pnReturnIds, &ppReturnIds) != 0)
  44.             {
  45.                 return;
  46.             }

  48.             for (int i = 0; i < pnReturnIds; i++)
  49.             {
  50.                 Console.WriteLine("Uninstalling license file " + ppReturnIds[i]);
  51.                 uninstallLicense(phSLC, &ppReturnIds[i]);
  52.             }
  53.         }
  54.     }
  55. }
复制代码


回复 支持 反对

使用道具 举报

zbezj
 楼主| 发表于 2023-3-4 22:48:15 | 显示全部楼层
haijie1223 发表于 2023-3-4 21:26

貌似不太好使~但是没有报错。使用源代码，可以清除office的证书
回复 支持 反对

使用道具 举报

发表于 2023-3-5 23:27:27 | 显示全部楼层
zbezj 发表于 2023-3-4 22:48
貌似不太好使~但是没有报错。使用源代码，可以清除office的证书

我自己的office证书都被清理干净了，你竟然说没用。。。
回复 支持 反对

使用道具 举报

zbezj
 楼主| 发表于 2023-3-6 20:08:18 | 显示全部楼层
haijie1223 发表于 2023-3-5 23:27
我自己的office证书都被清理干净了，你竟然说没用。。。

你是什么系统，office版本？我的是win11 x64， Office 2021
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2023-3-22 16:40 , Processed in 1.206693 second(s), 28 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表