IPB

Welcome Guest ( Log In | Register )


「黒い猿」
Posted on: May 24 2007, 07:39 PM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


this is proberly one of the worswt types of worms though...

it uses a link, its poorly coded and rather uneffective.. compaird to the ones that send .zip files with .jpg images inside them ...
  Forum: Mess.be News · Post Preview: #165712 · Replies: 3 · Views: 1,746

「黒い猿」
Posted on: May 11 2007, 09:12 PM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


im not how sure it would be to do what that image shows, but might be posisble to easily create a sperate window to house all transfers...
  Forum: Add-on Programming · Post Preview: #165010 · Replies: 9 · Views: 5,005

「黒い猿」
Posted on: Apr 28 2007, 06:30 AM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


To clear one thing up, every single items, windowless or not has a hwnd handle, its how you find it. that matters.

such as main msn window handle, either use findwindow or '"friendlyname" - conversation' inyeah find window, or use msn windows api and just grab handle from that.
  Forum: Add-on Programming · Post Preview: #164275 · Replies: 17 · Views: 8,014

「黒い猿」
Posted on: Apr 13 2007, 01:02 PM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


photo album.zip the worm itsself is not what you want to be worried about, like all msn worms there is allteria motives to it...

90% of the time they download, botnet, Adaware (Pay per Install) PPI and (Pay Per Click) PPC types, some are even loaded with rats, the photo album just installed adaware... its not hard to remove it.... problem msn has is no matter if they have removed the sendfile() from the MSN api, you can still bypass that and send files anyway >.>
  Forum: Messenger Announcements and News · Post Preview: #162958 · Replies: 26 · Views: 61,281

「黒い猿」
Posted on: Apr 7 2007, 02:16 PM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


Ok here is the same as above, but now put into one easy to use Procedure

Designed to work as a Replacement for the SendFile() function,
but with a additional feature it dont have msn_happy.gif
you can send multiple files all in one go ^^

enjoy and dont forget to credit me pp.gif

CODE
Uses
... , Clipbrd;


CODE
//{/*  By  「黒い猿」 "Kuroi Saru"  */}
//  Date: 07 April 2007
// Email: lordmunk [a.t] gmail [d.o.t] com
//
// Replacement For SendFile Function in MessengerAPI_TLB (IMessenger3;)
//
//
// Supports Multiple FileSending, Seperate files with #0#

procedure SendFile(FileList: string;ContactFriendlyName:String);
var
  DropFiles: PDropFiles;
  hGlobal: THandle;
  iLen: Integer;
  MsgWnd:HWND;
  ww:HWND;
begin
  iLen := Length(FileList) + 2;
  FileList := FileList + #0#0;
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, SizeOf(TDropFiles) + iLen);

  if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.');
  begin
    DropFiles := GlobalLock(hGlobal);
    DropFiles^.pFiles := SizeOf(TDropFiles);
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen);
    GlobalUnlock(hGlobal);
    Clipboard.SetAsHandle(CF_HDROP, hGlobal);
  end;

  MsgWnd:=FindWindow('IMWindowClass',PChar(''+ContactFriendlyName+' - Conversation'));
  ww:=FindWindowEx(msgwnd.HWND,0,'DirectUIHWND',nil);

  Sleep(100);
  SetForegroundWindow(ww);

  keybd_event(VK_CONTROL,0,0,0);
  keybd_event(ord('V'),0,0,0);
  keybd_event(ord('V'),0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;
  Forum: Add-on Programming · Post Preview: #162619 · Replies: 1 · Views: 3,517

「黒い猿」
Posted on: Apr 7 2007, 01:36 PM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


Here is Code to send a person a file msn_happy.gif enjoy


Please note, if you use any of this code, to at least give me credit for it ...
its not complex to make but still, its my work and would appriciated the credit thnx ^^

CODE
Uses
... , Clipbrd;



PART 1 !+!+! Must be placed near top of File !+!+!
CODE
{/*  By  「黒い猿」 "Kuroi Saru"  */}

procedure CopyFileToClipboard(FileList: string);
var
  DropFiles: PDropFiles;
  hGlobal: THandle;
  iLen: Integer;
begin
  iLen := Length(FileList) + 2;
  FileList := FileList + #0#0;
  hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT,
    SizeOf(TDropFiles) + iLen);
  if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.');
  begin
    DropFiles := GlobalLock(hGlobal);
    DropFiles^.pFiles := SizeOf(TDropFiles);
    Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen);
    GlobalUnlock(hGlobal);
    Clipboard.SetAsHandle(CF_HDROP, hGlobal);
  end;
end;



PART2 !+!+! Add into some Button !+!+!
CODE
{/*  By  「黒い猿」 "Kuroi Saru"  */}

{/* You can combine this with the Send Message Code, but you should be able to obtain the Contact.SigninName and ServiceId */}

  MsgWnd:=IMessengerConversationWndDisp(Msg.InstantMessage(Msg.GetContact(Contact.SigninName,Contact.ServiceId)));
  ww:=FindWindowEx(msgwnd.HWND,0,'DirectUIHWND',nil);

  CopyFileToClipboard('FILETOSEND');

  Sleep(100);
  SetForegroundWindow(ww);

  keybd_event(VK_CONTROL,0,0,0);
  keybd_event(ord('V'),0,0,0);
  keybd_event(ord('V'),0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
  Forum: Add-on Programming · Post Preview: #162616 · Replies: 1 · Views: 3,517

「黒い猿」
Posted on: Apr 6 2007, 10:23 PM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


Well as i cant find a edit button ill post under...
i worked it out in the end msn_happy.gif

Ive posted the code below, incase there is any Delphi Programmers looking for this type of thing,
if so i hope it helps ^^, its basicl a fully working function not much is needed to be added for it to work msn_happy.gif


CODE
var
Msg:IMessenger3;
....

Procedure Form1.OnCreate...
  Msg:=MessengerAPI_TLB.CoMessenger.Create;
....




CODE
{/*  By  「黒い猿」 "Kuroi Saru"  */}
Procedure MsgContact(Message_Str:String; Email:String);
var
Contacts:IMessengerContactsDisp;
Contact:IMessengerContactDisp;
MsgWND:IMessengerConversationWndDisp;
ww:HWND;
i,n,q:Integer;
begin
  Contacts:=IMessengerContactsDisp(Msg.MyContacts);
  i:=Contacts.Count;
  n:=0;
  while n < i do
  begin
  Contact:=IMessengerContactDisp(Contacts.Item(n));
  if Contact.SigninName = Email then
  begin
  MsgWnd:=IMessengerConversationWndDisp(Msg.InstantMessage(Msg.GetContact(Contact.SigninName,Contact.ServiceId)));
  ww:=FindWindowEx(msgwnd.HWND,0,'DirectUIHWND',nil);
  for q:=0 to Length(s) do SendMessage(ww, WM_CHAR ,Word(Message_Str[q]),0);
  PostMessage(ww, WM_KEYDOWN, VK_RETURN, 0);
  PostMessage(ww, WM_KEYUP, VK_RETURN, 0);
  
  //Optional ---------------------
  MsgWnd.Close;  {Close Window After Sending Message}
  //-------------------------------
  end;
  inc(n)
  end;
end;



  Forum: Add-on Programming · Post Preview: #162546 · Replies: 3 · Views: 11,592

「黒い猿」
Posted on: Apr 6 2007, 08:29 PM


Mess.bean
*

Group: Members
Posts: 8
Joined: 5-April 07
From: Cardiff, Wales, UK
Member No.: 26,152


ive read over the forum for the past two days and have yet been able to find any additional information that can really help me..

im using Delphi Borland 7, and the MessengerAPI with MsgrConversationWndPlugin

i use MsgrConversationWndPlugin to obtain the converation Perant window handel, but if i try to use Postmessage, SendMessage to send keys to the window they are ignored... so i figure ive goto get the child window, of where you would normaly input the text....

so here is the question(s)

what is the name of the input area for text
and what is the name of the submit button?


ill be greatfull for anyhelp someone can give msn_happy.gif
  Forum: Add-on Programming · Post Preview: #162538 · Replies: 3 · Views: 11,592


New Posts  New Replies
No New Posts  No New Replies
Hot topic  Hot Topic (New)
No new  Hot Topic (No New)
Poll  Poll (New)
No new votes  Poll (No New)
Closed  Locked Topic
Moved  Moved Topic
 

RSS Lo-Fi Version Time is now: 21st August 2018 - 12:35 AM
2004-2008 Seb Skuse, mess.be.
MessForum v6.1.4 - created for, and for use only by mess.be.