read .dll and put it in combo box?

[trickytroy]

hello i'm currently working on a web browser and i was wondering if any body knew how to read the website the cwebpage.dll is at and put the path or url into the adress bar. also i'm, using a combo box for my address bar and in the future i want to make it so you can click the down arrow on the combo box and it will display the websites you have been to, so help on that would be nice to. thanx.

Edited April 30, 2005 by trickytroy

[trickytroy]

a little helpwould be nice.....plz....

[Ejoc]

What is you question, I didnt get it.

[trickytroy]

What is you question, I didnt get it.

<{POST_SNAPBACK}>

Well, simply put: I want to know the current page in the embeded browser. I cannot find a good resource for this DLL's API.

Here's the source:

expandcollapse popup

#include <GuiConstants.au3>

;Creates the parent gui
$gui = GUICreate("Troyzilla 1.0", @DesktopWidth, @DesktopHeight, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_MAXIMIZE)
    $back = GUICtrlCreateButton("Back", 10, 20, 40, 30,  $BS_BITMAP)
    $forward = GUICtrlCreateButton("Forward", 55, 20, 40, 30, $BS_BITMAP)
    $refresh = GUICtrlCreateButton("Refresh", 100, 20, 40, 30, $BS_BITMAP)
    $GO = GUICtrlCreateButton("GO", 810, 20, 50, 30, $BS_BITMAP)
    $Combo_5 = GUICtrlCreateCombo("http://www.google.com", 150, 25, 640, 21, $GUI_DEFBUTTON)
    $Progress_6 = GUICtrlCreateProgress(1000, 920, 100, 15)
    $Date_8 = GUICtrlCreateDate("Date7", 20, 915, 200, 20)
    $pic = GUICtrlCreatePic("images\troyzilla.jpg", 890, 5, 85, 53)
    $filemenu = GUICtrlCreateMenu ("&File")
    $fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)
        GUICtrlSetState(-1,$GUI_DEFBUTTON)
    
    $helpmenu = GUICtrlCreateMenu ("Help")
    $saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)
        GUICtrlSetState(-1, $GUI_DEFBUTTON)
    
    $infoitem = GUICtrlCreateMenuitem ("Info",$helpmenu)
    $exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
    $recentfilesmenu = GUICtrlCreateMenu ("Recent Files",$filemenu,1)
    $separator1 = GUICtrlCreateMenuitem ("",$filemenu,2); create a separator line
    $viewmenu = GUICtrlCreateMenu("View",-1,1)  
    $viewfavitem = GUICtrlCreateMenuitem ("Favorites",$viewmenu)

    GUICtrlSetImage ( $back, "images\back.bmp")
    GUICtrlSetImage ( $Forward, "images\forward.bmp")
    GUICtrlSetImage ( $refresh, "images\refresh.bmp")
    GUICtrlSetImage ( $GO, "images\go.bmp")
    
    GUISetState( @SW_MAXIMIZE )

    $info = GUICreate("About Troyzilla", 290, 382,(@DesktopWidth-290)/2, (@DesktopHeight-382)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE)
        $OK = GuiCtrlCreateButton("OK", 80, 330, 120, 40)
        $Pic_2 = GuiCtrlCreatePic("images/info.jpg", 0, 0, 290, 310)
    GUISetState( @SW_HIDE, $info )  
    


;creates the child gui that the dll will be held in.
$internetgui = GUICreate("", @DesktopWidth -15, @DesktopHeight - 190, 3, 78, $WS_CHILD + $WS_BORDER, "", $gui)
    GUISetState()

;opens dll then calls it.
$dll = DllOpen("cwebpage.dll")
    DllCall($dll, "long", "EmbedBrowserObject", "hwnd", $internetgui)
    DllCall($dll, "long", "DisplayHTMLPage", "hwnd", $internetgui, "str", "http://www.google.com")



While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE; states that if the close button is it hte script will exit
            If WinActive( $info ) Then 
                GuiSetState(@SW_HIDE, $info)
            Else
                Exit
            EndIf
                
        Case $msg = $GO 
            DllCall($dll, "long", "DisplayHTMLPage", "hwnd", $internetgui, "str", GUICtrlRead($Combo_5)); tells the dll to go to the web page thats in the combobox
        
        Case  $msg = $back 
            DLLCall($dll,"none","DoPageAction","hwnd",$internetgui,"int", 0)
        
        Case $msg = $forward
            DLLCall($dll,"none","DoPageAction","hwnd",$internetgui,"int", 1)
        
        Case $msg = $refresh 
            DLLCall($dll,"none","DoPageAction","hwnd",$internetgui,"int", 4)
        
        Case $msg = $exititem 
            Exit
        
        Case $msg = $OK 
            GUISetState( @SW_HIDE, $info )  
    
        Case $msg = $fileitem 
            $file = FileOpenDialog("Open","C:","HTML (*.html;*.htm)")
            If @error <> 1 Then GUICtrlCreateMenuitem ($file ,$recentfilesmenu)
            If $msg = $fileitem Then DllCall($dll, "long", "DisplayHTMLPage", "hwnd", $internetgui, "str", $file)
        
        Case $msg = $saveitem
            $save = FileSaveDialog ("Save", @DesktopDir, "Html (*.html)", 3, "gfhf" )
        
        Case $msg = $infoitem               
            GuiSetState(@SW_SHOW, $info)
                    
        EndSelect
    WEnd
Exit

[trickytroy]

k thanx...... anybody else got any ideas??