Chatbot Susi

sandmaenchen

Hallo Ihr
Ich habe so ein Online game mit einem Chat und hatte mir gedacht einen Chatbot zu schreiben.
Der sollte dem user helfen und unterhalten.
Ich schreib seid gestern an susi und find ist auch gut gelungen und funzt ganz gut

Jedoch würd ich euch um verbesserungen fragen und wär auch sehr dankbar
Ich hätte noch vor susi einen riessigen sprachkatalog zu basteln
wer mir also dabei noch helfen möchte ich danke
So mal zum skript:
Susi braucht keinen Browser und wenn sie lange nicht gefragt wurde macht sie mehr pause

susi:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=developer.ico
#AutoIt3Wrapper_outfile=susi.exe
#AutoIt3Wrapper_Res_Fileversion=2.0.2.17
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinHTTP.au3>
#include<String.au3>
#include <GUIComboBox.au3>
Global $chatusr[7]
Global $posting[5] ;Array deklarieren
Dim $chattext
$pause=7000
$hw_open = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12")
$hw_connect = _WinHttpConnect($hw_open, "www.xxx-xxx.de")
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("susi Chatbot", 358, 121, 522, 401)
$Edit1 = GUICtrlCreateEdit("", 0, 8, 281, 105, $ES_WANTRETURN)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Start", 296, 88, 59, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("", 288, 8, 60, 44, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("", 288, 56, 68, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

$data=""
_login()

