_IENavigate question - Does open all web sites

DCSS · May 30, 2013

I am trying to create a drop down menu of websites that brings up the selected website in a GUI window. For this I am using _IENavigate and it works for all the websites except a few and I am at a loss why not.

This does not work: _IENaviagate($oIE, "https://text4baby.org/") The message I get is "This program cannot display the webpage"

But this does work: Local $oIE = _IECreate("https://text4baby.org/")

I do not want to open the IE browser to display the web site. I want it to open in a GUI window and the majority of the web sites I have do work just like I want them to. There are just a few that do not and I do not know why.

I've looked through this forum at other similar postings and the response I've seen is if it can be opened in IE it can be opened by using _IENavigate.

What am I missing or not understanding?

Thanx in advance for any suggestions.

Melba23 · May 30, 2013

DCSS,

I can navigate to that page in an embedded IE browser without problem. Perhaps if you posted the whole script we might be able to suggest a reason why you cannot. When you post the code please use Code tags - see here how to do it.

M23

DCSS · May 30, 2013

Thanx for the prompt response. Here is the code.

GUISetState()

While 1
    $msg = GUIGetMsg()
    For $i = 0 To $count-1
        If $msg = $aDropDownMenuIDs[$i] Then
            $sitename = $aDropDownMenuSites[$i]
            $url = GetSiteURL($sitename)
            ;$oIE = _IECreate($url,1)
        _IEErrorHandlerRegister()

        Local $oIE = _IECreateEmbedded()
        GUICreate("Community Development Tool", 1080, 820, (@DesktopWidth - 1080) / 2, 10, _
            $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
        GUICtrlCreateObj($oIE, 10, 40, 1040, 760)
        Local $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 10, 70, 30)
        Local $GUI_Button_Forward = GUICtrlCreateButton("Forward", 90, 10, 70, 30)
        Local $GUI_Button_Home = GUICtrlCreateButton("Home", 170, 10, 70, 30)
        ;Local $GUI_Button_Quit = GUICtrlCreateButton("Quit", 340, 10, 100, 30)
        Local $GUI_Button_Quit = GUICtrlCreateButton("Quit", 250, 10, 70, 30)
        GUICtrlCreateLabel($sitename &"     "&$url, 360,10,500,20)
        GUICtrlSetFont(-1,12)
        GUICtrlSetBkColor(-1,0xffffff)
        GUISetState() ;Show GUI
        _IENavigate($oIE, $url)

        ; Waiting for user to close the window
        While 1
        Local $msg1 = GUIGetMsg()
            Select
            Case $msg1 = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg1 = $GUI_Button_Home
                _IENavigate($oIE, $url)
            Case $msg1 = $GUI_Button_Back
                _IEAction($oIE, "back")
            Case $msg1 = $GUI_Button_Forward
                _IEAction($oIE, "forward")
            Case $msg1 = $GUI_Button_Quit
                ;_IEAction($oIE, "quit")
                _IEQuit($oIE)
                ExitLoop
            EndSelect
        WEnd

        GUIDelete()

        ;Exit

        ExitLoop
        ElseIf $msg = $GUI_EVENT_CLOSE Then
            Exit
        EndIf
    Next
WEnd

Melba23 · May 30, 2013

DCSS,

Where is the rest of it? Or do you expect me to write all the additional code to get that snippet to work? :huh:

Ther are several possible problems that I can see in that snippet. For example:

If $msg = $aDropDownMenuIDs[$i] Then

imples that $aDropDownMenuIDs is a ControlID - so how do you expect:

$sitename = $aDropDownMenuSites[$i]

to work? Comparing a ControlID and a string is very unlikely to give you a satisfactory result.

So please post the whole script - you know it makes sense.

M23

Edited May 30, 2013 by Melba23
Wrong button too soon

DCSS · May 30, 2013

Sorry. This does work with 90% of the websites I access. It's just a handful where it does not. Also, I get the url from an ini file. I have cut and paste the url from the file into both commands in the first message above with the same results.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#include <ClipBoard.au3>
#Include <Misc.au3>
#Include <IE.au3>
Global $Countdown
If _Singleton(@ScriptName, 1) = 0 Then
 WinActivate(@ScriptName)
 Exit
