Mathematica 实现随机更换壁纸

本文主要是介绍Mathematica 实现随机更换壁纸，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

又一次调用win32函数呢…

初始化部分：

<<NetLink`
InstallNET[];
SystemParametersInfoA=DefineDLLFunction["SystemParametersInfoA","user32.dll","int",{"int","int","char*","int"}];
ChangeWallpaper[file_]:=SystemParametersInfoA[20,0,file,1];
RandomWallPaper[]:=Block[{data,file,path="D:/temp.jpg"},PrintTemporary["Downloading wallpaper..."];data=URLRead[HTTPRequest["https://api.hanximeng.com/ranimg/api.php",<|"Headers"-><|"referer"->"https://api.hanximeng.com/ranimg/"|>|>],"BodyByteArray"];file=OpenWrite[path,BinaryFormat->True];BinaryWrite[file,data];Close[file];ChangeWallpaper[path]]

调用方式：RandomWallPaper[]

用完之后记得卸载.NET链接使用：UninstallNET[]

此外，程序使用了api.hanximeng.com网站的随机图片api

这篇关于Mathematica 实现随机更换壁纸的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---