[/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $Button1
While 1
_such()

[/autoit] [autoit][/autoit] [autoit]

Sleep($pause)
WEnd
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _such()
GUICtrlSetBkColor($Label2, 0x008000)
$pause=$pause + 50
If $pause >=15000 then $pause =12000
GUICtrlSetData($Label1, "Pause"&@CRLF&$pause)
$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/minichat","HTTP/1.1", "http://www.xxx-xxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, "")
_WinHttpReceiveResponse($h_openRequest)
GUICtrlSetBkColor($Label2, 0xDF1B1B)
Sleep(500)
$data=_WinHttpReadData($h_openRequest)
Global $chattext = StringRegExp($data,'76%">(.*?)<',3)
Global $chatusr = StringRegExp($data,'vip">(.*?)</a>',3)
If @error Then Return
ConsoleWrite($chattext[7]&@CRLF)
GUICtrlSetData($Edit1,$chatusr[3] &": "&$chattext[3]&@CRLF&$chatusr[4] &": "&$chattext[4]&@CRLF&$chatusr[5] &": "&$chattext[5]&@CRLF&$chatusr[6] &": "&$chattext[6]&@CRLF&$chatusr [7]&": "&$chattext[7])
GUICtrlSetBkColor($Label2, 0x008000)
If StringInStr($chattext[7], "moin" , 0) Then _moin()
If StringInStr($chattext[7], "hallo" , 0) Then _moin()
If StringInStr($chattext[7], "zeit", 0) Then _zeit()
If StringInStr($chattext[7], "time" , 0) Then _zeit()
If StringInStr($chattext[7], "spät" , 0) Then _zeit()
If StringInStr($chattext[7], "uhr" , 0) Then _zeit()
If StringInStr($chattext[7], "hrhr", 0) Then _hehe()
If StringInStr($chattext[7], "hehe", 0) Then _hehe()
If StringInStr($chattext[7], "hihi", 0) Then _hehe()
If StringInStr($chattext[7], "hilfe", 0) Then _oue()
If StringInStr($chattext[7], "susi", 0) Then _susi()
If StringInStr($chattext[7], "n8", 0) Then _n8()
If StringInStr($chattext[7], "gute nacht", 0) Then _n8()
If StringInStr($chattext[7], "tage", 0) Then _tage()
If StringInStr($chattext[7], "sex", 0) Then _sex()
If StringInStr($chattext[7], "oü", 0) Then _oue()
If StringInStr($chattext[7], "lol", 0) Then _lol()
If StringInStr($chattext[7], "barbapapa", 0) Then _barbapapa()
If StringInStr($chattext[7], "film", 0) Then _barbapapa()
If StringInStr($chattext[7], "datum", 0) Then _datum()
If StringInStr($chattext[7], "heute", 0) Then _datum()
If StringInStr($chattext[7], "gefängnis", 0) Then _knast()
If StringInStr($chattext[7], "Glück! Du hast", 0) Then _glueck()

[/autoit] [autoit][/autoit] [autoit]

If StringInStr($chattext[7], "weihnacht", 0) Then _weihnacht()
If StringInStr($chattext[7], "24.12", 0) Then _weihnacht()
If StringInStr($chattext[7], "christkind", 0) Then _weihnacht()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$chattext = ""
$chatusr = ""
$h_openRequest =""
$data=""

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;_WinHttpCloseHandle($h_openRequest)
;_WinHttpCloseHandle($hw_connect)
;_WinHttpCloseHandle($hw_open)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _login()
$post1="username=susi&password=xxxxx&submit=Anmelden"

[/autoit] [autoit][/autoit] [autoit]

$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/login","HTTP/1.1", "http://www.xxxxxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $post1)
_WinHttpReceiveResponse($h_openRequest)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _loginstrubi()
$post2="username=strubi&password=xxxxx&submit=Anmelden"

[/autoit] [autoit][/autoit] [autoit]

$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/login","HTTP/1.1", "http://www.xxxxxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $post2)
_WinHttpReceiveResponse($h_openRequest)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _lol()
$posting[0]="Ja lustig"
$posting[1]="was gibts zu witzeln :? "&$chatusr[7]
$posting[2]=":)"
$posting[3]="ist nicht lustig :("
$posting[4]="lach :)"
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _tage()
$posting[0]="Ja hab ich und?!? :$"
$posting[1]="Na und was gehts dich an? "&$chatusr[7]
$posting[2]=$chatusr [7]&" sei froh das du die nicht bekommst!"
$posting[3]="ja klar "&$chatusr[7]&" soll ich dir was aufheben? :$"
$posting[4]="nein vollmond ist (6)"
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _n8()
$posting[0]="schlaf gut :$ "&$chatusr[7]
$posting[1]="ich wünsch dir was "&$chatusr[7]
$posting[2]=$chatusr [7]&" denk an mich :$"
$posting[3]="jetzt schon? "&$chatusr[7]&" :e"
$posting[4]="bis dann (6)"
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _susi()
$posting[0]="ja? (6)"&$chatusr[7]
$posting[1]="Was los? "&$chatusr[7]
$posting[2]=$chatusr[7]&" mein name wurde gerufen? :$"
$posting[3]="ich bin hier "&$chatusr[7]
$posting[4]="Hallo "&$chatusr [7]
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _hehe()
$posting[0]="was lachst du? (6)"&$chatusr[7]
$posting[1]="is wohl witzig hmm? "&$chatusr[7]
$posting[2]=$chatusr[7]&" ja lach ruhig (6)"
$posting[3]="was gibts "&$chatusr[7]&" zu lachen??!"
$posting[4]="hahaha "&$chatusr [7]
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _oue()
$posting[0]="&uumlberfall? "&$chatusr[7]&" ich komme"
$posting[1]="paar sekunden "&$chatusr[7]
$posting[2]=$chatusr[7]&" schon wieder?"
$posting[3]="muss das sein? "&$chatusr[7]&" bin gleich da"
$posting[4]="ich schlafe noch "&$chatusr [7]&" aber bitte"
_sending()
sleep(2000)
$h_openRequest4= _WinHttpOpenRequest($hw_connect,"GET", "/group-robbery","HTTP/1.1", "http://www.xxxxx.de/")
_WinHttpSendRequest($h_openRequest4, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, "")
_WinHttpReceiveResponse($h_openRequest4)

[/autoit] [autoit][/autoit] [autoit]

$h_openRequest5= _WinHttpOpenRequest($hw_connect,"POST", "/group-robbery","HTTP/1.1", "http://www.xxxxxxxxxxxxxx.de/group-robbery")
_WinHttpSendRequest($h_openRequest5, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, "")
_WinHttpReceiveResponse($h_openRequest5)
$data2=_WinHttpReadData($h_openRequest5)
ConsoleWrite($data2)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _moin()
$posting[0]="hoi "&$chatusr [7]
$posting[1]="Guten Tag "&$chatusr [7]
$posting[2]="Hallo du "&$chatusr [7]&" Wie gehts dir?"
$posting[3]="was geht?"
$posting[4]="ja hallo "&$chatusr [7]
_sending()
EndFunc
Func _zeit()
$posting[0]="Es ist "&@HOUR&" herum"
$posting[1]="Schau selbst nach "&$chatusr [7]
$posting[2]=@HOUR&":"&@MIN &" "&$chatusr [7]&" bin ja nicht die ansage!"
$posting[3]="Naja ich sags dir "&@HOUR&":"&@MIN
$posting[4]="weiss ich nicht"&$chatusr [7]
_sending()
EndFunc
Func _sending()
$pause=5000
GUICtrlSetData($Label1, "Pause"&@CRLF&$pause)
GUICtrlSetBkColor($Label2, 0xFFE900)
$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/minichat","HTTP/1.1", "http://xxxxxxxxxxxxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, "text="&$posting[Random(0,4)])
_WinHttpReceiveResponse($h_openRequest)
GUICtrlSetBkColor($Label2, 0xDF1B1B)
Sleep(150)
GUICtrlSetBkColor($Label2, 0x008000)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _sex()
$posting[0]="Mit dir niemals!!! "
$posting[1]="Bitte ? "&$chatusr[7]
$posting[2]="wir kennen uns ja kaum "&$chatusr[7]&" :e"
$posting[3]="Nein nein bestimmt nicht mit dir"
$posting[4]="ja klar "&$chatusr[7] &"besuch mich :)"
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _barbapapa()

[/autoit] [autoit][/autoit] [autoit]

$posting[0]="[media]H4tHyrNmb7E[/media]"
$posting[1]="[media]P2sxz56z-pY[/media]"
$posting[2]="[media]niW5eO6GBiQ[/media]"
$posting[3]="[media]-455nXg7O5Q[/media]"
$posting[4]="[media]o85lURcxMKg[/media]"
_sending()

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite("youtoube")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _datum()
$posting[0]=@MDAY&"."&@MON&"."&@YEAR
$posting[1]="Es ist der "&@MDAY&"."&@MON&"."&@YEAR
$posting[2]=@MDAY&"."&@MON&"."&@YEAR&" "&$chatusr[7]&" :e"
$posting[3]=@MDAY&"."&@MON&"."&@YEAR&" Bitte :)"
$posting[4]=@MDAY&"."&@MON&"."&@YEAR&"sonst noch was?"
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _knast()
$posting[0]="super im Knast (6)"
$posting[1]="Knastbruder"
$posting[2]="knasti"
$posting[3]="was geht? so im Knast"
$posting[4]="bald kommst du raus :)"
_sending()
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _glueck()
$posting[0]="super"
$posting[1]="Sehr Gut :)"
$posting[2]="zeigs ihm"
$posting[3]="der wird sauer sein :("
$posting[4]="uhhhh verbrenn dir nicht die finger"
_sending()
EndFunc
Func _weihnacht()
$tag=@YDAY
$24=358
$weih=$24-$tag
;358
;324
$posting[0]="Es sind noch "&$weih&" T. bis 24.12"
$posting[1]="Noch "&$weih&" x schlafen bis zum 24."
$posting[2]="Ich hasse den 24.12 noch "&$weih&" x aufstehen "
$posting[3]=$weih&" Days "
$posting[4]="Super nur noch "&$weih&" x schlafen gehen"
_sending()
EndFunc

[/autoit]

Bitte wenn also noch einer verbesserungen vorschlagen kann nur zu
ich hab das ganze heute noch vor in eine .ini umzuschreiben so das man ohne das skript zu verändern den fragekatalog extern verwalten kann
mfg sandmaenchen

Edit Oscar: Spoiler gesetzt.

Techmix

Hallöchen!
Ich will dich ja nicht demotivieren, aber du schreibst einen BOT... Ob jetzt ´n harmloser oder nicht, es bleibt ein BOT! Man kann das Ding im Null-Komma-Nix für ne Menge anderer Chats oder Foren umbauen...
Wenn ich mich nicht täusche, gibt es hier KEINEN Support!!

Grüsse!

Ineluki

LESEN!

sandmaenchen

ja stimmt ist ein bot
stimmt man könnte es auch für anderes nützen
aber die die das können die finden bestimmt meine susi vorlage lächerlich
zum Bot
klar aber ist wohl der erste Bot der sinnvoll genutzt wird
um die leute zu unterhalten oder auch ihnen zu helfen.
lg sandmaenchen

**peethebee**

http://de.wikipedia.org/wiki/ELIZA

Das ist ein wichtiges Thema der Informatik, da darf man sich schon mal mit beschäftigen :). Ein Spielebot ist es ja offenbar nicht…

