WIN7 锁屏屏保 图片 WEB

WinXP 下,有一个Web桌面背景,很不错,  但在Win7下已经取消.

我们可以用Php程序,生成一张jpg/png图片

 1 <?php
 2 date_default_timezone_set('PRC');
 3 //$yanzhengma = date("Y-m-d H:i:s");
 4 $yanzhengma = 2022*10000+date("d")*100+date("H")*2;
 5 $dst_path = 'pingbao.png';
 6 //创建图片的实例
 7 $dst = imagecreatefromstring(file_get_contents($dst_path));
 8 //打上文字
 9 $font = 'msyh.ttf';//字体
10 $black = imagecolorallocate($dst, 0xFF, 0xFF, 0xFF);//字体颜色
11 imagefttext($dst, 50, 0, 500, 140, $black, $font, '停车验证码为:'.$yanzhengma);
12 //imagefttext($dst, 字体大小, 0, 左右, 上下, $black, $font, '停车验证码为:'.$yanzhengma);
13 //输出图片
14 list($dst_w, $dst_h, $dst_type) = getimagesize($dst_path);
15 switch ($dst_type) {
16     case 1://GIF
17         header('Content-Type: image/gif');
18         imagegif($dst);
19         break;
20     case 2://JPG
21         header('Content-Type: image/jpeg');
22         imagejpeg($dst);
23         break;
24     case 3://PNG
25         header('Content-Type: image/png');
26         imagepng($dst);
27         break;
28     default:
29         break;
30 }
31 imagedestroy($dst);
32 ?>
View Code

当然,也是要配置好字体 msyh.ttf  和 图片背景pingbao.png, 一起上传到PHP  空间

 1     Function UnixTime()
 2     Set objWMIService = _
 3     GetObject("winmgmts:\\.\root\cimv2")
 4     Set colItems = objWMIService.ExecQuery _
 5     ("Select * from Win32_OperatingSystem",,48)
 6     For Each objItem in colItems
 7     TimeZone = objItem.CurrentTimeZone
 8     Next
 9     UnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())
10     UnixTime = UnixTime - TimeZone * 60
11     End Function
12     'MsgBox UnixTime, 64   '获取时间戳,作为变量请求URL
13 do
14     Set Post = CreateObject("Msxml2.XMLHTTP")
15     Set Shell = CreateObject("Wscript.Shell")
16     Post.Open "GET","http://localhost/shuiyin.php?"&UnixTime,0
17     Post.Send()
18     Set aGet = CreateObject("ADODB.Stream")
19     aGet.Mode = 3
20     aGet.Type = 1
21     aGet.Open()
22     aGet.Write(Post.responseBody)
23     aGet.SaveToFile "D:\Tools\wamp\www\shuiyin\shuiyin.jpg",2
24     wscript.sleep 1000
25     'Shell.Run ("D:\Tools\wamp\www\shuiyin\shuiyin.jpg") '延迟过后执行下载文件
26     '保存图片,并打开.
27     wscript.sleep 1000*60
28 loop
View Code

我们用VBS 去自动下载该图片到指定目录,

设置屏保-图片-路径为下载好的图片路径.

直接在开始运行里,或资源管理器 打开%comspec% /k C:\Windows\System32\PhotoScreensaver.scr /s  即可看到效果.

也是可以在cmd下   C:\Windows\System32\PhotoScreensaver.scr /s 一样.   

不加参数/S 将启动配置程序.

posted @ 2022-08-01 17:19  钢锅  阅读(101)  评论(2编辑  收藏  举报