Sign in to follow this  
Followers 0
pcjunki

gui embedded ie

8 posts in this topic

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

Share this post


Link to post
Share on other sites



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
1 person likes this

√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites

awesome!  just what I'm looking for!

thanks

Share this post


Link to post
Share on other sites

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.


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

try this .. NOT TESTED...

While 1
    Local $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
case $msg = $button1
_IECreate("192.168.20.1")
;run("C:\Program Files\Internet Explorer\iexplore.exe", "192.168.20.1")
    EndSelect
 
WEnd
Edited by Valuater

NEWHeader1.png

Share this post


Link to post
Share on other sites

that worked, thanks!

Share this post


Link to post
Share on other sites

that worked, thanks!

 

Welcome!!

8)


NEWHeader1.png

Share this post


Link to post
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
Sign in to follow this  
Followers 0