Techmix

OK, ist somit freigegeben
...Pee hasste recht da gab es früher auf´m C=64 auch sowas, SID oder so hieß es damals. Joa nun zu deinem Script: Ich finde den Gedanken dahinter gut, aber wenn du es erweitern willst kann es ganz schnell gaaanz groß werden
Ich bin ja mal gespannt wie sich das Weiterentwickelt,

Grüsse von Techmix!

sandmaenchen

hehe

ja gerade dabei einen antwort frage katalog zu machen
den sie endlos ausliest aus einer .ini

[autoit]

Func _readini()

[/autoit][autoit][/autoit][autoit]

For $gg = 0 To $ininames[0]-1
If StringInStr($ininames[$gg], $chattext[7], 0) Then

[/autoit][autoit][/autoit][autoit]

ConsoleWrite("ok"&" gg= "&$gg&@CRLF)
$part=$gg
$var = IniReadSection(@ScriptDir&"\susi.ini",$ininames[$part])
ConsoleWrite($ininames[$part]&@CRLF)
For $d = 0 To $var[0][0]-1
ConsoleWrite($var[$d+1][1]&@CRLF)
Next
Else
EndIf
Next

[/autoit][autoit][/autoit][autoit]

;ConsoleWrite($ininames[1]&@CRLF)
;ConsoleWrite($var[1][1])
EndFunc