EndIf
Func Countingdown()
 $i = $Countdown
 While ($i <> -1)
  ToolTip("Countdown: " & $i)
  Sleep(1000)
  $i = $i - 1
 WEnd
 ToolTip("")
EndFunc
Func GetSiteURL($siteurl)
 $sIni = "SiteURLs.ini"
 $temp_str = ""
 If FileExists($sIni) Then
  $file = FileOpen($sIni, 0)
  ; Check if file opened for reading OK
  If $file = -1 Then
   MsgBox(0, "Error", "Unable to open SiteURLs.ini file.")
   Exit
  Else
   $aData1 = IniReadSection(@ScriptDir & "\" & $sIni, $siteurl)
   If not @error Then
    For $i = 1 To UBound($aData1) - 1
     $temp_str &= $aData1[$i][1]
    Next
   Else
    MsgBox(0,"Error","Unable to find this web site: " & $siteurl,10)
   EndIf
  EndIf
  FileClose($file)
 EndIf
 ;MsgBox(0,"Site","The site is: "& $temp_str)
 Return $temp_str
EndFunc
Func AboutResourceCenter()
 #Region ### START Koda GUI section ### Form=
 $Form1 = GUICreate("Community Development", 374, 465, 321, 69, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP))
 $Pic1 = GUICtrlCreatePic("splash.JPG", 0, 0, 373, 266, 0)
 $Edit1 = GUICtrlCreateEdit("", 0, 272, 369, 129, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $WS_VSCROLL))
 GUICtrlSetData(-1, " ****************** Website Tool *****************" & @CRLF & @CRLF & _
   "Select the web site to access from the drop down menu at the top of the screen.")
 GUICtrlSetFont(-1, 12, 400, 0, "Arial")
 GUICtrlSetBkColor(-1, 0xffffff)
 $OK = GUICtrlCreateButton("OK", 146, 416, 93, 41, 0)
 GUICtrlSetFont(-1, 12, 800, 0, "Arial")
 $CANCEL = GUICtrlCreateButton("CANCEL", 266, 416, 83, 41, 0)
 ;GUICtrlSetFont(-1, 12, 800, 0, "Arial")
 ;$lbCountdown = GUICtrlCreateLabel("Countdown (secs)", 8, 411, 126, 20)
 ;GUICtrlSetFont(-1, 12, 400, 0, "Arial")
 ;$cbCountdown = GUICtrlCreateCombo("10", 8, 435, 105, 25)
 ;GUICtrlSetFont(-1, 12, 400, 0, "Arial")
 ;GUICtrlSetData(-1, "5")
 GUISetState(@SW_SHOW)
 #EndRegion ### END Koda GUI section ###
 While (1)
  $msg = GUIGetMsg()
  Switch $msg
   Case $OK
    GUISetState(@SW_HIDE)
    ;$Countdown = GUICtrlRead($cbCountdown)
    If Not StringIsDigit($Countdown) Then
     $Countdown = 10
    ElseIf ($Countdown < 5) Then
     $Countdown = 5
    ElseIf ($Countdown > 10) Then
     $Countdown = 10
    EndIf
    ExitLoop
   Case $CANCEL
    Exit
   Case Else
    If @MIN = 5 Then
     GUISetState(@SW_HIDE)
     Exit
    EndIf
  EndSwitch
 WEnd
