Jump to content
Sign in to follow this  
incepator

cleverbot

Recommended Posts

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.

Share this post


Link to post
Share on other sites
water

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


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
incepator

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

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

Share this post


Link to post
Share on other sites
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. :)


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
incepator

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

Edited by incepator

Share this post


Link to post
Share on other sites
water

You want the ENTER key go to the Internet Explorer?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-09-01 - Version 1.3.4.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:

ADO - Wiki

 

Share this post


Link to post
Share on other sites
incepator
_IEFormSubmit not working..

Share this post


Link to post
Share on other sites
incepator

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

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

Share this post


Link to post
Share on other sites
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.


AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites
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 ... :graduated:

Share this post


Link to post
Share on other sites
incepator

DanP2

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

Share this post


Link to post
Share on other sites
incepator

fail ... we will try tomorrow. X_x

EDIT

...

Edited by incepator

Share this post


Link to post
Share on other sites
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?


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
incepator

drunk ? :bye:

Share this post


Link to post
Share on other sites
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.


Spoiler

“Hello, ladies, look at your man, now back to me, now back at your man, now back to me. Sadly, he isn’t me, but if he stopped using ladies scented body wash and switched to Old Spice, he could smell like he’s me. Look down, back up, where are you? You’re on a boat with the man your man could smell like. What’s in your hand, back at me. I have it, it’s an oyster with two tickets to that thing you love. Look again, the tickets are now diamonds. Anything is possible when your man smells like Old Spice and not a lady. I’m on a horse.”

 

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  

×