MSN auto message

[_Kurt]

39 posts, and says its lame ¬_¬

Although I highly disagree on your way to judge people by their amount of posts, this isn't that bad of a script. I like it so I could leave myself away on msn and if someone I need to talk to happens to talk to me, it simply sends them what I want. Maybe you should try to retrieve the reply message that person sends (it could be like some sort of answering machine for msn). I'm not sure if this would work, but look up WinGetText or ControlGetText. If that properly functions for msn's edit boxes, it could be a really handy tool

Kurt

[Richard Robertson]

theguy0000 mentioned the lack of understanding of the difference between TCP and COM. I find people like that entertaining when they try to say things.

[James]

Lol. Thanks _Kurt.

Ahh right Kirby.

[dandymcgee]

Thanks theguy0000! 39 posts, and says its lame ¬_¬

Yeah... I had noticed that he's got roughly 7.1% of the amount of posts you have, and he thinks he has the right to tell you yours sucks and is unereliable (not that post counts mean much anymore with all of these stupid free posts topics: stories, jokes [often not even remotely humurous], completely meaningless things altogether, I hate free post topics they're just clogging up the forums). Edited January 1, 2007 by dandymcgee

[Achilles]

Hey, I like your code. I had tried making one of these but some how managed to make it much more complex. Anyways, I have a suggestions for you:

