vb.net修改墙纸,vbs换壁纸

如何用VB.NET写一个简单的屏幕保护程序?

在窗体上建立2个文本框text1和text2,一个按钮command1,text1里面输入你要转换的字符串,text2里面显示结果,代码如下:

城区网站制作公司哪家好,找创新互联公司!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设公司等网站项目制作,到程序开发,运营维护。创新互联公司自2013年起到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联公司

Dim MyString As String

Dim EveryStr(50) As String

Dim TargetStr As String

Private Sub Command1_Click()

MyString = Text1

For i = 1 To Len(MyString)

EveryStr(i) = Right(Left(MyString, i), 1)

If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"

If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"

TargetStr = TargetStr EveryStr(i)

Next i

Text2 = TargetStr

TargetStr = \"\"

End Sub

引号前面怎么自动给加了个“\”?用的时候请手动把那几个“\”去掉

VB.NET怎么修改桌面墙纸。利用修改注册表的方法。

'核心代码

Try

'将MyFileName指定为一个图片文件的文件名

Dim MyFileName As String = "E:\VS工程\源代码及工程文件\Wannacry\Wannacry\bin\Debug\fil.bmp"

If Not System.IO.File.Exists(MyFileName) Then

Return

End If

Dim MyReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser

MyReg = MyReg.OpenSubKey("Control Panel\Desktop", True)

MyReg.SetValue("WallPaper", MyFileName)

MyReg.SetValue("TitleWallPaper", "2")

MyReg.Close()

MessageBox.Show("设置注册表操作成功,重新启动计算机后即可生效!", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try

程序源码:开机自动更换桌面

嘿嘿不难,以Windows 2000系统安装在c:\盘为例,来实现让系统启动时自动更换桌面墙纸。

假设我们有5个比较喜欢的墙纸11.bmp、12.bmp、13.bmp、14.bmp、15.bmp。将11.bmp备份一下并改名为10.bmp,目的是用它来做交换墙纸,然后将这6个文件拷贝到c:\winnt目录下,将Windows 2000/xp的桌面墙纸设置为10.bmp。编制一个批处理文件,内容如下:

cd \

cd winnt

del 10.bmp

copy 11.bmp 10.bmp

copy 12.bmp 11.bmp

copy 13.bmp 12.bmp

copy 14.bmp 13.bmp

copy 15.bmp 14.bmp

copy 10.bmp 15.bmp

然后保存在c:\根目录下,并命名为qiangzhi.bat。

单击"开始--运行",在弹出的"运行"对话框中输入"gpedit.msc"打开"组策略",点击"计算机配置--"windows设置",找到"脚本(启动/关闭)"选项,在右边窗口双击"启动",依次执行"添加--游览",找到刚才保存的"qiangzhi.bat"批处理文件。点击两次"确定"。至此,我们就可以在Windows 2000下实现系统每次启动时自动更换桌面墙纸。

Windows 98也可以实现,只要将上述的批处理文件中的"cd winnt"改为"cd Windows",然后将批处理文件的内容拷贝到Windows 98系统根目录的AUTOEXEC.BAT中即可实现。


标题名称:vb.net修改墙纸,vbs换壁纸
文章网址:http://pwwzsj.com/article/hscohd.html