please download the attach and what am trying to archive is using the server opening it using the index
so we dont need to open multi exe server.
i need to use the server using index so i can use multi of that server with random ports please help how i can do this
CSX1 is the voice control i want to index that to (0) and run that
i have a list1 in project and i need to add for each CSX1 index in list1 and when i click the index in list1 then that index should load the project items
here is source
http://www.sendspace.com/file/3ve6mz
once again
click command 4 and select how many index of that server to add to list1
then once added when clicked on each index in list1 that index should load with its own settings,own port etc
so we dont need to open multi exe server.
i need to use the server using index so i can use multi of that server with random ports please help how i can do this
Code:
Option Explicit
Dim List As ListItem
Dim f2 As New Form1
Private Sub Command1_Click()
If Command1.Caption = "Start" Then
Start
Command1.Caption = "Stop"
Else
Timer1.Enabled = False
CSX1.Stop
Command1.Caption = "Start"
End If
End Sub
Private Sub Command2_Click()
If ListView1.ListItems.Count <= 0 Then Exit Sub
CSX1.DisconnectClient Val(ListView1.SelectedItem.Text)
End Sub
Sub Disconect()
CSX1.Stop
ListView1.ListItems.Clear
End Sub
Sub Start()
CSX1.MaxClient = Val(txtMax)
CSX1.Protocol = UDP
CSX1.PcmSamplesPerSec = Val(Txtrate)
CSX1.Port = Val(TxtPort)
CSX1.Start
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Dim x
ListView1.ListItems.Clear
For x = 0 To CSX1.ClientCount - 1
Set List = ListView1.ListItems.Add(, , CSX1.GetClient(x))
List.SubItems(1) = CSX1.GetClientIP(Val(CSX1.GetClient(x)))
List.SubItems(2) = CSX1.GetClientPort(Val(CSX1.GetClient(x)))
Next
End Sub
Private Sub Command4_Click()
f2.Show
f2.TxtPort.Text = ""
f2.TxtPort = "17821"
f2.Command1.Value = True
f2.Visible = False
End Sub
Private Sub Command5_Click()
Me.Caption = Text1
End Sub
Private Sub Form_Load()
CSX1.InitServer
txtMax = CSX1.MaxClient
Txtrate = CSX1.PcmSamplesPerSec
TxtPort = CSX1.Port
End Sub
Private Sub Form_Unload(Cancel As Integer)
Timer1.Enabled = False
CSX1.Stop
CSX1.UnInitialize
End
End Sub
Private Sub Timer1_Timer()
Label2.Caption = "Status : " & CSX1.Active & " Client " & CSX1.ClientCount & " Of " & CSX1.MaxClient
If CSX1.Active Then
Command1.Caption = "Stop"
Else
Command1.Caption = "Start"
Timer1.Enabled = False
End If
End SubCSX1 is the voice control i want to index that to (0) and run that
i have a list1 in project and i need to add for each CSX1 index in list1 and when i click the index in list1 then that index should load the project items
here is source
http://www.sendspace.com/file/3ve6mz
once again
click command 4 and select how many index of that server to add to list1
then once added when clicked on each index in list1 that index should load with its own settings,own port etc