Sign in to follow this  
Followers 0
BinaryBrother

Automated MSN

5 posts in this topic

#1 ·  Posted (edited)

This thing is a real piece of work... :D

I put a little time into making it, just to do it... Now that I'm done, I'm not going to keep it long, but if you want.. you can play with it for a few days maybe... lol

Running Bot: ERN-Torrents@Live.com

I did not specifically design this to be used for piracy, and you will be blocked from my Bot if you attempt to do so... There are indeed MANY different reasons to use a 'torrent' network legally... I just wanted a 'very' simple learning exorcise to show how easy it would be to use MSN, then it turned into a searching bot, then a friend says.. "Hey can you do this... etc.." and it turned into a bot that searches for torrents on Demonoid, and sends them to you. I've reviewed Demonoid's TOS, and the only thing I found, was copying the content or 'stealing' it without permission... This script doesn't do that...

If for any-reason this topic goes the wrong way, which I'm hoping it won't, I'll [EDIT] the example out myself.

The "UrbanTerror" listed as the default search suggestion, is a free multiplayer first person shooter video game by Frozen Sand.

This script shows you examples of how to use the IE, ScreenCapture, and INet UDF's, maybe not very well... but it was a nice learning experience. Yes, I also know that you shouldn't call functions like that, and should be shot for doing so if your trying to make anything 'real'... I just wanted a quick and dirty proof of concept... :(

Oh, not to mention I finally figured out Regular Expressions with this script, what was giving me a hard time for-ever! ;)

The bot has so many limitations it isn't funny... No really.. It's not funny.. :P

I also ran this thing from inside a virtual machine, as it doesn't work well with more than one Messenger running.

Tested on MSN Messenger 7.0 (Requires only Minor changes)

Tested on Windows Live Messenger 8.5 (Currently working)

There is no way in my program to initiate a conversation, so this isn't for you wanna-MSN-bomber peeps... :unsure:

Anyway... lol. Here it is...

#include <String.au3>
#include <INet.au3>
#include <IE.au3>
#include <ScreenCapture.au3>
Opt("SendKeyDelay", 10)
Opt("SendKeyDownDelay", 20)

$FormLogin = "http://www.demonoid.com/account_handler.php"
$IE = _IECREATE($FormLogin, 0, 0)
$Form = _IEFORMGETCOLLECTION($IE, 0)
$UsernameField = _IEFORMELEMENTGETOBJBYNAME($Form, "nickname")
$PasswordField = _IEFORMELEMENTGETOBJBYNAME($Form, "password")
;$Submit = _IEGETOBJBYNAME($OIE, "Submit")
_IEFORMELEMENTSETVALUE($UsernameField, '**USERNAME**')
_IEFORMELEMENTSETVALUE($PasswordField, '**PASSWORD**')
;_IEACTION($Submit, "click")
_IEFormSubmit($Form,1)

IEKill()

Global $Clip
Global $Count
Global $Title
Global $Vocal
Global $Cap
$Clip = "Empty"
Wait4Request()
Func Wait4Request()
While 1
    If WinExists("[CLASS:IMWindowClass]") Then
        IEKill()
        $Title = WinGetTitle("[CLASS:IMWindowClass]")
        _AutoBot()
        CleanOut()
    Else
        Sleep(1000)
    EndIf
    If WinExists("Windows Live Messenger", "can make yourself appear offline temporarily") Then
        ControlClick("Windows Live Messenger","can make yourself appear offline temporarily",1)
    EndIf
    
