注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

K8拉登哥哥's Blog

K8搞基大队[K8team] 信息安全 网络安全 0day漏洞 渗透测试 黑客

 
 
 

日志

 
 

[原创]VB 定时5分钟复制文件 开机自启动  

2013-06-10 10:13:30|  分类: VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


Dim i As Integer
Dim SouceFile, TargetFile
Dim DosCommand As String



Private Sub Form_Load()
On Error Resume Next
Timer1.Interval = 60000

SouceFile = "d:\K8team.txt"
TargetFile = "d:\K8test.txt"
DosCommand = "copy d:\k8team.txt d:\b333bb.txt"

App.TaskVisible = False

Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
i = i + 1
If i = 5 Then
    FileCopy SouceFile, TargetFile
    Shell "cmd.exe /c " + DosCommand, vbHide
    i = 0
End If
End Sub
  评论这张
 
阅读(436)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2016