20 lines
336 B
VB.net
20 lines
336 B
VB.net
|
|
Partial Class _Default
|
|
Inherits System.Web.UI.Page
|
|
Sub test()
|
|
|
|
End Sub
|
|
|
|
Sub RDP_CLICK()
|
|
Select Case InputBox("RDP-KEY:")
|
|
|
|
Case "test"
|
|
MsgBox("OK")
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
End Sub
|
|
End Class |