vb.net网络延时的简单介绍

VB.NET有延时也会被卡死

Threading.Thread.Sleep(500)这句是线程停止等待的，在这500毫秒的时间里你的任何动作都是不响应的，理论上再SendKeys.Send(TextBox2.Text)这段时间内你可以动作，但是send是毫秒级完成的，你还没有来得及响应就进入了下一次的循环，所以跟卡死类似

成都创新互联公司-专业网站定制、快速模板网站建设、高性价比冷水滩网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式冷水滩网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖冷水滩地区。费用合理售后完善，10余年实体公司更值得信赖。

解决方法：通过timer定时器延时

VB.net 如何ping一个ip地址并获取延迟值？

Dim b As Boolean = My.Computer.Network.Ping("192.168.1.1", 1000) '返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果 

If b = True Then '指定时间内ping通

Shell("cmd /c ping 192.168.1.1  C:\time.txt") '在C盘time.txt文件中保存ping的结果

Else '超时

MsgBox("999") '弹出999提示

End If

VB.NET的几种延时方法

Imports System.Threading

Thread.Sleep(1000)’延迟1秒

2.PauseWait(1000)’延迟1秒

Public Sub PauseWait(ByVal HowLong As Long)

Dim tick As Long

tick = My.Computer.Clock.TickCount

Do

My.Application.DoEvents()

Loop Until tick + HowLong My.Computer.Clock.TickCount

End Sub

如何正确理解VB.NET延时函数

第一个for完成对delay_time参数的控制，即共循环多少次内部循环

第二个for（内部循环），完成对j从0到199的控制，共循环200次。

翻译成汇编就是：

(R0为传递参数)

DELAY:

MOV R1,#200

DJNZ R1,$

DJNZ R0,DELAY

RET