vb 自杀程序问题

[audient00]

想做一个投票端，投票完成后自动删除，不用安装的，网上找到的代码是用bat执行，但是在其他电脑上不能自动执行bat文件，请问有什么办法吗，不打包安装的办法。

自杀代码如下
Sub KillMe()
Open App.path & "\temp.bat" For Output As #1
Print #1, "@echo off" '"@echo off" 不显示执行过程
Print #1, "sleep 100"
Print #1, "del " & App.EXEName + ".exe" 'temp.bat 删除指定文件
Print #1, "del " & DZ 'temp.bat 删除指定文件
Print #1, "del temp.bat" 'temp.bat 删除自身
Print #1, "cls"
Print #1, "exit"
Close #1
Shell App.path & "\temp.bat", vbHideEnd

End Sub

[audient00]

等等等着各位

• 打赏
• 举报

回复 赞

[audient00]

生成的程序其他功能都正常，bat文件也能生成，就是bat在其他电脑上不自动运行，也就不能删除程序和bat本身「在我电脑上运行正常」。

• 打赏
• 举报

回复 赞

[舉杯邀明月]

“bat在其他电脑上不能自动运行”， 是因为“其他电脑”已经感染了你这种病毒造成的吧！！！ 正常的Windows系统，哪会有“VB6的Shell语句不能启动bat来执行”的问题！ 一个“正常的程序”，是否删除自身有什么关系呢？ 要“自杀”是因为怕露出狐狸尾巴吧…… 其实在“有权限删除”的情况下，不用“借助第三方”直接完成“自杀”也是可以的，不过我不想透露这个方法。

• 打赏
• 举报

回复 赞

[赵4老师]

狐狸 尾巴被捉住的话会被立即开除的。

• 打赏
• 举报

回复 赞

[audient00]

各位，真不是病毒，就是需要做一个投票程序，每人一次机会，投完票就自动删除。【本人vb水平还没有到写病毒的程度】 不过问题我已经找到了，bat文件运行了，但是bat文件中删除指令出了问题 就下面这句 Print #1, "del " & App.EXEName + ".exe" 因为没有具体地址，在编译环境下可以执行删除，但是在其他电脑就不能执行了，具体原因我也不清楚 加上app.path就ok了

• 打赏
• 举报

回复 赞

[audient00]

顺便说句，个人感觉论坛里面纯技术讨论比较好，讨论病毒相关的技术也不是禁忌，真能有能力应用的不会屑于讨论这些。有兴趣讨论的没能力造成破坏，不过这个能提起更多人的兴趣不是吗， 大神们还不是大神的时候，估计也对这类的技术感兴趣比较多一点吧

• 打赏
• 举报

回复 赞

[audient00]

美国人人都可以有枪，中国连买个刀都得实名制，中国就一定比美国好吗，我看不见得

• 打赏
• 举报

回复 赞