forked from pgr-hub-malware-studio/cxknmsl-malware
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form3.vb
50 lines (43 loc) · 1.95 KB
/
Form3.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Class Form3
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("https://passport.bilibili.com/register/phone.html")
End Sub
Private Sub TextBox1_Lostfocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
If TextBox1.Text = "" Then
TextBox1.ForeColor = Color.FromArgb(255, 128, 128, 128)
TextBox1.Text = "手机号/邮箱"
Else
End If
End Sub
Private Sub TextBox1_gotfocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
If TextBox1.Text = "手机号/邮箱" Then
TextBox1.ForeColor = Color.FromArgb(255, 0, 0, 0)
TextBox1.Text = ""
Else
End If
End Sub
Private Sub TextBox2_Lostfocus(sender As Object, e As EventArgs) Handles TextBox2.LostFocus
If TextBox2.Text = "" Then
TextBox2.ForeColor = Color.FromArgb(255, 128, 128, 128)
TextBox2.PasswordChar = ""
TextBox2.Text = "密码"
Else
End If
End Sub
Private Sub TextBox2_gotfocus(sender As Object, e As EventArgs) Handles TextBox2.GotFocus
If TextBox2.Text = "密码" Then
TextBox2.ForeColor = Color.FromArgb(255, 0, 0, 0)
TextBox2.Text = ""
TextBox2.PasswordChar = "*"
Else
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.Show() : Me.Close()
End Sub
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If MessageBox.Show("本程序仅用于帮助ikun通过B站会员转正考试,请勿用于其它非法用途!" + Chr(13) + Chr(10) + "点击是以继续", "免责声明", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) = DialogResult.No Then
End
End If
End Sub
End Class