HR78 Posted May 1, 2010 Share Posted May 1, 2010 Hi guys. I need your help. I have a web site to which I want to join only from the autoit script. example: #include <IE.au3> #include <GUIConstants.au3> $oIE = ObjCreate("Shell.Explorer.2") $hGui = GUICreate("GUI",620,450) $GUIActiveX = GUICtrlCreateObj($oIE,10,10,600,400) $button = GUICtrlCreateButton("Property",285,420,50,20) GUISetState() $oIE.Navigate2("http://3hot-shots.com") while 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $button $V = _IEPropertyGet($GUIActiveX,"busy") ConsoleWrite($V) EndSelect WEnd $V = _IEPropertyGet($oIE,"busy") OR: expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.6.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt('MustDeclareVars', 1) Example() ; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI ; ; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp Func Example() Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward Local $GUI_Button_Home, $GUI_Button_Stop, $msg $oIE = ObjCreate("Shell.Explorer.2") ; Create a simple GUI for our output GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN)) $GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 950, 650) $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 480, 100, 30) $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 480, 100, 30) $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 480, 100, 30) $GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, 480, 100, 30) GUISetState() ;Show GUI $oIE.navigate("http://3hot-shots.com") ; Waiting for user to close the window While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home $oIE.navigate("http://3hot-shots.com") Case $msg = $GUI_Button_Back $oIE.GoBack Case $msg = $GUI_Button_Forward $oIE.GoForward Case $msg = $GUI_Button_Stop $oIE.Stop EndSelect WEnd GUIDelete() EndFunc ;==>Example but do not accept Flash, Javascript and cookies is there a way to use firefox?? these scripts I can not login with username and password - I think the reason is cookies. How do I remove this annoying problem?? Thanks and excuse my bad English [URL=http://www.4shared.com/file/CMpeMOgr/KMSnano_100_Final_AIO_Activato.html]KMSnano 10.0 Final AIO Activator for Windows 7, 8 and Office 2010, 2013.exe[/URL] [URL=http://www.4shared.com/file/ODqqYSju/Windows_7_Loader_v208__x86-x64.html]Windows 7 Loader v2.0.8 (x86-x64) by Daz.exe[/URL] [URL=http://www.4shared.com/file/Jc8lQNic/Windows_7_Manager_v426__x32-x6.html]Windows 7 Manager v4.2.6 (x32-x64).exe[/URL] [URL=http://www.4shared.com/file/WMdwBjBE/Windows_8_Manager_v114.html]Windows 8 Manager v1.1.4.exe[/URL] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now