stdray

open System

module Grabber = 
    open HtmlAgilityPack
    open System.Net.Http

    let grab grabbers page = async {
        let works = grabbers |> Seq.map (fun grabber -> grabber page)
        let! parts = Async.Parallel works
        return parts |> Seq.collect id 

stdray

open System.IO;
open System.Xml.Serialization;
open System.Xml.Schema;
open System.CodeDom;
open System.CodeDom.Compiler;
open Microsoft.CSharp

type Options = {
    rootPath : string;
    xsdPath : string;

stdray

    syntax Expression 
    {
      | StringLiteral;
      | IntegerLiteral;
      | RealLiteral;
      | BooleanLiteral;
      | FullName;
      | Parenthesis             = "(" Expression ")";
      | Generator               = GeneratorExpression;
      | Choice                  = Expression ^ 11 sm ("/" sm Expression ^ 11)+;

stdray

namespace NBox.Data

open Microsoft.FSharp.Core.CompilerServices
open ProviderImplementation.ProvidedTypes
open System.IO
open System.Reflection

module Seq = 
  let ofType<'a> (source : System.Collections.IEnumerable) : seq<'a> = 
    seq { 

stdray

using Nemerle;
using Nemerle.Collections;
using Nemerle.Compiler;
using Nemerle.Compiler.Parsetree;
using Nemerle.Compiler.Typedtree;
using Nemerle.Extensions;
using System;
using SCG = System.Collections.Generic;
using System.CodeDom;
using System.CodeDom.Compiler;

stdray

namespace NBox.Data

open Microsoft.FSharp.Core.CompilerServices
open ProviderImplementation.ProvidedTypes
open System.IO
open System.Reflection

module Seq = 
  let ofType<'a> (source : System.Collections.IEnumerable) : seq<'a> = 
    seq { 

stdray

// ------------------------------------------------------------------------------
//  <autogenerated>
//      This code was generated by a tool.
//      Runtime Version: 4.0.30319.18444
// 
//      Changes to this file may cause incorrect behavior and will be lost if 
//      the code is regenerated.
//  </autogenerated>
// ------------------------------------------------------------------------------

stdray

    entity() <-
    {
      PublishInfo <-
      {
        Date <- date(src.commonInfo.publishDate);
        ModificationInfo <- src.printForm.url;
        Version <- str(src.commonInfo.versionNumber);
      };
      MainInfo <-
      {

stdray

let nakruto4ka id last count =
  use http = new System.Net.Http.HttpClient()
  http.BaseAddress <- System.Uri @"http://facemash.polotsk-portal.ru/rate.php"
  http.DefaultRequestHeaders.Add("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64; rv:35.0) Gecko/20100101 Firefox/35.0")
  http.DefaultRequestHeaders.Add("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
  http.DefaultRequestHeaders.Add("Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3")
  http.DefaultRequestHeaders.Add("Accept-Encoding", "gzip, deflate")
  http.DefaultRequestHeaders.Add("Referer", "http://facemash.polotsk-portal.ru/")
  let rng = System.Random()
  Seq.initInfinite (fun _ -> rng.Next(1, last))

stdray

open canopy
open runner

start firefox

"test search by image" &&& fun _ ->
    url "https://www.google.ru/imghp"
    click "#qbi"
    "#qbui" << "http://facemash.polotsk-portal.ru/images/1154571263.jpg"
    click "#qbbtc .gbqfb"