Sign in to follow this  
Followers 0
Rami

Web based chat auto post

1 post in this topic

#1 ·  Posted (edited)

If you try this code a webased chat will open and the code will start posting 3 words with 20 seconds interval between each, What is confusing is that the third word is not posting just the first two. Notice that you need not to intefer with your keyboard and mouse during this process

text 1 (first word to be posted)

text 2 (second word to be posted)

text 3 (third word t be posted)

Oh i noticed if i omit the text in orange the script work fine but still i don't know why

CODE
#include <IE.au3>

$oIE = _IECreate ("http://www.arabfun.com/entertainment/loginc.cgi", 1, 1, 1, 0)

WinWaitActive("ArabFun!", "", "")

ControlEnable("ArabFun!", "", "mesg")

ClipPut ("text 1")

Send("^v")

WinActive("ArabFun!", "aio")

Send("{ENTER}")

Sleep(10000)

Do

If _IEPropertyGet($oIE, "title") = ("Entertainment : Music - Sports - Technology - Travel") Then

Send("#r ipconfig /release{ENTER}")

Sleep(600000)

Send("#r ipconfig /renew {ENTER}")

Sleep(10000)

_IENavigate($oIE, "http://www.arabfun.com/entertainment/loginc.cgi")

EndIf

Until _IEPropertyGet($oIE, "title") = ("ArabFun!")

Sleep(10000)

WinWaitActive("ArabFun!", "", "")

ControlEnable("ArabFun!", "", "mesg")

ClipPut ("text 2")

Send("^v")

WinActive("ArabFun!", "aio")

Send("{ENTER}")

Sleep(10000)

Do

If _IEPropertyGet($oIE, "title") = ("Entertainment : Music - Sports - Technology - Travel") Then

Send("#r ipconfig /release {ENTER}")

Sleep(600000)

Send("#r ipconfig /renew {ENTER}")

Sleep(10000)

_IENavigate($oIE, "http://www.arabfun.com/entertainment/loginc.cgi")

EndIf

Until _IEPropertyGet($oIE, "title") = ("ArabFun!")

Sleep(10000)

WinWaitActive("ArabFun!", "", "")

ControlEnable("ArabFun!", "", "mesg")

ClipPut ("text 3")

Send("^v")

WinActive("ArabFun!", "aio")

Send("{ENTER}")

Sleep(10000)

Do

If _IEPropertyGet($oIE, "title") = ("Entertainment : Music - Sports - Technology - Travel") Then

Send("#r ipconfig /release {ENTER}")

Sleep(600000)

Send("#r ipconfig /renew {ENTER}")

Sleep(10000)

_IENavigate($oIE, "http://www.arabfun.com/entertainment/loginc.cgi")

EndIf

Until _IEPropertyGet($oIE, "title") = ("ArabFun!")

Edited by Rami

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