View Single Post
  #1 (permalink)  
Old November 8th, 2007, 04:29 PM
remya1000 remya1000 is offline
Authorized User
Points: 386, Level: 6
Points: 386, Level: 6 Points: 386, Level: 6 Points: 386, Level: 6
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Sep 2007
Location: windsor, toronto, Canada.
Posts: 62
Thanks: 0
Thanked 0 Times in 0 Posts
Default Exception from HRESULT : 0x800A2740.

i'm using Vb.net application. where i'm trying to Start programs from remote machine. and i'm using winsock for send and receive. and Before it works fine. but now while i try to start programs from remote machine one of the program is not starting in remote machine and its showing some error. and all other programs were opening in remote machine. and the program that not opening also use winSock. i just quote that below.

Quote:
quote:
An unhandled exception has occured in your application. if you click Continue, the application will ignore this error and attempt to continue. if you click Quit, the application will be shut down immediately.

Exception from HRESULT : 0x800A2740.
Quote:
quote:
System.Runtime.InteropServices.COMException (0x800A2740): Exception from HRESULT: 0x800A2740.
   at MSWinsockLib.IMSWinsockControl.Bind(Object LocalPort, Object LocalIP)
   at AxMSWinsockLib.AxWinsock.Bind(Object localPort, Object localIP)
This is the code i'm receiving to Start program in remote machine. (Code used in program that's not opening)
Code:
wsReceive.Close()
wsReceive.LocalPort = 1223
wsReceive.Bind()

Private Sub wsReceive_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles wsReceive.DataArrival
        Dim str As String
        wsReceive.GetData(str, vbString)
        FormatMessage(str)

        If MessageType = "StartPgm" Then       'Start Program in local machine
            Shell(Chr(34) & ProgramPath & Chr(34), AppWinStyle.NormalFocus)
        End If
End Sub
This is code used to send to remote machine to open program...
Code:
wsSend.Close()
wsSend.Connect(strTerminalName, 1223)
If wStartPath <> "" Then
     sendstring(wStartPath)
End If

Public Sub sendstring(ByVal sdata As String)
        wsSend.SendData(sdata)
    End Sub
if you have any idea please let me know. please help me. before it worked fine... now once one program its not able to start.

thanks in advance.
Reply With Quote