- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]IP 端口 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116332)
-- 发布时间：2018/3/22 22:32:00
-- [求助]IP 端口
老师，
怎么用代码测试下服务器IP 和端口可用呢？ ping？
让录入的信息服务IP地址的规范正则怎么写？
[此贴子已经被作者于2018/3/22 22:40:23编辑过]
-- 发布时间：2018/3/22 22:46:00
--
telnet命令 https://www.baidu.com/baidu?wd=telnet
ip地址正则，参考 https://www.baidu.com/baidu?wd=ip+%E6%AD%A3%E5%88%99
-- 发布时间：2018/3/22 23:12:00
--
老师 ，
telnet FOXTABLE中不让写 应该怎么写？
正则用到FOXTABLE 提示错误 应该怎么写？
-- 发布时间：2018/3/22 23:21:00
--
1、http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=105012&skin=0
2、
Dim pattern As String = "^((25[0-5]|2[0-4]\\d|((1\\d{2})|([1-9]?\\d)))\\.){3}(25[0-5]|2[0-4]\\d|((1\\d{2})|([1-9]?\\d)))$"
Dim txt As String= "192.168.1.302"
Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If rgx.isMatch(txt) = False Then
msgbox("请输入正确的ip!")
Else
msgbox("正确")
End If
-- 发布时间：2018/3/22 23:45:00
--
老师，
telnet
这样写
提示出错 应怎么写啊
Dim data, szData
Dim SmtpServ As New System.Net.Sockets.TcpClient("168.0.0.09", 80)
Dim NetStrm = SmtpServ.GetStream()
Dim RDStrm As New io.StreamReader(SmtpServ.GetStream())
Data = "111222333 " & vbcrlf
szData = System.Text.Encoding.ASCII.GetBytes(Data)
NetStrm.Write(szData, 0, szData.Length)
NetStrm.Flush()
output.show(data)
\' 关闭连接
NetStrm.Close()
RDStrm.Close()
-- 发布时间：2018/3/23 9:17:00
--
try
Dim tcp As New System.Net.Sockets.TcpClient
tcp.connect("192.168.9.9", 80)
msgbox(1)
catch ex As exception
msgbox(2)
End try
-- 发布时间：2018/3/23 9:36:00
--
此主题相关图片如下：qq图片20180323093549.png
-- 发布时间：2018/3/23 9:46:00
--
改成 secode.text