help on socket programming in vb.net - Visual Basic Discussion Boards

Brilliant, I've got that working now. Many thanks.

Const SPI_SETHIGHCONTRAST = 67
Private Const HCF_HIGHCONTRASTON = &H1 'HighContrast is currently on.

Private Type HIGH_CONTRAST
cbSize As Long
dwFlags As Long
lpszDefaultScheme As Long
End Type

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" ( _
ByVal uAction As Long, _
ByVal uParam As Long, _
lpvParam As Any, _
ByVal fuWinIni As Long) As Long

Sub Test()
' Pass a value of false to switch high contrast off or true to switch it on
Call SetHighContrast(False)
End Sub

Sub SetHighContrast(Contrast as Boolean)
Dim tHC As HIGH_CONTRAST

tHC.cbSize = Len(tHC)
tHC.lpszDefaultScheme = 0

If Contrast = True Then
tHC.dwFlags = HCF_HIGHCONTRASTON
ElseIf Contrast = False Then
tHC.dwFlags = 0
End If

SystemParametersInfo SPI_SETHIGHCONTRAST, Len(tHC), tHC, 0
End Sub

Good work and
Your welcome, again.

progload

Dear jonathan15
ur code was very useful for me thanks alot..but :
How can I show own message box on top of word document? in your code that message box is behind the word document and user have to click on vb form to visit it.

Is there anyway to show network information such as Ip address in text boxes

BINARY

use the system.net.dns refrence u can get many method

Ishak

How do I open a folder Path using a Listview? At the same time, is it possible to have treeview in the ListView? You have the Folder names and when you click on the folders there are child files that pop out and as you click on them they open in a RichTextBox?

This might help with what you want to do:

http://www.codeproject.com/vb/net/VbNetExpTree.asp

pls help me. i wonder why my server cannot send a message to my client and my client cannot read from server. anyone pls help me to debug or give me tip to do it by showing wats the command to write.My deadline for this project is comong soon. Pls help me. thanks a lot.

here is my source code

server:

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Private Client As TcpClient
Private Listener As Socket
Private RemotePort As Integer = 1337
Private RemoteHost As String = "localhost"
Dim add As IPAddress = IPAddress.Parse("220.255.41.189")
Public Shared Connected As New ManualResetEvent(False)

#End Region

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub blisten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blisten.Click

Listener = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Listener.Blocking = False
Listener.Bind(New IPEndPoint(add, RemotePort))
Listener.Listen(1)

ListBox1.Items.Add("Waiting for connection...")

Listener.BeginAccept(New AsyncCallback(AddressOf AcceptConnection), Listener)
End Sub
Public Sub AcceptConnection(ByVal ar As IAsyncResult)
ListBox1.Items.Add("Connection established.")
Connected.Set()

Dim serverSock As Socket = CType(ar.AsyncState, Socket)
Dim clientSock As Socket = serverSock.EndAccept(ar)
Dim buffer(1024) As Byte

While True
If (clientSock.Poll(100, SelectMode.SelectRead)) Then
Dim count As Integer = clientSock.Receive(buffer)
ListBox1.Items.Add(System.Text.Encoding.ASCII.GetString(buffer, 0, count))
End If
End While
End Sub

Private Sub bsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsend.Click
Dim Stream As NetworkStream = Client.GetStream()
Dim dataSend As [Byte]() = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text)
'Send Message
Stream.Write(dataSend, 0, dataSend.Length)

Stream.Flush()
End Sub
End Class

my client source code:

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Imports System.Text
Public Class Form1
Inherits System.Windows.Forms.Form
Private Client As TcpClient
Private Listener As Socket
Private RemotePort As Integer = 1337
Private RemoteHost As String = "localhost"
Dim add As IPAddress = IPAddress.Parse("220.255.41.189")
Public Shared Connected As New ManualResetEvent(False)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub bconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bconnect.Click
Try
Client = New TcpClient
Client.Connect(add, RemotePort)
Catch ex As Exception
ListBox1.Items.Add("No route to host.")
End Try
End Sub

Private Sub bsend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsend.Click
Dim Stream As NetworkStream = Client.GetStream()
Dim dataSend As [Byte]() = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text)
'Send Message
Stream.Write(dataSend, 0, dataSend.Length)

Stream.Flush()
End Sub
Public Sub AcceptConnection(ByVal ar As IAsyncResult)
ListBox1.Items.Add("Connection established.")
Connected.Set()

Dim serverSock As Socket = CType(ar.AsyncState, Socket)
Dim clientSock As Socket = serverSock.EndAccept(ar)
Dim buffer(1024) As Byte

While True
If (clientSock.Poll(100, SelectMode.SelectRead)) Then
Dim count As Integer = clientSock.Receive(buffer)
ListBox1.Items.Add(System.Text.Encoding.ASCII.GetString(buffer, 0, count))
End If
End While
End Sub

For sending messages and files over network you can see many articles and you can get refrences that is fully managed .so you can use in your project.if you are in neck.

eample :unolibs.Net.dll its vey useful.search here in articls or googling it

Ishak

Hallo together,

I want to write a VB6 application using TAPI interface.
It should show the list of TAPI providers on the PC and e.g. receive TAPI call events from a specific TSP.

Therefore I need the TAPI SDK (controls, drivers, samples, etc.) for Windows 2000 as mentioned on this site. But it is not available anymore on the Microsoft site.
Would be anyone so kind and would send me this sdk by email to falk.hertel@t-online.de?
I hope that I will be able to code this app then!...

Thank you so much.

Best wishes, Falk

