国产xxxx99真实实拍_久久不雅视频_高清韩国a级特黄毛片_嗯老师别我我受不了了小说

資訊專欄INFORMATION COLUMN

IFIX上位機網絡測試畫面

BigNerdCoding / 927人閱讀

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系統資料整理-概論

    摘要:系統資料整理概論系統,即數據采集與監視控制系統,發展到今天已經經歷了四代。系統的組成從網絡構架來看,系統一般由下位機上位機和通信網絡組成。 SCADA系統資料整理-...

    hqman 評論0 收藏0
  • 三年探索:一條自控、電信/科類學生的技術成長路線

    摘要:所以我必須基于自己現在的情況走出一條適合自己情況的成長路線。下位機上位機的思想下位機上位機這就是我自己探索出來的技術成長路線。對和嵌入式的朋友感興趣的朋友可以試一下我這條學習路線 ...

    Miracle 評論0 收藏0
  • 02_基于西門子CM1241的ModbusRTU串口通訊實現

    摘要:但是我對此協議并不熟悉,本文便以測試為目的基于西門子模塊主站,采用通訊協議與溫濕度傳感器從站通訊獲取數據。 文章目錄 前言 一、前期準備 二、編寫通訊程序 1.通訊測試工具和軟件 2.編寫TIA Portal程序 三、基于OPC UA的通訊傳輸 總結 前言 最近作者在...

    不知名網友 評論0 收藏0

發表評論

0條評論

最新活動
閱讀需要支付1元查看
<