Visual Basic Forum: Assuming I have truyen.exe file, I want to give notice to truyen.exe file to output the message with the syntax: Drive:\truyen.exe "example communication", I want to pass the file to truyen.exe. how to declare exe yourself?...
Visual Basic Forum: can anyone give me the vb6 code to convert .txt file to .xlsx file...
Visual Basic Forum: Ok, I created my own font for a replacement for English. I use it in my personal journal both on the pc and on paper. Right now, in my Revenline journal program I designed, I use an ascii shift cypher to give a low level of encryption. The nice thing about that is that it encodes the spaces too, so looking at the data through a file viewer, you see...
Simple system TCP Client-Server on VB Ebook. Programming Client + Server (with TCP) on Visual Basic
Let’s write a simple set out of two programs – client and serverapplications, transmitting information and commands through the network using the protocol TCP. We will use network functions through Microsoft WinsockControl.
We write the actions to be performed at the start of Server. During loading the form Form1 we will check whether the connection sckConnected is available and check that the program is not under the listening mode of the prescribed port sckListening.
Private Sub Form_Load() ‘’oflameron - name Winsock Form1.Visible = True ‘’Form1 is visible
If oflameron.State <> sckConnected And oflameron.State <> sckListening Then
oflameron.Close ‘’ All the connections are switched off
oflameron.Listen ‘’Listen port
You may choose the number of port yourself. The ports range from 1 up to 65535. However, some ports are reserved for some standard services. It is recommended to choose the number of a port unused by mail or telnet.
One may indicate the number of a port in a program using several manners:
- select port 125, select Protocol 0-TCP
Let’s write the procedure of handling a request for connection.
Private Sub oflameron_ConnectionRequest(ByVal requestID As Long) oflameron.Close ‘’Listen close
oflameron.Accept requestID ‘’ Let’s tap a Client with the number of his request
Now Let’s write the handler of requests received from the clients. We place Text1 in the field of the form TextBox. On TextBox we will write the incoming commands (text commands)
Private Sub oflameron_DataArrival(ByVal bytesTotal As Long) Dim Data As String
Text1.Text = Data
If Data = "END" Then End
If Data = "NOTEPAD" Then Shell ("notepad.exe")
It is sufficient for a simplest server part. Now one shall compile the project, for example, in the file Server.exe
Let’s create a new EXE project. In the field of the form we place the text fields IP and Port. In the field IP there will be the IP address of the computer (one may start up the both parts on one computer), where the server part (that was developed above) is started up. Right away in the field Port one may set the number of the port which “listens” to the server application.
Let’s place the buttons and Winsock Control in the field of the form
Connect - Command1 CommandButton – connect to Server
Disconnect - Command2 CommandButton – Server disconnect
Send Message - Command3 CommandButton – send message to Server in Text1.Text
Load Notepad - Command4 CommandButton – load Notepad.exe on Server
Close Server - Command5 CommandButton – Close Server.exe
Let’s determine IP-address of the computer where the client part is started up. It is more probably that you will write and debug the programs on one computer, therefore the working IP-addresses of the server and client parts will coincide. If the Server and a client are on the different computers connected to the network, one need to enter the IP of computer in the client part where the server is located.
You may find out the IP-address of computer by using the command ipconfig –all
Let’s write the procedure of determining the IP-address of the computer
Private Sub Form_Load() IP.Text = wsock.LocalIP
Let’s will write the procedures for buttons
Connect - Command1 CommandButton – connect to Server
Private Sub Command1_Click()- START YOUR WORK BY PRESSING IT!!!! wsock.Close ‘’Connections close
wsock.RemoteHost = IP ‘’IP-address of Server
wsock.RemotePort = Port ‘’The number of the port is set in Port.Text (TextBox) - 125
wsock.Connect ‘’Set connection
Disconnect – Command2 CommandButton – Server disconnect
Private Sub Command2_Click() wsock.Close ''Close connection
Send Message – Command3 CommandButton – To send a message to the Server in Text1.Text
Private Sub Command3_Click() If wsock.State <> sckConnected Then Exit Sub
Load Notepad – Command4 CommandButton – load Notepad.exe on Server
Private Sub Command4_Click() If wsock.State <> sckConnected Then Exit Sub
Close Server – Command5 CommandButton – Server.exe close
Private Sub Command5_Click() If wsock.State <> sckConnected Then Exit
It is sufficient for a simplest client part. Now one shall compile the project, for example, in the file Client.exe
The full VB-projects of the server and client parts are in the filevbnetv.zip
Visual Basic Example: How (do you) would you handle a problem when you need to have a numeric property (for example integer) and 0 and not assigned are not equal?
Private m_iMyNumber As Integer
Public Property Get MyNumber() As Integer
MyNumber = m_iMyNumber
Public Property Let MyNumber(ByVal iMyNumber As Integer)
Visual Basic Example: So to rename things in 'Computer'/'This PC' you can't just use the normal rename command... changing anything with a drive letter is fine, I've implementing renaming those using SetVolumeLabel... but how do I rename attached devices like cameras and phones that don't have a drive letter?
SetVolumeLabel fails with both the existing friendly name and...
Visual Basic Example: I have a VB6 .exe program that opens Excel files and converts them to Access database files, among other things. Everything has been working well since the late 90s, and I have been able to keep everything working through all the versions of Windows through Windows 10 and Office up through 32-bit Office 2016. The program uses ADODB and works well...
Free Visual Basic and Winsock ebook. Free ebook - TCP client - server
Free Tutorials - Archive of free ebooks for beginners programmers on Visual Basic, Delphi, Java, VBA, PHP, HTML All the tutorials contain the necessary illustrations, step-by-step description of programming process, full listings of programs, and examples of codes for each stage of development. Some tutorials have been developed for programmers in VB, Delphi and Java simultaneously, they are absolutely identical. It allows easy beginning the studying of other programming languages.
If our tutorials are useful for you, place any tutorials on your web-site for free download, please. It is allowed using tutorials for training, for work, for publications, for creating web-pages etc. It is allowed including tutorials in mailing lists, archives of programs, periodicals (on CD, DVD and other data carriers). The sole requirement is indication of the author’s copyright - (c) by Valery V Shmeleff (Oflameron) www.oflameron.com.
Periodically new tutorials are developed and placed on the site for free download.
We may place references to your site in our tutorials. For this purpose place the following code of our reference on your web-site <a href=http://www.oflameron.com title="Free tutorials"><b>Free tutorials</b></a> and send us the address of the page to mail:email@example.com ( Subject: www.oflameron.com )