Sign in to follow this  
Followers 0
ludocus

auto msn-er :)

19 posts in this topic

#1 ·  Posted (edited)

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

#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 by ludocus

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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

But we can always change it. PS. Nice job :)

Edited by R6V2

Share this post


Link to post
Share on other sites

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 '..' :)

Share this post


Link to post
Share on other sites

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

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

I am guessing younger than 13 ... :)

LoL! :)

Share this post


Link to post
Share on other sites

:)

I'm 14 thnx...

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

I was close ..

by the way should this :

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

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

:)

Edited by Jos

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

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

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

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

It says:

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

:)

Share this post


Link to post
Share on other sites

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

It says:

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

:)

fixed :)

Share this post


Link to post
Share on other sites

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?

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

I use same screen res too. Thank you :)

PS: correct your post, it's 1280x1024

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  
Followers 0