如何使我的VB程序运行时不能 *** 作别的程序

先去掉窗体上的关闭和最小化按钮，并且将窗口最大化

在使窗口总最前端

ControlBox属性=False

将WindowState设置为

2

再用以下代码

Private

Declare

Function

SetWindowPos

Lib

"user32"

(

_

ByVal

hwnd

As

Long,

_

ByVal

hWndInsertAfter

As

Long,

_

ByVal

x

As

Long,

ByVal

y

As

Long,

_

ByVal

cx

As

Long,

ByVal

cy

As

Long,

_

ByVal

wFlags

As

Long

_

)

As

Long

Const

HWND_TOPMOST

=

-1

Const

SWP_SHOWWINDOW

=

&H40

Private

Sub

Form_load()

Dim

retValue

As

Long

'将窗体设置为处于所有窗口的顶层，注意在

VB

中运行时，可能不行，但编译成EXE后就可以了

retValue

=

SetWindowPos(Me.hwnd,

HWND_TOPMOST,

Me.CurrentX,

Me.CurrentY,

300,

300,

SWP_SHOWWINDOW)

End

Sub

就好了

一般的程序打不开。但360粉碎机可以粉碎…… 下面的1.txt这个路径自己改改

Private Sub Command1_Click()

On Error Resume Next

Dim A As String

Dim i As Long

Open "D:\1.txt" For Input As #1

i = 1

Do While Not EOF(1)

Line Input #1, A

i = i + 1

Open A For Binary Lock Read Write As #i

Loop

Close #1

End Sub

---