I just tried it out and put the name of the computer for server, WORKGROUP for the domain, since we are on a workgroup, me for username, and me for password. When I ran it, it didn't do anything. any suggestions greatly appreciated. also, how do I "accept" an answer? im kind of new here. Thanks I was able to get a remote desktop app that you can control the users computer, but the screen is all sideways and messed up, is there a way to fix that? It is using the AXrdpViewer. also, is there a way to make it to where I can disable being able to control the computer? I have tried putting a form over it, but that didn't work Here is the code for the client:
Imports RDPCOMAPILib
Imports System.Net.Sockets
Public Class Form1
Dim x As New RDPSession
Dim clientSocket As New System.Net.Sockets.TcpClient()
Dim serverStream As NetworkStream
Dim readData As String
Dim infiniteCounter As Integer
Dim a As String
Dim b As String
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer
Private Sub Incoming(ByVal Guest As Object)
Dim MyGuest As IRDPSRAPIAttendee = Guest
MyGuest.ControlLevel = CTRL_LEVEL.CTRL_LEVEL_INTERACTIVE
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim strHostName As String
strHostName = System.Net.Dns.GetHostName()
a = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()
b = 'Username
readData = "Conected to Chat Server ..."
clientSocket.Connect("IP ADDRESS", 8888)
'Label1.Text = "Client Socket Program - Server Connected ..."
serverStream = clientSocket.GetStream()
Dim outStream As Byte() = \_
System.Text.Encoding.ASCII.GetBytes(b + "$")
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()
AddHandler x.OnAttendeeConnected, AddressOf Incoming
x.Open()
Dim Invitation As IRDPSRAPIInvitation = x.Invitations.CreateInvitation("Trial", "MyGroup", "", 10)
outStream = System.Text.Encoding.ASCII.GetBytes("V" + "$")
serverStream.Write(outStream, 0, outStream.Length)
outStream = System.Text.Encoding.ASCII.GetBytes("V" + Invitation.ConnectionString + "$")
serverStream.Write(outStream, 0, outStream.Length)
End Sub
End Class
Here's is the code for the Viewer:
Imports System.Net.Sockets
Public Class Form1
Dim c