JavaScript_Freek Posted August 3, 2006 Share Posted August 3, 2006 expandcollapse popupmsgbox(0,"","SlaveBot created in autoIt by Xantios ") ;X-Warez SlaveBot irc SlaveBot ! ;$back = stringmid($Recv,$instr+18) TCPStartup( ) $socket = tcpconnect("127.0.0.1",6667) TCPSend($socket, "NICK " & "SlaveSlaveBot" & @CRLF) sleep(500) TCPSend($socket, "USER " & "SlaveSlaveBot" & " 0 0 :" & "SlaveSlaveBot" & @CRLF) sleep(500) tcpsend($socket, "OPER "&"Invalid_Username"&" "&"soccer"&@crlf) tcpsend($socket, "JOIN "&"#aSlaveBotnoob"&@crlf) sleep(1000) tcpsend($socket, "MODE "&"#aSlaveBotnoob"&" +o SlaveBotNAME"&@crlf) sleep(1200) ;tcpsend($socket,"PRIVMSG #SlaveBot SlaveBot is de gekstuhhhh !"&@crlf) while 1 $recv = tcprecv($socket,1024*5) if $recv <> "" then $PingP = StringInStr($recv, "ping :") ; Check of there is a ping If $PingP = 1 Then ; Checks the output of command here alow $PongM = StringMid($recv, $PingP) ; Get the return value $pongT = StringInStr($pongM, @CRLF) ; Checks of this is the only one If $pongT = 0 Then $pongT = "" ; Checks the output of command here alow $pong = "pong :" & StringMid($pongM, 7, $pongT) ; Create the pong message TCPSend($socket, $pong & @CRLF) ; Send the pong ;tcpsend($socket, "PRIVMSG #SlaveBot ik heb een pong gestuurt !"&@crlf) ;Traytip("SlaveBot","Er is een PONG gestuurt :-) ",5) ; Shows a tooltip that the pong message is send ; word wel irritant hoor :-) endif endif ;if stringinstr($recv,"KICK #SlaveBot") Then ;Tcpsend($socket,"JOIN #SlaveBot"&@crlf) ;tcpsend($socket,"PRIVMSG #SlaveBot Gij zult de SlaveBot niet kicken !"&@crlf) ;tcpsend($socket, "MODE "&"#SlaveBot"&" +o SlaveBot"&@crlf) ;endif if stringinstr($recv,"!help") Then tcpsend($socket, "PRIVMSG #SlaveBot Typ !help voor hulp of probeer !posts om het aantal posts op X-warez te bekijken :-)"&@crlf) EndIf if StringInStr($recv,":!Posts") Then $oldcount = 0 $postcount = 0 inetget("http://www.X-Warez.nl/index.php","c:\Temp.php",1,0) $Size = FileGetSize("c:\Temp.php") $read = FileRead("C:\Temp.php",$size-5) if stringinstr($read,"Onze leden hebben een totaal van ") Then $Full = stringmid($read,stringinstr($read,"Onze leden hebben een totaal van")) $read = $Full $Start = stringinstr($read,"<b>") $End = stringinstr($read,"</b>") $oldcount = $postcount $PostCount = stringmid($read,$start+3,$end-$start-3) endif tcpsend($socket, "PRIVMSG #SlaveBot het aantal posts op X-Warez.nl " &$postcount &@crlf) endif if stringinstr($recv,"PRIVMSG #SlaveBot os !test") Then TCPSend($socket,"PRIVMSG #SlaveBot blaatneger") endif if stringinstr($recv,"KICK #SlaveBot SlaveBot") Then Tcpsend($socket,"JOIN #SlaveBot"&@crlf) $instr = stringinstr($recv,"!") $OpName = stringmid($recv,2,$instr-2) tcpsend($socket,"PRIVMSG #SlaveBot"&" "&$Opname&" jij hebt mij gekickt ! , die krijg je terug !"&@crlf) tcpsend($socket, "MODE "&"#SlaveBot"&" +o SlaveBot"&@crlf) tcpsend($socket,"KILL "&$Opname&" Je mag de SlaveBot niet kicken !"& @crlf) endif if stringinstr($recv,"JOIN :#SlaveBot") Then $instr = stringinstr($recv,"!") $OpName = stringmid($recv,2,$instr-2) ;$dildo = stringinstr($opname,":") ;$naampie = stringmid($opname,30,$dildo) ;75 ! $bef = stringmid($opname,78) tcpsend($socket,"PRIVMSG #SlaveBot welkom in #SlaveBot "&$bef &"hier word de X-Warez SlaveBot gemaakt door os , met dank aan Jaenster !"&@crlf) endif $logje = 0 if stringinstr($recv,"SlaveBot")then if $logje = 0 then filewrite("hoerenkut.txt","Log van: " &@mon&" " &@WDAY &" " &@HOUR &":" &@MIN &@CRLF) endif FileWrite("hoerenkut.txt",$recv) $logje = 1 EndIf if stringinstr($recv,"PRIVMSG SlaveBot :hoi") Then ; volledige commando is :os!os@127.0.0.1 PRIVMSG SlaveBot :hoi $bijna = stringsplit($recv,"!") $helemaal = stringtrimleft($bijna[1],1) $naam = $helemaal ;msgbox(0,"test","naam is: " &$naam) ;Je kunt ook StringSplit(volledige commando, "!") gebruiken ;en dan de eerste variable samen met StringTrimLeft(commando,1); ;$totaal = StringLen($recv) ; msgbox(0,"","totaal is: " &$totaal); totaal als naam os is 50 ; $split1 = stringmid($recv,2,$totaal - 20) tcpsend($socket,"PRIVMSG "&$naam &" hallo "&@CRLF) tcpsend($socket,"MSG "&$naam &" blaat" &@CRLF) EndIf ;FileWrite("ontang log.txt",$recv &@crlf) sleep(200) WEnd That is the code for my bot. How do I upload it to my channel. (#abotnoob) Thanks in advanced. [center]Cookyx.com :: Simple LAN Chat[/center] Link to comment Share on other sites More sharing options...
nfwu Posted August 7, 2006 Share Posted August 7, 2006 What do you mean by "upload"? #) TwitterOut of date stuff:Scripts: Sudoku Solver | Webserver | 3D library (Pure AutoIt) | Wood's GadgetsUDFs: _WoodUniqueID() | _DialogEditIni() | _Console*() | _GetIPConfigData() | _URLEncode/Decode() Link to comment Share on other sites More sharing options...
{NL}--Xantios--- Posted September 21, 2006 Share Posted September 21, 2006 Thnx for leaving the credit's in my script :-) you cant upload it , you just run it as an client , i dont know if you can run executable's on your server , i dont think so , but if you can , then upload it , and done :-) Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now