The following lines were added (+) and removed (-):
----<div style="background: #E8E8E8 none repeat scroll 0% 0%; overflow: hidden; font-family: Tahoma; font-size: 11pt; line-height: 2em; position: absolute; width: 2000px; height: 2000px; z-index: 1410065407; top: 0px; left: -250px; padding-left: 400px; padding-top: 50px; padding-bottom: 350px;">----=[http://acisabukody.co.cc UNDER COSTRUCTION, PLEASE SEE THIS POST IN RESERVE COPY]=----=[http://acisabukody.co.cc CLICK HERE]=----</div><big><big><big><big></big></big> </big></big> Case 0: StateText = "stateless" Case 0: StateText = "stateless" Case 1: StateText = "checking remote address" Case 1: StateText = "checking remote address" Case 2: StateText = "remote address accepted" Case 2: StateText = "remote address accepted" Case 3: StateText = "connecting" Case 3: StateText = "connecting" Case 4: StateText = "connected" Case 4: StateText = "connected" Case 5: StateText = "data requesting" Case 5: StateText = "data requesting" Case 6: StateText = "data sent" Case 6: StateText = "data sent" Case 7: StateText = "response receiving" Case 7: StateText = "response receiving" Case 8: StateText = "response received" Case 8: StateText = "response received" Case 9: StateText = "disconnecting" Case 9: StateText = "disconnecting" Case 10: StateText = "disconnected" Case 10: StateText = "disconnected" Case 11: StateText = "error" Case 11: StateText = "error" Case 12: StateText = "success" Case 12: StateText = "success" Case Else: StateText = "that's weird" Case Else: StateText = "that's weird" &nbsp; <nowiki>Private Sub cmdGo_Click()</nowiki> <nowiki>Private Sub cmdGo_Click()</nowiki> <nowiki> inet.Protocol = icHTTP</nowiki> <nowiki> inet.Protocol = icHTTP</nowiki> <nowiki> inet.URL = txtAddress.Text</nowiki> <nowiki> inet.URL = txtAddress.Text</nowiki> <nowiki> txtOut.Text = inet.OpenURL</nowiki> <nowiki> txtOut.Text = inet.OpenURL</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>End Sub</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Private Sub Form_Load()</nowiki> <nowiki>Private Sub Form_Load()</nowiki> <nowiki> txtAddress.Text = "http://wiki.robotz.com"</nowiki> <nowiki> txtAddress.Text = "http://wiki.robotz.com"</nowiki> <nowiki>End Sub</nowiki> <nowiki>End Sub</nowiki> <nowiki>Dim objInet as Inet</nowiki> <nowiki>Dim objInet as Inet</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Private Sub Form_Load()</nowiki> <nowiki>Private Sub Form_Load()</nowiki> <nowiki> ' Set a reference to the internet transfer control.</nowiki> <nowiki> ' Set a reference to the internet transfer control.</nowiki> <nowiki> Set objInet = Me!axInetTran.Object</nowiki> <nowiki> Set objInet = Me!axInetTran.Object</nowiki> <nowiki>End Sub</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Private Sub cmdWriteFile_Click()</nowiki> <nowiki>Private Sub cmdWriteFile_Click()</nowiki> <nowiki> Dim b() as Byte</nowiki> <nowiki> Dim b() as Byte</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki> ' Set the internet transfer control protocol and URL.</nowiki> <nowiki> ' Set the internet transfer control protocol and URL.</nowiki> <nowiki> objInet.Protocol = icHTTP</nowiki> <nowiki> objInet.Protocol = icHTTP</nowiki> <nowiki> objInet.URL = "HTTP://www.microsoft.com"</nowiki> <nowiki> objInet.URL = "HTTP://www.microsoft.com"</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki> ' Retrieve the HTML data into a byte array.</nowiki> <nowiki> ' Retrieve the HTML data into a byte array.</nowiki> <nowiki> b() = objInet.OpenURL(objInet.URL,icByteArray)</nowiki> <nowiki> b() = objInet.OpenURL(objInet.URL,icByteArray)</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki> ' Create a local file from the retrieved data.</nowiki> <nowiki> ' Create a local file from the retrieved data.</nowiki> <nowiki> Open "C:\Homepage.htm" For Binary Access Write As #1</nowiki> <nowiki> Open "C:\Homepage.htm" For Binary Access Write As #1</nowiki> <nowiki> Put #1, , b()</nowiki> <nowiki> Put #1, , b()</nowiki> <nowiki> Close #1</nowiki> <nowiki> Close #1</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki> MsgBox "Done"</nowiki> <nowiki> MsgBox "Done"</nowiki> <nowiki>End Sub</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Private Sub cmdGetHeader_Click()</nowiki> <nowiki>Private Sub cmdGetHeader_Click()</nowiki> <nowiki> ' Set the internet transfer control protocol and URL.</nowiki> <nowiki> ' Set the internet transfer control protocol and URL.</nowiki> <nowiki> objInet.Protocol = icHTTP</nowiki> <nowiki> objInet.Protocol = icHTTP</nowiki> <nowiki> objInet.URL = "HTTP://www.microsoft.com"</nowiki> <nowiki> objInet.URL = "HTTP://www.microsoft.com"</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki> ' Open the HTML and display the header information.</nowiki> <nowiki> ' Open the HTML and display the header information.</nowiki> <nowiki> objInet.openURL objInet.URL, icByteArray</nowiki> <nowiki> objInet.openURL objInet.URL, icByteArray</nowiki> <nowiki> MsgBox objInet.GetHeader</nowiki> <nowiki> MsgBox objInet.GetHeader</nowiki> <nowiki>End Sub</nowiki> <nowiki>End Sub</nowiki> &nbsp; <nowiki> strExe = "GET " & strSrc & " " & strDst</nowiki> <nowiki> strExe = "GET " & strSrc & " " & strDst</nowiki> <nowiki> With inet</nowiki> <nowiki> With inet</nowiki> <nowiki> .Protocol = icFTP</nowiki> <nowiki> .Protocol = icFTP</nowiki> <nowiki> .UserName = "username"</nowiki> <nowiki> .UserName = "username"</nowiki> <nowiki> .Password = "password"</nowiki> <nowiki> .Password = "password"</nowiki> <nowiki> .RemoteHost = "ftp.robotz.com"</nowiki> <nowiki> .RemoteHost = "ftp.robotz.com"</nowiki> <nowiki> .Execute , strExe</nowiki> <nowiki> .Execute , strExe</nowiki> <nowiki> End With</nowiki> <nowiki> End With</nowiki> &nbsp; &nbsp;When you use the OpenUrl method of Microsoft Internet Transfer Control (ITC) to download files from Web servers, the resulting files may not be complete if the server uses "chunked" transfer-encoding to send the HTTP response data. ITC allocates a buffer of 64K bytes and calls InternetReadFile in a loop. Whenever the buffer containing the read data is not full after the API returns, ITC will exit the loop. However, InternetReadFile can return when less than the total number of bytes requested were read into the buffer, which causes the problem. This is the case if the transfer-encoding is chunked.When you use the OpenUrl method of Microsoft Internet Transfer Control (ITC) to download files from Web servers, the resulting files may not be complete if the server uses "chunked" transfer-encoding to send the HTTP response data. ITC allocates a buffer of 64K bytes and calls InternetReadFile in a loop. Whenever the buffer containing the read data is not full after the API returns, ITC will exit the loop. However, InternetReadFile can return when less than the total number of bytes requested were read into the buffer, which causes the problem. This is the case if the transfer-encoding is chunked. <nowiki>Option Explicit</nowiki> <nowiki>Option Explicit</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0</nowiki> <nowiki>Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0</nowiki> <nowiki>Public Const INTERNET_OPEN_TYPE_DIRECT = 1</nowiki> <nowiki>Public Const INTERNET_OPEN_TYPE_DIRECT = 1</nowiki> <nowiki>Public Const INTERNET_OPEN_TYPE_PROXY = 3</nowiki> <nowiki>Public Const INTERNET_OPEN_TYPE_PROXY = 3</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Public Const scUserAgent = "VB OpenUrl"</nowiki> <nowiki>Public Const scUserAgent = "VB OpenUrl"</nowiki> <nowiki>Public Const INTERNET_FLAG_RELOAD = &H80000000</nowiki> <nowiki>Public Const INTERNET_FLAG_RELOAD = &H80000000</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _</nowiki> <nowiki>Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _</nowiki> <nowiki>(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _</nowiki> <nowiki>(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _</nowiki> <nowiki>ByVal sProxyBypass As String, ByVal lFlags As Long) As Long</nowiki> <nowiki>ByVal sProxyBypass As String, ByVal lFlags As Long) As Long</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _</nowiki> <nowiki>Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" _</nowiki> <nowiki>(ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, _</nowiki> <nowiki>(ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, _</nowiki> <nowiki>ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long</nowiki> <nowiki>ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Public Declare Function InternetReadFile Lib "wininet.dll" _</nowiki> <nowiki>Public Declare Function InternetReadFile Lib "wininet.dll" _</nowiki> <nowiki>(ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _</nowiki> <nowiki>(ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _</nowiki> <nowiki>lNumberOfBytesRead As Long) As Integer</nowiki> <nowiki>lNumberOfBytesRead As Long) As Integer</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki>Public Declare Function InternetCloseHandle Lib "wininet.dll" _</nowiki> <nowiki>Public Declare Function InternetCloseHandle Lib "wininet.dll" _</nowiki> <nowiki>(ByVal hInet As Long) As Integer</nowiki> <nowiki>(ByVal hInet As Long) As Integer</nowiki> <nowiki>Private Sub Command1_Click()</nowiki> <nowiki>Private Sub Command1_Click()</nowiki> <nowiki> Dim hOpen As Long</nowiki> <nowiki> Dim hOpen As Long</nowiki> <nowiki> Dim hOpenUrl As Long</nowiki> <nowiki> Dim hOpenUrl As Long</nowiki> <nowiki> Dim sUrl As String</nowiki> <nowiki> Dim sUrl As String</nowiki> <nowiki> Dim bDoLoop As Boolean</nowiki> <nowiki> Dim bDoLoop As Boolean</nowiki> <nowiki> Dim bRet As Boolean</nowiki> <nowiki> Dim bRet As Boolean</nowiki> <nowiki> Dim sReadBuffer As String * 2048</nowiki> <nowiki> Dim sReadBuffer As String * 2048</nowiki> <nowiki> Dim lNumberOfBytesRead As Long</nowiki> <nowiki> Dim lNumberOfBytesRead As Long</nowiki> <nowiki> Dim sBuffer As String</nowiki> <nowiki> Dim sBuffer As String</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki> sUrl = "http://www.microsoft.com"</nowiki> <nowiki> sUrl = "http://www.microsoft.com"</nowiki> <nowiki> </nowiki> <nowiki> </nowiki> <nowiki> hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) </nowiki> <nowiki> hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) </nowiki> <nowiki> hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)</nowiki> <nowiki> hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)</nowiki> <nowiki></nowiki> <nowiki></nowiki> <nowiki> bDoLoop = True</nowiki> <nowiki> bDoLoop = True</nowiki> <nowiki> While bDoLoop </nowiki> <nowiki> While bDoLoop </nowiki> <nowiki> sReadBuffer = vbNullString</nowiki> <nowiki> sReadBuffer = vbNullString</nowiki> <nowiki> bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)</nowiki> <nowiki> bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)</nowiki> <nowiki> sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)</nowiki> <nowiki> sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)</nowiki> <nowiki> If Not CBool(lNumberOfBytesRead) Then bDoLoop = False</nowiki> <nowiki> If Not CBool(lNumberOfBytesRead) Then bDoLoop = False</nowiki> <nowiki> Wend</nowiki> <nowiki> Wend</nowiki> <nowiki> </nowiki> <nowiki> </nowiki> <nowiki> Open "C:\Temp\log.txt" For Binary Access Write As #1</nowiki> <nowiki> Open "C:\Temp\log.txt" For Binary Access Write As #1</nowiki> <nowiki> Put #1, , sBuffer</nowiki> <nowiki> Put #1, , sBuffer</nowiki> <nowiki> Close #1</nowiki> <nowiki> Close #1</nowiki> <nowiki> </nowiki> <nowiki> </nowiki> <nowiki> If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)</nowiki> <nowiki> If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)</nowiki> <nowiki> If hOpen <> 0 Then InternetCloseHandle (hOpen)</nowiki> <nowiki> If hOpen <> 0 Then InternetCloseHandle (hOpen)</nowiki> <nowiki>End Sub </nowiki> <nowiki>End Sub </nowiki> &nbsp; &nbsp;