（已解决）每隔一段时间发送一个字符“1“，请问能实现么？

lamant

TCPStartup()

Local $sIPAddress = "127.0.0.1"

Local $iPort = 65432

Local $iSocket = TCPConnect($sIPAddress, $iPort)

If @error <> 0 Then Exit

AdlibRegister("Timer", 5000)


Func Timer()

   TCPSend ( $iSocket, "1" )

EndFunc

sunless

你的代码不就能实现吗。
只是 如果只有上面的代码，程序会运行后退出。  最后加个死循环就行了。
while 1
sleep(100)
wend

lamant

多谢sunless兄台的指教！
确实运行后会退出~~~

lamant

回复 2# sunless


Opt('TrayAutoPause', 0)

TCPStartup()

$iSocket = TCPConnect("127.0.0.1", 65532)

If @error <> 0 Then Exit

AdlibRegister("Timer", 1000)

While 1

   Sleep(100)

WEnd

Func Timer()

     TCPSend ( $iSocket, "1" )

EndFunc

%>_<%，为什么还会退出呢，求教！

sunless

If @error <> 0 Then Exit  问题在这里吧. 是不是 无法建立连接 所以就退出了

lamant

楼上正解！

kk_lee69

回复 5# sunless

大哥 不是吧~~

那個是只說 有問題就退出   有問題當然要退出 幹嘛還待著

上面的問題是  沒有循環  所以  程式  從第一行   執行到最後一行  當然就退出啦