auto msn-er :)

[ludocus]

For fun I made this script:

it reads what the other person on msn sends and then can respond..

if it can't respond it will just randomly pick 1 of the 63 dutch sentences

Just try it..

functions:

-if person starts talking talk back

-read the text the person' send

-send emoticons

-send 1 of the 63 sentences (pick randomly)

-auto accept friend reqeusts

-not so user friendly (cause its only script not any gui/readme/helpfile or anything)

-Maybe wont work on every computer since it needs mouse coordinates

-If doesn't work: make sure you have Windows Live Messenger (1 before the newest) and set screen resolution to: 1280-1024

Have fun

expandcollapse popup

#include <File.au3>
#include <Date.au3>
$keer = @scriptdir&'\keer.txt'
$users = @scriptdir&'\users.txt'
if FileExists ( $keer ) = 0 Then
_FileCreate ( $keer )
_FileWriteToLine ( $keer, 1, 'Aantal contacten toegevoegd: 0'&@CRLF&'Aantal dingen gezegt: 0', 1 )
EndIf
if FileExists ( $users ) = 0 Then
_FileCreate ( $users )
_FileWriteToLine ( $users, 1, 'Gesprekken:', 1 )
EndIf
; Script Start - Add your code below here
;$run = runwait ( @ProgramFilesDir&"\MSN Messenger\msnmsgr.exe" )
sleep ( 2000 )
;send ( $pos[0]&' '&$pos[1] )
;praat plek:    
HotKeySet ( "^!m", "stop" )
global $aai[5] = ['Aaah... ga door.. Oow.. Heerlijk..', 'Hey{!} NIET OPHOUDEN{!} het was net zo lekker', "hou eens op ik wil niet worden geaaid door zo'n barbaar als jij", 'Hey niet zo hardhandig{!}', 'nog een keer, nog een keer{!}' ]
global $eet[5] = ['AAh.. Heerlijk.. :D', 'Nog wat graag{!}', 'Dank je.. maar daar heb ik nu geen behoefte aan{!}', 'D8 je egt dat ik hondenbrokken at.. tsk..', 'umm ik weet niet of ik dit eet.. geef me maar nog een andere porsie' ]
global $talk[63] = ['Hallo', 'P1P2P3', 'Wat een dag......', 'Ik heb zin in een red bull.. Jij ook?', 'Waarom ga je niet even aardig doen?','Doeg... Grapje... Ik ga niet hoor{!}', '    .. I (L) Emoiticons', 'Ik zou eigenlijk iets anders willen doen dan de hele tijd praten...', 'Maar ik vindt jou gewoon zo aardig..', 'zin in.... Chips','Ik ben onoverwinnelijk', 'waarom zou mijn naam ... zijn?', 'Vindt jij mij een sukkel?', 'wat een weirdo ben jij', 'waarom.. .ga je niet zwemmen?', 'Ik vind..... dat jij..... super cool bent... .. ..', 'school is stom he{!}', 'zo. zo...', 'goh..', 'Nou zeg{!}', 'Poeh.. poeh...', 'tsjaa..', 'nou... umm..','uhhhh...', 'neeee{!}','nee','jaa{!}','ja','umm.. tsjaa.. daar vraag je me wat..','ik zou het niet weten', 'Mensen Mensen... Wat een bende hier op msn', 'wat is jou lievelingsdier?', 'Spa rood is niet te drinken he{!}', 'Je moet niet zo opscheppen jij{!}', 'ja.. Tuurlijk.. Ga jij maar lekker chocola eten{!}', 'kijk ik doe gordon na: Ow... god.. Ik heb er de kracht niet meer voor..','Waarom moet je nou altijd zo doen..?{!}','Spinazie.. is voor de echte knul{!}  (jij niet)','Get a Life{!}','Dit is een lange zin: je moet goed je tanden poetsen als je het niet erg vindt om niet zo vaak naar de tandarts te gaan... maar goed...','Love You so much(L)','Ik wil je nooit meer kwijt(L)','Doe je cam ns aan','Oef....','    xd','Kinderen en ... dammed.. ben me tekst kwijt.','Shize... hoe schrijf je dat in het duits?','Red Bull is goden voedsel','Wat vind je nou van die honden die zomaar midden op straat poepen?','','','',":'(",":|",'','','(L)','(K)','(L)(K)(L)','(A)',':@','' ]
While 1
$var = PixelGetColor( 561 , 1016 )
$var1 = PixelGetColor( 581 , 1016 )
$var2 = PixelGetColor( 620 , 1016 )
$var3 = PixelGetColor( 750 , 1016 )
$var4 = PixelGetColor( 422 , 1016 )
$var5 = PixelGetColor( 900 , 1016 )
$var6 = PixelGetColor( 800 , 1016 )
$var7 = PixelGetColor( 786 , 1016 )
$var8 = PixelGetColor( 567 , 1016 )
$var9 = PixelGetColor( 275 , 1016 )
$add = PixelGetColor( 272, 185 )
sleep ( 200 )
if $add = '15460845' then
    MouseClick ( "Left", 272,185 )
    sleep ( 100 )
send ( "{ENTER}" )
$i = FileOpen ( "keer.txt", 0 )
    $n = FileReadLine ( $i, 1 )
    $nN = StringSplit ( $n, ": ", 1 )
    _FileWriteToLine ( 'keer.txt', 1, 'Aantal contacten toegevoegd: '&$nN[2] + 1&'',1 )
    FileClose ( $i )
EndIf

if $var = '14174752' Then
    MouseClick ( "Left", 561, 1016 )
    praat()
EndIf
if $var1 = '14174752' Then
    MouseClick ( "Left", 581 , 1016 )
    praat()
EndIf
if $var2 = '14174752' Then
    MouseClick ( "Left", 620 , 1016 )
    praat()
EndIf
if $var3 = '14174752' Then
    MouseClick ( "Left", 750 , 1016 )
    praat()
EndIf

    
    if $var4 = '14174752' Then
    MouseClick ( "Left", 422 , 1016 )
    praat()
EndIf

    
    if $var5 = '14174752' Then
    MouseClick ( "Left", 900 , 1016 )
    praat()
EndIf

    
    if $var6 = '14174752' Then
    MouseClick ( "Left", 800 , 1016 )
    praat()
EndIf

    
    if $var7 = '14174752' Then
    MouseClick ( "Left", 786 , 1016 )
    praat()
EndIf


    
    if $var8 = '14174752' Then
    MouseClick ( "Left", 567 , 1016 )
    praat()
EndIf

if $var9 = '14174752' Then
    MouseClick ( "Left", 275 , 1016 )
    praat()
EndIf
WEnd

func praat()
    $0 = 0
    $block = 0
    $num = random ( 0, 62, 1 )
    $win = WinGetTitle ( "" )
    $winS = StringSplit ( $win, " - ", 1 )
    WinSetState ( $win, "", @SW_MAXIMIZE )
    sleep ( 200 )
    MouseClick ( "Left", 600, 525 )
    sleep ( 200 )
    send ( "^a" )
    sleep ( 200 )
    send ( "^c" )
    sleep ( 200 )
    $get = ClipGet()
    $txt = StringSplit ( $get, @CRLF, 1 )
    If StringInStr ( $txt[2], "hoe gaat" ) then
        send ( "Heeeeel goed...")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "hey" ) then
        send ( "Heey.. Hooi..")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "hallo" ) then
        send ( "heey... Hooi..")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "hoi" ) then
        send ( "Hallooo! :D")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "vrouwen" ) then
        send ( "Tsjaa.. daar heb ik niet zo veel over te zeggen")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "neuken" ) then
        send ( "Met jou.. Haha leuke grap :D")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "sex" ) then
        send ( "met jou?? d8 je dat?? NO WAY")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "plezier" ) then
        send ( "ja.. plezier is altijd goed.")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "fun" ) then
        send ( "moet er zijn!")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "tering" ) then
        send ( "OOOOHHh... Niet sgelden{!}"&@CRLF)
        sleep ( 2000 )
        send ( "Dit wordt een  block.."&@CRLF)
        sleep ( 100 )
        $block = 1
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "nerd" ) then
        send ( "Hey.. Pas op je woorden{!}"&@CRLF)
        sleep ( 2000 )
        send ( "Je hebt erom gevraagt, nu zal je worden geblockt{!}"&@CRLF )
        $block = 1
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "lievelingsdier" ) then
        send ( "tsk... Hond natuurlijk!"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "sgaap" ) then
        send ( "(bah)"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "engel" ) then
        send ( "(a)"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "red bull" ) then
        send ( "Het mooiste drankje ter wereld{!} :D"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "geweer" ) then
        send ( "moet je deze eens zien: P1P2P3"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "stout" ) then
        send ( "Jij stout? kan me niet voorstellen"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "xD" ) then
        send ( "Ja precies{!} xd"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "(l)" ) then
        send ( "I (L) You To!"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "goed" ) then
        send ( "niet goed{!} Geweldig{!}{!}"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "mammoet" ) then
        send ( "grote beesten{!} :D"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "doeg" ) then
        send ( "doeg... Ik hoop je snel weer te zien{!} (K)"&@CRLF)
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "xx" ) then
        send ( "Ja ik wil jou ook heel graag kussen..!"&@CRLF&'Weet je wat ik doe het gewoon:(K)'&@CRLF )
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "wist je" ) then
        send ( 'umm.. nee{!}'&@CRLF )
        $0 = 1
    EndIf
    
    If $txt[2] = '_help' Then
        send ( "Dit hondje is gemaakt door ludo!"&@CRLF& _
        '!'&@CRLF& _
        "Commando's:!"&@CRLF& _
        '_aai        -dan aai je me!'&@CRLF& _
        '_uit        -dan laat je me uit!'&@CRLF& _
        '_voed       -dan kan je me eten geven!'&@CRLF& _
        '_tijd       -dan zeg ik de tijd!'&@CRLF& _
        '_datum      -dan zeg ik de datum!'&@CRLF& _
        '_naam       -dan geef ik je jouw naam!'&@CRLF& _
        '_block      -dan block ik je!'&@CRLF& _
        '_buz        -dan stuur ik je een buzzer ;)!'&@CRLF& _
        '!'&@CRLF& _
        'Nou dat waren ze.. Veel plezier'&@CRLF )
        $0 = 1
    EndIf
    
    if $txt[2] = '_aai' Then
        $a = Random ( 0, 4, 1 )
        send ( $aai[$a] )
        $0 = 1
    EndIf
    
    if $txt[2] = '_uit' Then
        send ( "Je gaat me nu uitlaten.."&@CRLF )
        sleep ( 2000 )
        send ( "zo we zijn terug.. Nou dat was een stevige wandeling..!"&@CRLF& _
        "Heb ik eindelijk mijn behoeftes kunnen doen!" &@CRLF )
        $0 = 1
    EndIf
    
    if $txt[2] = '_voed' Then
        $a = Random ( 0, 4, 1 )
        send ( $eet[$a] )
        $0 = 1
    EndIf
    
    if $txt[2] = '_tijd' Then
        $tijd = _NowTime(5)
        send ( 'De tijd nu is: '&$tijd&@CRLF )
        $0 = 1
    EndIf
    
    if $txt[2] = '_datum' Then
        $datum = _NowDate()
        send ( 'De datum nu is: '&$datum&@CRLF )
        $0 = 1
    EndIf
    
    if $txt[2] = '_naam' Then
        send ( 'Jouw naam is: '&$winS[2]&@CRLF )
        $0 = 1
    EndIf
    
    if $txt[2] = '_block' Then
        send ( 'Je wordt nu geblockt..'&@CRLF )
        $block = 1
        $0 = 1
    EndIf
    
    if $txt[2] = '_buz' Then
        send ( '{ALT}' )
        send ( 'a' )
        send ( 'z' )
        $0 = 1
    EndIf
    
    if $block = 1 Then
        send ( "{ALT}" )
        send ( "a" )
        send ( "k" )
        sleep ( 100 )
        send ( '{ENTER}' )
        EndIf
    if $0 = 0 then
    send ( $talk[$num] )
    endIf
    sleep ( 100 )
    send ( '{ENTER}' )
    sleep ( 100 )
    send ( "{ESC}")
    $i = FileOpen ( "keer.txt", 0 )
    $n = FileReadLine ( $i, 2 )
    $nN = StringSplit ( $n, ": ", 1 )
    _FileWriteToLine ( 'keer.txt', 2, 'Aantal keer iets gezegt: '&$nN[2] + 1&'',1 )
    FileClose ( $i )
    $i2 = FileOpen ( "users.txt", 1 )
    FileWriteLine ( $i2, $winS[2]&' :'&@CRLF&$txt[2]&@CRLF )
    FileClose ( $i2 )
