frmlogin.vb

（完整代码） 624B 

Public Class frmlogin

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim = "" Then
            Me.TextBox1.Focus()
            Exit Sub
        End If

        If TextBox1.Text.Trim.ToLower = ("@wender" & Now.Day * 2 & "8").ToLower Then
            DialogResult = DialogResult.OK
        Else
            TextBox1.Text = ""
            Me.TextBox1.Focus()
            Exit Sub
        End If
    End Sub

    Private Sub frmlogo_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Me.TextBox1.Focus()
    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。