7,785
社区成员
发帖
与我相关
我的任务
分享vb 自杀程序问题
想做一个投票端，投票完成后自动删除，不用安装的，网上找到的代码是用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
自杀代码如下
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 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来执行”的问题！
一个“正常的程序”，是否删除自身有什么关系呢？
要“自杀”是因为怕露出狐狸尾巴吧……
其实在“有权限删除”的情况下，不用“借助第三方”直接完成“自杀”也是可以的，不过我不想透露这个方法。
audient00 2017-01-20
- 打赏
- 举报
生成的程序其他功能都正常，bat文件也能生成，就是bat在其他电脑上不自动运行，也就不能删除程序和bat本身「在我电脑上运行正常」。
audient00 2017-01-20
- 打赏
- 举报
等等等着各位
