vb 自杀程序问题

audient00 2017-01-19 06:46:38

想做一个投票端，投票完成后自动删除，不用安装的，网上找到的代码是用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

...全文

121 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

audient00 2017-01-20

打赏
举报

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

audient00 2017-01-20

打赏
举报

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

audient00 2017-01-20

打赏
举报

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

赵4老师 2017-01-20

打赏
举报

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

舉杯邀明月 2017-01-20

打赏
举报

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