Beiträge von sandmaenchen

sandmaenchen

danke den fehler schon gefunden
$chatusr = StringRegExp($data,'vip">(.*?)</a>',3)
damit lese ich den CHatusr aus
VIP sind die die credits gebucht haben und da das nicht alle machen
stürzte susi jedesmal ab.
Also susi läuft und läuft und l.....
live unter http://criminal-society.de

sandmaenchen

C:\Users\zimi\Desktop\chatbot\test2.au3 (135) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
Global $user = $chatusr[7]
Global $user = ^ ERROR

ich verzweifle
ich hab nun stunden herum geschrieben aber den fehler bekomme ich nicht weg
manchmal funktionierts 12 Stunden und manchmal kann ich nichtmal starten.

Erbitte Hilfe
Global $chatusr = StringRegExp($data,'vip">(.*?)</a>',3)
ich lese per tcp aus dem Chat aus
hie und da funkt das aber nicht

Danke mal für jede hilfe wäre schade wenn mir die lust an susi wegen slcher fehler genommen wird
Irgendwie is auch was kommisch immer wenn susi im chat beleidigt wird funktioniert sie so eine halbe std nicht
ich glaub sie leeebt

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

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

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

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??

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

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

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.

sandmaenchen

ok
ich geb auf
nun sitz ich seid 2 monaten hier und beschäftige mich mit autoit
is recht net das prog
und kann vieles aber ein normales Popup anklicken
das kann es nicht

und an alle die meinen sie möchten nicht helfen weil keine Bot unterstützung
fettes lol von meiner seite
aber ich will dich auch nicht heiraten
es ging weder um das skript noch um die funktion des skripts

rein nur ums popup
wenn du es nicht weisst erspare dir also dein kommentar

danke für alle mal die geholfen haben
sandmaenchen Ende

sandmaenchen

lol
ich habs mal bisschen abgeändert
ist kein bot soll aber auch keiner werden
nutze diese seite nur weil ich mich da gut auskenne

is aber nur ein wurst brot käse käufer

sandmaenchen

gelöscht

sandmaenchen

kann hier den keiner helfen?

hab echt schon alles durch forstet
nichts dergleichen funktionierte

Code

>>>> Window <<<<
Title:	Windows Internet Explorer
Class:	#32770
Position:	923, 525
Size:	207, 126
Style:	0x94C801C5
ExStyle:	0x00010101
Handle:	0x00C906B8


>>>> Control <<<<
Class:	Button
Instance:	1
ClassnameNN:	Button1
Advanced (Class):	[CLASS:Button; INSTANCE:1]
ID:	2
Text:	OK
Position:	63, 60
Size:	75, 23
ControlClick Coords:	51, 11
Style:	0x50030000
ExStyle:	0x00000004
Handle:	0x0013083C


>>>> Mouse <<<<
Position:	1040, 625
Cursor ID:	0
Color:	0xB0B0B0


>>>> StatusBar <<<<

Alles anzeigen

Hier mal ausgelessen der button
Bitte bitte bitte
wie bekomme ich dieses blöde dings weg

sandmaenchen

Zitat von sandmaenchen

Push

sandmaenchen

Zitat von SEuBo

Falscher Fenstername, Falscher Fenstertext.
1. warum benutzt du keinen TimeOut Parameter bei WinWait
2. Warum öffnest du den Popup nicht per _IENavigate? Dann hast du direkt durch den Wait Parameter von IENavigate die richtige Wartezeit. Oder lieg ich da falsch?

PS: Schreibst du so groß, damit man dir mehr Aufmerksamkeit schenkt?

Danke mal für die antwort
schreib so goss weil ich an einem 23 zoll Bildschirm häng
ähhm mir kommts nicht so gross vor
aber dank mal für die antwort
1 Timeout = soll ja nicht weiterspringen wenn er das popup nicht anklickt
2

[autoit]

