Jump to content
Sign in to follow this  
philo

MSN

Recommended Posts

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

:(


Auto It Ruels

Share this post


Link to post
Share on other sites

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...


[font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]

Share this post


Link to post
Share on other sites

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 by philo

Auto It Ruels

Share this post


Link to post
Share on other sites

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


My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Share this post


Link to post
Share on other sites

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

Auto It Ruels

Share this post


Link to post
Share on other sites

here you are:

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 by Analritter

[font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]

Share this post


Link to post
Share on other sites

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


Auto It Ruels

Share this post


Link to post
Share on other sites

$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 by Analritter

[font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]

Share this post


Link to post
Share on other sites

$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.


Auto It Ruels

Share this post


Link to post
Share on other sites

$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


My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Share this post


Link to post
Share on other sites

$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


Auto It Ruels

Share this post


Link to post
Share on other sites

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 :(


[font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...