The TAPI SDK is part of the Platform SDK. Noone on this earth is going to email that to you 'cause it can weigh in at over 400MB.

You can start the web install for the Platform SDK from here[^]. Keep in mind that this SDK targets C++, not VB, so most of the examples will, obviously, be in C++.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Hallo Dave,

thanks for your answer and the given link. But this one I know. You can only get the new Platform SDK. There is a service to buy older versions but you have to have an credit card. I don't have and need such a crd. In Europe we use EC-cards much more.
The Americans cannot imagine that this is the fact. They don't support direct banc transfer as well. Don't understand that!...

So I need the help of others - like you.
I found out that it actually seems not to be possible to get a separate TAPI package but only the big Platform SDK - as you mentioned.
So are you able to send me this CD? I will pay for your kindness in advance onto your banc account of course!! Tell me the costs.
See, any platform SDK from last year or older is okay. VB6 still was supported that time and therefore VB6 examples etc. will be included.
Which version do you have?

Thank you very much for your help, Dave.

Best wishes, Falk

softterrier@web.de wrote:
There is a service to buy older versions but you have to have an credit card. I don't have and need such a crd. In Europe we use EC-cards much more.
The Americans cannot imagine that this is the fact. They don't support direct banc transfer as well. Don't understand that!...

We use Debit card attached to bank accounts, they're not too much different.

softterrier@web.de wrote:
So are you able to send me this CD?

Nope.

I always download the thing so I don't have to CD's and never worry about getting them.

The last version that still supported VB6 was the February 2003 Edition, which you can only get on CD's. You would have a better chance finding someone in the UK that still has the CD's or can get the UK CD's for you.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Hi
I am new to vb.net can anyone tell me how to populate the all the child nodes present in a parent node of a treeview control into listview when a parent node of a treeview is selected or clicked

thanks in advance

Kalyan

Doesn't the parent node have a child nodes property you can use ?

Christian Graus - Microsoft MVP - C++

No it does'nt have that property

There's no way to iterate through the child nodes of a particular node ? That would make that control complete crap. It would also mean it can't be done.

The WinForms TreeControl has a TreeNode class, which represents one node in the view. Like the node you're talking about. That node has a property called ChildNodes. That is what you need.

Christian Graus - Microsoft MVP - C++

I don't want to add nodes to treeview i want to get all the child nodes added to listview when a parent node of a treeview is clicked

That's exactly what Christian is suggesting you to do, iterate through the child nodes and add them to the listview. Something like

void AddToList(TreeNode parent)
{
   foreach(TreeNode child in parent.Nodes)
   {
      listView.Items.Add(child.Text);
   }
}

Regards
Senthil
_____________________________
My Blog | My Articles | WinMacro

Just a note, if you wish to parse through ALL child nodes, I suggest that a recursive method should be used to parse all sub-children of the children of the selected parent node. In other words, if you use the above code all you will get in your listview is your 1st generation children of the parent passed in.

Example:

Parent
-child1
-subchild1
-subchild2
-child2

You will only get child1 and child2 to show up.

Hello all, i'm just really getting started with VB.NET and could use
some help with a project i am doing for class.

I am designing a mock student registration client and i need to use
Two List Boxes, with 4 buttons in between the two boxes to add/remove
add all/remove all for each selection.

It would work something like this. The Left List Box would contain
classes available, and the Right List Box would contain classes the
user has selected. I am wondering if there is a Windows Form addon
or something i can use to add this functionality.

So, to sum up, left box>classes avail. if user clicks class and
presses add, the class needs to move to the right list box which is
classes taken. and vice versa.

Any help would be appreciated.
Thanks

The list box exposes a property of items selected. Iterate through it, and remove each item from one, and add it to the other.

msdn.microsoft.com is the Microsoft help page. You should look there first, look up listbox, and at the bottom will be a link to listbox properties. That will list everything the listbox does, which is always a good place to start.

Christian Graus - Microsoft MVP - C++

Is it possible to build a very specific file & folder search?. For example just like the file finder that windows has built in?. If it is, is there any way that someone can show me examples of what to use, how to use, like, namespaces, classes, etc. Or a website with some real help?. I really need to write my own programs things are getting very specific at work and the programs that we have do not really do what we want. The only way is by writing our own.

I had to do a file search one day, it may help you.
here it is :

<font color=blue>Dim</font> dlg <font color=blue>As OpenFileDialog</font>
<font color=blue>Dim</font> rep <font color=blue>As String</font>
<font color=blue>Dim</font> aff, a <font color=blue>As String</font>
<font color=blue>Dim</font> liste <font color=blue>As New ArrayList</font>
aff = ""
dlgouvrir = <font color=blue>New OpenFileDialog</font>
dlg.InitialDirectory = "."
dlg.Title = "searching the Tarifs.txt file"
dlg.Filter = "text|*.txt"
dlg.DefaultExt = "txt"
dlg.AddExtension = <font color=blue>True</font>
dlg.CheckFileExists = <font color=blue>True</font>
dlg.Multiselect = <font color=blue>False</font>
dlg.ShowDialog()
rep = dlg.FileName

<font color=green>//the following is used to read the content of this file.</font>
<font color=green>//It uses a ctrl object I created.</font>
<font color=blue>If Not</font> IsNothing(rep) <font color=blue>Then</font>
    liste = ctrl.read(rep)
<font color=blue>Else</font>
    liste = <font color=blue>Nothing</font>
<font color=blue>End If</font>

hello, I want to disable de double click event in treeview.

The reason is that I don't want that when you do double click over a node, automatically unfolds a child node, and I don't want this.

how I can do that when I do double click in a node, don't occurs anything?

Thanks