星 星幻子 Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-26 #1 可能题目说的说的不清楚 比如 A B两机器,现在我想通过A机器上面的一软件把A机器里面的某张图片设为B机器的桌面 请问有没有办法可以实现?最主要的是B机器没有运行软件的
Z zxsdelphi Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-27 #3 采用模拟鼠标可以的。将A机图片传送到B机。通过监视B机的屏幕,计算A机在B机屏幕图片上的鼠标位置,计算出应射在B机屏幕上的相应鼠标位置,发消息给B机鼠标的屏幕坐标和单双击操作即可
O onyliu Unregistered / Unconfirmed GUEST, unregistred user! 2007-08-28 #4 能实现才怪 最主要的是B机器没有运行软件的??? B都没办法响应还实现个毛啊 木马也要中到别的机子上才行啊 难不成我写个木马就直接到别人机子上运行??
H hkcbz Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-01 #5 var ds: string; Reg:Tregistry; begin ds := 'c:/ds.bmp'; if fileexists(ds) then begin Reg:=Tregistry.Create; Reg.Rootkey:= Hkey_Current_User; Reg.OpenKey('Control Panel/Desktop',False); Reg.WriteString('TileWallPaper','0'); Reg.WriteString('Wallpaper',ds); //为壁纸的文件名 Reg.WriteString('WallpaperStyle','0'); //壁纸的显示方案 0-居中 1-平铺 2-拉伸 Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);{通知Windows更换壁纸} Reg.CloseKey; Reg.Free; End; application.Terminate; end;
var ds: string; Reg:Tregistry; begin ds := 'c:/ds.bmp'; if fileexists(ds) then begin Reg:=Tregistry.Create; Reg.Rootkey:= Hkey_Current_User; Reg.OpenKey('Control Panel/Desktop',False); Reg.WriteString('TileWallPaper','0'); Reg.WriteString('Wallpaper',ds); //为壁纸的文件名 Reg.WriteString('WallpaperStyle','0'); //壁纸的显示方案 0-居中 1-平铺 2-拉伸 Systemparametersinfo(SPI_SETDESKWallpaper,0,Nil,SPIF_SendChange);{通知Windows更换壁纸} Reg.CloseKey; Reg.Free; End; application.Terminate; end;