contoh program billing warnet dengan visual basic

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) ''If there is query for connection Winsock1.Listen ''Begin listening port 125 Winsock1.LocalPort = 125 ''Port number for listening If Winsock1.State sckConnected And Winsock1.State sckListening Then ''If there is no connection yet and the port cannot be heard The client part Oflameron (Winsock2) through standard port 80 transmits queries to the real Web-server.ĭo ''Switch the server part to port listening ( Listen ) The server part (Winsock1) receives queries from the Web-browser (for example, Internet Explorer) through the port, for example, 125 and transmits it to the client part. Winsock1 – for the server part and Oflameron for the client part. Project Components Winsock Control Componentĭeploy two Winsock copies on the form. Deploy element Label “this computer’s IP” on the formĬonnect a new Winsock component to the project for work with the network according to TCP/IP protocol

It is easy to add filtration functions to the program (it will be shown in the supplement), log records, information substitution records (link addresses, advertisement in HTML - for web site promotion).įree VB ebook Create standard Visual Basic project. In creating this manual we set ourselves the task to develop a minimum program code playing the role of Proxy-server (transmitting information from one port to another). Free VB eBook - The most elementary single-thread Proxy in Visual Basic.

Contoh program billing warnet dengan visual basic