vb.net - How to received output of at command -

कमांड का आउटपुट कैसे प्राप्त किया जाए।

यह मेरा प्रपत्र:

यह मेरा कोड:

  आयात System.Net लोक क्लास Form1 निजी उप Form1_Load (इस वस्तु के रूप में, ई EventArgs के रूप में) हर एक के लिए MyBase.Load, btnRefresh.Click PortList.Items.Clear () हैंडल स्ट्रिंग के रूप में My.Computer.Ports.SerialPortNames 'का संग्रह उपलब्ध पोर्ट में PortList.Items.Add (क) अगला End Sub निजी उप Button1_Click (इस वस्तु के रूप में, ई EventArgs के रूप में) btnConnect.Click का प्रबंधन करता है btnConnect.Text = "संपर्क में रहें" तो फिर 'बंदरगाह opeing तो SerialPort1.IsOpen फिर SerialPort1.Close () अंत यदि SerialPort1 के साथ प्रयास करें .PortName = PortList.Text .BaudRate = 115200 .ReadBufferSize = 500 .Parit y = IO.Ports.Parity.None .DataBits = 8 .StopBits = IO.Ports.StopBits.One .Handshake = IO.Ports.Handshake.None SerialPort1.Open () btnConnect.Text = "डिस्कनेक्ट" PortList.Enabled के साथ समाप्त = पकड़ने पूर्व के रूप में अपवाद MsgBox (ex.Message) अंत के साथ lblStatus .text = "कनेक्ट" .ForeColor = Color.Green अंत के साथ झूठी बंद करने बंदरगाह SerialPort1.Close (प्रयास करें वरना प्रयास करें ') btnConnect.Text = "संपर्क में रहें" PortList.Enabled = lblStatus .text = "कनेक्ट नहीं है" .ForeColor = Color.Red पकड़ने पूर्व के रूप में अपवाद MsgBox (ex.Message) अंत के साथ अंत के साथ यह सच है तो End Sub निजी उप अंत कोशिश Form1_FormClo एसईडी (इस वस्तु के रूप में, ई FormClosedEventArgs के रूप में) MyBase.FormClosed प्रयास करें SerialPort1.Close () 'सीरियल पोर्ट पकड़ने पूर्व बंद करने के रूप में अपवाद MsgBox (ex.Message) सिरे से दूसरे सिरे का प्रयास करें हैंडल उप निजी उप Button1_Click_1 (इस वस्तु के रूप में, ई EventArgs के रूप में) हैंडल बीटीएनएंडेंड। क्लिक करें अगर UssdInput.Text.Length & lt; 1 तब से बाहर निकलें उप (& amp "+ CUSD = 1, एटी"; Chr (34) & amp; UssdInput.Text & amp; Chr (34) & amp; ", 15" & amp; vbCrLf) SerialPort1.WriteLine प्रयास करें 'कमांड UssdOutput पर भेजें। पाठ = पकड़ने पूर्व SerialPort1.ReadExisting.ToString अपवाद MessageBox.Show (ex.Message, "त्रुटि", MessageBoxButtons.OK, MessageBoxIcon.Error) समाप्त UssdInput .SelectAll (के साथ प्रयास करें) .Focus () End Sub निजी उप के साथ अंत के रूप में Button2_Click (इस वस्तु, ई EventArgs के रूप में के रूप में) MsgBox (System.Net.Dns.GetHostEntry (System.Net.Dns.GetHostName) .AddressList (1) .ToString ()) End Sub निजी उप UssdInput_KeyPress (इस वस्तु के रूप में, ई KeyPressEventArgs के रूप में ) हैंडल UssdInput.KeyPress तो e.KeyChar = vbCr फिर btnSend.PerformClick () अंत तो End Sub समाप्ति कक्षा  

आपको सीरियल पोर्ट का इवेंट सुनना होगा। यहाँ एक उदाहरण है:

  निजी उप SerialPort1_DataReceivedHandler (इस वस्तु के रूप में, ई SerialDataReceivedEventArgs के रूप में) हैंडल SerialPort1.DataReceived आह्वान (उप () UssdOutput.Text & amp; = SerialPort1.ReadExisting ()) End Sub < / कोड>