WEnd
EndFunc
Func _AutoBot()
    If Not WinActive($Title) Then
        WinActivate($Title)
        WinSetState($Title, "", @SW_MAXIMIZE)
    EndIf
    If Not WinGetState($Title) = 32 Then
        WinSetState($Title, "", @SW_MAXIMIZE)
    EndIf
    $Pos = WinGetPos($Title)
    MouseClick("primary", $Pos[0]+600, $Pos[1]+300, 1, 20)
    Sleep(1000)
    send("^a")
    Sleep(1000)
    send("^c")
    Sleep(1000)
    $Clip = ClipGet()
    $Clip = _StringBetween($Clip,"<",">",-1,1)
    If IsArray($Clip) Then
        If StringInStr($Clip[0],"help") = True Then
            Send('You can use our service for "torrent" searching... Just type your search between "<" & ">" Tags{ENTER}')
            Sleep(1000)
            Send("Ex. <UrbanTerror>{ENTER}")
            Sleep(1000)
            WinClose($Title)
        Else
            Send('Searching for most popular "' & $Clip[0] & '" Demonoid torrent now...{ENTER}')
            $Index = _INetGetSource("http://www.demonoid.com/files/?category=0&subcategory=All&quality=All&seeded=0&external=2&query=" & $Clip[0] & "&uid=0&sort=C")
            $Torrent = StringRegExp($Index,"/files/details/([1234567890]+/[1234567890]+)/", 3)
            Send('Analyzing data and providing source information...{ENTER}')
            If Not IsArray($Torrent) Then
                Send("Not found... Sorry...{ENTER}")
                WinClose($Title)
                Wait4Request()
            EndIf
            Send("http://www.demonoid.com/files/details/" & $Torrent[0] & "/{ENTER}")
            Send("Please hold on for a second, while I prepare to send the torrent to you... ;){ENTER}")
            $TI = _IECreate()
            _IENavigate($TI,"http://www.demonoid.com/files/download/HTTP/" & $Torrent[0])
            _IELoadWait($TI)
            $Test = _IEDocReadHTML($TI)
            If StringRegExp($Test,"Please type the validation code") = True Then
                $CapHandle = WinGetHandle("Demonoid.com")
                _ScreenCapture_CaptureWnd(@ScriptDir & "\Captcha.jpg",$CapHandle,31,406,85,426)
                WinActivate($Title)
                Send("Looks like Demonoid is trying to use a Captcha against me... and since I'm just a Bot, I can't see them... Well, I can see them, but my A.I. isn't good enough to tell what they say...{ENTER}")
                Send("Im going to try and take a screen shot of the Captcha and send it to you real quick, so you can read it to me... lol{ENTER}")
                Send("Oh... Read the code back to me like this... @32114@... put it inside @ tags...{ENTER}")
                Send("Or I'll just think you don't know what your doing, because my A.I. isn't that great...{ENTER}")
                Send("If you fail to use the tags properly I will start all over...{ENTER}")
                Send("!")
                Sleep(1000)
                Send("a")
                Sleep(1000)
                Send("f")
                Sleep(3000)
                Send(@ScriptDir & "\Captcha.jpg{ENTER}")
                Send("Here is that Screen-Shot, I'll be waiting for your response...{ENTER}")
                Send("But I'm only going to wait 3 minutes, as other people are in line to search for torrents... :P{ENTER}")
                While 1
                    Sleep(5000)
                    WinClose($Title)
                
                    If $Count = 36 Then
                        Send('n')
                        Sleep(1000)
                        Send("I waited here for 3 minutes, you should have had plenty of time to download the file, maybe next time... ;){ENTER}")
                        WinClose($Title)
                        Sleep(1000)
                        Send('y')
                        Wait4Request()
                    EndIf
                        
                    If WinExists("Windows Live Messenger") Then
                        Send("n")
                        $Count += 1
                    Else
                        ExitLoop
                    EndIf
                WEnd
                
                $Wait4User = 0
                
                For $N = 0 To 180
                    If WinExists($Title) Then
                        WinActivate($Title)
                        WinSetState($Title, "", @SW_MAXIMIZE)
                        Send("Its about time... Let me check to see if your Captcha answer is going to work...{ENTER}")
                        $N = 180
                    Else
                        Sleep(1000)
                        $Wait4User = Number($Wait4User + 1)
                    EndIf
                Next
                If $Wait4User = 180 Then
                    Wait4Request()
                EndIf
                MouseClick("primary", $Pos[0]+600, $Pos[1]+300, 1, 20)
                Sleep(1000)
                send("^a")
                Sleep(1000)
                send("^c")
                Sleep(1000)
                $CapPass = ClipGet()
                $CapPass = _StringBetween($CapPass,"@","@",-1,1)
            
                If IsArray($CapPass) Then
                    WinActivate("Demonoid.com")
                    $CapForm = _IEFORMGETCOLLECTION($TI, 0)
                    $CapField = _IEFORMELEMENTGETOBJBYNAME($CapForm, "validation")
                    _IEFORMELEMENTSETVALUE($CapField, $CapPass[0])
                    _IEFormSubmit($CapForm,1)
                    WinWaitActive("File Download")
                    Sleep(2000)
                    ControlClick("File Download","",4427)
                    WinWaitActive("Save As")
                    Send(@ScriptDir & "\" & $Clip[0] & ".torrent{ENTER}")
                    SendTorrent()
                Else
                    Send("Dude... You totally messed that up... My master can't program in every possible mistake you might make, so I am going to start over... Better luck next time...{ENTER}")
                    Wait4Request()
                EndIf
            Else
                WinWaitActive("File Download")
                Sleep(2000)
                ControlClick("File Download","",4427)
                WinWaitActive("Save As")
                Send(@ScriptDir & "\" & $Clip[0] & ".torrent{ENTER}")
                SendTorrent()           
            EndIf
        EndIF
    Else
        Send('You can use our service for "torrent" searching... Just type your search between "<" & ">" Tags{ENTER}')
        Sleep(1000)
        Send("Ex. <UrbanTerror>{ENTER}")
        Sleep(1000)
        WinClose("[CLASS:IMWindowClass]")
    EndIf
EndFunc

Func SendTorrent()
    WinActivate($Title)
    Send("!")
    Sleep(1000)
    Send("a")
    Sleep(1000)
    Send("f")
    Sleep(3000)
    Send(@ScriptDir & "\" & $Clip[0] & ".torrent{ENTER}")
    Sleep(3000)

    While 1
        Sleep(5000)
        WinClose("[CLASS:IMWindowClass]")
        If WinExists("Windows Live Messenger") Then
            Send("n")
        Else
            ExitLoop
        EndIf
    WEnd
EndFunc

Func CleanOut()
    FileDelete(@ScriptDir & "\*.torrent")
    FileDelete(@ScriptDir & "\*.jpg")
EndFunc

Func IEKill()
    While ProcessExists("IEXPLORE.EXE")
        ProcessClose("IEXPLORE.EXE")
    WEnd
EndFunc

Criticism is welcome... Although I already 'know' what to do, to make it better... Like I said, I'm not interested anymore really... I just wanted to do it, now that I'm done, I'm dropping it in an archive... My AutoIt archive is like a really bad junk-yard full of barely running cars... I pull parts here and there to make a script work sometime, It's quite handy... lol

Ok, I'm sorta second-guessing this post... Mods feel free to delete it if you think the material is questionable... I know you don't need my permission to do so, I just don't want to start any trouble... :D

[EDIT] Someone tried to use the bot in a group conversation... and it crashed... That doesn't work... ;) [/EDIT]

Edited by BinaryBrother

Share this post


Link to post
Share on other sites



Nice one :unsure: I love that it downloads the torrent for u :P

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

The dude that talked me into making this to begin with, was unhappy with the end results, to say the least... He was a good friend, so decided to remake it... I wanted to leave the old source, just to let you guys know, I DO know how to do better than that crap... I was rushed, and it wasn't meant to be used long... lol So here she is... :D

First Here are the thanks;

w0uter - FTP UDF

JohnMC - Updating w0uter's UDF, lol

spyrorocks - MSN UDF, which as you can see, I kinda took bits and pieces... (I plan on implementing it better)

Xinthose - He supplied me with the first bit of RegExp help, and since the beginning of this script, by reviewing his example, and aplieng it differently... I've come to almost fully understand RegExp, which was a big step for me... :P

Oh, and I can't forget AirWolf, that guy stood by and explained to me RegExp & For loops like 5 times in a row... Almost repeating himself every time, I just wasn't getting it... lol

You will first notice my AutoIt script, you will then notice my corresponding PHP script below... It works with the AutoIt script... :unsure:

I pulled the basic PHP page from another site, but modified it a bit so that AutoIt could pick up better on the RegExp. :D

#include <File.au3>
#include <String.au3>
#include <FTP.au3>
#include <IE.au3>
#RequireAdmin
Global $g_eventerror = 0
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$oMessenger = ObjCreate("Messenger.UIAutomation.1")

$server = '**'
$username = '******'
$pass = '*******'
Global $List
Global $Line
While 1
    InetGet("http://www.binarybrother.com/MSNReq/guestbook.dat", @ScriptDir & "\Requests.txt", 1)
    _FileReadToArray(@ScriptDir & "\Requests.txt", $List)
    If Not @error Then
        For $N = 1 To $List[0]
            If StringInStr($List[$N], "Pending") Then
                $Email = StringRegExp($List[$N], "([^\s]+@[^\s]+\.[^\s]{3})", 3)
                $Request = _StringBetween($List[$N], "&lt;", "&gt;")
                If Not IsArray($Email) Or Not IsArray($Request) Then
                    StringReplace($List[$N], "Pending", "Rejected")
                    _FileWriteToLine(@ScriptDir & "\Requests.txt", $N, $Line[$N], 1)
                    UpdateReqFile()
                Else
                    AddContact()
                    $oMessenger.InstantMessage($Email[0])
                    WinWait("[CLASS:IMWindowClass]")
                    Send('You requested "' & _StringProper($Request[0]) & '". I will process your request ASAP.{ENTER}')
                    Send("!{F4}")
                    GetGiveTorrent()
                    StringReplace($List[$N], "Pending", "Rejected")
                    _FileWriteToLine(@ScriptDir & "\Requests.txt", $N, $Line[$N], 1)
                EndIf
            EndIf
        Next
    EndIf
    Sleep(5000)
WEnd


Func UpdateReqFile()
    $Hand = _FTPOpen('AutoFTP')
    _FTPConnect($Hand, $server, $username, $pass, 0, 1)
    If @error Then
        TrayTip("Error", "Connection Failed/Check Firewall", 5)
    Else
        TrayTip("Connected", "Connection via FTP was successful.", 5)
    EndIf

    _FtpPutFile($Hand, @ScriptDir & "\Requests.txt", '/public_html/MSNReq/guestbook.dat')
    If @error Then
        TrayTip("Error", "Upload Failed/Check Firewall", 5)
    Else
        TrayTip("Uploaded", "The update has been uploaded.", 5)
    EndIf
    _FTPClose($Hand)
EndFunc   ;==>UpdateReqFile

Func GetGiveTorrent()
    While 1
        $IE = _IECreate("http://www.demonoid.com/files/?category=0&subcategory=All&quality=All&seeded=0&external=2&query=" & $Request[0] & "&uid=0&sort=C", 0, 0, 1)
        If StringRegExp(_IEDocReadHTML($IE), "No torrents found") = True Then
            $oMessenger.InstantMessage($Email[0])
            WinWait("[CLASS:IMWindowClass]")
            Send("Sorry, your search returned no results...{ENTER}")
            ExitLoop
        EndIf
        If StringRegExp(_IEDocReadHTML($IE),"We will be back as soon as possible") = True Then
            $oMessenger.InstantMessage($Email[0])
            WinWait("[CLASS:IMWindowClass]")
            Send("Demonoid seems to be offline... Sorry.{ENTER}")
            ExitLoop
        EndIf
        
        $oLinks = _IELinkGetCollection($IE)
        For $oLink In $oLinks
            $sLinkText = _IEPropertyGet($oLink, "innerText")
            If StringInStr($sLinkText, $Request[0]) Then
                _IEAction($oLink, "click")
                ExitLoop
            EndIf
        Next
        _IELoadWait($IE)
        $oLinks = _IELinkGetCollection($IE)
        For $oLink In $oLinks
            $sLinkText = _IEPropertyGet($oLink, "innerText")
            If StringInStr($sLinkText, "Click here to download the torrent") Then
                _IEAction($oLink, "click")
                ExitLoop
            EndIf
        Next
        WinWait("File Download", "Do you want to open or save this file?")
        ControlClick("File Download", "Do you want to open or save this file?", 4427)
        WinWait("Save As")
        $TorrentName = ControlGetText("Save As", "", 1001)
        ControlSetText("Save As", "", 1001, @ScriptDir & "\" & $TorrentName)
        ControlClick("Save As", "", 1)
        $oMessenger.InstantMessage($Email[0])
        WinWait("[CLASS:IMWindowClass]")
        Send("Alright, I found it... Here it comes...{ENTER}")
        ; I couldnt get the 'SendFile' object to work... Hence, the line below...
        Send("!af")
        $Wait = WinWait("Send a File to", "", 20)
        If $Wait = 0 Then
            Send("I waited around 20 ENTIRE seconds for you to accept the file... Better luck next time...{ENTER}")
            ExitLoop
        EndIf
        ControlSetText("Send a File to", "", 1148, @ScriptDir & "\" & $TorrentName)
        Send("{ENTER}")
        $Timer = TimerInit()
        While 1
            Sleep(5000)
            Send("!{F4}")
            Sleep(1500)
            If WinExists("Windows Live Messenger","Closing this window will end all current activities with this contact.") Then
                Send("n")
            Else
                ExitLoop(2)
            EndIf
            If TimerDiff($Timer) > 120000 Then
                Send("You had 2 minutes to accept the file, you failed to do so, or waited too long, connection terminated and request NULLED.{ENTER}")
                ExitLoop(2)
            EndIf
        WEnd
    WEnd
EndFunc   ;==>GetGiveTorrent

Func AddContact()
    $oMessenger.AddContact(0, $Email[0])
    WinWaitActive("[CLASS:UXContacts_Add_Dialog]")
    $ContactPos = WinGetPos("[CLASS:UXContacts_Add_Dialog]")
    Send("{ENTER}")
    Sleep(1000)
    PixelSearch($ContactPos[0], $ContactPos[1], $ContactPos[2], $ContactPos[3], 0xFFFFC5, 5)
    If Not @error Then
        Send("{TAB 5}{SPACE}")
    Else
        ClipPut("You made a request on http://www.BinaryBrother.com, this is the Bot for that request.")
        ControlClick("Windows Live Messenger", "", "[CLASS:DirectUIHWND; INSTANCE:1]")
        Send("^v{TAB}{TAB}{SPACE}")
        While 1
            PixelSearch($ContactPos[0], $ContactPos[1], $ContactPos[2], $ContactPos[3], 0x355A88, 5)
            If Not @error Then ExitLoop
            Sleep(1000)
        WEnd
        Send("{TAB}{SPACE}")
    EndIf
EndFunc   ;==>AddContact


Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    ConsoleWrite("We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $HexNumber & @CRLF & _
            "Windescription is: " & $oMyError.windescription)
    $g_eventerror = 1
EndFunc   ;==>MyErrFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


<?php
 $guestbook = 'guestbook.dat';
    $adminPassword = '*****';
        error_reporting (E_ALL ^ (E_NOTICE | E_WARNING));

    $admin = 0;
    function stripslashes_nested($v)
    {
        if (is_array($v)) {
            return array_map('stripslashes_nested', $v);
        } else {
            return stripslashes($v);
        }
    }

    if (get_magic_quotes_gpc()) {
        $_GET = stripslashes_nested($_GET);
        $_POST = stripslashes_nested($_POST);
    }
?>
<html>
<head>
<title>MSN Request (BETA)</title>
</head>
<body>
<h1 align="center">MSN Request (BETA)</h1>
<div align="center">
<?php
 $password = "";
    if ($_POST['password'] == $adminPassword) {
        $admin = 1;
        $password = $adminPassword;
    } else if (strlen($_POST['password'])) {
        echo("<h2>Login Failed (Bad Password)</h2>\n");
    }
?>  
<table border="0" cellpadding="3" cellspacing="3">
<tr><th>Date</th><th>Email</th><th>Request</th><th>Status</th>
<?php
    if ($admin) {
        echo "<th>Controls</th>";
    }
?>
</tr>
<?php
    if ($_POST['submit']) {
        $file = fopen($guestbook, "a");
        if (!$file) {
            die("Can't write to guestbook file");
        }
        $date = date('F j, Y, g:i a');
        $id = rand();
        $name = $_POST['name'];
        $email = $_POST['email'];
        $comment = $_POST['comment'];
        $name = clean($name, 40);
        $email = clean($email, 40);
        $email = "&lt;" . $email . "&gt;";
        $comment = clean($comment, 40);
        fwrite($file, 
            "$date\t$name\t$email\t$comment\t$id\n");
        fclose($file)
    }
    $file = fopen($guestbook, 'r');
    $tfile = null;
    $delete = 0;
    $deleteId = '';
    if ($admin && $_POST['delete']) {
        $delete = 1;
        $deleteId = $_POST['id'];
        $tfile = @fopen("$guestbook.tmp", 'w');
        if (!$tfile) {
            die("Can't create temporary file for delete operation");
        }
    }
    if ($file) {
        while (!feof($file)) {
            $line = fgets($file);
            $line = trim($line);
            list ($date, $name, $email, $comment, $id) = 
                split("\t", $line, 5);
            if (!strlen($date)) {
                break;
            }
            if (!strlen($id)) {
                $id = $date;
            }   
            if ($delete) {
                if ($id == $deleteId) {
                    continue;
                } else {
                    fwrite($tfile, 
                        "$date\t$name\t$email\t$comment\t$id\n");
                }
            }
            echo "<tr><td>$date</td><td>$name</td>";
            echo "<td>$email</td><td>$comment</td>";
            if ($admin) {
                echo "<td>";
                echo "<form action=\"index.php\" " .
                    "method=\"POST\">";
                passwordField();
                hiddenField('id', $id);
                echo "<input type=\"submit\" " .
                    "value=\"Delete\" " .
                    "name=\"delete\">";
                echo "</form>";
                echo "</td>";
            }
            echo "</tr>\n";
        }
        fclose($file);
        if ($delete) {
            fclose($tfile);
            unlink($guestbook);
            rename("$guestbook.tmp", $guestbook);
        }   
    }
    function clean($name, $max) {
        $name = ereg_replace("[[:space:]]", ' ', $name);
        $name = ereg_replace('&', '&amp;', $name);
        $name = ereg_replace('<', '&lt;', $name);
        $name = ereg_replace('>', '&gt;', $name);
        $name = substr($name, 0, $max);
        return $name;
    }
    function passwordField() {
        global $admin;
        global $password;
        if (!$admin) {
            return;
        }
        hiddenField('password', $password);
    }
    function hiddenField($name, $value) {
        echo "<input type=\"hidden\" " .
            "name=\"$name\" value=\"$value\">";
    }
?>
</table>
<?php
    if (!$admin) {
?>
<?php
 }
?>
<BR><BR><BR><BR>
<form action="index.php" method="POST">
<table border="0" cellpadding="5" cellspacing="5">
<tr>
<td colspan="2">Make your Request:</td>
</tr>
<tr>
<th>Email</th><td><input name="name" maxlength="40"></td>
</tr>
<tr>
<th>Request</th><td><input name="email" maxlength="40"></td>
</tr>
<input type="hidden" name="comment" maxlength="40" Value="Pending"></td>
<tr>
<th colspan="2">
<input type="submit" name="submit" value="Sign the Guestbook">
</th>
</tr>
</table>
<BR><BR><BR><BR><BR>
<center>Please note that you must add 'ERN-Torrents@Live.com' to your Contact list on Messenger.</center><BR>
I'm still working on a system that will be more effective... Until then... This is all I have, good luck.
<?php
 passwordField();
?>
</form>
</div>
</body>
</html>
Edited by BinaryBrother

Share this post


Link to post
Share on other sites

This project is interesting to me. I'm actually attempting to make an A.I. bot myself but I'm only looking around to see how it works.

Care to share your include files? :P


My work in AutoIt (Not many yet):

Parse Large Text Files To 2D Array Quickly [With Chunk Size]

 

My artificial intelligence project coded entirely in AutoIt. Meet Alice Assistant: http://facebook.com/ProjectAliceAI

 

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

The FTP Include I used can be found here with the documentation... The actual link is a ZIP file, and can be downloaded here...

http://www.autoitscript.com/forum/index.php?showtopic=78378

As for the IE.au3, String.au3, and File.au3 <--- They come with the latest version of AutoIt... :D

It's not 'A.I.' really, the new version would be a TERRIBLE example to work from, because you have to make the 'torr' request at a URL, the bot does not interact with the individual directly through the conversation window... The first example would be an 'alright' example to START from... but I highly suggest you modify the code heavily to make it better if that is your intentions. :o

Edited by BinaryBrother

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0