lamant 发表于 2014-6-5 11:37:59

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

本帖最后由 lamant 于 2014-6-9 17:17 编辑

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 发表于 2014-6-7 20:35:27

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

lamant 发表于 2014-6-9 17:17:40

多谢sunless兄台的指教！
确实运行后会退出~~~{:face (356):}

lamant 发表于 2014-6-10 11:08:42

回复 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 发表于 2014-6-11 00:29:06

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

lamant 发表于 2014-7-1 16:46:04

楼上正解！

kk_lee69 发表于 2014-7-1 16:49:34

回复 5# sunless

大哥 不是吧~~

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

上面的問題是沒有循環所以程式從第一行   執行到最後一行當然就退出啦
页: [1]
查看完整版本: （已解决）每隔一段时间发送一个字符“1“，请问能实现么？