can you make fully-automated softwares? for example, 500 hotmail accounts creator with a single click (also decaptcher/deathbycaptcha supported)..
or do you make only semi automated softwares http://bit.ly/xTihtC.
you could write a newbguide to coding a simple bot in c# or something else..![]()
open System
open System.IO
open System.Net
open System.Threading
open System.Windows.Forms
open SHDocVw
open mshtml
open System.Windows.Forms
open System.Text.RegularExpressions
let (|Match|_|) (pat:string) (inp:string) =
let m = Regex.Match(inp, pat) in
if m.Success
then Some (List.tail [ for g in m.Groups -> g.Value ])
else None
let (|Matches|_|) (pat:string) (inp:string) =
let m = Regex.Matches(inp, pat) in
if m.Count > 0
then Some ( [ for g in m -> g.Value ])
else None
let getPage (url:string) =
let (html:HtmlDocument ref) = ref null
let handler (sender:obj) (e: WebBrowserDocumentCompletedEventArgs) =
let wb = sender :?> (WebBrowser)
html := (wb.Document)
use wb = new WebBrowser()
wb.Visible<-true
wb.DocumentCompleted.Add(handler wb)
wb.Navigate(url)
while wb.ReadyState <> WebBrowserReadyState.Complete do
Application.DoEvents()
html
let googleSearch term =
let rec googleSearch link pass res =
let search = getPage link
Thread.Sleep(TimeSpan.FromSeconds(5.0))
let potentialLinks =
seq{ for link in search.Value.Links do
if not(link.OuterHtml.Contains("google")) then
yield link.OuterHtml }
|>Seq.toArray
let pat = "href=\"([^>]+)\">"
let links =
potentialLinks
|> Array.filter(fun elem -> elem.Contains("<A class=\"l\" onmousedown="))
|> Array.map( fun elem -> match elem with
|Match pat (link::t) -> link
| _ -> failwith "critical parsing error")
let next =
potentialLinks
|> Array.filter(fun elem -> elem.Contains("<A class=\"fl\"")&& elem.Contains("/search?"))
|> Array.map( fun elem -> match elem with
| Match pat (link::t) -> "http://www.google.com"+link
| _ -> failwith "critical parsing error")
let newRes = res|>Array.append(links)
if (next.Length-1) <= pass then
newRes
else
let newPass = pass+1
googleSearch ((next.[newPass]).Replace(";","&")) newPass newRes
googleSearch ("http://www.google.com/search?num=100&hl=en&q="+term+"&btnG=Search&aq=f&aqi=&aql=&oq=") -1 [||]
googleSearch "F# love"
Move messages to Inbox if sender's address contains "@"
Great, i'm bookmarking this thread.
I nice thing for email creators, add this option after email is created:
Code:Move messages to Inbox if sender's address contains "@"
I saw this at another member here, who created a hotmail creator.
When I register to bookmarking websites, a lot of them are flagged somehow and email get into spam/junk folders. This means no auto email verification if you try automation stuff.
Good luck with this projects!
can you include thepiratebay account creator? and also bulkemail verifier once the accoint is done . I need many account with piratebays and hotmail accounts too for my emails..
Updates:
All 10 email account makers are done !!
Now working on social networking sites...![]()
good can i try it?![]()
subscribed =)
your "generic account creator" idea is awesome btw
what about VB forum creator
That will be included in "generic version.", not now.