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中即可实现。