VB实现可执行文件运行时自删除
有时，为了实现动态更新，我们需要对正处于运行状态的应用程序进行自删除，就像360安全卫士在线升级那样。但是，Windows是不允许删除正处于运行状态的应用程序的，怎么办？一般来说，我们可以使用两个程序来实现，一个专门负责版本检测和删除，一个才是业务需要的主应用程序。能不能将二者合二为一呢？答案是可以的，那就是使用BAT或VBS来进行。使用BAT，由于不能及时判断应用程序是否已经结束，于是人们通过降低其执行优先级别，让其晚于应用程序结束，从而达到删除目的，这种办法有时会造成删除失败，而使用VBS，可以利用Windows内置的COM对象，非常方便地判断应用程序是否结束，从而实现了真正意义上的自删除。不过相对于BAT，VBS也有一些缺点，那就是依赖性较强，而一部分计算机出于安全考虑，屏蔽了WSH功能，从而导致删除失败，从这一点来讲，反倒不及BAT方式了。
本文的实现代码基于VBS，至于使用BAT文件，可以参考张正秋写的《Windows核心编程》一书，俺不再提供实现代码。
'* ******************************************************* *
'* 程序名称：DelMe.bas
'* 程序功能：在VB中实现应用程序自删除
'* 作者：lyserver
'* 联系方式：http://blog.csdn.net/lyserver
'* ******************************************************* *
Sub Main()
Call DelMe
End Sub
Public Sub DelMe()
Dim fn As Integer
On Error Resume Next
If App.LogMode Then
fn = FreeFile()
Open "del.tmp.vbs" For Output As fn
SetAttr "del.tmp.vbs", vbHidden
Print #fn, "Dim FSO,WMI"
Print #fn, "Set WMI=GetObject(" & Chr(34) & "winmgmts:\\." & Chr(34) & ")"
Print #fn, "Set FSO=CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & ")"
Print #fn, "Do While WMI.ExecQuery(" & Chr(34) & _
"SELECT * from WIN32_PROCESS WHERE NAME='" & App.EXEName & ".EXE'" & Chr(34) & ").Count"
Print #fn, "WScript.Sleep 1"
Print #fn, "Loop"
Print #fn, "FSO.DeleteFile " & Chr(34) & App
相关文档：
最简单用VB把asp封装成dll的入门程序
当IIS被请求执行一个ASP程序,它首先会在ASP文件中找到<%%>标签之间的代码,并且执行它(也可以是<scri ptrunat=server></script....>之间的代码).如果这个ASP程序在先前被调用过,那么它就会用内存中的编译过的程序来向用户返回HTML代码,如果没有,那么它就重新编译.� ......
Option Explicit
Function Delete3(Arr As Variant) As Variant
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
If i > UBound(Arr) Then Exit For
If Arr(i) = 3 Then
Do
Dim j As Integer
For j = i To UBound(Arr) - 1
......
vb class Property Get、Property Let 使用
<%
'在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。
'被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 Class 块之外的代码也是可见� ......
VB对INI文件操作
2009-02-25 00:17
INI 文件是什么样子？——不会吧，这都不知道。INI 文件就是 Windows 中常见
的以 .ini 为扩展名的文件，其内部格式和各部分的名称如下：
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
& ......
使用VC编写VB使用DLL
一、在函数定义前必须加上extern "c"，_stdcall关键字。
extern "C" int _stdcall Sum(int x,int y)
{
return x+y;
}
二、DLL的.def文件中必须加上入口函数
EXPORTS
sample @1
......
