MSN

[philo]

Hi

I am trying to make a script so i can send message without typing.

Example

Winwait("") =first Problem the title is the Name of The User.

Send("I am not home")

But i need a fix with the Winwait .

Sombody got a idee to help me.

Thanks

[GrungeRocker]

opt("WinTitleMatchMode", 4)
opt("SendKeyDelay", 0)
opt("SendKeyDownDelay", 0)


WinWait("classname=IMWindowClass")
WinActivate("classname=IMWindowClass")
send("sry i am away{!}{enter}{esc}")

must be working...

[philo]

Thanks

I there a way so you get a input box where you can type your message and that wil be shown

So you get this.

Input box(What is your message)

Input box(how Much time)

Thanks

Edited June 6, 2005 by philo

[GrungeRocker]

hehe im making this program now^^

this idea is fascinating me !

[w0uter]

maby some of this wil help you guys. its more engaging then replying. but still

credit go's to shadow & me.

THIS IS STILL A WIP. SO DONT EXPECT THAT EVRYTHING IS USEFULL.

(like return statements / error checking)

history.au3

[philo]

Thanks

I there a way so you get a input box where you can type your message and that wil be shown

So you get this.

Input box(What is your message)

Input box(how Much time)

Thanks

<{POST_SNAPBACK}>

Somebody Knows this

[w0uter]

Somebody Knows this

<{POST_SNAPBACK}>

course we do. its not that hard.

search the helpfile section @ input & message boxes.

[GrungeRocker]

here you are:

expandcollapse popup

opt("WinTitleMatchMode", 4)
opt("SendKeyDelay", 0)
opt("SendKeyDownDelay", 0)



hotkeyset("!^{esc}", "exit1")


func exit1()
    Exit
EndFunc

#include <GuiConstants.au3>


GuiCreate("Autoresponser", 392, 262,(@DesktopWidth-392)/2, (@DesktopHeight-262)/2 )

$Label_1 = GuiCtrlCreateLabel("Enter the Text of the Awaymessage:", 10, 10, 380, 20)
$Awaytext = GuiCtrlCreateEdit("I'm not at Home", 0, 30, 390, 120)
$MSN = GuiCtrlCreateCheckbox("MSN", 0, 150, 80, 20)
$ICQ = GuiCtrlCreateCheckbox("ICQ", 0, 170, 80, 20)
    GUICtrlSetState(-1,$GUI_DISABLE)
$Label_5 = GuiCtrlCreateLabel("Wartezeit Nach dem Aktivieren des Fensters(in ms):", 120, 150, 250, 20, $ES_NUMBER)
$sleeptime = GuiCtrlCreateInput("25", 120, 170, 240, 20)
$Label_7 = GuiCtrlCreateLabel("Pause zwischen den Buchstaben(in ms):", 0, 200, 200, 20)
$senddelay = GuiCtrlCreateInput("0", 200, 200, 120, 20, $ES_NUMBER)
$Start = GuiCtrlCreateButton("Start", 0, 230, 110, 30)
$exit = GuiCtrlCreateButton("Beenden", 290, 230, 100, 30)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        Exit
    Case $msg = $exit
        Exit
    Case $msg = $start
        global $sleep = GUICtrlRead($sleeptime)
        Global $delay = GUICtrlRead($senddelay)
        Global $msna = GUICtrlRead($msn)
        Global $icqa = GUICtrlRead($icq)
        global $away = GUICtrlRead($awaytext)
        If $msna <>1 And $icqa <> 1 then 
            exit
        Else
            GUIDelete()
            away()
        EndIf
    EndSelect
WEnd


Func away()
    $i = 0
    $icqa=0
    opt("SendKeyDelay", $delay)
    Do
        if $msna = 1 Then
            if WinWait("classname=IMWindowClass", "", 0.5) = 1 Then
                WinActivate("classname=IMWindowClass")
                sleep($sleep)
                send($away & "{enter}{esc}")
            EndIf
        EndIf
    Until $i = 5656655656666623423434934745756457458854784578457856784578
EndFunc

edit: sry the last version had a big bug but its fixed now!

Edited June 6, 2005 by Analritter

[philo]

Need help with this

$answer = InputBox("Message", "Enter your Message.", "", "")
$2 = InputBox("How Much Time", "Max 25.", "", "")
WinWait("classname=IMWindowClass")
Send("$answer")

I want that the message in the first box wil be send.

And in the second box how many time.

Need help Please

Thanks

[GrungeRocker]

$answer = InputBox("Message", "Enter your Message.", "", "")
$2 = InputBox("How Much Time", "Max 25.", "", "")
$i = 0

do
WinWait("classname=IMWindowClass")
Send($answer)
$i = $i + 1
until $i = $2

Edited June 6, 2005 by Analritter

[philo]

$answer = InputBox("Message", "Enter your Message.", "", "")
$2 = InputBox("How Much Time", "Max 25.", "", "")
$i = 0

do
WinWait("classname=IMWindowClass")
Send($answer)
$i = $i + 1
until $i = $2

<{POST_SNAPBACK}>

Thanks but it doesn't work.

If i enter the message and then 1 time.

It doesn't type it.

[w0uter]

$answer = InputBox("Message", "Enter your Message.", "", "")
$times = InputBox("How Much Times", "Do you want it to be send", "", "")

For $i = 1 to $times
WinWait("classname=IMWindowClass")
Send("$answer")
Next

[philo]

$answer = InputBox("Message", "Enter your Message.", "", "")
$times = InputBox("How Much Times", "Do you want it to be send", "", "")

For $i = 1 to $times
WinWait("classname=IMWindowClass")
Send("$answer")
Next

<{POST_SNAPBACK}>

It won't type it end send it

Meybe this is imposble

[falconv]

Wow Philo, how much are you paying Analritter and W0uter to program for you? XD

[philo]

I got one Problem found.

It does not wait for IMWindowClass

[GrungeRocker]

Wow Philo, how much are you paying Analritter and W0uter to program for you?  XD

<{POST_SNAPBACK}>

hmm nothing its our hobby^^

ok well 100 dollars to each