EndFunc

func stop()
    Exit
EndFunc

-edit

I changed a part in the script..

Edited March 27, 2008 by ludocus

[Swift]

It's kinda...ugh..foriegn sentences... O.o

But we can always change it. PS. Nice job

Edited March 24, 2008 by R6V2

[ludocus]

Thnx..

Yeah I know.. I was not sure if I wanted to translate them, and I didn't really want to do it so..

I think I use to much '..'

[Jos]

For fun I made this script:

Have fun

-snip - 
    If StringInStr ( $txt[2], "vrouwen" ) then
        send ( "Tsjaa.. daar heb ik niet zo veel over te zeggen")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "neuken" ) then
        send ( "Geen tijd voor sorry..")
        $0 = 1
    EndIf
    
    If StringInStr ( $txt[2], "sex" ) then
        send ( "NO WAY")
        $0 = 1
    EndIf
    
-snip-

I am guessing younger than 13 ...

[Swift]

I am guessing younger than 13 ...

LoL!

[ludocus]

I'm 14 thnx...

[Jos]

I was close ..

by the way should this :

AutoItglobal $warming[1] = ['HOT ass HElll']

be

AutoItglobal $warming[1] = ['HOT as HElll']

Edited March 24, 2008 by Jos

[Swift]

You should be able to have this work, when your doing other things like using: ControlSend() etc.

[ludocus]

I didn't now what that command was for, but thnx

[Jos]

I didn't now what that command was for, but thnx

The comment is about this:

as=als

ass=reet

But its your sig and do "ass" you want

Edited March 24, 2008 by Jos

[ludocus]

were did I say ass in stead of as?

-edit

aha..

lol I understand now.. I'll do it in a sec. ( I did that because of this: HOT [normal] ass[more chars] HELLLL[more chars]

Edited March 24, 2008 by ludocus

[Swift]

In your signature, the thing after the text you type.

It says:

global $warming[1] = ['HOT ass HElll']

[ludocus]

In your signature, the thing after the text you type.

It says:

global $warming[1] = ['HOT ass HElll']

fixed

[WhiteAvenger]

CODE

$var = PixelGetColor( 561 , 1016 )

$var1 = PixelGetColor( 581 , 1016 )

etc...

These seem to point to specific locations...

What are these locations?

I'm sure they won't work on my PC, can you make them independent of window sizes?

[ludocus]

those coordinates are for the msn bars..

(is someone talks to you the bar becomes orange)

then it clicks on it..

I wouldn't really know how to make it so it can go on every screen region.

But why don't you change your screen region to 1280-1024?

Then it will work

Edited March 27, 2008 by ludocus

[WhiteAvenger]

those coordinates are for the msn bars..

(is someone talks to you the bar becomes orange)

then it clicks on it..

I wouldn't really know how to make it so it can go on every screen region.

But why don't you change your screen region to 1280-1204 ?

Then it will work

So you're saying I'd have to

• change my screen resolution to 1280x1024,
• use the default Whindows theme and
• remove my quick launch bar

to make your script work?

Thanks, but no thanks

[ludocus]

I am sorry..

I'm not that good at autoit..

So I wouldn't no how to make the script work on every computer..

Maybe it was dumd to post this script.. -.-

[Aassdd]

I use same screen res too. Thank you

PS: correct your post, it's 1280x1024

[Kip]

ludo.....