Jump to content

gui embedded ie


pcjunki
 Share

Recommended Posts

what is the easiest way to embed 8 links into one gui?

I have 8 ip cameras, and when I reboot the server, I still need to watch the cameras, and I do this on the server app

any guidance would be awesome, just a gui that launches, and shows my cameras in 4 columns 2 rows

hope this makes sense

Link to comment
Share on other sites

  • Moderators

I use a similar script for my IP camera network at home. I'm at the office at the moment, but something like this should get you started:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Misc.au3>

Local $oIE1 = _IECreateEmbedded()
Local $oIE2 = _IECreateEmbedded()

    $myGUI = GUICreate("Deal A Day Sites", 1000, 500, Default, Default, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)


$pic1 = GUICtrlCreateObj($oIE1, 10, 10, 400, 400)
$pic2 = GUICtrlCreateObj($oIE2, 500, 10, 400, 400)


_IENavigate($oIE1, "http://www.google.com")
_IENavigate($oIE2, "http://www.yahoo.com")

While 1
    Local $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
WEnd

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Link to comment
Share on other sites

  • Moderators

Just as an FYI if you choose to go this route and plan to copy and paste inside the embedded objects, have a look at this thread.

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Link to comment
Share on other sites

I have it down now, now I just want to tweak it some more.

I have the 8 cameras showings just perfect!

now I want to add a button that I can click on, and it launches ie to that ip address

where do I put in this code?

case $button1

run("C:\Program Files\Internet Explorer\iexplore.exe", "192.168.20.1")

this is what I have

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Misc.au3>

Local $oIE1 = _IECreateEmbedded()
Local $oIE2 = _IECreateEmbedded()
Local $oIE3 = _IECreateEmbedded()
Local $oIE4 = _IECreateEmbedded()
Local $oIE5 = _IECreateEmbedded()
Local $oIE6 = _IECreateEmbedded()
Local $oIE7 = _IECreateEmbedded()
Local $oIE8 = _IECreateEmbedded()

$myGUI = GUICreate("IP CAMERAS", 1281,941, Default, Default, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)

WinSetState("IP CAMERAS", "", @SW_MAXIMIZE )

$pic1 = GUICtrlCreateObj($oIE1, 0, 10, 310, 310)
$pic2 = GUICtrlCreateObj($oIE2, 320, 10, 310, 310)
$pic3 = GUICtrlCreateObj($oIE3, 640, 10, 310, 310)
$pic4 = GUICtrlCreateObj($oIE4, 960, 10, 310, 310)
$pic5 = GUICtrlCreateObj($oIE5, 0, 400, 310, 310)
$pic6 = GUICtrlCreateObj($oIE6, 320, 400, 310, 310)
$pic7 = GUICtrlCreateObj($oIE7, 640, 400, 310, 310)
$pic8 = GUICtrlCreateObj($oIE8, 960, 400, 310, 310)

$Button1 = GUICtrlCreateButton("192.168.20.1", 0, 320, 97, 65)


;~ _IENavigate($oIE1, "http://192.168.20.1/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")
_IENavigate($oIE2, "http://192.168.20.2/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")
_IENavigate($oIE3, "http://192.168.20.3/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")
_IENavigate($oIE4, "http://192.168.20.4/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")
_IENavigate($oIE5, "http://192.168.20.5/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")
_IENavigate($oIE6, "http://192.168.20.6/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")
_IENavigate($oIE7, "http://192.168.20.7/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")
_IENavigate($oIE8, "http://192.168.20.8/liveview/viewer?lv_winid=ACYJYV3-0&lv_wincnt=1&stream_id=0")

While 1
    Local $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect

WEnd
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...