首页 » ASP代码 » w3Sockets使用

w3Sockets使用

这个组件在此下载：http://www.dimac.net/products/freeproducts/w3sockets/reference/refstart.htm#waitfordisconnect使用方法，顺便说下这个返回的是utf8，如果是显示到gb页面上要转码但中文转出来是有问题的，所以可以说他不完美，完美的还是php那个例子什么都通吃 http://www.suntw.com/webcode/php-zhuan-ma-heng-fang-bian-teln.html

Function w3Telnet(server,port,cmdline)
	On Error Resume Next 
	Dim socket:set socket=CreateObject("socket.tcp")
	socket.Host= server & ":" & port
	socket.TimeOut=20000
	socket.Open
	socket.sendLine cmdline
	Call socket.WaitForDisconnect()
	w3Telnet = socket.Buffer
	'Linux 都是基于 vblf 而windows是 vbcrlf
	w3Telnet = Replace(w3Telnet&"",vbcr,"")
	socket.close():Set socket=nothing
End Function

, , , , ,

转发到新浪微博 转发到新浪微博

目前这篇文章有1条评论(Rss)

  1. Bankruptcy Discharge Copies | #1
    05/17/2012 at 08:14
     

    Make haste slowly.

我要评论

上一篇：

下一篇：