Advertisement

04.08.2008 at 12:36AM PDT, ID: 23303790
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
7.5

the target machine actively refused the connection.

Asked by mnadeem22 in .NET Framework 2.x, .NET, Visual Studio

Tags: ,

hi!
I  am trying to connect two pc's through wired Lan,i checked the wired Lan through pinging command and its working.i m trying a ticket confirmation example between computer 'A' and 'B'.We are using Windows XP,VB.NET  as software tool.in our software tool i have used remoting.firewalls of both pc's are disabled but still error appears when we run both applications.
the error is "the target machine actively refused the connection".
plz reply if someone knows the solution .ur co_operation will be appreciated
as soon as possible plz
Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:

'at system 'A' we are running server and its code is:
 
Imports system.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports plzserver
 
Public Class Form1
    Public Sub ticketServer()
 
        Dim myTCPChannel As TcpChannel = New TcpChannel(8888)   'create channel object
        ChannelServices.RegisterChannel(myTCPChannel, True)     'register the channel
 
        'register the object
        RemotingConfiguration.RegisterWellKnownServiceType(GetType(MovieTicket), _
                        "MyRemotingObject", WellKnownObjectMode.SingleCall)
 
 
 
    End Sub
    'interface is used so that changes in datatype (integer in this case) can be 
    'adjusted everywhere easily just by changing it here. (e.g. change integer to string..)
    Public Interface MovieTicketInterface
        Function getTicketStatus(ByVal TicketNo As Integer) As String
    End Interface
    Public Class MovieTicket
        Inherits MarshalByRefObject
        Implements MovieTicketInterface
        Public Function getTicketStatus(ByVal TicketNo As Integer) As String Implements MovieTicketInterface.getTicketStatus
            Dim returnStatus As String
            If TicketNo > 100 Then
                returnStatus = "Ticket confirmed..."
            Else
                returnStatus = "Ticket NOT confirmed..."
            End If
 
            'On server screen whatever happened when client called the server
            MsgBox("Enquiry for " & TicketNo)                'what ticket number was sent from client
            MsgBox("Sending back status " & returnStatus)    'what string was returned to client
 
            Return returnStatus     'string to be returned
 
        End Function
    End Class
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call ticketServer()
    End Sub
End Class
'at system 'B' we have a client and its code is:
 
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Tcp
Imports plz
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
 
        
            Dim myTCPChannel As TcpChannel = New TcpChannel(8888)             'create a tcpchannel
            ChannelServices.RegisterChannel(myTCPChannel, True)         'register the channel
 
            'get the type of object(that we'll use) present in the server
            Dim requiredType As Type = GetType(plzserver.Form1.MovieTicketInterface)
 
            'activate the object providing the type and URL
            Dim remoteObject As plzserver.Form1.MovieTicketInterface = Activator.GetObject(requiredType, "tcp://100.100.100.2:8888/MyRemotingObject")
            MsgBox("Please Enter the Ticker No.")
            Dim TicketNo As Integer = Val(InputBox(""))
            'call the "getTicketStatus" mehtod of the server and display the returned string on screen
            MsgBox(remoteObject.getTicketStatus(TicketNo))
 
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, Me.Text)
        End Try
 
    End Sub
 
 
End Class
---------------------------------------------------------
[+][-]04.16.2008 at 09:43AM PDT, ID: 21369704

View this solution now by starting your 30-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: .NET Framework 2.x, .NET, Visual Studio
Tags: vb.net, Visual Studio2005 Framework 2.0
Sign Up Now!
Solution Provided By: surajguptha
Participating Experts: 1
Solution Grade: B
 
 
 
Loading Advertisement...
20081112-EE-VQP-44 / EE_QW_2_20070628