Cara Mengatur Foto Bumi Real-Time sebagai Latar Belakang Desktop Anda

Saya mendapatkan hasil yang sama, dapatkah Anda memberi kami deskripsi yang lebih terperinci tentang cara Anda memperbaikinya, bagi kami pemula. PowerShell di bidang Program / skrip? di mana tepatnya? dan di mana folder skrip PS berada dll. Terima kasih

Luar biasa, itu bagus untuk diketahui. Terima kasih banyak, Dan. :)

Hai teman saya mendapatkan wallpaper hitam. ada solusi?

ts = New-TimeSpan -Hours -2 -Minutes -30 #Jumlah jam dan menit untuk menambah / mengurangi tanggal. Sesuaikan ini untuk mengimbangi tanggal sistem Anda menjadi sekitar GMT (saya pikir?)
$ now = ((Get-Date -Second 00) + $ ts)
$ now = $ now. AddMinutes (- ($ now.minute% 10))

$ width = 550
$ level = "4d" #Level dapat berupa 4d, 8d, 16d, 20d
$ numblocks = 4 # ini rupanya berhubungan langsung dengan level, pertahankan ini persis sama dengan level tanpa 'd'
$ time = $ sekarang. ToString ("HHmmss")
$ tahun = $ sekarang. ToString ("yyyy")
$ bulan = $ sekarang. ToString ("MM")
$ day = $ now. ToString ("dd")

#Buat folder My Pictures \ Himawari \ jika tidak ada

# Nama file yang akan disimpan:
#Berkuat ini agar file terakumulasi di direktori:
# $ outfile = "$ tahun $ bulan $ hari" + "_" + $ waktu + ".jpg"
#Gunakan ini agar skrip hanya menyimpan file terbaru saja:
$ outfile = "latest.jpg"

$ url = " http://himawari8-dl.nict.go.jp/himawari8/img/D531106/$level/$width/$year/$month/$day/$time"

[void] [reflection.assembly]:: LoadWithPartialName ("System. Windows. Formulir")
[void] [reflection.assembly]:: LoadWithPartialName ("System. Gambar")

$ image = Sistem Objek Baru. Gambar. Bitmap (($ lebar * $ numblocks), ($ lebar * $ numblocks))
$ graphics = [Sistem. Gambar. Grafik]:: FromImage ($ image)
$ gambar. Bersihkan ([Sistem. Gambar. Warna hitam)

untuk ($ y = 0; $ y -lt $ numblocks; $ y ++)
{
untuk ($ x = 0; $ x -lt $ numblocks; $ x ++)
{
$ thisurl = $ url + "_" + [String] $ x + "_" + [String] $ y + ".png"
Tulis-Keluaran "Mengunduh: $ thisurl"

mencoba
{

$ request = [Sistem. Bersih. WebRequest]:: create ($ thisurl)
$ response = $ request.getResponse ()
$ HTTP_Status = [int] $ response. Kode status
Jika ($ HTTP_Status -eq 200)
{
$ imgblock = [Sistem. Gambar. Gambar]:: fromStream ($ response.getResponseStream ())
$ gambar. DrawImage ($ imgblock, ($ x * $ width), ($ y * $ width), $ lebar, $ lebar)
$ imgblock.dispose ()
$ respon. Menutup()
}
}
Menangkap
{
$ ErrorMessage = $ _. Pengecualian. Pesan
$ FailedItem = $ _. Pengecualian. Nama barang
Tulis-Keluaran "Gagal! $ ErrorMessage dengan $ FailedItem "
}
}
}

$ qualityEncoder = [Sistem. Gambar. Imaging. Encoder]:: Quality
$ encoderParams = Sistem Objek Baru. Gambar. Imaging. EncoderParameters (1)

# Tetapkan tingkat kualitas JPEG di sini: 0 - 100 (batas inklusif)
$ encoderParams. Param [0] = Sistem Objek Baru. Gambar. Imaging. EncoderParameter ($ qualityEncoder, 90)
$ jpegCodecInfo = [Sistem. Gambar. Imaging. ImageCodecInfo]:: GetImageEncoders () | di mana {$ _. MimeType -eq 'image / jpeg'}

$ image.save (($ outpath + $ outfile), $ jpegCodecInfo, $ encoderParams)
$ image. Membuang()

Tulis-Keluaran "Mengatur Wallpaper ..."
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -nama Wallpaper -nilai ($ outpath + $ outfile)
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -nama WallpaperStyle -nilai 6
Set-ItemProperty -path "HKCU: Control Panel \ Desktop" -nama TileWallpaper -nilai 0
Set-ItemProperty 'HKCU: \ Control Panel \ Colors' -nama latar belakang -Nilai "0 0 0"
# rundll32.exe user32.dll, UpdatePerUserSystemParameters

$ setwallpapersource = @ "
menggunakan Sistem. Runtime. Layanan Interop;
wallpaper kelas publik
{
setDesktopWallpaper public int int = 20;
public int int UpdateIniFile = 0x01;
public const int SendWinIniChange = 0x02;
[DllImport ("user32.dll", SetLastError = true, CharSet = CharSet. Mobil)]
private static extern int SystemParametersInfo (int uAction, int uParam, string lpvParam, int fuWinIni);
public static void SetWallpaper (jalur string)
{
SystemParametersInfo (SetDesktopWallpaper, 0, path, UpdateIniFile | SendWinIniChange);
}
}
"@
Add-Type -TypeDefinition $ setwallpapersource
[wallpaper]:: SetWallpaper (($ outpath + $ outfile))

Tulis-Keluaran "Selesai"