HI,
I am trying to dial a computer from another computer using Modem for sending files and messge.Follwoing is the code done in dialing computerBut after the dial tone, i am getting the exception "CTL_E_GETNOTSUPPORTED " at the line MSComm1.Output = Text1.Text Can you please tell me what may be reason for this .Code:Text1.Text = "Test string from App1 " Number$ = InputBox$("Enter phone number:", "Number$") If Number$ = "" Then Exit Sub Temp$ = Status Status = "Dialing - " + Number$ DialString$ = "ATDT" + Number$ + ";" + vbCr On Error Resume Next If MSComm1.PortOpen = False Then MSComm1.CommPort = 4 MSComm1.Settings = "9600,N,8,1" MSComm1.PortOpen = True MSComm1.RThreshold = 1 MSComm1.RTSEnable = True MSComm1.SThreshold = 1 'MSComm1.Handshaking = MSCommLib.HandshakeConstants.comRTS End If MSComm1.Output = DialString$ Do Temp$ = Temp$ & MSComm1.Input If InStr(Temp$, "NO DIALTONE" & vbCrLf) Then End End If Loop Until InStr(Temp$, "OK" & vbCrLf) MSComm1.Output = Text1.Text




Reply With Quote
