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
Beiträge von 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 = ^ ERRORich 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 nichtDanke 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 -
hallo
hat mal einer hilfe für mich
susi bugtC:\Users\zimi\Desktop\chatbot\test2.au3 (118) : ==> Subscript used with non-Array variable.:
Global $suche = $chattext[7]
Global $suche = $chattext^ ERRORund 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 ausliestGlobal $chattext = StringRegExp($data,'76%">(.*?)<',3)
If @error Then Return
Global $chatusr = StringRegExp($data,'vip">(.*?)</a>',3)
If @error Then Return
einstweilen klapptsnochmaliger 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 -
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 funktsSpoiler 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 $sucheWhile 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
_login()
While 1_such()
Sleep($pause)
WEnd
EndSwitch
WEndFunc _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) ThenConsoleWrite("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
NextEndFunc
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)
EndFuncFunc _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
uudie 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]= überfall? 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]= überfall? 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 -
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 -
[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 nichtauszug aus der .ini datei
hat einer von euch eine ahnung wie ich autoit beibringe die variablen aus der ini zu nutzen?? -
hehe
ja gerade dabei einen antwort frage katalog zu machen
[autoit]
den sie endlos ausliest aus einer .iniFunc _readini()
[/autoit][autoit][/autoit][autoit]For $gg = 0 To $ininames[0]-1
[/autoit][autoit][/autoit][autoit]
If StringInStr($ininames[$gg], $chattext[7], 0) ThenConsoleWrite("ok"&" gg= "&$gg&@CRLF)
[/autoit][autoit][/autoit][autoit]
$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;ConsoleWrite($ininames[1]&@CRLF)
[/autoit]
;ConsoleWrite($var[1][1])
EndFuncbin schon verknallt in susi
-
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 -
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 gutJedoch 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 pausesusi:
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#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 ###$data=""
[/autoit] [autoit][/autoit] [autoit]
_login()While 1
[/autoit] [autoit][/autoit] [autoit]$nMsg = GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
[/autoit] [autoit][/autoit] [autoit]
While 1
_such()Sleep($pause)
[/autoit] [autoit][/autoit] [autoit]
WEnd
EndSwitch
WEndFunc _such()
[/autoit] [autoit][/autoit] [autoit]
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()If StringInStr($chattext[7], "weihnacht", 0) Then _weihnacht()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If StringInStr($chattext[7], "24.12", 0) Then _weihnacht()
If StringInStr($chattext[7], "christkind", 0) Then _weihnacht()$chattext = ""
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$chatusr = ""
$h_openRequest =""
$data="";_WinHttpCloseHandle($h_openRequest)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;_WinHttpCloseHandle($hw_connect)
;_WinHttpCloseHandle($hw_open)EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _login()
[/autoit] [autoit][/autoit] [autoit]
$post1="username=susi&password=xxxxx&submit=Anmelden"$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/login","HTTP/1.1", "http://www.xxxxxx.de/")
[/autoit] [autoit][/autoit] [autoit]
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $post1)
_WinHttpReceiveResponse($h_openRequest)
EndFuncFunc _loginstrubi()
[/autoit] [autoit][/autoit] [autoit]
$post2="username=strubi&password=xxxxx&submit=Anmelden"$h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/login","HTTP/1.1", "http://www.xxxxxx.de/")
[/autoit] [autoit][/autoit] [autoit]
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $post2)
_WinHttpReceiveResponse($h_openRequest)
EndFuncFunc _lol()
[/autoit] [autoit][/autoit] [autoit]
$posting[0]="Ja lustig"
$posting[1]="was gibts zu witzeln :? "&$chatusr[7]
$posting[2]=":)"
$posting[3]="ist nicht lustig :("
$posting[4]="lach :)"
_sending()
EndFuncFunc _tage()
[/autoit] [autoit][/autoit] [autoit]
$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()
EndFuncFunc _n8()
[/autoit] [autoit][/autoit] [autoit]
$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()
EndFuncFunc _susi()
[/autoit] [autoit][/autoit] [autoit]
$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()
EndFuncFunc _hehe()
[/autoit] [autoit][/autoit] [autoit]
$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()
EndFuncFunc _oue()
[/autoit] [autoit][/autoit] [autoit]
$posting[0]="überfall? "&$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)$h_openRequest5= _WinHttpOpenRequest($hw_connect,"POST", "/group-robbery","HTTP/1.1", "http://www.xxxxxxxxxxxxxx.de/group-robbery")
[/autoit] [autoit][/autoit] [autoit]
_WinHttpSendRequest($h_openRequest5, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8"& @CRLF, "")
_WinHttpReceiveResponse($h_openRequest5)
$data2=_WinHttpReadData($h_openRequest5)
ConsoleWrite($data2)EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _moin()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$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)
EndFuncFunc _sex()
[/autoit] [autoit][/autoit] [autoit]
$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()
EndFuncFunc _barbapapa()
[/autoit] [autoit][/autoit] [autoit]$posting[0]="[media]H4tHyrNmb7E[/media]"
[/autoit] [autoit][/autoit] [autoit]
$posting[1]="[media]P2sxz56z-pY[/media]"
$posting[2]="[media]niW5eO6GBiQ[/media]"
$posting[3]="[media]-455nXg7O5Q[/media]"
$posting[4]="[media]o85lURcxMKg[/media]"
_sending()ConsoleWrite("youtoube")
[/autoit] [autoit][/autoit] [autoit]
EndFuncFunc _datum()
[/autoit] [autoit][/autoit] [autoit]
$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()
EndFuncFunc _knast()
[/autoit] [autoit][/autoit] [autoit]
$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()
EndFuncFunc _glueck()
[/autoit]
$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()
EndFuncBitte 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 sandmaenchenEdit Oscar: Spoiler gesetzt.
-
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 nichtund 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 skriptsrein nur ums popup
wenn du es nicht weisst erspare dir also dein kommentardanke für alle mal die geholfen haben
sandmaenchen Ende -
lol
ich habs mal bisschen abgeändert
ist kein bot soll aber auch keiner werden
nutze diese seite nur weil ich mich da gut auskenneis aber nur ein wurst brot käse käufer
-
-
kann hier den keiner helfen?
hab echt schon alles durch forstet
nichts dergleichen funktionierteCode
Alles anzeigen>>>> 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 <<<<
Hier mal ausgelessen der button
Bitte bitte bitte
wie bekomme ich dieses blöde dings weg -
-
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
[autoit]
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][autoit][/autoit][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)_IEFormSubmit($drform)
[/autoit]
;dannach kommt das Popup
anklicken tu ich das ganze so -
Hallo alle
Nun sitz ich ja schon wochen vor autoit
kenn bestimmt schon jeden foreneintrag
nur eines hab ich noch immer nicht hinbekommenEs geht darum einen Link auf einer internet seite anzuklicken
der ein Popup auslöst
[autoit]
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")
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 hilfenmeine nächste Frage
Lassen sich Frames ansteuern?
Frame 1, 2,3,4,5,6,
und wenn ja lassen die sich auslessen? -
Danke dnke danke danke danke danke danke
-
sehr geil
N24 lässt sich super einbinden -
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
[autoit]
ging ja nur um die while schleife
ob man aus der wieder mit einen button kommt.
[/autoit][autoit][/autoit][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
EndIfWEnd
[/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 -
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ß
Pretrojanerna mach das ja erst 2 wochen
learning by doing
Die welt wurd auch nicht in sekunden geschaffen
aber untergehen gg