用VB实现任意修改Win桌面背景_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

用VB实现任意修改Win桌面背景

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:桌面背景修改实现
黑客防线网安网讯:首先在VB中创建一个窗体并在其中加入一个命令按钮,第一步在窗体的通用段中输入以下代码:      ConstSPI_SETDESKWALLPAPER=20    ConstSPIF_UPDATEINIFILE=&&H1    PrivateD...
首先在VB中创建一个窗体并在其中加入一个命令按钮第一步在窗体的通用段中输入以下代码:
  
  
  ConstSPI_SETDESKWALLPAPER=20
  
  ConstSPIF_UPDATEINIFILE=&&H1
  
  PrivateDeclareFunctionSystemParametersInfoLib"user32"Alias"SystemParametersInfoA"(ByValuActionAsLong,ByValuParamAsLong,ByVallpvParamAsAny,ByValfuWinIniAsLong)AsLong
  
  注:如果以上的声明放在“一般模块”下应在Const之前加上Public保留字,并且将Private保留字去掉
  
  然后在命令按钮中的Click事件中输入以下代码:
  
  '将桌面图片设定成c:\windows\CIRCLES.bmp
  
  CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:\windows\CIRCLES.bmp",SPIF_UPDATEINIFILE)
  
  '将桌面图片清除
  
  CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"",SPIF_UPDATEINIFILE)
  
  但以上程序设定图片之后,必须等到下次Windows重新启动时才生效,如果要设定之后立刻生效,则程序须修改如下:
  
  ConstSPIF_SENDWININICHANGE=&&H2
  
  CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:\windows\CIRCLES.bmp",SPIF_UPDATEINIFILE SPIF_SENDWININICHANGE)
  
  此外如果只有本次使用Windows时改变桌面图片(下次开机时还原原状),则程序如下:
  
  CallSystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:\windows\CIRCLES.bmp",SPIF_SENDWININICHANGE)'去掉SPIF_UPDATEINIFILE->

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14574-1.html
网站维护教程更新时间:2012-04-03 01:09:34  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer