189 8069 5689
在窗体上建立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
引号前面怎么自动给加了个“\”？用的时候请手动把那几个“\”去掉
'核心代码
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中即可实现。