$oIE.navigate("http://dieseite/klickmich.htm)
_IELoadWait($oIE)
;darauf ein Button den ich hiermit anklicke
$drform = _IEFormGetCollection ($oIE, 2)
$drQuery = _IEFormElementGetCollection ($drform, 5)
_IEFormElementSetValue ($drQuery,500 );wert den ich dort eintrage
Sleep (500)

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

_IEFormSubmit($drform)
;dannach kommt das Popup

[/autoit]

anklicken tu ich das ganze so

sandmaenchen

Hallo alle

Nun sitz ich ja schon wochen vor autoit
kenn bestimmt schon jeden foreneintrag
nur eines hab ich noch immer nicht hinbekommen

Es geht darum einen Link auf einer internet seite anzuklicken
der ein Popup auslöst

das Blöde darann ist wenn das popup kommt steht autoit

[autoit]

WinWait("Windows Internet Explorer", "Du hast geklickt.")
ControlClick("Windows Internet Explorer", "Du hast geklickt.", "Button1")

[/autoit]

Warum Autoit steht ist mir auch klar
WinWait
aber was könnte ich falsch gemacht haben das autoit das Popup nicht erkennt?
auch mit Enter könnte man das Popup schliessen
send..enter usw aber das klappt ja nicht
den sobald das popup ja kommt steht alles
Danke schon mal für hilfen

meine nächste Frage
Lassen sich Frames ansteuern?
Frame 1, 2,3,4,5,6,
und wenn ja lassen die sich auslessen?

sandmaenchen

Danke dnke danke danke danke danke danke

sandmaenchen

sehr geil

N24 lässt sich super einbinden

sandmaenchen

Zitat von pretrojaner

na klammer doch erst mal alles aus was nicht unbedingt zu gui gehört indem du ein ; davor setzt.

tip: die quellen im internet existieren nicht !

ja wie geschrieben hatte es ja soweit fürs forum geändert
ging ja nur um die while schleife
ob man aus der wieder mit einen button kommt.

[autoit]

if $suche=$search Then
$oIE.navigate("http://haushaltsbuch.de/index.es?action=internalbuchaction=internalnjamnjam&sid="&$sid)
_IELoadWait($oIE)
Global $guardp = Random(5, 30, 1)
Sleep($guardp&"000")
TrayTip("Alles OK ","Fressen steht bereit" & @CRLF & "Neue Suche in: "&$guardp&" Sekunden",$guardp)
Else
$oIE.navigate("http://haushaltsbuch.de/index.es?action=internalbuch&subaction=activateessenProtection&sid="&$sid)
MsgBox("!!!! kein gutes Essen !!!","Mach den offen aus",60)
ExitLoop
EndIf

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

WEnd

[/autoit]

also das funkt ja alles
er findet das gesuchte wort
nur wenn er es nicht findet
möchte ich es auch doch noch stoppen können

sandmaenchen

Zitat von pretrojaner

Nun im Grunde hat SEuBo in ALLEN seinen punkten Absolut recht.

den Fehler hatte ich z.b. schnell gefunden, und das nur mit dem wissen was beim selber Scripten zu Stande kommt . Glaub mir so viel weis ich noch nicht, Scripte auch erst seit ein par Monaten, und habe keinerlei andere programier oder script Erfahrung.

ich glaube aber das selbst du mit deinem jetzigen wissen es schaffen solltest den Fehler selbst zu finden, denn selbst das zusammenkopieren von script elementen, setzt zumindest vorraus die Autoit sprache in seinen Grundzügen erkannt zu haben.

also, mal frisch ans werk und "learning by doing".

Du kommst sicher selber drauf !!

Gruß
Pretrojaner

Alles anzeigen

na mach das ja erst 2 wochen
learning by doing
Die welt wurd auch nicht in sekunden geschaffen
aber untergehen gg

Beiträge von sandmaenchen

Chatbot Susi

Chatbot Susi

Chatbot Susi

Chatbot Susi

Chatbot Susi

Chatbot Susi

Chatbot Susi

Chatbot Susi

Chatbot Susi

java Popup kommt und autoit steht & Frames

java Popup kommt und autoit steht & Frames

java Popup kommt und autoit steht & Frames

java Popup kommt und autoit steht & Frames

java Popup kommt und autoit steht & Frames

java Popup kommt und autoit steht & Frames

java Popup kommt und autoit steht & Frames

möchte auch die file base nutzen

MyOnlineTelevision(Jetzt im Projekt bereich)

Mein zickiges kleines Proggi und der weg seines absturzes

Mein zickiges kleines Proggi und der weg seines absturzes