1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Jump-Start Code Your Own webbot easy!

Discussion in 'Black Hat SEO' started by kounamouta, Oct 22, 2010.

  1. kounamouta

    kounamouta Regular Member

    Joined:
    May 14, 2009
    Messages:
    323
    Likes Received:
    35
    Occupation:
    IM
    Location:
    chair
    Home Page:
    Some people here using it..... , and i see a lot ppl beging..
    for a bot or something auto-matic, so here it is!! after u study 1month you
    will be pro, im waiting to see new stuff........!!!!!!!!!!

    it called auto-it is a simple powerfull SCRIPTING windows code language...
    ====================================================
    AutoIt v3 is a freeware BASIC-like scripting language designed for automating the Windows GUI and general scripting. It uses a combination of simulated keystrokes, mouse movement and window/control manipulation in order to automate tasks in a way not possible or reliable with other languages (e.g. VBScript and SendKeys). AutoIt is also very small, self-contained and will run on all versions of Windows out-of-the-box with no annoying "runtimes" required!

    AutoIt was initially designed for PC "roll out" situations to reliably automate and configure thousands of PCs. Over time it has become a powerful language that supports complex expressions, user functions, loops and everything else that veteran scripters would expect.Features:

    • Easy to learn BASIC-like syntax
    • Simulate keystrokes and mouse movements
    • Manipulate windows and processes
    • Interact with all standard windows controls
    • Scripts can be compiled into standalone executables
    • Create Graphical User Interfaces (GUIs)
    • COM support
    • Regular expressions
    • Directly call external DLL and Windows API functions
    • Scriptable RunAs functions
    • Detailed helpfile and large community-based support forums
    • Compatible with Windows 95 / 98 / ME / NT4 / 2000 / XP / 2003 / Vista / 2008
    • Unicode and x64 support
    • Digitally signed for peace of mind
    • Works with Windows Vista's User Account Control (UAC)
    AutoIt has been designed to be as small as possible and stand-alone with no external .dll files or registry entries required making it safe to use on Servers. Scripts can be compiled into stand-alone executables with Aut2Exe.

    Also supplied is a combined COM and DLL version of AutoIt called AutoItX that allows you to add the unique features of AutoIt to your own favourite scripting or programming languages!

    See the website for more, and don't forget the forum.... very usefull....
    autoitscript[.]com



    Addon that u will need for the web:

    1)Webdeveloper addon for mozila

    EXTRA TOOL:
    koda_1.7.2.1

    THE INSTALL OF THE AUTOIT HAS ALL THE COMMANDS ON THE HELP FILE!


    Source codes EXAMPLE's from me..if i have time i will do more....
    lets start with a simple ip changer, that going to router from the web
    and click conn and disc....




    #include <IE.au3> "HERE WE SAY THAT WE WILL USE IE"

    $oIE = _IECreate("http://192.168.1.254/") "WE OPEN A NEW WINDOW.."

    $Search = "- Windows Internet Explorer" "SEARCH FOR THIS TITLE IF ON THE WINDOW"


    _IELoadWait ($oIE) "WAIT TO LOAD"

    $oForm = _IEFormGetObjByName($oIE,0) HERE WE PLAY WITH FORMS IF YOU HAVE TEXT BOXES AND BUTTONS YOU HAVE TO USE THE ADDON "WEB-DEVELOPER" TO PLAY WITH THIS STUFF........ E.T.C

    $oNameCell5 = _IEGetObjByName ($oIE, "13")
    _IEAction ($oNameCell5, "click")

    sleep(1750)
    $oNameCell6 = _IEGetObjByName ($oIE, "12")
    _IEAction ($oNameCell6, "click")
    sleep(1550)
    _IELoadWait ($oIE)

    _IEQuit($oIE)
    ===============================================================
    yahoo mailer...


    #include <IE.au3>

    ;some varibles here

    $mailFile = @ScriptDir & "/mails.txt"
    $Subject = "heyy"
    $TFile = @ScriptDir & "/text.txt"
    $Text = FileRead($TFile)
    $i = 0
    $err = 0

    ;hung on this window title
    $ooIE = _IEAttach("Yahoo! Mail")

    While $err = 0
    $i += 1
    ;gather the forms
    $oForm = _IEFormGetCollection($ooIE,3)
    _IEFormSubmit($oForm)
    ;Check rich text is enable ?!?! !
    $oLinks = _IELinkGetCollection($ooIE)
    For $oLink in $oLinks
    $link = $oLink.innertext
    If StringInStr($link, "Compose using Plain Text editor") Then
    MsgBox(0, "ERROR", "EDITOR:not in play text")
    $err = 1
    EndIf
    Next

    $Mail = FileReadLine($mailFile, $i)
    If $mail = "" Then
    MsgBox(0, "Warning", "End of mails, Mails Sent: " & $i-1)
    $err = 1
    Else
    $oComposeForm = _IEFormGetCollection($ooIE, 2)
    $oToElement = _IEFormElementGetObjByName($oComposeForm, "to")
    _IEFormElementSetValue($oToElement, $Mail)
    $oSubjElement = _IEFormElementGetObjByName($oComposeForm, "Subj")
    _IEFormElementSetValue($oSubjElement, $Subject)
    $oTextArea = _IEFormElementGetObjByName($oComposeForm, "Content")
    _IEFormElementSetValue($oTextArea, $Text)
    Sleep(2500)
    $oSendBtn = _IEFormElementGetObjByName($oComposeForm, "action_msg_send")
    _IEAction($oSendBtn, "click")
    sleep(2500)
    _IENavigate($ooIE, "mail.yahoo.com")
    EndIf

    WEnd
    ========================================================
    myspace bulletin poster..


    #include <IE.au3>

    $oUser = @ScriptDir & "\user.txt"
    $oPass = @ScriptDir & "\pass.txt"
    $oTitle = @ScriptDir & "\title.txt"
    $oMsg = @ScriptDir & "\msg.txt"

    $ooMsg = FileRead($oMsg)
    $ooTitle = FileRead($oTitle)

    $i = 1
    For $i = 1 to 900
    $ooUser = FileReadLine($oUser,$i)
    $ooPass = FileReadLine($oPass,$i)
    if $ooUser = ("") Then
    ExitLoop

    Else

    $oIE = _IECreate("http://www.myspace.com/", 0, 1, 0)
    $Search = "MySpace"
    _IELoadWait ($oIE)

    $oLogin = _IEFormGetObjByName($oIE,1)

    $oNameCell9 = _IEFormElementGetObjByName($oLogin, "ctl00$ctl00$cpMain$cpMain$LoginBox$Email_Textbox")
    _IEFormElementSetValue($oNameCell9, $ooUser)

    $oNameCell8 = _IEFormElementGetObjByName($oLogin, "ctl00$ctl00$cpMain$cpMain$LoginBox$Password_Textbox")
    _IEFormElementSetValue($oNameCell8, $ooPass)
    sleep(150)
    $oSubmit = _IEFormGetCollection($oIE,1)
    _IEFormSubmit($oSubmit)
    _IENavigate ($oIE, "http://bulletins.myspace.com/index.cfm?fuseaction=bulletin")

    $oLinks = _IELinkGetCollection ($oIE)
    $iNumLinks = @extended


    For $oLink In $oLinks
    $sMyString = "Post"
    $oLinks = _IELinkGetCollection($oIE)
    For $oLink in $oLinks
    $sLinkText = _IEPropertyGet($oLink, "innerText")
    If StringInStr($sLinkText, $sMyString) Then
    _IEAction($oLink, "click")
    sleep(250)

    ExitLoop
    EndIf
    Next
    _IELoadWait ($oIE)
    $Search = "MySpace:"
    $oForm = _IEFormGetCollection($oIE,2)
    $oNameCell = _IEGetObjById($oForm, "ctl00_ctl00_ctl00_cpMain_cpMain_cpMain_BulletinPost_Subject_Textbox")
    _IEFormElementSetValue($oNameCell, $ooTitle)

    $oNameCell1 = _IEGetObjById($oForm, "ctl00_ctl00_ctl00_cpMain_cpMain_cpMain_BulletinPost_Body_Textbox")
    _IEFormElementSetValue($oNameCell1, $ooMsg)

    $oNameCell5 = _IEGetObjByName ($oIE, "postButton")
    _IEAction ($oNameCell5, "click")
    sleep(250)
    _IELoadWait ($oIE)
    sleep(250)
    ======================================
    twt acc maker.....

    #include <IE.au3>
    $oUser = @ScriptDir & "\users.txt"
    $oMsg = @ScriptDir & "\pass.txt"
    $oKey = @ScriptDir & "\mail.txt"

    $ooUser1 = FileRead($oUser)
    $ooUser = FileRead($oUser)
    $ooMsg = FileRead($oMsg)
    $ooKey = FileRead($oKey)


    $i = 1
    For $i = 1 to 900
    $ooUser = FileReadLine($oUser,$i)
    $ooKey = FileReadLine($oKey,$i)
    $ooMsg = FileReadLine($oMsg,$i)
    if $ooUser = ("") Then
    ExitLoop

    Else
    $oIE = _IECreate("https://twitter.com/signup", 0, 1, 0)

    _IELoadWait ($oIE)

    $oForm = _IEFormGetObjByName($oIE,0)
    $oNameCell = _IEFormElementGetObjByName($oForm, "user[name]")
    _IEFormElementSetValue($oNameCell, $ooUser)

    $oNameCell1 = _IEFormElementGetObjByName($oForm, "user[screen_name]")
    _IEFormElementSetValue($oNameCell1, $ooUser)

    $oNameCell2 = _IEFormElementGetObjByName($oForm, "user[user_password]")
    _IEFormElementSetValue($oNameCell2, $ooMsg)

    $oNameCell3 = _IEFormElementGetObjByName($oForm, "user")
    _IEFormElementSetValue($oNameCell3, $ooKey)
    sleep(30000)

    _IELinkClickByIndex ($oIE, 11)
    _IEQuit($oIE)
    EndIf
    Next




    Chears :cool:
     
    • Thanks Thanks x 1
    Last edited: Oct 22, 2010