EndFunc
AboutResourceCenter()
$ResourceCenter = GUICreate("Community Development", 962, 20, 421, 1, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
GUISetState(@SW_SHOW)
$count = 0
$size = 0
Dim $aDropDownMenuIDs[1]
Dim $aDropDownMenuSites[1]
$temp_DropDownMenuIDs = ""
$sMenusINI = "Menus.ini"
$aTopMenus = IniReadSectionNames(@ScriptDir & "\" & $sMenusINI) ; For example, CP is the topmost menu
If @error Then
 MsgBox(0, "Error", "Unable to find Menus.ini file or the file is not in a readable format.")
 Exit
Else
 Dim $aTopMenusIDs[$aTopMenus[0] + 1]
 For $i = 1 To $aTopMenus[0]
  If Not StringInStr($temp_DropDownMenuIDs, $aTopMenus[$i]) Then
   $aTopMenusIDs[$i] = GUICtrlCreateMenu($aTopMenus[$i])
   $aDropDownMenus = IniReadSection(@ScriptDir & "\Menus.ini", $aTopMenus[$i]) ; Under topmost menu can contain sites or menus
   If Not @error Then
    ;MsgBox(0,"error",@error)
    $size = $size + $aDropDownMenus[0][0]
    ReDim $aDropDownMenuIDs[$size]
    ReDim $aDropDownMenuSites[$size]
    $j = 0
    While $j < $aDropDownMenus[0][0]
     $j = $j + 1
     If $aDropDownMenus[$j][0] = "site" Then
      $aDropDownMenuIDs[$count] = GUICtrlCreateMenuItem($aDropDownMenus[$j][1], $aTopMenusIDs[$i])
      $aDropDownMenuSites[$count] = $aDropDownMenus[$j][1]
     ElseIf $aDropDownMenus[$j][0] = "submenu" Then
      $aDropDownMenuIDs[$count] = GUICtrlCreateMenu($aDropDownMenus[$j][1], $aTopMenusIDs[$i])
      $temp_DropDownMenuIDs = $temp_DropDownMenuIDs & $aDropDownMenus[$j][1] & "~!" & $aDropDownMenuIDs[$count] & "=="
      $aSubMenuSites = IniReadSection(@ScriptDir & "\Menus.ini",$aDropDownMenus[$j][1])
      If Not @error Then
       For $k = 0 to $aSubMenuSites[0][0]
        If $aSubMenuSites[$k][1] <> "" Then
         $aDropDownMenuIDs[$count] = GUICtrlCreateMenuItem($aSubMenuSites[$k][1], $aDropDownMenuIDs[$count])
         $aDropDownMenuSites[$count] = $aSubMenuSites[$k][1]
        EndIf
       Next
      Else
       MsgBox(0,"Error","The submenu " & $aDropDownMenus[$j][1] & " is not found.")
       Exit
      EndIf
     EndIf
     $count = $count + 1
    WEnd
   EndIf
  EndIf
 Next
EndIf
GUISetState()
While 1
 $msg = GUIGetMsg()
 For $i = 0 To $count-1
  If $msg = $aDropDownMenuIDs[$i] Then
   $sitename = $aDropDownMenuSites[$i]
   $url = GetSiteURL($sitename)
   ;$oIE = _IECreate($url,1)
  _IEErrorHandlerRegister()
  Local $oIE = _IECreateEmbedded()
  GUICreate("Community Development Tool", 1080, 820, (@DesktopWidth - 1080) / 2, 10, _
   $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
  GUICtrlCreateObj($oIE, 10, 40, 1040, 760)
  Local $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 10, 70, 30)
  Local $GUI_Button_Forward = GUICtrlCreateButton("Forward", 90, 10, 70, 30)
  Local $GUI_Button_Home = GUICtrlCreateButton("Home", 170, 10, 70, 30)
  ;Local $GUI_Button_Quit = GUICtrlCreateButton("Quit", 340, 10, 100, 30)
  Local $GUI_Button_Quit = GUICtrlCreateButton("Quit", 250, 10, 70, 30)
  GUICtrlCreateLabel($sitename &"     "&$url, 360,10,500,20)
  GUICtrlSetFont(-1,12)
  GUICtrlSetBkColor(-1,0xffffff)
  GUISetState() ;Show GUI
  _IENavigate($oIE, $url)
  ; Waiting for user to close the window
  While 1
  Local $msg1 = GUIGetMsg()
   Select
   Case $msg1 = $GUI_EVENT_CLOSE
    ExitLoop
   Case $msg1 = $GUI_Button_Home
    _IENavigate($oIE, $url)
   Case $msg1 = $GUI_Button_Back
    _IEAction($oIE, "back")
   Case $msg1 = $GUI_Button_Forward
    _IEAction($oIE, "forward")
   Case $msg1 = $GUI_Button_Quit
    ;_IEAction($oIE, "quit")
    _IEQuit($oIE)
    ExitLoop
   EndSelect
  WEnd
  GUIDelete()
  ;Exit
  ExitLoop
  ElseIf $msg = $GUI_EVENT_CLOSE Then
   Exit
  EndIf
 Next
WEnd

Edited May 30, 2013 by Melba23
Fixed tags

Melba23 · May 30, 2013

DCSS,

And a sample ini file? If you want help, please try and help us!

M23

DCSS · May 30, 2013

I am batting a thousand. Sorry again.

I tried attaching the two .ini files but get the mesage "You aren't permitted to upload this kind of file". So I pasted them in. Thanx for your patience.

SiteURLs.ini

FOOD
[211]
url = http://capk.org/

[Gleaners]
url = http://www.goldenempiregleaners.com

[We Connect]
url = http://www.weconnect.net/index.php

[WIC]
url = http://www.clinicasierravista.org/programs/wic.php

[WIC-CAPK]
url = http://www.capk.org/index.cfm/fuseaction/pages.page/id/545

SHELTER
[Bakersfield Homeless Shelter]
url = http://bakhc.org/

[Housing Authority]
url = http://kernha.org/wp/affordable-housing/

[Mission]
url = http://thebrm.org/

UTILITIES
[Energy Assistance]
url = http://www.capk.org/index.cfm/fuseaction/pages.pages/id/536

[Lifeline]
url = https://www.californialifeline.com/en

[PGE Assistance]
url = http://www.pge.com/myhome/customerservice/financialassistance/energysavingsassistanceprogram/faqs

[SoCalGas CARE]
url = http://custhelp.socalgas.com/app/answers/detail/a_id/43/c/25

EMPLOYMENT
[Bakersfield City]
url = http://www.bakersfieldcity.us/administration/citymanager/humanresources/regular_job_listings.html

[CalJOBS]
url = http://www.caljobs.ca.gov/

[ETR]
url = http://www.etronline.com/jobseekers/

[KC Personnel]
url = http://www.co.kern.ca.us/jobs/jobs-public-regular.asp

CHILD CARE
[Community Connection]
url = http://www.kernchildcare.org/

PARENT RESOURCES
[first5kern]
url = http://www.first5kern.org/

[IH2M]
url = http://www.ithappened2me.org/

[text4baby]
url = https://text4baby.org/

ACTIVITIES
[PAL]
url = http://www.bakersfieldpal.org/Bakersfield_Police_Activities_League/Home.html

[SAL]
url = http://kcsal.com/


HOTLINES
[Alliance Against Family Violance]
url = http://www.kernalliance.org

[CA Suicide & Crises Hotline]
url = http://suicidehotlines.com/california.html

[DHS]
url = http://www.co.kern.ca.us/dhs/About/hotlines.html

[Graffiti-Off Program]
url = http://www.co.kern.ca.us/gsd/graffitiremoval/

FAITH
[New Life Recovery and Training Ctr]
url = http://newlifetrainingcenter.org/

[Stay Focus Minitries]
url = http://www.stayfocused.org/sfmhome.html

EDUCATION
[Adult School]
url = http://bas.kernhigh.org/

[Bakersfield College]
url = http://www.bakersfieldcollege.edu/

[Bakersfield Barber College]
url = http://bakersfieldbarbercollegeinc.com/

[Lyle's College of Beauty]
url = http://lylescolleges.com/index.html

[Marinello Schools of Beauty]
url = http://www.marinello.com/beauty-schools/southern-california/bakersfield.aspx

[Milan Institute of Cosmotology]
url = http://milaninstitute.edu/campuses/milan-institute-campuses/bakersfield-california-campus/

LEGAL
[Consumer Credit Counseling]
url = http://www.californiacccs.org/

[GBLA]
url = http://gbla.org

[Family Law Facilitator]
url = http://www.kern.courts.ca.gov/home.aspx?p=FamilyFacilitator&p1=left

[Free Tax Prep]
url = http://irs.treasury.gov/freetaxprep/

[Law Library]
url = http://kclawlib.org/

VETERANS
[VAF]
url = http://www.cavaf.org

[Serviceman Civil Relief Act]
url = http://www.acf.hhs.gov/programs/css/resource/the-service-members-civil-relief-act

[US Dept of Veterans Affairs]
url = http://www.va.gov/

HELP MY CUSTOMER
[CSDA]
url = http://www.csdaca.org/

[Employer Resource Center]
url = http://www.childsup.ca.gov/employer.aspx

[Administration of Children and Families]
url = http://www.acf.hhs.gov/

Menus.ini

////////////////////////////////////////////////

MAIN MENUS

////////////////////////////////////////////////

[FOOD]

site = 211
site = Gleaners
site = We Connect
site = WIC
site = WIC-CAPK

[SHELTER]

site = Bakersfield Homeless Shelter
site = Housing Authority
site = Mission

[UTILITIES]

site = Energy Assistance
site = Lifeline
site = PGE Assistance
site = SoCalGas CARE

[EMPLOYMENT]

site = Bakersfield City
site = CalJOBS
site = ETR
site = KC Personnel

[CHILD CARE]

site = Community Connection

[PARENT RESOURCES]

site = first5kern
site = IH2M
site = text4baby

[ACTIVITIES]

site = PAL
site = SAL

[HOTLINES]

site = Alliance Against Family Violance
site = CA Suicide & Crises Hotline
site = DHS
site = Graffiti-Off Program

[FAITH]

site = New Life Recovery and Training Ctr
site = Stay Focus Minitries

[EDUCATION]

site = Adult School
site = Bakersfield College
site = Bakersfield Barber College
site = Lyle's College of Beauty
site = Marinello Schools of Beauty
site = Milan Institute of Cosmotology

[LEGAL]

site = Consumer Credit Counseling
site = GBLA
site = Family Law Facilitator
site = Free Tax Prep
site = Law Library

[VETERANS]

site = VAF
site = Serviceman Civil Relief Act
site = US Dept of Veterans Affairs

[HELP MY CUSTOMER]

site = CSDA
site = Employer Resource Center
site = Administration of Children and Families

////////////////////////////////////////////////

SUBMENUS

////////////////////////////////////////////////

Melba23 · May 30, 2013

DCSS,

No problem - it is just much easier to try and debug when you have some working code. If we try to produce something ourselves it might very well not correspond to your code and so lead us up the garden path - as has been proved time and time again.

Anyway after all that, the URL which gave you problems works fine for me using your code - so we will have to look elsewhere. Do you have any form of HIPS or firewall that might be blocking that particular site? :huh:

M23

DCSS · May 30, 2013

If it is a firewall problem, why would it work with Local $oIE = _IECreate("https://text4baby.org/") but not with _IENavigate($oIE, "https://text4baby.org/")?

That's what I do not understand. We do have a firewall to go through, no HIPS, but the browser has all the settings needed and this site works fine using the browser.

Knowing it does work for you helps and I will keep digging.

I haven't used this forum in a couple of years and only do AutoIT scripting sporadically but this forum is a great resource. Have never been disappointed.

Thanx for your help.

DaleHohm · May 31, 2013

I don't receive any errors when using your code on that site, either.

Googling "This program cannot display the webpage" returns a lot of info about viruses - no idea if that could be an issue for you or not.

You may want to try out your code on another, similarly configured machine.

I am running IE10 on Windows 7.

You may want to check out the alternatives to _IECreate_Embedded in my sig...

Dale

DCSS · May 31, 2013

Thanx Dale,

I have run this on a Windows XP machine with IE 8 and a Windows 7 machine with IE 8. Got the same result on both machines. I also Googled that error message and got the postings abotu viruses. I ran scans on the XP machine just in case and got no viruses. That's when I decided to check the forums here.

What stumps me is why IECreate works as does accessign the site with a browser on the same machine and _IENavigate does not.

I will try it on a few other machines to see if I can get it to work. I will also look at your Alternatives to _IECreateEmbedded.

Thanx again for the suggestions.

_IENavigate question - Does open all web sites

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members