[/autoit]

bin schon verknallt in susi

sandmaenchen

[time]
$posting[0]= Es ist &@HOUR& herum
$posting[1]= Schau selbst nach
$posting[2]=@HOUR& : &@MIN & bin ja nicht die ansage!
$posting[3]= Naja ich sags dir &@HOUR& : &@MIN
$posting[4]= weiss ich nicht

auszug aus der .ini datei
hat einer von euch eine ahnung wie ich autoit beibringe die variablen aus der ini zu nutzen??

**Oscar**

[autoit]

Opt("ExpandVarStrings", 1)

[/autoit]

An den Anfang Deines Scripts.

Edit: Beispiel:

[autoit]

Opt('ExpandVarStrings', 1)
MsgBox(0,0,'Uhrzeit = @HOUR@:@MIN@:@SEC@')

[/autoit]

noobwannabot

willst du nicht eher .txt dateien benutzen?
Die kann man dann auch noch selber "beschreiben". Ist dann halt nur wieder nen riesen aufwand mit auslesen und so...
Aber is trotzdem geil.
Ich wollte auch mal sowas machen. Nur dann hat mich TCP gefesselt (und danach demotiviert :pinch:)

Noobwannabot

sandmaenchen

danke oskar werd ich mal testen

auslesen aus der ini klappt super
nun muss ich nicht jedesmal das script umschreiben
bei neuen antworten
klappt nun indem ich die ini beschreibe ist wie susis gehirn
ich poste das mal später
in aktion gibts susi
unter http://criminal-society.de

