cleverbot

[incepator]

hello, someone thought to make a software to automate conversations with www.cleverbot.com?

That's what I'm trying to do now, but do not succeed ... if you can help me a bit, I would be grateful.

[water]

What have YOU tried so far? Don't expect US to write the code for you.

[incepator]

the point is they i did not use IE functions very well, therefore I asked your help.

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <IE.au3>
#include <String.au3>
#include <Array.au3>
#include <GuiListView.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Input1 = GUICtrlCreateInput("", 48, 160, 409, 21)
$Edit1 = GUICtrlCreateEdit("", 32, 0, 521, 153)
$Button1 = GUICtrlCreateButton("Button1", 472, 160, 75, 25)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$oIE = _IECreate ("http://cleverbot.com/",1,1,0,0)
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName ($oIE, "stimulusForm")
$Submit = _IEGetObjByName($oIE, "stimulus")
$oQuery4 = _IEFormElementGetObjByName ($oForm, "stimulus")
$mesaj = _IEFormElementSetValue ($oQuery4,GUICtrlRead($Input1))
If $mesaj = False Then
_IEFormElementSetValue ($oQuery4,GUICtrlRead($Input1))
_IELoadWait($oIE)
EndIf
_IELoadWait($oIE)
_IEAction($oForm, "click")
If @error Then
MsgBox(0,"",@error)
EndIf

EndSwitch
WEnd

Edited November 12, 2012 by incepator

[water]

If you have a problem please describe what doesn't work, the error messages you get etc.

The more information we have the better. We can't take your script and play around to find out what doesn't work.

[incepator]

problem is not sending "ENTER" after insert message ... it would be the first problem, although I used _IEAction($oForm, "click") not working...

Edited November 12, 2012 by incepator

[water]

You want the ENTER key go to the Internet Explorer?

[JohnOne]

_IEFormSubmit maybe.

[incepator]

_IEFormSubmit not working..

[JohnOne]

you have tried it before?

[incepator]

Yes..."_IEFormSubmit($oForm)"...but not working :-|

if ...$oForm = _IEFormGetObjByName ($oIE, "stimulusForm")

[JohnOne]

You see, it might take you a little while longer, but giving info here on the problem is important.

People are willing to help, but will quickly lose patience and opt out.

This is just an example from your last reply

_IEFormSubmit tells you why it failed, but you never told us.

[incepator]

the idea is that I tried the "it" but does not indicate any error ..

_IEFormSubmit($Submit, 0)

If @error Then
MsgBox(0,"",@error)
EndIf

not ask you to help me more ...

[Danp2]

From your code above, $Submit doesn't appear to be a form. Have you tried using $oForm in the _IEFormSubmit statement?

[incepator]

DanP2

...Believe me I tried, but it does not work, probably has a security that does not allow this.

[JohnOne]

take a look at this post just made, and follow the link in it.

[incepator]

fail ... we will try tomorrow. X_x

EDIT

...

Edited November 13, 2012 by incepator

[JLogan3o13]

fail ... we will try tomorrow. X_x

EDIT

...

This is a prime example of why you never see a ton of help in your threads. You constantly refuse to provide anyone with the information they need to help you. Do you honestly believe "fail...we will try tomorrow" tells anyone anything?

[mihaibr]

I think he's drunk.

Close topic req: I just see a disrespectful person that request some help but don't provide enough information.

[incepator]

drunk ?

[Mechaflash]

Mentally Incapacitated: Drunk, stupid, high, or all of the above.

Incapable of giving precise information when performing precise actions. He/she/he-she/it doesn't want help.