VB6.0 隐藏运行指定程序
VB6.0隐藏运行指定程序,我要隐藏的不是VB本身程序,而是隐藏运行的程序。比如要运行shell"c:/1.exe",vbhide这样试了,还是隐藏不了这个1.exe程序...
VB6.0 隐藏运行指定程序, 我要隐藏的不是VB本身程序,而是隐藏运行的程序。 比如要运行 shell "c:/1.exe",vbhide 这样试了,还是隐藏不了这个1.exe程序的界面!
我主要是想用资源文件调用这个 1.EXE 然后用按扭运行1.exe,并隐藏1.exe
请问怎么做? 代码是什么! (如果不行的话,我想到一个好办法)
那就是将运行的1.exe程序设置在屏幕看不见的地方就可以了,就算在进程里有也没关系! 那怎样将指定程序的坐标设置在屏幕看不到的地方呢? 代码!代码!代码!代码!代码!
如果是高手的话,最好直接用API来实现隐藏指定程序!这样最好不过了!!! 因为第二个方法只是做到表面而已呀!!
一楼的回答比较理想,但请你提供完整代码好吗!!! 要测试通过哦!!
代码??代码??代码??代码??代码??代码??代码??代码??代码??代码??代码??代码??代码?? 展开
我主要是想用资源文件调用这个 1.EXE 然后用按扭运行1.exe,并隐藏1.exe
请问怎么做? 代码是什么! (如果不行的话,我想到一个好办法)
那就是将运行的1.exe程序设置在屏幕看不见的地方就可以了,就算在进程里有也没关系! 那怎样将指定程序的坐标设置在屏幕看不到的地方呢? 代码!代码!代码!代码!代码!
如果是高手的话,最好直接用API来实现隐藏指定程序!这样最好不过了!!! 因为第二个方法只是做到表面而已呀!!
一楼的回答比较理想,但请你提供完整代码好吗!!! 要测试通过哦!!
代码??代码??代码??代码??代码??代码??代码??代码??代码??代码??代码??代码??代码?? 展开
2个回答
展开全部
第一个方法没有什么印象 第二个方法应该可以用 SetWindowPos
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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
可以用x,y来设定坐标,大于坐标值大于屏幕应该就可以了
修改一下:
在通用声明里 声明一下
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
myhwnd = FindWindow(vbNullString, "1 - 记事本")
ShowWindow myhwnd, 0 '设置隐藏
End Sub
'更改showwindow 后的数值就可以了
'0--隐藏,1--保持原样,2-最小化,3--最大化
'这个应该比较好用
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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
可以用x,y来设定坐标,大于坐标值大于屏幕应该就可以了
修改一下:
在通用声明里 声明一下
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command1_Click()
myhwnd = FindWindow(vbNullString, "1 - 记事本")
ShowWindow myhwnd, 0 '设置隐藏
End Sub
'更改showwindow 后的数值就可以了
'0--隐藏,1--保持原样,2-最小化,3--最大化
'这个应该比较好用
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询