Jump to content

web frame in my ui?


HiNoTora
 Share

Recommended Posts

Hihi,

I have 3 frames in one webpage, what id like to have in my program. Thing is i have no ide how to add webpages on UI. ( i have googeld and results wsnt what i wanted )

this one is webpage   http://www.fxmarketleaders.com/forexsignals   and frame names are

Live - Short Term Forex Signals

Live - Long Term Forex Signals

Latest Closed Signals P/L

And if possible, without scroll bars

and heres code i have

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <GUIEdit.au3>
#include <ScrollBarConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
Opt("GUICloseOnESC", 1)
Opt("GUIOnEventMode", 1)

Global $hGUI = GUICreate("Forex Signals", 700, 450, -1, -1, -1, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate")
GUISetState(@SW_SHOW, $hGUI)

Global $start = 0, $wait = 1
While 1
    If $start = 1 Then _MainProgram()
    Sleep(100)
wend

Func _StartProgram()
      _WriteToEditBox("Starting program")
    $wait = 1
    $start = 1
EndFunc   ;==>_StartProgram

Func _PauseProgram()
    _WriteToEditBox("Pausing program")
    $start = 0
EndFunc   ;==>_Pauserogram
Func _MainProgram()
   
   
   
   
   
   
EndFunc   ;==>_MainProgram
Func Terminate()
    Exit
EndFunc   ;==>Terminate
Link to comment
Share on other sites

I had some time to kill. Maybe this can help a little.

#RequireAdmin
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <Misc.au3>
#include <WindowsConstants.au3>

If _Singleton("Forex Signals.exe", 1) = 0 Then;to prevent multiple instances
    MsgBox(0, 'Forex Signals is already running! ', ' Using multiple copies of this script is unsupported! ')
    __MyExit()
EndIf
Opt("MustDeclareVars", 1)
HotKeySet("{ESC}", "__MyExit")
Global $Msg, $oIE, $hMainGui, $lStatus, $lMyLabel, $wait = 1, $start = 0, $bStart = 2000, $bPause = 2001
$oIE = _IECreateEmbedded()
$hMainGui = GUICreate("Forex Signals", 700, 450, -1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_VISIBLE, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN, $WS_EX_TOPMOST))
GUICtrlCreateObj($oIE, 2, 24, 696, 416)
$lStatus = GUICtrlCreateLabel("Status:", 560, 2, 40, 20)
$lMyLabel = GUICtrlCreateLabel("", 600, 2, 80, 20)
$bStart = GUICtrlCreateButton("Start",10,2,60,20)
$bPause = GUICtrlCreateButton("Pause",80,2,60,20)
GUISetState()
_IENavigate($oIE, "http://www.fxmarketleaders.com/forexsignals")
While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            __MyExit()
        Case $bStart
            __StartProgram()
        Case $bPause
            __PauseProgram()
    EndSwitch
    ;sleep(100)
WEnd
Func __StartProgram()
    __WriteToLabel("Starting Program")
    $wait = 1
    $start = 1
EndFunc   ;==>__StartProgram
Func __PauseProgram()
    __WriteToLabel("Pausing Program")
    $start = 0
EndFunc   ;==>__PauseProgram
Func __MainProgram()
EndFunc   ;==>__MainProgram
Func __WriteToLabel($string)
    GUICtrlSetData($lMyLabel, $string)
EndFunc   ;==>__WriteToLabel
Func __MyExit()
    GUIDelete($hMainGui)
    Exit
EndFunc   ;==>__MyExit
Link to comment
Share on other sites

#Include <ie.au3>

$GUI=GUICreate("google", 900, 500)

$oIE=_IECreateEmbedded()
GUICtrlCreateObj($oIE,10,10,200,200)
_IENavigate($oIE, 'http://Google.com')
$oIE2=_IECreateEmbedded()
GUICtrlCreateObj($oIE2,250,10,200,200)
_IENavigate($oIE2, 'http://Google.com')
$oIE3=_IECreateEmbedded()
GUICtrlCreateObj($oIE3,500,260,200,200)
_IENavigate($oIE3, 'http://Google.com')
$oIE4=_IECreateEmbedded()
GUICtrlCreateObj($oIE4,10,260,200,200)
_IENavigate($oIE4, 'http://Google.com')
$oIE5=_IECreateEmbedded()
GUICtrlCreateObj($oIE5,250,260,200,200)
_IENavigate($oIE5, 'http://Google.com')


GUISetState()

Do
Until GUIGetMsg() = -3

Not 100% sure what you are asking, but here.

C0d3 is P0etry( ͡° ͜ʖ ͡°)

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...