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
...全文
119 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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来执行”的问题! 一个“正常的程序”,是否删除自身有什么关系呢? 要“自杀”是因为怕露出狐狸尾巴吧…… 其实在“有权限删除”的情况下,不用“借助第三方”直接完成“自杀”也是可以的,不过我不想透露这个方法。
audient00 2017-01-20
  • 打赏
  • 举报
回复
生成的程序其他功能都正常,bat文件也能生成,就是bat在其他电脑上不自动运行,也就不能删除程序和bat本身「在我电脑上运行正常」。
audient00 2017-01-20
  • 打赏
  • 举报
回复
等等等着各位

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