Question

VB怎么实现隐藏窗体~~~~`

各位高手,怎么在VB环境中设置窗体隐藏,让它后台运行,一个小问题,我不懂VB,请问怎么实现~就象木马一样后台运行这个程序~~
谢谢~在线等~~~

Answer 1

Public Declare Function GetCurrentProcessid Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long)
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
Public Sub MakeMeService()
Dim pid As Long
Dim resery As Long
pid = GetCurrentProcessid()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
这样就实现了自我隐藏，病毒的隐藏就是用的这个。

Answer 2

隐藏方法：
form1.hide ‘隐藏form1窗体

注意，用hide form是错的,vb会把hide认做方法或函数,导致无效。

Answer 3

你是使本程序(自己编写的程序)隐藏,还是使其它运行的程序隐藏?
若是本程序,则已经有人答了,若是其它的程序则用vb 的 "API" 中的 "SetWindowPos"函数,
qq:674993279

Answer 4

在那个窗体上的属性把设置为hide!

Answer 5

Private Sub form_load()

Me.Hide
'或者是 me.Visible = False 都可以

End Sub