Jump to content

Webpage wont load?


Golbez
 Share

Go to solution Solved by Golbez,

Recommended Posts

soo im trying to make something that will load a webpage i use to watch tv on:  http://www.dishanywhere.com/live-tv

i pay for dish network soo i dont see how this would breaking any rules, im just simply macroing something so i dont have to do it manually every time.

soo ive come to realised chrome crashes alot so i figured id try and make myself a code that would open the webpage. then navigate to the tv site.  then maximize it but double clicking on the middle of the video.  i also wanted to make this code because i have to have an active window connected to the tv site for some reason.  if i was to close the webpage it will close the popout thing for the tv.

k my problem.

1. i keep getting a pop up saying to use internet explorer 11...

asda.png

i have internet explorer 11...

123123123fd.png

 

2. it seems to just sit at initializing, not sure why.  it works fine when i open internet explorer myself and do it

123123.jpg

 

my code so far

#RequireAdmin
#include <Misc.au3>
#include <GUIedit.au3>
#include <GDIPlus.au3>
#include <GUIbutton.au3>
#include <GUIConstants.au3>
#include <FileConstants.au3>
#include <editconstants.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>


Global $site = "http://www.dishanywhere.com/live-tv"
Global $GUIWidth = 1442
Global $GUIHeight = 802
Global $BrowsWidth = 1440
Global $BrowsHeight = 800
Global $title = "Dish Network TV"
Global $account = "************"
Global $password = "***********"
Global $ClickContiuneX = 543
Global $ClickContiuneY = 220
Global $ClickLiveTVx = 535
Global $ClickLiveTVy = 29
Global $classID = "Internet Explorer_Server"

Global $sleepSTART = 1000
Global $sleepContinue = 3000
Global $sleepLiveTV = 5000


Opt("GUIOnEventMode", 1)    ;1
Opt("MouseCoordMode", 2);1=absolute, 0=relative, 2=client
Opt("PixelCoordMode", 2);1=absolute, 0=relative, 2=client
Opt("WinTitleMatchMode", 3) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase


#Region ;**** GUI  ****
_GDIPlus_Startup()
$oIE = ObjCreate("Shell.Explorer.2")
$Form1 = GUICreate($title, $GUIWidth, $GUIHeight ,(@DesktopWidth-$GUIWidth)/2, (@DesktopHeight-$GUIHeight)/2)
$GUIActiveX = GUICtrlCreateObj ( $oIE, 0, 0, $BrowsWidth, $BrowsHeight)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate", $Form1)
GUISetState ()
$oIE.navigate($site)
#EndRegion ;**** GUI ****

While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Terminate()
        EndSwitch
    WEnd

Func start()
    Sleep($sleepSTART)
    ControlClick($title, "", "", "left", 1, $ClickContiuneX, $ClickContiuneY)
    Sleep($sleepContinue)
    ControlClick($title, "", "", "left", 1, $ClickLiveTVx, $ClickLiveTVy)
    Sleep($sleepLiveTV)

EndFunc
Func Terminate()
    GUIDelete ($Form1)
    Exit
EndFunc   ;==>Terminate
Link to comment
Share on other sites

  • Solution

Suggest that you read >this thread. I seem to recall several other similar discussions in the forums.

 

ty im sure this is the answer i need. i just have to read it a few more times to understand what i need to do. :)

 

thanks dude!!!! you are the best!! got it working!

#RequireAdmin
#include <IE.au3>
#include <Misc.au3>
#include <GUIedit.au3>
#include <GDIPlus.au3>
#include <Process.au3>
#include <GUIbutton.au3>
#include <GUIConstants.au3>
#include <FileConstants.au3>
#include <editconstants.au3>
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>

Local $regValue = "0x2AF8"
If RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD") <> $regValue) Then
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
EndIf

If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\MicrosoftInternet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD") <> $regValue) Then
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\MicrosoftInternet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", $regValue)
EndIf

Global $site = "http://www.dishanywhere.com/live-tv"
Global $GUIWidth = 1175
Global $GUIHeight = 802
Global $BrowsWidth = 1440
Global $BrowsHeight = 1000
Global $title = "Dish Network TV"
Global $account = "*************"
Global $password = "************"
Global $ClickContiuneX = 543
Global $ClickContiuneY = 220
Global $ClickLiveTVx = 535
Global $ClickLiveTVy = 29
Global $maxX = 500
Global $maxY = 200
Global $guiLEFT = -125
Global $guiTOP = -180

Global $classID = "SlingPlayer_NormalWnd"

Global $sleepSTART = 1000
Global $sleepContinue = 3000
Global $sleepLiveTV = 5000

Global $Form1

Opt("GUIOnEventMode", 1)    ;1
Opt("MouseCoordMode", 2)    ;1=absolute, 0=relative, 2=client
Opt("PixelCoordMode", 2)    ;1=absolute, 0=relative, 2=client
Opt("WinTitleMatchMode", 3) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase

_GUIFUNZ()

Func _GUIFUNZ()
    #Region ;**** GUI  ****
        _GDIPlus_Startup()
        $oIE = ObjCreate("Shell.Explorer.2")
        $Form1 = GUICreate($title, $GUIWidth, $GUIHeight ,(@DesktopWidth-$GUIWidth)/2, (@DesktopHeight-$GUIHeight)/2)
        $GUIActiveX = GUICtrlCreateObj ( $oIE, $guiLEFT, $guiTOP, $BrowsWidth, $BrowsHeight)
        GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate", $Form1)
        GUISetState ()
        $oIE.navigate($site)
    #EndRegion ;**** GUI ****

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Terminate()
        EndSwitch
    WEnd
EndFunc
Func start()
    Sleep($sleepSTART)
    ControlClick($title, "", "", "left", 1, $ClickContiuneX, $ClickContiuneY)
    Sleep($sleepContinue)
    ControlClick($title, "", "", "left", 1, $ClickLiveTVx, $ClickLiveTVy)
    Sleep($sleepLiveTV)
EndFunc
Func Terminate()
    GUIDelete ($Form1)
    Exit
EndFunc   ;==>Terminate
Edited by Golbez
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...