?? form1.vb
字號:
Imports RDPCOMAPILib
Public Class Form1
Dim x As New RDPSession
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AddHandler x.OnAttendeeConnected, AddressOf Incoming
x.Open()
End Sub
Private Sub Incoming(ByVal Guest As Object)
Dim MyGuest As IRDPSRAPIAttendee = Guest
MyGuest.ControlLevel = CTRL_LEVEL.CTRL_LEVEL_INTERACTIVE
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Invitation As IRDPSRAPIInvitation = x.Invitations.CreateInvitation("Trial", "MyGroup", "", 10)
TextBox1.Text = Invitation.ConnectionString
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
x.Close()
x = Nothing
End Sub
End Class
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -