Visual Basic Forum: how use\add GDIPLUS on VB6?...
Visual Basic Forum: ok.. the PlgBlt () API functions is for draw an image and it can be rotated too:
Private Declare Function PlgBlt Lib "gdi32" Alias "PlgBlt" (
ByVal hdcDest As Long,
lpPoint As POINTAPI,
ByVal hdcSrc As Long,
ByVal nXSrc As Long,
ByVal nYSrc As Long,
ByVal nWidth As Long,
ByVal nHeight As Long,
ByVal hbmMask As Long,
Visual Basic Forum: ...
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: Hey
I need to set a form's interior size to specific dimensions.
frm.Width and frm.Height define not only the form's interior but also include window borders and possibly other things, which vary in size, and I don't care about those. frm.ScaleWidth and frm.ScaleHeight define the form's interior and I am interested in programmatically setting the...
Visual Basic Example: I have this code, but it only grab truncated data, the data is a little bit large, it is a page source code
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strResponse As String
Winsock1.GetData strResponse, vbString
RichTextBox1.Text = RichTextBox1.Text & strResponse
please help to fix this problem...
Visual Basic Example: Is there a method of reading an embedded image in a DLL using GDI+?
I have previously been using an undocumented API named PrivateExtractIcons to extract PNGs from DLLs or EXEs and then place them into a picturebox but the method I am currently using returns the PNG with a hard jpeg-like background. This is no good as I'm trying to insert the PNG ...
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:firstname.lastname@example.org ( Subject: www.oflameron.com )