mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-11-13 03:35:05 +01:00
c2d0753b1e
-bugfix at name of movies -bugfix US unlock got stuck - replaced ffmpeg.exe with newer version
118 lines
4.3 KiB
VB.net
118 lines
4.3 KiB
VB.net
Imports System.IO
|
|
Imports System.Net
|
|
Imports System.Text
|
|
|
|
Public Class Login
|
|
#Region " Move Form "
|
|
|
|
' [ Move Form ]
|
|
'
|
|
' // By Elektro
|
|
|
|
Public MoveForm As Boolean
|
|
Public MoveForm_MousePosition As Point
|
|
|
|
Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
|
|
MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
|
|
|
|
If e.Button = MouseButtons.Left Then
|
|
MoveForm = True
|
|
Me.Cursor = Cursors.NoMove2D
|
|
MoveForm_MousePosition = e.Location
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _
|
|
MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
|
|
|
|
If MoveForm Then
|
|
Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
|
|
MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
|
|
|
|
If e.Button = MouseButtons.Left Then
|
|
MoveForm = False
|
|
Me.Cursor = Cursors.Default
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
ToolTip1.SetToolTip(PictureBox9, My.Resources.US_ToolTip)
|
|
Me.Icon = My.Resources.icon
|
|
Me.Location = New Point(Main.Location.X + Main.Width / 2 - Me.Width / 2, Main.Location.Y + Main.Height / 2 - Me.Height / 2)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
|
|
ServicePointManager.Expect100Continue = True
|
|
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
|
|
|
|
Dim Request0 As HttpWebRequest = CType(WebRequest.Create("https://api.crunchyroll.com/login.0.json"), HttpWebRequest)
|
|
Request0.Method = "POST"
|
|
Request0.ContentType = "application/x-www-form-urlencoded"
|
|
Dim Post0 As String = "account=" + LoginID.Text + "&password=" + Password.Text + "&session_id=" + GeckoFX.keks
|
|
Dim byteArray0() As Byte = Encoding.UTF8.GetBytes(Post0)
|
|
Request0.ContentLength = byteArray0.Length
|
|
Dim DataStream0 As Stream = Request0.GetRequestStream()
|
|
DataStream0.Write(byteArray0, 0, byteArray0.Length)
|
|
DataStream0.Close()
|
|
Dim Response0 As HttpWebResponse = Request0.GetResponse()
|
|
DataStream0 = Response0.GetResponseStream()
|
|
Dim reader0 As New StreamReader(DataStream0)
|
|
Dim ServerResponse0 As String = reader0.ReadToEnd()
|
|
If InStr(ServerResponse0, My.Resources.LoginSuccess) Then
|
|
Else
|
|
MsgBox(ServerResponse0)
|
|
End If
|
|
reader0.Close()
|
|
DataStream0.Close()
|
|
Response0.Close()
|
|
GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
|
|
Me.Close()
|
|
'WebBrowser1.LoadHtml(ServerResponse0)
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox9.MouseEnter
|
|
PictureBox9.Image = My.Resources.DialogNotFound_Submit_hover
|
|
End Sub
|
|
|
|
Private Sub PictureBox9_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox9.MouseLeave
|
|
PictureBox9.Image = My.Resources.DialogNotFound_Submit
|
|
End Sub
|
|
|
|
Private Sub pictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
|
|
'Main.UserCloseDialog = True
|
|
GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub pictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
|
|
pictureBox3.BackColor = SystemColors.Control
|
|
End Sub
|
|
|
|
Private Sub pictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
|
|
pictureBox3.BackColor = Color.Transparent
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
|
|
PictureBox1.Image = My.Resources.LoginSkipHover
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
|
|
PictureBox1.Image = My.Resources.LoginSkip
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
|
|
Me.Close()
|
|
End Sub
|
|
End Class |