Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:

client/server + Vbscript + ActiveX

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

client/server + Vbscript + ActiveX

Autor: Daniel

1:01:39 16.11.2005

Dobry den, pokusal som sa vytvorit client/server app v VBscripte s pouzitim ActiveX ale momentalne som na mrtvom bode. Problem je ze sa jaksi client nemoze spojit so serverom tudiz neposle ziadne data a mne vyskoci okrem ineho chybova hlaska :S
prosim o radu ...

/*server.vbs*/
dim data
Set tcpServer = WScript.CreateObject("MSWinsock.Winsock")
tcpServer.LocalPort = 3000

tcpServer.Protocol = sckTCPProtocol
tcpServer.Listen

Sub tcpServer_ConnectionRequest( )
tcpServer.Accept
End Sub

Sub tcpServer_DataArrival(Total)
tcpServer.GetData data
End Sub

While 1
Wend
/*end server.vbs*/

/*Client.vbs*/
Set tcpClient = WScript.CreateObject("MSWinsock.Winsock")
tcpClient.RemoteHost = tcpClient.LocalIP
tcpClient.RemotePort = 3000
tcpClient.Protocol = sckTCPProtocol
tcpClient.Connect
tcpClient.SendData "hello world"
tcpClient.CLose
/*end client.vbs*/

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: