怎么样利用vb修改主程式的名称？

来源：百度知道 编辑：UC知道 时间：2024/04/29 18:13:29
就是怎么利用vb去修改游戏主程式的名称.例如:qq.exe
只要一打勾qq.exe就会被修改成你自己喜欢的名字,取消打勾就变回来
能不能自动找到那个游戏的地址的.因为我是写程式的.所以,如果发布的话,别人放的地方都不一样?

添加一个CheckBox控件，Check1
然后添加如下代码：
Private Const FilePath '//QQ安装目录
Private Const FileName = "CCQQ.EXE" '//你喜欢的名字

Private Sub Check1_Click()
If Check1.Value = 1 Then
Name FilePath & "QQ.exe" As FilePath & FileName
Else
Name FilePath & FileName As FilePath & "QQ.exe"
End If
End Sub

Private Sub Form_Load()
Dim Reg As Object
Set Reg = CreateObject("WScript.Shell")
FilePath = Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install") '//从注册表获得QQ的安装目录
Set Reg = NoThing
Check1.Value = IIf(Dir(FilePath & FileName, vbDirectory) <> "", 1, 0)
End Sub