Set objWindowsShell = CreateObject("Shell.Application")
    For varObjectIndex = 0 To objWindowsShell.Windows.Count - 1
        If objWindowsShell.Windows(varObjectIndex).HWND = varHwnd Then
            Set objIe = objWindowsShell.Windows(varObjectIndex)
            Exit For
        End If
    Next
    If varFrameContext = "" Then
        Set objDocument = objIe.Document
    Else
        Set objDocument = objIe.Document.Frames(varFrameContext).Document
    End If
    Set objTables = objDocument.All.Tags("TABLE")
    Set objTable = objTables.Item(varItemId)

    If Not objTable.Rows.Length < varRow Then
        If Not objTable.Rows(varRowIndex).Cells.Length < varCol Then
            Select Case varPropertyName
                Case "innerText"
                    varHtmlTableCell = Trim(objTable.Rows(varRowIndex).Cells(varColIndex).innerText)
                Case "Image.Name"
                    varHtmlTableCell = objTable.Rows(varRowIndex).Cells(varColIndex).Images(0).name
            End Select
        Else
            If IsNumeric(varItemId) Then varItemId = varItemId + 1
            varErrorDetail = """" & "Type=HTMLTable;Index=" & varItemId & """" & ", " & """" & "Row=" & varRow & ";Col=" & varCol & """" & vbCrLf & "Col not found."
            If Not ErrorMessagePersist_True(ErrorMessage, constrProcedureName, mconlngAutomationError, varErrorDetail) Then Exit Function
            Exit Function
        End If
    Else
        If IsNumeric(varItemId) Then varItemId = varItemId + 1
        varErrorDetail = """" & "Type=HTMLTable;Index=" & varItemId & """" & ", " & """" & "Row=" & varRow & ";Col=" & varCol & """" & vbCrLf & "Row not found."
        If Not ErrorMessagePersist_True(ErrorMessage, constrProcedureName, mconlngAutomationError, varErrorDetail) Then Exit Function
        Exit Function
    End If

    Set objArguments = Nothing
    Set objWindowsShell = Nothing
    Set objIe = Nothing
    Set objDocument = Nothing
    Set objTables = Nothing

Quote:

---

what do you really want?
that code above is not the right way if you want to get the whole of the html of a page.
for that, a simple 3 line kixtart script will do just fine.

---

$http=CreateObject("microsoft.xmlhttp")
$http.Open("GET","http://www.kixtart.org/",Not 1)
$http.send
$http.responsebody ?

Quote:

---

it was a single registry value...
just can't remember which one.

---

$http=CreateObject("microsoft.xmlhttp")
$http.Open("GET","http://www.kixtart.org/?some=fake&values=here",Not 1)
$http.send
$http.responsebody ?

Quote:

---

no.
but you can avoid the registry value by pulling always a different url.
that is, add something extra to the end, like "?some=fake&values=here"
so the above example becomes:
Code:

---

$http=CreateObject("microsoft.xmlhttp")
$http.Open("GET","http://www.kixtart.org/?some=fake&values=here",Not 1)
$http.send
$http.responsebody ?

---

anyways, the registry setting is the best choice.
it's a per user setting and you can always reset it once you don't need it anymore.

---

$xK="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
$cache=ReadValue($xK,"SyncMode5")
$=WriteValue($xK,"SyncMode5","3","reg_dword")

Break On
GetPage("http://10.10.10.1/kix/kix64.dll?Login") ?
Sleep 10

Function GetPage($URL)
        Dim $HTML, $IECacheKey, $IECacheVal
        $IECacheKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
        $IECacheVal = ReadValue($IECacheKey, "SyncMode5")
		$IECacheVal ?
        If $IECacheVal <> 3
            $nul = WriteValue($IECacheKey, "SyncMode5", "3", "REG_DWORD")
        EndIf
        $HTML = CreateObject("microsoft.XMLhttp")
        $HTML.Open("GET", $URL, Not 1)
        $HTML.Send
        If $HTML.Status = 200
                $GetPage = $HTML.ResponseText ;or ResponseBody
        Else
                $GetPage = "HTTP Status Code: " + $HTML.Status + " (" + $HTML.StatusText + ")"
                Exit 1
        EndIf
        $nul = WriteValue($IECacheKey, "SyncMode5", $IECacheVal, "REG_DWORD")
EndFunction

Quote:

---

ok, let me ask, what is this dll?
if you have the dll custom made there, why you need to pull out the html it produces?
why can't you directly give it the info it wants or why don't you ask it directly?

---