I've been looking for a fast httpwrapper for my NP gen and i heard Ripperwrapper is the fastest. I can't seem to find the code for it and if anyone has it would be greatly appreciated
Code (Visual Basic): <div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Option</span> <span style="color: #b1b100;">Explicit</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'API Declarations</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> LoadLibrary Lib <span style="color: #ff0000;">"kernel32"</span> Alias <span style="color: #ff0000;">"LoadLibraryA"</span> <span style="color: #66cc66;">(</span>ByVal lpLibFileName <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> FreeLibrary Lib <span style="color: #ff0000;">"kernel32"</span> <span style="color: #66cc66;">(</span>ByVal hLibModule <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> timeGetTime Lib <span style="color: #ff0000;">"winmm.dll"</span> <span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> QueryPerformanceCounter Lib <span style="color: #ff0000;">"kernel32"</span> <span style="color: #66cc66;">(</span>lpPerformanceCount <span style="color: #b1b100;">As</span> Currency<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Declare</span> <span style="color: #b1b100;">Function</span> QueryPerformanceFrequency Lib <span style="color: #ff0000;">"kernel32"</span> <span style="color: #66cc66;">(</span>lpFrequency <span style="color: #b1b100;">As</span> Currency<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'Default Property Values:</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_LastPage <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #b1b100;">vbNullString</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_Cookies <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #b1b100;">vbNullString</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_GZip <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span> = <span style="color: #b1b100;">True</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_StopWrapper <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span> = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_Browser <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = <span style="color: #ff0000;">"Firefox"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_Proxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span> = Empty</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_UseProxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span> = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Const</span> m_def_Timeout <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span> = <span style="color: #cc66cc;">3000</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'Property Values</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_LastPage <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_Cookies <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_GZip <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_StopWrapper <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_Browser <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_Elapsed <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_Proxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_UseProxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> m_Timeout <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'Other Declarations</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> curStop <span style="color: #b1b100;">As</span> Currency, curStart <span style="color: #b1b100;">As</span> Currency, _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> curFrequency <span style="color: #b1b100;">As</span> Currency, OBJDos <span style="color: #b1b100;">As</span> DOS_Pipe, _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_hMod <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, strBuffer <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Type</span> Proxy</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intHost<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">To</span> <span style="color: #cc66cc;">4</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intPort <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Type</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'Property Subs</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> LastElapsed<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> LastElapsed = m_Elapsed</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> Proxy<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Proxy = m_Proxy</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> Proxy<span style="color: #66cc66;">(</span>ByVal New_Proxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Proxy = New_Proxy</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"Proxy"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> Timeout<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Timeout = m_Timeout</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> Timeout<span style="color: #66cc66;">(</span>ByVal New_Timeout <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Timeout = New_Timeout</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"Timeout"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> UseProxy<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> UseProxy = m_UseProxy</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> UseProxy<span style="color: #66cc66;">(</span>ByVal New_UseProxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_UseProxy = New_UseProxy</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"UseProxy"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> GZip<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> GZip = m_GZip</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> GZip<span style="color: #66cc66;">(</span>ByVal New_GZip <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_GZip = New_GZip</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"GZip"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> LastPage<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> LastPage = m_LastPage</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> LastPage<span style="color: #66cc66;">(</span>ByVal New_LastPage <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_LastPage = New_LastPage</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"LastPage"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> Cookies<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Cookies = m_Cookies</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> Cookies<span style="color: #66cc66;">(</span>ByVal New_Cookies <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Cookies = New_Cookies</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"Cookies"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> Browser<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Browser = m_Browser</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> Browser<span style="color: #66cc66;">(</span>ByVal New_Browser <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> New_Browser <> <span style="color: #ff0000;">"Firefox"</span> <span style="color: #b1b100;">And</span> New_Browser <> <span style="color: #ff0000;">"Internet Explorer"</span> <span style="color: #b1b100;">And</span> New_Browser <> <span style="color: #ff0000;">"Opera"</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> New_Browser = <span style="color: #ff0000;">"Firefox"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Browser = New_Browser</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"Browser"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Get</span> StopWrapper<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> StopWrapper = m_StopWrapper</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Property</span> <span style="color: #b1b100;">Let</span> StopWrapper<span style="color: #66cc66;">(</span>ByVal New_StopWrapper <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_StopWrapper = New_StopWrapper</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> PropertyChanged <span style="color: #ff0000;">"StopWrapper"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Property</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> UserControl_ReadProperties<span style="color: #66cc66;">(</span>PropBag <span style="color: #b1b100;">As</span> PropertyBag<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Browser = PropBag.<span style="color: #66cc66;">ReadProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Browser"</span>, m_def_Browser<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_LastPage = PropBag.<span style="color: #66cc66;">ReadProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"LastPage"</span>, m_def_LastPage<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_UseProxy = PropBag.<span style="color: #66cc66;">ReadProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"UseProxy"</span>, m_def_UseProxy<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Proxy = PropBag.<span style="color: #66cc66;">ReadProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Proxy"</span>, m_def_Proxy<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_GZip = PropBag.<span style="color: #66cc66;">ReadProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"GZip"</span>, m_def_GZip<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_StopWrapper = PropBag.<span style="color: #66cc66;">ReadProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"StopWrapper"</span>, m_def_StopWrapper<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Timeout = PropBag.<span style="color: #66cc66;">ReadProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Timeout"</span>, m_def_Timeout<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> UserControl_WriteProperties<span style="color: #66cc66;">(</span>PropBag <span style="color: #b1b100;">As</span> PropertyBag<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Call</span> PropBag.<span style="color: #66cc66;">WriteProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"LastPage"</span>, m_LastPage, m_def_LastPage<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Call</span> PropBag.<span style="color: #66cc66;">WriteProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"GZip"</span>, m_GZip, m_def_GZip<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Call</span> PropBag.<span style="color: #66cc66;">WriteProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"UseProxy"</span>, m_UseProxy, m_def_UseProxy<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Call</span> PropBag.<span style="color: #66cc66;">WriteProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Proxy"</span>, m_Proxy, m_def_Proxy<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Call</span> PropBag.<span style="color: #66cc66;">WriteProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"StopWrapper"</span>, m_StopWrapper, m_def_StopWrapper<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Call</span> PropBag.<span style="color: #66cc66;">WriteProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Browser"</span>, m_Browser, m_def_Browser<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Call</span> PropBag.<span style="color: #66cc66;">WriteProperty</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Timeout"</span>, m_Timeout, m_def_Timeout<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> UserControl_InitProperties<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_LastPage = m_def_LastPage</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_GZip = m_def_GZip</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_StopWrapper = m_def_StopWrapper</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Browser = m_def_Browser</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'UserControl_ Subs</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> UserControl_Initialize<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Set</span> OBJDos = <span style="color: #b1b100;">New</span> DOS_Pipe</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_hMod = LoadLibrary<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"shell32.dll"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> UserControl_Terminate<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Set</span> OBJDos = <span style="color: #b1b100;">Nothing</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> FreeLibrary <span style="color: #66cc66;">(</span>m_hMod<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> UserControl_Resize<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> UserControl.<span style="color: #b1b100;">Width</span> = imgBack.<span style="color: #b1b100;">Width</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> UserControl.<span style="color: #66cc66;">Height</span> = imgBack.<span style="color: #66cc66;">Height</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'Functions used by RipperWrapper</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> <span style="color: #b1b100;">Count</span><span style="color: #66cc66;">(</span>strSubject <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strCount <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> intPos <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intPos = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strSubject, strCount<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Do</span> <span style="color: #b1b100;">While</span> intPos <> <span style="color: #cc66cc;">0</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> intPos = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intPos = intPos + <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>strCount<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Count</span> = <span style="color: #b1b100;">Count</span> + <span style="color: #cc66cc;">1</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intPos = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span>intPos, strSubject, strCount<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Loop</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> SplitProxy<span style="color: #66cc66;">(</span>strProxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, Proxy <span style="color: #b1b100;">As</span> Proxy<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> intTemp <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, strParts<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, intForX <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intTemp = <span style="color: #b1b100;">Count</span><span style="color: #66cc66;">(</span>strProxy, <span style="color: #ff0000;">"."</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> intTemp <> <span style="color: #cc66cc;">3</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> SplitProxy = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strParts = <span style="color: #b1b100;">Split</span><span style="color: #66cc66;">(</span>strProxy, <span style="color: #ff0000;">"."</span>, <span style="color: #cc66cc;">4</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">":"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">For</span> intForX = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">To</span> <span style="color: #cc66cc;">3</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span>intForX<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> > <span style="color: #cc66cc;">255</span> <span style="color: #b1b100;">Or</span> <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span>intForX<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> < <span style="color: #cc66cc;">1</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> SplitProxy = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Next</span> intForX</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">IsNumeric</span><span style="color: #66cc66;">(</span><span style="color: #b1b100;">Mid</span><span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span>, <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">":"</span><span style="color: #66cc66;">)</span> + <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">False</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> SplitProxy = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Proxy.<span style="color: #66cc66;">intPort</span> = <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span><span style="color: #b1b100;">Mid</span><span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span>, <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">":"</span><span style="color: #66cc66;">)</span> + <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">Left</span><span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span>, <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">":"</span><span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> SplitProxy = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">For</span> intForX = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">To</span> <span style="color: #cc66cc;">3</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Proxy.<span style="color: #66cc66;">intHost</span><span style="color: #66cc66;">(</span>intForX + <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span>intForX<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Next</span> intForX</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> SplitProxy = <span style="color: #b1b100;">True</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> DecodeChunkedMessage<span style="color: #66cc66;">(</span>ByVal strBody <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> lnSize <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, lnStart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnEnd <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, strTemp <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strBody, <span style="color: #b1b100;">vbCrLf</span><span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">1</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> lnStart < <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> DecodeChunkedMessage = strBody</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnSize = Hex2Dec<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strBody, <span style="color: #cc66cc;">1</span>, lnStart<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = lnStart + <span style="color: #cc66cc;">3</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Do</span> Until lnSize = <span style="color: #cc66cc;">0</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strTemp = strTemp & <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strBody, lnStart, lnSize<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = lnStart + lnSize + <span style="color: #cc66cc;">2</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnEnd = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span>lnStart + <span style="color: #cc66cc;">1</span>, strBody, <span style="color: #b1b100;">vbCrLf</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> lnEnd = <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Do</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnSize = Hex2Dec<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strBody, lnStart, lnEnd - lnStart<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = lnEnd + <span style="color: #cc66cc;">2</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Loop</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> DecodeChunkedMessage = strTemp</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> Hex2Dec<span style="color: #66cc66;">(</span>ByVal lnHexValue<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> Currency</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> intLow<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span>, lnHigh<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, tmpVar</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>lnHexValue, <span style="color: #cc66cc;">2</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ff0000;">"&H"</span> <span style="color: #b1b100;">Then</span> tmpVar = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>lnHexValue, <span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnHexValue = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span><span style="color: #ff0000;">"0000000"</span> & lnHexValue, <span style="color: #cc66cc;">8</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">IsNumeric</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"&H"</span> & lnHexValue<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intLow<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">CInt</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"&H"</span> & <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>lnHexValue, <span style="color: #cc66cc;">2</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnHigh<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">CLng</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"&H"</span> & <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>lnHexValue, <span style="color: #cc66cc;">5</span>, <span style="color: #cc66cc;">2</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intLow<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">CInt</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"&H"</span> & <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>lnHexValue, <span style="color: #cc66cc;">3</span>, <span style="color: #cc66cc;">2</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnHigh<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">CLng</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"&H"</span> & <span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>lnHexValue, <span style="color: #cc66cc;">2</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Hex2Dec = <span style="color: #b1b100;">CCur</span><span style="color: #66cc66;">(</span>lnHigh<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> * <span style="color: #cc66cc;">256</span> + intLow<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> * <span style="color: #cc66cc;">65536</span> + <span style="color: #66cc66;">(</span>lnHigh<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> * <span style="color: #cc66cc;">256</span><span style="color: #66cc66;">)</span> + intLow<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> ParseCookies<span style="color: #66cc66;">(</span>ByVal strHeaders <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strOld <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, strKey <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strValue <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strTempHeaders <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strTemp <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strOld = <span style="color: #ff0000;">"; "</span> & strOld</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Do</span> Until InStrB<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHeaders, <span style="color: #ff0000;">"Set-Cookie"</span>, <span style="color: #b1b100;">vbTextCompare</span><span style="color: #66cc66;">)</span> = <span style="color: #cc66cc;">0</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHeaders, <span style="color: #ff0000;">"Set-Cookie: "</span><span style="color: #66cc66;">)</span> + <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Set-Cookie: "</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span>lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, strHeaders, <span style="color: #ff0000;">"="</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strKey = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strHeaders, lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> - lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHeaders, <span style="color: #ff0000;">"Set-Cookie: "</span> & strKey & <span style="color: #ff0000;">"="</span><span style="color: #66cc66;">)</span> + <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Set-Cookie: "</span> & strKey & <span style="color: #ff0000;">"="</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span>lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, strHeaders, <span style="color: #ff0000;">";"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strValue = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strHeaders, lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> - lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHeaders = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strHeaders, lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> + <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>strValue<span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> InStrB<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strOld, <span style="color: #ff0000;">"; "</span> & strKey & <span style="color: #ff0000;">"="</span>, <span style="color: #b1b100;">vbTextCompare</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strOld, <span style="color: #ff0000;">"; "</span> & strKey & <span style="color: #ff0000;">"="</span><span style="color: #66cc66;">)</span> + <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"; "</span> & strKey & <span style="color: #ff0000;">"="</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span>lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, strOld, <span style="color: #ff0000;">";"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strTemp = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strOld, lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> - lnTemp<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strOld = Replace<span style="color: #66cc66;">(</span>strOld, strKey & <span style="color: #ff0000;">"="</span> & strTemp & <span style="color: #ff0000;">";"</span>, strKey & <span style="color: #ff0000;">"="</span> & strValue & <span style="color: #ff0000;">";"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strOld = strOld & strKey & <span style="color: #ff0000;">"="</span> & strValue & <span style="color: #ff0000;">"; "</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Loop</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> ParseCookies = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strOld, <span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> Headers<span style="color: #66cc66;">(</span>strMethod <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, ByVal strURL <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strReferer <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> strHost <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strPOST <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, lnStart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strFile <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strURL = Replace<span style="color: #66cc66;">(</span>strURL, <span style="color: #ff0000;">"http://"</span>, <span style="color: #b1b100;">vbNullString</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strURL, <span style="color: #ff0000;">"/"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> lnStart <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strFile = <span style="color: #b1b100;">Mid</span><span style="color: #66cc66;">(</span>strURL, lnStart<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHost = <span style="color: #b1b100;">Left</span><span style="color: #66cc66;">(</span>strURL, lnStart - <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHost = strURL</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strFile = <span style="color: #ff0000;">"/"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> strMethod = <span style="color: #ff0000;">"POST"</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strFile, <span style="color: #ff0000;">"?"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> lnStart <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strPOST = <span style="color: #b1b100;">Mid</span><span style="color: #66cc66;">(</span>strFile, lnStart + <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strFile = <span style="color: #b1b100;">Left</span><span style="color: #66cc66;">(</span>strFile, lnStart - <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strPOST = <span style="color: #b1b100;">vbNullString</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> m_UseProxy <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> strParts<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strParts = <span style="color: #b1b100;">Split</span><span style="color: #66cc66;">(</span>m_Proxy, <span style="color: #ff0000;">":"</span>, <span style="color: #cc66cc;">2</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strFile = <span style="color: #ff0000;">"http://"</span> & strHost & strFile</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHost = strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Select <span style="color: #b1b100;">Case</span> m_Browser</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #ff0000;">"Internet Explorer"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Select <span style="color: #b1b100;">Case</span> strMethod</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #ff0000;">"POST"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Headers = strMethod & <span style="color: #ff0000;">" "</span> & strFile & <span style="color: #ff0000;">" HTTP/1.0"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Referer: "</span> & strReferer & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Language: en-gb"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Encoding: gzip, deflate"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Content-Type: application/x-www-form-urlencoded"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Keep-Alive: 300"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Host: "</span> & strHost & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Content-Length: "</span> & <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>strPOST<span style="color: #66cc66;">)</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Pragma: no-cache"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie: "</span> & m_Cookies & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Connection: close"</span> & <span style="color: #b1b100;">vbCrLf</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & strPOST & <span style="color: #b1b100;">vbCrLf</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Headers = strMethod & <span style="color: #ff0000;">" "</span> & strFile & <span style="color: #ff0000;">" HTTP/1.0"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Referer: "</span> & strReferer & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Language: en-gb"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Encoding: gzip, deflate"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Host: "</span> & strHost & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie: "</span> & m_Cookies & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Connection: close"</span> & <span style="color: #b1b100;">vbCrLf</span> & <span style="color: #b1b100;">vbCrLf</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> Select</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #ff0000;">"Opera"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Select <span style="color: #b1b100;">Case</span> strMethod</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #ff0000;">"POST"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Headers = strMethod & <span style="color: #ff0000;">" "</span> & strFile & <span style="color: #ff0000;">" HTTP/1.0"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; en) Opera 8.01"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Host: "</span> & strHost & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Language: en"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Charset: windows-1252, utf-8, utf-16, iso-8859-1;q=0.6, *;q=0.1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Encoding: gzip, deflate"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Referer: "</span> & strReferer & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie: "</span> & m_Cookies & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie2: $Version=1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Content-Type: application/x-www-form-urlencoded"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Content-Length: "</span> & <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>strPOST<span style="color: #66cc66;">)</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Connection: close"</span> & <span style="color: #b1b100;">vbCrLf</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & strPOST & <span style="color: #b1b100;">vbCrLf</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Headers = strMethod & <span style="color: #ff0000;">" "</span> & strFile & <span style="color: #ff0000;">" HTTP/1.0"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; en) Opera 8.01"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Host: "</span> & strHost & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Language: en"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Charset: windows-1252, utf-8, utf-16, iso-8859-1;q=0.6, *;q=0.1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Encoding: gzip, deflate"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Referer: "</span> & strReferer & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie: "</span> & m_Cookies & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie2: $Version=1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Connection: close"</span> & <span style="color: #b1b100;">vbCrLf</span> & <span style="color: #b1b100;">vbCrLf</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> Select</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Select <span style="color: #b1b100;">Case</span> strMethod</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #ff0000;">"POST"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Headers = strMethod & <span style="color: #ff0000;">" "</span> & strFile & <span style="color: #ff0000;">" HTTP/1.1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Host: "</span> & strHost & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.7) Gecko/20050414 Firefox/1.0.3"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Language: en-us,en;q=0.5"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Encoding: gzip, deflate"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Referer: "</span> & strReferer & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie: "</span> & m_Cookies & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Content-Type: application/x-www-form-urlencoded"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Content-Length: "</span> & <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>strPOST<span style="color: #66cc66;">)</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Connection: close"</span> & <span style="color: #b1b100;">vbCrLf</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & strPOST & <span style="color: #b1b100;">vbCrLf</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Case</span> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Headers = strMethod & <span style="color: #ff0000;">" "</span> & strFile & <span style="color: #ff0000;">" HTTP/1.1"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Host: "</span> & strHost & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.7) Gecko/20050414 Firefox/1.0.3"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Language: en-us,en;q=0.5"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Accept-Encoding: gzip, deflate"</span> & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Referer: "</span> & strReferer & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Cookie: "</span> & m_Cookies & <span style="color: #b1b100;">vbCrLf</span> _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> & <span style="color: #ff0000;">"Connection: close"</span> & <span style="color: #b1b100;">vbCrLf</span> & <span style="color: #b1b100;">vbCrLf</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> Select</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> Select</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> m_GZip <span style="color: #b1b100;">Then</span> Headers = Replace<span style="color: #66cc66;">(</span>Headers, <span style="color: #ff0000;">"Accept-Encoding: gzip, deflate"</span> & <span style="color: #b1b100;">vbCrLf</span>, <span style="color: #ff0000;">""</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> Decompress<span style="color: #66cc66;">(</span>strHTML <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> intFile <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> intFile = <span style="color: #b1b100;">FreeFile</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Open</span> App.<span style="color: #66cc66;">Path</span> & <span style="color: #ff0000;">"\Compressed.gz"</span> <span style="color: #b1b100;">For</span> Binary <span style="color: #b1b100;">As</span> intFile</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Put</span> #intFile, , strHTML</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Close</span> intFile</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> OBJDos.<span style="color: #66cc66;">CommandLine</span> = <span style="color: #b1b100;">Chr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">34</span><span style="color: #66cc66;">)</span> & App.<span style="color: #66cc66;">Path</span> & <span style="color: #ff0000;">"\GZip.exe"</span> & <span style="color: #b1b100;">Chr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">34</span><span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">" -dfqc "</span> & <span style="color: #b1b100;">Chr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">34</span><span style="color: #66cc66;">)</span> & App.<span style="color: #66cc66;">Path</span> & <span style="color: #ff0000;">"\Compressed.gz"</span> & <span style="color: #b1b100;">Chr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">34</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Decompress = OBJDos.<span style="color: #66cc66;">ExecuteCommand</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Kill</span> App.<span style="color: #66cc66;">Path</span> & <span style="color: #ff0000;">"\Compressed.gz"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'Winsock Subs</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> wsWrapper_Close<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #b1b100;">Close</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> wsWrapper_Connect<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strBuffer = <span style="color: #b1b100;">vbNullString</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> wsWrapper_DataArrival<span style="color: #66cc66;">(</span>ByVal bytesTotal <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> strData <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> m_StopWrapper = <span style="color: #b1b100;">True</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #b1b100;">Close</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #808080;">'Get the new data chunk</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">GetData</span> strData, <span style="color: #b1b100;">vbString</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #808080;">'Append it to buffer</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strBuffer = strBuffer & strData</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'User Subs/Functions</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> SetProxy<span style="color: #66cc66;">(</span>strProxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_UseProxy = <span style="color: #b1b100;">True</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Proxy = strProxy</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> IdentifyAs<span style="color: #66cc66;">(</span>ByVal strBrowser <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> strBrowser <> <span style="color: #ff0000;">"Firefox"</span> <span style="color: #b1b100;">And</span> strBrowser <> <span style="color: #ff0000;">"Internet Explorer"</span> <span style="color: #b1b100;">And</span> strBrowser <> <span style="color: #ff0000;">"Opera"</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strBrowser = <span style="color: #ff0000;">"Firefox"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Browser = strBrowser</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> GetHeaderFieldValue<span style="color: #66cc66;">(</span>ByVal strHeaders <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, ByVal strHeader <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> lnStart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, lnEnd <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> InStrB<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHeaders, strHeader, <span style="color: #b1b100;">vbTextCompare</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHeaders, strHeader, <span style="color: #b1b100;">vbTextCompare</span><span style="color: #66cc66;">)</span> + <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>strHeader<span style="color: #66cc66;">)</span> + <span style="color: #cc66cc;">2</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> GetHeaderFieldValue = <span style="color: #b1b100;">Mid</span>$<span style="color: #66cc66;">(</span>strHeaders, lnStart, <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span>lnStart, strHeaders, <span style="color: #b1b100;">vbNewLine</span>, <span style="color: #b1b100;">vbTextCompare</span><span style="color: #66cc66;">)</span> - lnStart<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> GetHeaderFieldValue = <span style="color: #b1b100;">vbNullString</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Sub</span> ClearCookies<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Cookies = Empty</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> Request<span style="color: #66cc66;">(</span>strMethod <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, ByVal strURL <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, Optional strReferer <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> strHost <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, lnStart <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, _</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHeaders <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, strParts<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, Proxy <span style="color: #b1b100;">As</span> Proxy, _</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> blnProxy <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Boolean</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">IsMissing</span><span style="color: #66cc66;">(</span>strReferer<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strReferer = m_LastPage</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_StopWrapper = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHost = Replace<span style="color: #66cc66;">(</span>strURL, <span style="color: #ff0000;">"http://"</span>, <span style="color: #b1b100;">vbNullString</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> lnStart = <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHost, <span style="color: #ff0000;">"/"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> lnStart <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strHost = <span style="color: #b1b100;">Left</span><span style="color: #66cc66;">(</span>strHost, lnStart - <span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Reset</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #b1b100;">Close</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> m_UseProxy <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> blnProxy = SplitProxy<span style="color: #66cc66;">(</span>m_Proxy, Proxy<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> blnProxy <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">RemoteHost</span> = Proxy.<span style="color: #66cc66;">intHost</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"."</span> & Proxy.<span style="color: #66cc66;">intHost</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">2</span><span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"."</span> & Proxy.<span style="color: #66cc66;">intHost</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">3</span><span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"."</span> & Proxy.<span style="color: #66cc66;">intHost</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">4</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">RemotePort</span> = Proxy.<span style="color: #66cc66;">intPort</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">RemoteHost</span> = strHost</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">RemotePort</span> = <span style="color: #cc66cc;">80</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_UseProxy = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">RemoteHost</span> = strHost</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">RemotePort</span> = <span style="color: #cc66cc;">80</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">Connect</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Do</span> Until wsWrapper.<span style="color: #66cc66;">State</span> = <span style="color: #cc66cc;">7</span> <span style="color: #b1b100;">Or</span> Elapsed > m_Timeout <span style="color: #b1b100;">Or</span> m_StopWrapper</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">DoEvents</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Loop</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> wsWrapper.<span style="color: #66cc66;">State</span> <> <span style="color: #cc66cc;">7</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> m_StopWrapper <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_LastPage = strURL</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> m_StopWrapper <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> wsWrapper.<span style="color: #66cc66;">SendData</span> Headers<span style="color: #66cc66;">(</span>strMethod, strURL, strReferer<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> m_StopWrapper <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Do</span> Until wsWrapper.<span style="color: #66cc66;">State</span> = <span style="color: #cc66cc;">0</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">DoEvents</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Loop</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> strBuffer = Empty <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Request = Request<span style="color: #66cc66;">(</span>strMethod, strURL, strReferer<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strParts = <span style="color: #b1b100;">Split</span><span style="color: #66cc66;">(</span>strBuffer, <span style="color: #b1b100;">vbCrLf</span> & <span style="color: #b1b100;">vbCrLf</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Cookies = ParseCookies<span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, m_Cookies<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> GetHeaderFieldValue<span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">"Transfer-Encoding"</span><span style="color: #66cc66;">)</span> = <span style="color: #ff0000;">"chunked"</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = DecodeChunkedMessage<span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">If</span> GetHeaderFieldValue<span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">"Content-Encoding"</span><span style="color: #66cc66;">)</span> = <span style="color: #ff0000;">"gzip"</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span> = Decompress<span style="color: #66cc66;">(</span>strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Request = strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">0</span><span style="color: #66cc66;">)</span> & <span style="color: #b1b100;">vbNewLine</span> & <span style="color: #b1b100;">vbNewLine</span> & strParts<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Elapsed = Elapsed</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #808080;">'Timeout timer subs</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> <span style="color: #b1b100;">Reset</span><span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> QueryPerformanceFrequency curFrequency</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> QueryPerformanceCounter curStart</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> curFrequency = curFrequency * <span style="color: #cc66cc;">10000</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Function</span> Elapsed<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> Double</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> QueryPerformanceCounter curStop</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Elapsed = <span style="color: #66cc66;">(</span>curStop - curStart<span style="color: #66cc66;">)</span> / curFrequency * <span style="color: #cc66cc;">10000000</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li></ol></div> Put this over the code in the wrapper that is in the zip.
Yeah i found that finally but i dont get all the HTML. I have to edit this part: Code (Text): <div class="text" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">Request = strBuffer</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> strParts = Split(strBuffer, vbCrLf & vbCrLf)</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> 'm_Cookies = ParseCookies(strParts(0), m_Cookies)</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> 'If GetHeaderFieldValue(strParts(0), "Transfer-Encoding") = "chunked" Then</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> ' strParts(1) = DecodeChunkedMessage(strParts(1))</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> 'End If</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> 'If GetHeaderFieldValue(strParts(0), "Content-Encoding") = "gzip" Then</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> ' strParts(1) = Decompress(strParts(1))</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> 'End If</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> Request = strParts(0) & strParts(1)</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> m_Elapsed = Elapsed</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li></ol></div> And make all those lines comments to get the full HTML. Any ideas?
I always heard it was ripper that was the fastest BTW for updated ripper code, look on SlopDog, its there some where. I posted it but it was deleted from my post... There also this I forgot about: from hell_killer on NF Instructions: -Open up the RipperWrapper -Find the function named Code: Code (Text): <div class="text" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">Private Function DecodeChunkedMessage(ByVal strBody As String) As String</li></ol></div> -Then, change the following line Code: Code (Text): <div class="text" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">lnSize = Hex2Dec(Mid$(strBody, 1, lnStart))</li></ol></div> to Code: Code (Text): <div class="text" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">lnSize = Hex2Dec(Replace(Mid$(strBody, 1, lnStart), " ", ""))</li></ol></div>