Jump to content

Recommended Posts

Posted

I want my msn script to read the text people send and then respond to it...

I have a little code like this..:

But the only thing that it does is send some text to people how start talking to me...:

#include <File.au3>
; Script Start - Add your code below here
;$run = runwait ( @ProgramFilesDir&"\MSN Messenger\msnmsgr.exe" )
sleep ( 2000 )
;send ( $pos[0]&' '&$pos[1] )
;praat plek:          
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!', ':D :) :D :) .. 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....',':D :) ;) :P 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?',';)',':)',':(',":'(",":|",':D',':P','(L)','(K)','(L)(K)(L)','(A)',':@',':o' ]
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 )
$add = PixelGetColor( 272, 185 )
sleep ( 200 )
if $add = '15460845' then send ( "{ENTER}" )
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
WEnd

func praat()
    $num = random ( 0, 62, 1 )
    send ( $talk[$num] )
    send ( '{ENTER}' )
    sleep (10)
    send ( '{ENTER}' )
    sleep ( 100 )
    send ( "!{F4}")
    $i = FileOpen ( "keer.txt", 0 )
    $n = FileReadLine ( $i, 1 )
    _FileWriteToLine ( 'keer.txt', 1, $n + 1&'',1 )
    FileClose ( $i )
EndFunc
Posted

I haven't found a way of doing this since most of the WinGet* functions don't work on msn, except tabbing to the received messages part of the window and sending Ctrl+A then Ctrl+C then using ClipGet() to see the message. This way is really bad, slow and fails sometimes depending on what control takes focus first.

Posted

I haven't found a way of doing this since most of the WinGet* functions don't work on msn, except tabbing to the received messages part of the window and sending Ctrl+A then Ctrl+C then using ClipGet() to see the message. This way is really bad, slow and fails sometimes depending on what control takes focus first.

Thnx.. could you give me an example of the ClipGet stuff..?
Posted

:) is dutch :party: so.. yeah you probaly don't understand it..

I thought Dutch people did understand dutch :)

Posted (edited)

I thought Dutch people did understand dutch :)

:) Jos peut parler le néerlandais ? Depuis quand ? but I can speak french:

Voir... Je peux parler le français :party:

Translation:

See...I can speak french :lmao:

Edited by R6V2

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
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...