我不太会VB,希望大大们帮忙完成个很简单的VBS...

来源：百度知道 编辑：UC知道 时间：2024/05/05 02:26:56
我不太会VB,希望大大们帮忙完成个很简单的VBS
例如：
弹出一个a对话框
如果输入的是1
则删除开机启动文件中的1.exe
如果输入的是2
则删除开机启动文件中的1.exe
如果输入的是其他（点取消或点X关闭）
则还是停留在a对话框

就这样就可以了。。。。。。

楼主要的是VBS吧，是不是就是后缀名为vbs的可执行文件？
Dim MyVar
Dim fso,obj
dim Startpath
myvar=""
do until myvar="1" or s="2"
myvar=inputbox("a","a")
loop
Set WshShell=Wscript.CreateObject("Wscript.Shell")
startpath= WshShell.SpecialFolders("AllUsersStartup") ''获取公共用户启动目录，如果是要登陆用户的启动目录，可以用StartMenu代替AllUsersStartup
set fso=createobject("scripting.filesystemobject")
if MyVar=1 then
fso.deleteFile startpath & "\1.exe"
end if
if MyVar=2 then
fso.deleteFile startpath & "\2.exe"
end if

Private Sub Command1_Click()
Dim X$
X = InputBox("请输入字符进行相关操作：")

On Error GoTo e1
If X = "1" Then
Kill "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\1.exe"
Exit Sub
End If

If X = "2" Then
Kill &