Im having a problem with my server remote and server talking to each other i think it has something with the var streaming. here the code. dig thought it. and what is the code command one here its <code> </code> right
********************************************
.angmonserver
;insight
;the server is on the same computer as the server remote
;the to link but they dont stream right.
;the memory access error pops up for both.
;server remote
ExecFile("C:\Angmon.exe") ;the real server
Return
.talktoserver
angmonserver = OpenTCPStream("127.0.0.1",9090)
If angmonserver <> 0 Then
Print "Connected To Angmon"
Else
Print "Could Not Find Angmon's Server"
EndIf
While Not KeyHit(1)
scmd$ = Input("Sever Command: ")
WriteString angmonserver, scmd$
angmonstream = AcceptTCPStream(angmonserver)
If angmonstream Then
msgback$ = ReadString$(angmonstream)
Print msgback$
Else
EndIf
CloseTCPServer angmonserver
Wend
Return
*****************************************
*****************************************
angmonserver = CreateTCPServer(9090)
;the real server code
AppTitle "Angmon Server v1.00"
If angmonserver <> 0 Then
Print "Angmon Server Up"
Else
Print "Error Starting Angmon Server"
EndIf
While Not KeyDown(1)
angmonstream = AcceptTCPStream(angmonserver)
If angmonstream Then
cmd$ = ReadString$(angmonstream)
Print "Angmon Server Online"
Delay 1000
Else
Print "Angmon Server Online"
Delay 1000
EndIf
Gosub ref
Wend
.ref
If cmd$ = "status" Then
WriteString angmonserver, "Online"
Else
Return
EndIf
Return
*******************************************
please help
********************************************
.angmonserver
;insight
;the server is on the same computer as the server remote
;the to link but they dont stream right.
;the memory access error pops up for both.
;server remote
ExecFile("C:\Angmon.exe") ;the real server
Return
.talktoserver
angmonserver = OpenTCPStream("127.0.0.1",9090)
If angmonserver <> 0 Then
Print "Connected To Angmon"
Else
Print "Could Not Find Angmon's Server"
EndIf
While Not KeyHit(1)
scmd$ = Input("Sever Command: ")
WriteString angmonserver, scmd$
angmonstream = AcceptTCPStream(angmonserver)
If angmonstream Then
msgback$ = ReadString$(angmonstream)
Print msgback$
Else
EndIf
CloseTCPServer angmonserver
Wend
Return
*****************************************
*****************************************
angmonserver = CreateTCPServer(9090)
;the real server code
AppTitle "Angmon Server v1.00"
If angmonserver <> 0 Then
Print "Angmon Server Up"
Else
Print "Error Starting Angmon Server"
EndIf
While Not KeyDown(1)
angmonstream = AcceptTCPStream(angmonserver)
If angmonstream Then
cmd$ = ReadString$(angmonstream)
Print "Angmon Server Online"
Delay 1000
Else
Print "Angmon Server Online"
Delay 1000
EndIf
Gosub ref
Wend
.ref
If cmd$ = "status" Then
WriteString angmonserver, "Online"
Else
Return
EndIf
Return
*******************************************
please help