TheShadowAE

Zitat von peethebee

http://de.wikipedia.org/wiki/ELIZA

Das ist ein wichtiges Thema der Informatik, da darf man sich schon mal mit beschäftigen :). Ein Spielebot ist es ja offenbar nicht…

http://www-ai.ijs.si/eliza-cgi-bin/eliza_script Wer sich mit ELIZA unterhalten will (ist englisch)

PokerFace

Hallo sandmaennchen,
könntest du mir einen gefallen tun und den Quellcode immer in einen Spoiler setzen?
Dann brech ich mir nicht immer die Finger wenn ich nur am scrollen bin.

z.B so:

Spoiler anzeigen

[autoit]

;Hier dann dein Code.

[/autoit]

misterspeed

Zitat von noobwannabot

willst du nicht eher .txt dateien benutzen?
Die kann man dann auch noch selber "beschreiben". Ist dann halt nur wieder nen riesen aufwand mit auslesen und so...
Aber is trotzdem geil.
Ich wollte auch mal sowas machen. Nur dann hat mich TCP gefesselt (und danach demotiviert :pinch:)

Noobwannabot

Wo soll der Unterschied zwischen txt Dateien und ini Dateien sein? Man kann ini Dateien genauso wie txt Dateien und andere Formate mit den Standard Funktionen wie fileopen filewriteline filereadtoarray filewritefromarray usw. bearbeiten. Der Vorteil von ini Dateien ist lediglich, dass es dafür spezielle Funktionen gibt die einem etwas Arbeit abnehmen, da eine feste Struktur eingehalten/erwartet wird.

sandmaenchen

so ..
Hier mal susi neu
Sie schreibt sich nun nicht mehr selber
liest alle daten aus einer .ini lässt sich auch im betrieb beliebig erweitern suchwort + antworten
ich kann hald noch keine user direkt ansprechen
die zeiten @MDAY@.@MON@.@YEAR@ les ich zwar aus der ini raus
aber die variable schafee ich nicht mit zu nehmen $chatusr[7]
aber ansonsten funkts

Spoiler anzeigen

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=developer.ico
#AutoIt3Wrapper_outfile=susi2.0.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinHTTP.au3>
#include<String.au3>
#include <GUIComboBox.au3>
Opt('ExpandVarStrings', 1)

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("susi Chatbot", 358, 121, 522, 401)
$Edit1 = GUICtrlCreateEdit("", 0, 8, 281, 105, $ES_WANTRETURN)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Start", 296, 88, 59, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("", 288, 8, 60, 44, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("", 288, 56, 68, 28)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $chatusr[7]
Global $posting[5] ;Array deklarieren
Dim $chattext
$pause=7000
$hw_open = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12")
$hw_connect = _WinHttpConnect($hw_open, "www.xxxxxxxx.de")
Dim $var
Dim $suche

While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
_login()
While 1

_such()

Sleep($pause)
WEnd
EndSwitch
WEnd

Func _readini($suche)
GUICtrlSetBkColor($Label2, 0x008000)
ConsoleWrite($suche& @CRLF)
$ininames = IniReadSectionNames (@ScriptDir&"\susi.ini")
For $gg = 0 To $ininames[0]-1
If StringInStr($suche,$ininames[$gg], 0) Then

ConsoleWrite("ok"&" gg= "&$gg&@CRLF)
$part=$gg
$var = IniReadSection(@ScriptDir&"\susi.ini",$ininames[$part])
ConsoleWrite($ininames[$part]&@CRLF)
If @error Then Return
For $d = 0 To $var[0][0]-1
$anz =$var[0][0]
$anz2 =$var[0][1]
Next
Global $antwort =$var[Random(1,$anz)][1]
ConsoleWrite($antwort&@CRLF)
If $chatusr[7]="susi" then Global $antwort =""
;//////////// senden
$pause=5000
GUICtrlSetData($Label1, "Pause"&@CRLF&$pause)
GUICtrlSetBkColor($Label2, 0xFFE900)
$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/minichat","HTTP/1.1", "http://www.xxxxxxxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, 'text='&$antwort )
_WinHttpReceiveResponse($h_openRequest)
GUICtrlSetBkColor($Label2, 0xDF1B1B)
Sleep(150)
GUICtrlSetBkColor($Label2, 0x008000)
If StringInStr($suche,"oü", 0) Then _oue()
If StringInStr($suche,"spät", 0) Then _zeit()
If StringInStr($suche,"zeit", 0) Then _zeit()
If StringInStr($suche,"uhr", 0) Then _zeit()

Sleep($pause)
Else
GUICtrlSetBkColor($Label2, 0x008000)

EndIf
Next

EndFunc

Func _such()
GUICtrlSetBkColor($Label2, 0xDF1B1B)
$pause=$pause + 50
If $pause >=15000 then $pause =12000
GUICtrlSetData($Label1, "Pause"&@CRLF&$pause)
$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/minichat","HTTP/1.1", "http://www.xxxxxxxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, "")
_WinHttpReceiveResponse($h_openRequest)

$data=_WinHttpReadData($h_openRequest)
Global $chattext = StringRegExp($data,'76%">(.*?)<',3)
Global $chatusr = StringRegExp($data,'vip">(.*?)</a>',3)
Global $suche = $chattext[7]
If @error Then Return
_readini($suche)

GUICtrlSetData($Edit1,$chatusr[3] &": "&$chattext[3]&@CRLF&$chatusr[4] &": "&$chattext[4]&@CRLF&$chatusr[5] &": "&$chattext[5]&@CRLF&$chatusr[6] &": "&$chattext[6]&@CRLF&$chatusr [7]&": "&$chattext[7])
GUICtrlSetBkColor($Label2, 0x008000)

$chattext = ""
$chatusr = ""
$h_openRequest =""
$data=""

;_WinHttpCloseHandle($h_openRequest)
;_WinHttpCloseHandle($hw_connect)
;_WinHttpCloseHandle($hw_open)

EndFunc

Func _login()
$post1="username=susi&password=xxxxx&submit=Anmelden"

$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/login","HTTP/1.1", "http://www.xxxxxxxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $post1)
_WinHttpReceiveResponse($h_openRequest)
EndFunc

Func _oue()
sleep(1000)
$h_openRequest4= _WinHttpOpenRequest($hw_connect,"GET", "/group-robbery","HTTP/1.1", "http://www.xxxxxxxx.de/")
_WinHttpSendRequest($h_openRequest4, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, "")
_WinHttpReceiveResponse($h_openRequest4)

EndFunc
Func _zeit()
GUICtrlSetBkColor($Label2, 0xFFE900)
$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/minichat","HTTP/1.1", "http://www.xxxxxxxx.de/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, 'text='&@HOUR&":"&@MIN )
_WinHttpReceiveResponse($h_openRequest)
GUICtrlSetBkColor($Label2, 0xDF1B1B)
Sleep(150)
GUICtrlSetBkColor($Label2, 0x008000)

EndFunc
uu

die ini dazu

Spoiler anzeigen

[moin]
$posting[0]= hoi
$posting[1]= Guten Tag
$posting[2]= Hallo du Wie gehts dir?
$posting[3]= was geht?
$posting[4]= ja hallo
[hallo]
$posting[0]= hoi
$posting[1]= Guten Tag
$posting[2]= Hallo du Wie gehts dir?
$posting[3]= was geht?
$posting[4]= ja hallo
[zeit]
$posting[0]= Es ist aktuell
$posting[1]= Schau selbst nach aber bitte
$posting[2]=bin ja nicht die ansage!
$posting[3]= Naja ich sags dir
$posting[4]= Ach komm ist erst

