Fuck Pc Dr Com

MainActivity.fs

namespace fuckpcdrcom

open System
open Android.App
open Android.Widget
open System.Net
open System.IO
open System.Threading

type Resources = App3.Resource

[<Activity (Label = "Fuckpcdrcom", MainLauncher = true, Icon = "@mipmap/icon")>]
type MainActivity () =
    inherit Activity ()
    override this.OnCreate (bundle) =
        base.OnCreate (bundle)
        this.SetContentView (Resources.Layout.Main)
        let cb = this.FindViewById<EditText>(Resources.Id.cb)
        let ur = this.FindViewById<EditText>(Resources.Id.ur)
        let pw = this.FindViewById<EditText>(Resources.Id.pw)
        let button = this.FindViewById<Button>(Resources.Id.fuck)
        button.Click.Add (fun _ ->
            try
                (new Thread(new ThreadStart(fun _ ->
                    let request = WebRequest.Create ("http://192.168.240.3/drcom/login?callback=" + cb.Text + "&DDDDD=" + ur.Text + "&upass=" + pw.Text + "&0MKKey=123456&R1=0&R3=0&R6=0&para=00&v6ip=&_=1555484172045") :?> HttpWebRequest
                    let response = request.GetResponse() :?> HttpWebResponse
                    (new StreamReader(response.GetResponseStream())).ReadToEnd() |> ignore))).Start()
            with
            | _ -> ())

AndroidManifest.xml

<?xml version="1.0" encoding="utf-8"?>
<manifest xmlns:android="http://schemas.android.com/apk/res/android" android:versionCode="1" android:versionName="1.0" package="iriszero.fuckpcdrcom" android:installLocation="auto">
	<uses-sdk android:minSdkVersion="22" />
	<uses-permission android:name="android.permission.INTERNET" />
	<application android:allowBackup="true" android:label="@string/app_name"></application>
</manifest>

Strings.xml

<?xml version="1.0" encoding="utf-8"?>
<resources>
  <string name="fuckit">fuck it!</string>
  <string name="app_name">FuckPcDrCom</string>
</resources>

Main.axml

<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
    android:orientation="vertical"
    android:layout_width="match_parent"
    android:layout_height="match_parent">
  <EditText
        android:id="@+id/cb"
        android:layout_width="match_parent"
        android:imeOptions="actionGo"
        android:inputType="text"
        android:layout_height="wrap_content" />
	<EditText
        android:id="@+id/ur"
        android:layout_width="match_parent"
        android:imeOptions="actionGo"
        android:inputType="text"
        android:layout_height="wrap_content" />
	<EditText
        android:id="@+id/pw"
        android:layout_width="match_parent"
        android:imeOptions="actionGo"
        android:inputType="text"
        android:layout_height="wrap_content" />
	<Button android:id="@+id/fuck"
    android:layout_width="match_parent"
    android:layout_height="wrap_content"
    android:text="fuck it" />
</LinearLayout>