@cd /d "%~dp0" & mkdir "word" >nul 2>nul & powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause&exit
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Web")
$Script:xhr=New-Object -ComObject "MSXML2.ServerXMLHTTP"
$Script:count=0
function Download-Image($key){
	$name = '{0:X4}' -f ([int]$key[0])
    if(Test-Path (".\word\"+$name+".png") -ErrorAction SilentlyContinue){
        Write-Host ("skip download: .\word\"+$name+".png")
        return
    }
	$png = [System.IO.File]::Create(".\word\"+$name+".png")
    $url = "https://penji-gakushu.com/shop/font/preview/d/?font_id=33&str="+[System.Web.HttpUtility]::UrlEncode($key)+"&size=220&bg=ffffff&font=000000"
	$Script:xhr.abort()
    $Script:xhr.open("GET",$url,$false)
    $Script:xhr.send()
    if($Script:xhr.status -ne 200) {    
            Write-Host ("failed:"+$Script:xhr.status+" "+$Script:xhr.statusText) -ForegroundColor Red
            $png.Dispose()
            return
    }
    $bytes = $Script:xhr.responseBody
    $png.Write($bytes,0,$bytes.Count)
    $png.Name
    $png.Dispose()
	$Script:count += 1
    [System.Console]::Title = "" + $Script:count
}
Get-Content "pr6n.txt" -Encoding UTF8 | foreach { Download-Image -key $_.Trim() }
复制代码

<# :
cls
@echo off
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%~f0'"
for /f "tokens=1,2 delims=|" %%a in ('type "%tmp%\url.txt"') do (
    echo;"%%b"
    curl.exe "%%a" -o "%%b"
    echo;
)
pause
exit
#>
$txtfile=".\pr6n.txt";
$newfolder=".\result";

$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$txtfile=$txtfile -replace '^\.',$path;
$newfolder=$newfolder -replace '^\.',$path;
if(-not (test-path -liter $txtfile)){Write-host ('"'+$txtfile+'" not found');exit;};
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};

$tmpfile=($env:tmp)+'\url.txt';[System.Collections.ArrayList]$u=@();
[void][Reflection.Assembly]::LoadWithPartialName('System.Web');
$text=[IO.File]::ReadAllLines($txtfile,[Text.Encoding]::UTF8);
for($i=0;$i -lt $text.count;$i++){
    $word=[Web.HttpUtility]::UrlEncode($text[$i],[Text.Encoding]::UTF8);
    $url='https://penji-gakushu.com/shop/font/preview/d/?font_id=33&str='+$word.toUpper()+'&size=220&bg=ffffff&font=000000';
    $pngfile=$newfolder+'\'+($i+1).toString()+'.png';
    $line=$url+'|'+$pngfile;
    [void]$u.add($line);
};
[IO.File]::WriteAllLines($tmpfile,$u,[Text.Encoding]::GetEncoding('GB2312'));
复制代码

<# :
cls
@echo off
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "Invoke-Command -ScriptBlock ([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default))) -Args '%~f0'"
for /f "tokens=1,2 delims=|" %%a in ('type "%tmp%\url.txt"') do (
    echo;"%%b"
    curl.exe "%%a" -o "%%b"
    echo;
)
pause
exit
#>
$txtfile=".\pr6n.txt";
$newfolder=".\result";

$self=get-item -liter $args[0];
$path=$self.Directory.FullName;
$txtfile=$txtfile -replace '^\.',$path;
$newfolder=$newfolder -replace '^\.',$path;
if(-not (test-path -liter $txtfile)){Write-host ('"'+$txtfile+'" not found');exit;};
if(-not (test-path -liter $newfolder)){[void](md $newfolder)};

$tmpfile=($env:tmp)+'\url.txt';[System.Collections.ArrayList]$u=@();
[void][Reflection.Assembly]::LoadWithPartialName('System.Web');
$text=[IO.File]::ReadAllLines($txtfile,[Text.Encoding]::UTF8);
for($i=0;$i -lt $text.count;$i++){
    $word=[Web.HttpUtility]::UrlEncode($text[$i],[Text.Encoding]::UTF8);
    [byte[]] $b=[Text.Encoding]::GetEncoding('UTF-32').GetBytes($text[$i]);
    $uc='';
    for($k=3;$k -ge 0;$k--){
        $t=[Convert]::ToString($b[$k], 16).PadLeft(2,'0');
        $uc=$uc+$t;
    };
    $uc=$uc -replace '^(00){1,}','';
    $url='https://penji-gakushu.com/shop/font/preview/d/?font_id=33&str='+$word.toUpper()+'&size=220&bg=ffffff&font=000000';
    $pngfile=$newfolder+'\'+$uc+'.png';
    $line=$url+'|'+$pngfile;
    [void]$u.add($line);
};
[IO.File]::WriteAllLines($tmpfile,$u,[Text.Encoding]::GetEncoding('GB2312'));
复制代码