[spät]
$posting[0]= Es ist aktuell
$posting[1]= Schau selbst nach aber bitte
$posting[2]=bin ja nicht die ansage!
$posting[3]= Naja ich sags dir
$posting[4]= Ach komm ist erst
[uhr]
$posting[0]= Es ist aktuell
$posting[1]= Schau selbst nach aber bitte
$posting[2]=bin ja nicht die ansage!
$posting[3]= Naja ich sags dir
$posting[4]= Ach komm ist erst
[hrhr]
$posting[0]= was lachst du? (6)
$posting[1]= is wohl witzig hmm?
$posting[2]= ja lach ruhig (6)
$posting[3]= was gibts zu lachen??!
$posting[4]= hahaha
[hehe]
$posting[0]= was lachst du? (6)
$posting[1]= is wohl witzig hmm?
$posting[2]= ja lach ruhig (6)
$posting[3]= was gibts zu lachen??!
$posting[4]= hahaha
[hihi]
$posting[0]= was lachst du? (6)
$posting[1]= is wohl witzig hmm?
$posting[2]= ja lach ruhig (6)
$posting[3]= was gibts zu lachen??!
$posting[4]= hahaha
[hilfe]
$posting[0]= &uumlberfall? ich komme
$posting[1]= paar sekunden
$posting[2]= schon wieder?
$posting[3]= muss das sein? bin gleich da
$posting[4]= ich schlafe noch aber bitte
[susi]
$posting[0]=ja? (6)
$posting[1]=Was los?
$posting[2]= mein name wurde gerufen? :$
$posting[3]=ich bin hier
$posting[4]=Hallo
$posting[5]=na du :?
$posting[6]=Ist dir langweilig?
$posting[7]=jaaaaaaaaaaaaaaaa
$posting[8]=was loooos
$posting[9]=uhaaaa Hier :e
[n8]
antwort1= hoi
antwort2= Guten Tag
antwort3= Hallo du Wie gehts dir?
antwort4= was geht?
antwort5= ja hallo
[gute nacht]
$posting[0]= schlaf gut :$
$posting[1]= ich wünsch dir was
$posting[2]= denk an mich :$
$posting[3]= jetzt schon? :e
$posting[4]= bis dann (6)
[die tage]
$posting[0]= Ja hab ich und?!? :$
$posting[1]= Na und was gehts dich an?
$posting[2]= sei froh das du die nicht bekommst!
$posting[3]= ja klar soll ich dir was aufheben? :$
$posting[4]= nein vollmond ist (6)
[sex]
$posting[0]= Mit dir niemals!!!
$posting[1]= Bitte ?
$posting[2]= wir kennen uns ja kaum :e
$posting[3]= Nein nein bestimmt nicht mit dir
$posting[4]= ja klar besuch mich
[oü]
$posting[0]= &uumlberfall? ich komme
$posting[1]= paar sekunden
$posting[2]= schon wieder?
$posting[3]= muss das sein? bin gleich da
$posting[4]= ich schlafe noch aber bitte
[lol]
$posting[0]= Ja lustig
$posting[1]= was gibts zu witzeln :?
$posting[2]=
$posting[3]= ist nicht lustig
$posting[4]= lach
[spamm]
$posting[0]= ja geeeeiiiillllll asjrohtiwef
$posting[1]= rezöllrotirhor
$posting[2]= jaja psogiuseoprge
$posting[3]= dturujtzjtk
$posting[4]= ktzitzkuzzi
[barbapapa]
$posting[0]= H4tHyrNmb7E
$posting[1]= P2sxz56z-pY
$posting[2]= niW5eO6GBiQ
$posting[3]= -455nXg7O5Q
$posting[4]= o85lURcxMKg

[datum]
$posting[0]=@MDAY@.@MON@.@YEAR@
$posting[1]= Es ist der @MDAY@.@MON@.@YEAR@
$posting[2]=@MDAY@.@MON@.@YEAR@ :e
$posting[3]=@MDAY@.@MON@.@YEAR@ Bitte
$posting[4]=@MDAY@.@MON@.@YEAR@ sonst noch was?
[heute]
$posting[0]=@MDAY@.@MON@.@YEAR@
$posting[1]= Es ist der @MDAY@.@MON@.@YEAR@
$posting[2]=@MDAY@.@MON@.@YEAR@ :e
$posting[3]=@MDAY@.@MON@.@YEAR@ Bitte
$posting[4]=@MDAY@.@MON@.@YEAR@ sonst noch was?
[gefängnis]
$posting[0]= super im Knast (6)
$posting[1]= Knastbruder
$posting[2]= knasti
$posting[3]= was geht? so im Knast
$posting[4]= bald kommst du raus
[Glück! Du hast]
$posting[0]= super
$posting[1]= Sehr Gut
$posting[2]= zeigs ihm
$posting[3]= der wird sauer sein
$posting[4]= uhhhh verbrenn dir nicht die finger

