检测服务器响应，PS转AU3

zbezj · 发表于 4 天前

大佬们，下面这一行power shell代码怎么转成AU3？

powershell [Activator]::CreateInstance([Type]::GetTypeFromCLSID([Guid]'{DCB00C01-570F-4A9B-8D69-199FDBA5723B}')).IsConnectedToInternet

复制代码

还有另外一个更复杂的，这个能转成AU3吗？

set resfail=
if not defined error (
ipconfig /flushdns
set "tls=$Tls12 = [Enum]::ToObject([System.Net.SecurityProtocolType], 3072); [System.Net.ServicePointManager]::SecurityProtocol = $Tls12;"
for %%# in (
login.live.com/ppsecure/deviceaddcredential.srf
purchase.mp.microsoft.com/v7.0/users/me/orders
) do if not defined resfail (
set "d1=Add-Type -AssemblyName System.Net.Http;"
set "d1=!d1! $client = [System.Net.Http.HttpClient]::new();"
set "d1=!d1! $response = $client.GetAsync('https://%%#').GetAwaiter().GetResult();"
set "d1=!d1! $response.Content.ReadAsStringAsync().GetAwaiter().GetResult()"
powershell "!tls! !d1!" 2>nul | findstr /i "PurchaseFD DeviceAddResponse" 1>nul || set resfail=1
)
if not defined resfail (
powershell "!tls! irm https://licensing.mp.microsoft.com/v7.0/licenses/content -Method POST" | find /i "traceId" 1>nul || set resfail=1
)

复制代码

zghwelcome · 发表于 4 天前

第一个powershell就是判断网络状态的，但是这个方法不准确





Local $iTag_IsConected = _IsConected()

If Not @error Then MsgBox(0,'','网络状态: ' & $iTag_IsConected)

Func _IsConected()

    Local $oObj = ObjCreate("{DCB00C01-570F-4A9B-8D69-199FDBA5723B}")

    If Not IsObj($oObj) Then Return SetError(1,0,'')

    Local $oINetworks = $oObj.GetNetworks(0x1)

    If Not IsObj($oINetworks) Then Return SetError(2,0,'')

    For $oINetwork In $oINetworks

       If $oINetwork.isConnectedtoInternet Then Return True

    Next

    $oObj = 0 

    Return False

EndFunc

第2个powershell，就是2个http的GET操作，外加一个 POST操作
论坛很多这种示例

chishingchan · 发表于 4 天前

关于转换，首先要对需要转换语句的理解、也更需要对 au3 的熟练。缺一不可！

zbezj · 发表于 4 天前

zghwelcome 发表于 2023-3-18 12:00
第一个powershell就是判断网络状态的，但是这个方法不准确

报错啊

==> The requested action with this object has failed.:
If $oINetwork.isConnectedtoInternet Then Return True
If $oINetwork^ ERROR
->17:03:10 AutoIt3.exe ended.rc:1
+>17:03:10 AutoIt3Wrapper Finished.
>Exit code: 1 Time: 0.9805

zghwelcome · 发表于 4 天前

特殊处理下错误







Local $iTag_IsConected = _IsConected()

If Not @error Then MsgBox(0,'','网络状态: ' & $iTag_IsConected)

Func _IsConected()

        Local $iTag

    Local $oObj = ObjCreate("{DCB00C01-570F-4A9B-8D69-199FDBA5723B}")

    If Not IsObj($oObj) Then Return SetError(1,0,'')

    Local $oINetworks = $oObj.GetNetworks(0x1)

    If Not IsObj($oINetworks) Then Return SetError(2,0,'')

    For $oINetwork In $oINetworks

       $iTag = Execute("$oINetwork.isConnectedtoInternet")

           If @error Then ContinueLoop

           If $iTag Then Return True

    Next

    $oObj = 0 

    Return False

EndFunc

zbezj · 发表于 4 天前

zghwelcome 发表于 2023-3-18 18:17
特殊处理下错误

不报错了。但是和直接执行powershell的结果不同

zghwelcome · 发表于 4 天前

zbezj 发表于 2023-3-18 18:50
不报错了。但是和直接执行powershell的结果不同

看不出什么问题

[AU3基础] 检测服务器响应，PS转AU3

评分

本帖子中包含更多资源