#include <ESP8266WiFi.h>
#include <WiFiClientSecure.h>

const char* ssid     = "xxxxxx";
const char* password = "xxxxxx";

const char* host = "graph.facebook.com";
const char* url   = "/v2.6/200630963285751?fields=fan_count&access_token=";
const char* token = "xxxxxxxxxxx";
const char* fingerprint = "A0 4E AF B3 48 C2 6B 15 A8 C1 AA 87 A3 33 CA A3 CD EE C9 C9";
void setup() {
  Serial.begin(115200);
  delay(10);

  // We start by connecting to a WiFi network

  Serial.println();
  Serial.println();
  Serial.print("Connecting to ");
  Serial.println(ssid);

  WiFi.begin(ssid, password);

  while (WiFi.status() != WL_CONNECTED) {
    delay(500);
    Serial.print(".");
  }

  Serial.println("");
  Serial.println("WiFi connected");
  Serial.println("IP address: ");
  Serial.println(WiFi.localIP());
}

int value = 0;

void loop() {
  delay(1000);
  ++value;
  // Use WiFiClient class to create TCP connections
  WiFiClientSecure client;

  Serial.print("connecting to ");
  Serial.println(host);
  const int httpPort = 443;
  if (!client.connect(host, httpPort)) {
    Serial.println("connection failed");
    return;
  }

  if (client.verify(fingerprint, host)) {
    Serial.println("certificate matches");
  } else {
    Serial.println("certificate doesn't match");
  }

  // We now create a URI for the request
  // This will send the request to the server
  String paquete = String("GET ") + url + token + " HTTP/1.1\r\n" + "Host:" + host + "\r\n\r\n";
  Serial.println(paquete);
  client.print(paquete);

  delay(1000);

  // Read all the lines of the reply from server and print them to Serial
  while (client.available()) {
    String line = client.readStringUntil('\r');
    Serial.print(line);
  }

  Serial.println();
  Serial.println("closing connection");
}

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim subject, cuerpo, saltolinea As String
        subject = "Frases miticas"
        saltolinea = Chr(10)
        cuerpo = "5"

        Dim message As New MailMessage(email_txt.Text, "edd.giralda@gmail.com")

        message.Subject = "Frases miticas"
        message.IsBodyHtml = True
        message.Body = "Nombre: " & nombre_txt.Text & saltolinea &  "apellidos: " apellidos_txt.Text

        Dim smtp As New System.Net.Mail.SmtpClient
        smtp.Host = "smtp.gmail.com"
        smtp.Port = 587
        smtp.EnableSsl = True
        smtp.UseDefaultCredentials = False
        smtp.Credentials = New System.Net.NetworkCredential("email@gmailcom", "contraseña")

        smtp.Send(message)
        MsgBox("enviado correcto")