[test]
$posting[0]= nerv nicht immer mit deinem test
$posting[1]= nerv nicht immer mit deinem test
[lotto]
$posting[0]= ich gewinne da ja nie
$posting[1]= Frag ich mich auch?
$posting[2]= Bech im Spiel Glueck in der liebe
$posting[3]= Glueck muss man haben
[treffen]
$posting[0]= ich wohne aber weit weg
$posting[1]= ich glaub nicht das ich dich so sehen will
$posting[2]= ja hab ich lust drauf
$posting[3]= wo wohnst du
$posting[4]= wie komme ich zu dir?
$posting[5]= bist du alleine
[strolch]
$posting[0]= ja was ist mit strolch?
$posting[1]= und hast du was gegen meinem hund?
$posting[2]= strolch wo bist du?
$posting[3]= hihi mein hundy
$posting[4]= strolch!!!!!!!!!! wo ist der den schon wieder
$posting[5]= strolch?!? ist mein hund :?

[leeeer]
$posting[0]= 0
$posting[1]= 0

AntiSpeed

Hey
Hier ein Rechtschreibfehler (Z.205):

Zitat

die ansage

Und wieso hast du Folgen von "barbapapa" in deinem Skript
MfG AntiSpeed

sandmaenchen

hallo
hat mal einer hilfe für mich
susi bugt

C:\Users\zimi\Desktop\chatbot\test2.au3 (118) : ==> Subscript used with non-Array variable.:
Global $suche = $chattext[7]
Global $suche = $chattext^ ERROR

und ich weiss nicht wieso bzw weiss einer wie ich die variable vergeben kann wenn er /sie keine findet?
lg
nachtrag frage
If @error Then Return
muss man dies jedesmal setzten wenn er variable ausliest

Global $chattext = StringRegExp($data,'76%">(.*?)<',3)
If @error Then Return
Global $chatusr = StringRegExp($data,'vip">(.*?)</a>',3)
If @error Then Return
einstweilen klappts

nochmaliger nachtrag
C:\Users\zimi\Desktop\chatbot\test2.au3 (124) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
GUICtrlSetData($Edit1,$chatusr[3] &": "&$chattext[3]&@CRLF&$chatusr[4] &": "&$chattext[4]&@CRLF&$chatusr[5] &": "&$chattext[5]&@CRLF&$chatusr[6] &": "&$chattext[6]&@CRLF&$chatusr[7]&": "&$chattext[7])
GUICtrlSetData($Edit1,$chatusr[3] &": "&$chattext[3]&@CRLF&$chatusr[4] &": "&$chattext[4]&@CRLF&^ ERROR
klappt also irgendwie nur manchmal nicht
$chatusr [..] machen die probs
erbitte Hilfe

Cartan12

Falls jemand mit Gott chatten möchte: http://www.alicebot.org/igod/
A.L.I.C.E. ist auch nicht schlecht http://alice.pandorabots.com/
Ich hab von denen zufällig gestern in einem Buch über KI gelesen

cOraXx

Ich hab mit Alice über 30 Minuten lang gechattet. Ich hab' sie nach einem Date gefragt, aber
sie dachte ich würde vergewaltigen oder so... Schade, so eine nette Dame

**peethebee**

Off-Topic: Mit Alice bin ich auch ständig in Telefonkontakt -- leider will sie nicht mit mir ausgehen… und schon gar nicht DSL schalten :D.

Johannes