Dim nhsoclient As ServiceReference1.UCWSTokenP1Client = New ServiceReference1.UCWSTokenP1Client
Dim uid As String = txtUID.Text
Dim token As String = "asd12221231ss2s2sd12"
Dim nhsoDataset1 As New ServiceReference1.nhsoDataSetC1
nhsoDataset1 = nhsoclient.searchCurrentByPID(uid, token, Me.PS_IDCode.Text)
NhsoDataSetC1BindingSource.DataSource = nhsoDataset1
Dim nhsoclient As ServiceReference1.UCWSTokenP1Client = New ServiceReference1.UCWSTokenP1Client
Dim uid As String = txtUID.Text
Dim token As String = txtToken.Text
Dim nhsoDataset1 As New ServiceReference1.nhsoDataSetC1
nhsoDataset1 = nhsoclient.searchCurrentByPID(uid, token, Me.PS_IDCode.Text)
NhsoDataSetC1BindingSource.DataSource = nhsoDataset1
Function readTextFile(file)
Dim fileReader As String
Dim strArr() As String
fileReader = My.Computer.FileSystem.ReadAllText(file)
strArr = fileReader.Split("#")
txtUID.Text = strArr(0)
txtToken.Text = strArr(1)
End Function
Function readTextFile(file)
Dim strArr() As String
Dim fileReader() As String = My.Computer.FileSystem.ReadAllText(file)
strArr = fileReader(0).Split("#")
txtUID.Text = strArr(0)
txtToken.Text = Trim(strArr(1))
End Function
Load balance : Server 00
