|
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
#1
|
|||
|
|||
|
Try to write "net send 127.0.0.1 hello" in run.
Sometimes in some computer (if connected in a network) you receive a message. If a stupid person send to you 100 message, you must click click click click to close the window. I'm searching a mode to intercept the handle of the form, focus on it, and then automatically press the OK button or simply close it. If someone know how to do this, is a genius and it will be my best friend :PPPPPP Vi piacerebbe conoscere l'italiano? <this is my language> cool no? :P ![]() ah..where's the option to add under my message a short "post"..like scorpion and other member message? like it: Quote:
|
|
#2
|
|||
|
|||
|
I would simply disable it, you can do so by going here: http://www.lantalk.net/disable_messenger.php
|
|
#3
|
|||
|
|||
|
Gustoso!!! --> English --> Cool
![]() Thanks man But..if i want only to close a series of message.. So.. I want to receive messages..but..in the middle of a conversation, a stupid man send me 100 messages.. I launch my program .. close close..and then restart..no? ![]() |
|
#4
|
||||
|
||||
|
Something like this perhaps:
Code:
procedure TForm1.Button1Click(Sender: TObject); var hWnd : THandle; begin hWnd := FindWindow(Nil, 'Messenger Service '); while (hWnd > 0) do begin SendMessage(hWnd, WM_CLOSE, 0, 0); Sleep(500); hWnd := FindWindow(Nil, 'Messenger Service '); end; end; Note the Sleep() in the middle of the while loop. I put it there because I get one message at a time and when I click OK, it takes a little while before the next message pops up. So I made the program pause for 500 milliseconds before looking for the next window again. Of course, you might need to change the title of 'Messenger Service ' to whatever your Window title looks like (I'm guessing that the message title is in Italian for you.) Also note that the string 'Messenger Service ' has a trailing space at the end of the string. I don't know if that's going to be the same in Italian.
__________________
Up the Irons What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home. "Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest Down with Sharon Osbourne Puzzle of the Month solved by Keath and KevinADC, superior perl programmers of the month |
|
#5
|
|||
|
|||
|
thank you scorpion..with this example I learned much much things..
And..powerful question. There's a method to incercept, or retrieve a text from a edit or another control in a window?!? I made some crack..number serial..the cool things will be to write automatically the serial number in the edit of the application, no? (ehm..i hope this won't be read by police :P ..i'm only 18!!!! -.-) |
|
#6
|
||||
|
||||
|
That question is a little out of topic in this thread. If you start up a new thread with a proper title (say something like "Getting handle of child control"), I'll be happy to help you out.
|
![]() |
| Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > News |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|