IniWrite("Text.ini", "Record of autoreplies", "This message: '" & $send & "' was sent to " & WinGetTitle("- Conversation", ""), "Date: " &@Mon&"/"&@MDAY&"/"&@Year& " Time: " &@Hour&"/"&@Min&"/"&@Sec)oÝ÷ Ø]¡ë'ßÛfjÛ^®k»­×hzÉ^¶Ø^¥êì¢y'£hÂf§Ê¨¦W­®'ríiËbazf§w^ØyÊ{}ÿªê-x²ØbH§¦èºÛaƧv·,ÞvØZ¶Øb³
.Ü(®F޶׫jëh×6IniWrite("Text.ini", "Record of autoreplies", "Date: " &@Mon&"/"&@MDAY&"/"&@Year& " Time: " &@Hour&"/"&@Min&"/"&@Sec), "This message: '" & $send & "' was sent to " & WinGetTitle("- Conversation", "") ;$send would be replaced with whatever you have in yours...

This way if a person tries to contact you more then once you'll know, and as long as you don't get two people contacting in the same second you'll have a record of everyone who tried to contact you...

Edit: Kurt, those two functions don't work with MSN windows

Edited January 1, 2007 by Piano_Man

[James]

Thanks Piano_Man. I will add that later, along with the tabs.

[broodplank]

my version

expandcollapse popup

#CS
MSN Auto Replier 0.5 BETA
Made for automated messages 
Made by broodplank
#CE


#include <File.au3>
;~ #include <GuiConstants.au3>

;~ Global $msnversion = ""

;~ GUICreate("MSN Auto Replier", 200, 310, -1, -1, $WS_POPUPWINDOW)

;~;MESSAGE
;~ GUICtrlCreateGroup("Message", 5, 5, 190, 65)
;~ GUICtrlCreateLabel("Enter message to send back:", 10, 25)
;~ $backmsg = GUICtrlCreateInput("", 10, 45, 180, 20)

;~;LANGUAGE
;~ GUICtrlCreateGroup("Language", 5, 75, 190, 70)
;~ GUICtrlCreateLabel("Enter language of msn messenger:", 10, 95)
;~ $combo = GUICtrlCreateCombo("ENGLISH", 10, 115, 80, 20)
;~ GUICtrlSetData($combo, "DUTCH", "ENGLISH")

;~;VERSION
;~ GUICtrlCreateGroup("Version", 5, 150, 190, 95)
;~ GUICtrlCreateLabel("Select the msn executable:", 10, 170)
;~ $executable = GUICtrlCreateInput("", 10, 190, 180, 20)
;~ $get = GUICtrlCreateButton("Browse", 10, 218, 60, 20)
;~ $version = GUICtrlCreateLabel("Version: Undefined", 80, 221, 100, 20)

;~;TEH END
;~ GUICtrlCreateGroup("Other", 5, 250, 190, 55)
;~ $start = GUICtrlCreateButton("Start", 12, 273, 50, 20)
;~ $about = GUICtrlCreateButton("About", 67, 273, 50, 20)
;~ $exit = GUICtrlCreateButton("Exit", 122, 273, 50, 20)


;~ GUISetState()

;~ While 1
;~  $msg = GUIGetMsg()
;~  
;~  if $msg = $gui_event_close then Exit
;~      
;~  if $msg = $get Then
;~      $msnexecutable = FileOpenDialog("Select MSN Executable", "C:\Progra~1", "(*.exe)", 1)
;~      GUICtrlSetData($executable, $msnexecutable, "")
;~      $version1 = FileGetVersion($msnexecutable)
;~      GUICtrlSetData($version, $version1, "")
;~      $versionchecker = StringLeft($version1, 1)
;~      
;~      if $versionchecker = 4 then $msnversion = 4
;~      if $versionchecker = 6 Then $msnversion = 6
;~      if $versionchecker = 7 Then $msnversion = 7
;~      if $versionchecker = 8 Then $msnversion = 8
;~          
;~      
;~  EndIf
;~  
;~  if $msg = $start Then debug()
;~      
;~  if $msg = $about Then MsgBox(0, "MSN Auto Replier", "MSN Auto Replier BETA 0.5"&@CRLF&"Made by broodplank")
;~  
;~  if $msg = $exit Then Exit 
;~      
;~ WEnd


debug()



func debug()
$backmsg = InputBox("MSN Auto Replier", "Enter message that ppl get")
$version = 8;4, 6, 7, or 8 (WLM)
$lang = 1;1 = ENGLISH, 2 = DUTCH, 3 = GERMAN, 4 = FRENCH, 5 = ITALIAN, 6 = SPANISH
;$backmsg = "AutoMsg: ik kijk ff southpark dus.. ^^";MSG THAT PPL GET

;~ Switch $version1
;~ Case $versionchecker = 4
;~   $handle = "RichEdit20W2"
;~ Case 6
;~   $hande = ""
;~ Case 7
;~   $handle = ""
;~ Case 8
;~   $handle = "DirectUIHWND1"
;~ Case Else
;~  MsgBox(0, "MSN Auto Replier", "Not a valid version") 
;~ EndSwitch
;~       

if $version = 4 Then $handle = "RichEdit20W2"
if $version = 6 Then $handle = "DirectUIHWND1"
if $version = 7 Then $handle = "DirectUIHWND1"
if $version = 8 Then $handle = "DirectUIHWND1"


if $lang = 1 then $cmsg = "- Conversation"
if $lang = 2 then $cmsg = "- Gesprek"
if $lang = 3 then $cmsg = "- Gespräch"
if $lang = 4 then $cmsg = "- Conversation"
if $lang = 5 then $cmsg = "- Conversazione"
if $lang = 6 then $cmsg = "- Conversación"




;ClipPut(GUICtrlRead($backmsg))
ClipPut($backmsg)


While 1
  Opt("WinTitleMatchMode", 2)

  If WinExists($cmsg)Then
    $title = WinGetTitle($cmsg)
    WinActivate($title)
    if WinActive($title) Then
    ControlSend($title, "", $handle,"^v{ENTER}{ESC}")
    EndIf
  EndIf

WEnd
EndFunc

also working

[James]

Not bad, I like the language feature. Is it alright if I use it, with the new version?

Secure

[broodplank]

Not bad, I like the language feature. Is it alright if I use it, with the new version?

Secure

yeh ofc

[James]

ofc? Meh, I saw the yes. So I will.

[broodplank]

ofc? Meh, I saw the yes. So I will.

ofcource

[James]

Ahh right. Thanks broodplank..

[jzn2]

I like this program! i found it interesting how it types it into any open msn conversation so if you wanted to tell a bunch of ppl the same thing you can open their windows and start this up and there you go. a nice feature to have would be to display the text that was set, in the parent window maybe have the whole function taking place in the parent window... maybe even a toggle button that switched between start and stop so you know which.

[James]

Yeah, I didn't think of that. I like it.