如何像冰河一样隐藏,显示桌面图标?(100分)

  • 主题发起人 主题发起人 red
  • 开始时间 开始时间
R

red

Unregistered / Unconfirmed
GUEST, unregistred user!
冰河客户端可以控制服务器端桌面的隐藏,显示是如何实现的?
在本机上用该怎么写?
对远程机又该怎么实现呢?
 
var
hDesktop : THandle;
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_HIDE); //隐藏
end;

var
hDesktop : THandle;
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_SHOW); //显示
end;
 
多谢,那远程如何实现呢?大概讲一下吧.
 
wjiachun说的完全正确.
>对远程机又该怎么实现呢?
不容易,我认为只有再对方的机器上运行才行.
比如伪装成一个其他的程序(在后面加上一段)让对方执行,
一旦收到指令(最好是基于UDP),则隐藏或显示.
 
不是还有个服务器端吗?
只要用客户端发送一些简单的控制指令,即可让服务器端运行这些代码.
 
用一些工具(比如:ExeScope,Pebble32等)可以打开冰河的客户端程序(即
那个knlxxxx.exe),可以看到它到底调用了哪些个WINAPI。我想应该是调
上面几位所说的那个吧。
 
其实就是里应外合!
 
red:我在OICQ上把你加为好友,你还没有验证呢
 
如果木马的作者时间够多陪你玩的话,能作的事情多着呢。
 
我可以给你试试 beta 所说的程序,Mail to you
 
procedure TForm1.Button1Click(Sender: TObject);
var
hDesktop : THandle;
begin
if ChkBox2.Checked then
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_HIDE);//隐藏
end
else
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_Normal);//显示
end;
end;
我刚试过,没问题
 
为什么不给分!
 
>>为什么不给分!
因为你和我的一样,他不满意,要远程控制的 :)
 
回答满意应该给分的,为什么?
 
>>>>木马的作者
who?
 
木马冰河作者OICQ:1429668
http://glacier.mycool.net
 
那个代码是有问题的,我以前也用这个代码,但是没有用,看到的
桌布似乎有问题,如果使用活动桌面的话,看到的内容会有出入
 
在服务器把上面的写成一个过程,然后在客户端调用此过程.应该没问题.
 
这段没上大富翁,结束老贴子了。其实上来说我已经会了。
另外:wjiachun,你的OICQ是?
 
多人接受答案了。
 
后退
顶部