IFIX上位機添加IP測試
效果
?
?實現畫面
實現腳本
Option Explicit Private Declare Function GetExitCodeProcess Lib "kernel32" ( _ ByVal hProcess As Long, _ lpExitCode As Long) As Long Private Declare Function CloseHandle Lib "kernel32" ( _ ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Const PROCESS_QUERY_INFORMATION = &H400Const STILL_ALIVE = &H103Private Sub Text2_Click() Dim pid As Long pid = Shell("cmd.exe /C Ping " & "192.168.0.135" & " > c:/ipaac.txt", vbHide) Dim hProc As Long hProc = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid) Dim ExitCode As Long Do Call GetExitCodeProcess(hProc, ExitCode) DoEvents Loop While ExitCode = STILL_ALIVE Text3.Caption = "" Open "c:/ipaac.txt" For Input As #1 Dim strLine As String Do Until EOF(1) Line Input #1, strLine Text3.Caption = Text3.Caption & strLine & vbNewLine Loop Close #1 On Error Resume Next Kill "c:/ipaac.txt" On Error GoTo 0End Sub
文章版權歸作者所有,未經允許請勿轉載,若此文章存在違規行為,您可以聯系管理員刪除。
轉載請注明本文地址:http://specialneedsforspecialkids.com/yun/124449.html
摘要:系統資料整理概論系統,即數據采集與監視控制系統,發展到今天已經經歷了四代。系統的組成從網絡構架來看,系統一般由下位機上位機和通信網絡組成。 SCADA系統資料整理-...
摘要:所以我必須基于自己現在的情況走出一條適合自己情況的成長路線。下位機上位機的思想下位機上位機這就是我自己探索出來的技術成長路線。對和嵌入式的朋友感興趣的朋友可以試一下我這條學習路線 ...
摘要:但是我對此協議并不熟悉,本文便以測試為目的基于西門子模塊主站,采用通訊協議與溫濕度傳感器從站通訊獲取數據。 文章目錄 前言 一、前期準備 二、編寫通訊程序 1.通訊測試工具和軟件 2.編寫TIA Portal程序 三、基于OPC UA的通訊傳輸 總結 前言 最近作者在...
閱讀 928·2021-11-23 09:51
閱讀 993·2021-11-18 10:02
閱讀 1907·2021-09-10 11:27
閱讀 3138·2021-09-10 10:51
閱讀 775·2019-08-29 15:13
閱讀 2064·2019-08-29 11:32
閱讀 2501·2019-08-29 11:25
閱讀 3044·2019-08-26 11:46