first git

rdp.aspx.vb

@@ -0,0 +1,20 @@
+
+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