- #CONTOH PROGRAM BILLING WARNET DENGAN VISUAL BASIC MANUAL#
- #CONTOH PROGRAM BILLING WARNET DENGAN VISUAL BASIC FREE#
Oflameron.RemoteHost = "10.62.182.54" ''Web-server address or its IP address Private Sub Oflameron_SendToWebserver() ''Connect to Web-server Connection to Web-server, sending of queries and data receipt.ĭim Data As String ''To receive data from Web-server The entire VB project of this development stage is in the file vbpt1.zipįor work with real Web-server. Line “ToServer = ServerData” - is not mandatory, it is worthwhile, if it is necessary to process data writing in the log, filter, search for data in queries, substitute information (for example, change URL in downloaded web-pages for one’s own) etc. Oflameron_SendToWebserver ''Send the query to the Web-server ToServer = ServerData ''Copy the query into the variable for sending to the Web-server Winsock1.GetData ServerData ''Accept data into the variable Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) ''Processing of incoming data (queries from Web-browser)ĭim ServerData As String ''Announce the variable for the received data ServerData Winsock1_ConnectionRequest – query for connectionĭim ToServer As String ''To send the query from the client part of Proxy to Web-server
![contoh program billing warnet dengan visual basic contoh program billing warnet dengan visual basic](http://beerheavy.weebly.com/uploads/1/2/3/8/123826266/937869425.jpg)
Winsock1.Accept requestID ''Connect the client (browser) according to the number of the query 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
![contoh program billing warnet dengan visual basic contoh program billing warnet dengan visual basic](http://3.bp.blogspot.com/-Dpg3jKXAOLc/VK68KoYoeTI/AAAAAAAAAKc/3Ath3G5R3Kk/s1600/a1.png)
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.
#CONTOH PROGRAM BILLING WARNET DENGAN VISUAL BASIC MANUAL#
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).
#CONTOH PROGRAM BILLING WARNET DENGAN VISUAL BASIC FREE#
Free VB eBook - The most elementary single-thread Proxy in Visual Basic.