hide/show controle borken...

[ashley]

ok im wondring why this wort hide the webpage and show the other and Vic versa

also is it possible to make it unmoveble.

see code here

Edited November 30, 2007 by ashley

[Generator]

GUICtrlSetState(@GUI_ID, $GUI_HIDE/$GUI_SHOW)

[ashley]

ok i did that still not working

expandcollapse popup

#include <GUIConstants.au3>
#include <IE.au3>
_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()
$rhq= _IECreateEmbedded ()
$Form1 = GUICreate("Form1", 962, 547)
$rswindow = GUICtrlCreateObj($oIE, 5, 5, 850, 539)
$rhq = GUICtrlCreateObj($rhq, 5, 5, 850, 539)
GUICtrlSetState($rhq, $GUI_HIDE)
$Autotele = GUICtrlCreateGroup("  Teleporter", 872, 16, 81, 113)
$Startteleport = GUICtrlCreateButton("Start", 888, 80, 51, 25, 0)
$Teleports = GUICtrlCreateCombo("Choose", 880, 48, 65, 25)
GUICtrlSetData(-1, "Fally")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$rs = GUICtrlCreateButton("runescape", 880, 152, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
$rhqb = GUICtrlCreateButton("rhq", 880, 184, 73, 25, 0)
GUISetState(@SW_SHOW)

_IENavigate ($oIE, "http://www.runescape.co.uk/")
_IENavigate ($rhq, "http://www.runehq.com/")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Startteleport
            tele()
        Case $rs
            rs()
        Case $rhqb
            rhq()   
    EndSwitch
WEnd

Func rs()
        GUICtrlSetState($rs, $GUI_DISABLE)
        GUICtrlSetState($rhq, $GUI_SHOW)
        GUICtrlSetState($rswindow,$GUI_SHOW)
        Sleep(1000)
        GUICtrlSetState($rhqb, $GUI_ENABLE)
EndFunc
    
Func rhq()
        GUICtrlSetState($rhqb, $GUI_DISABLE)
        GUICtrlSetState($rswindow, $GUI_SHOW)
        GUICtrlSetState($rhq, $GUI_SHOW)
        Sleep(1000)
        GUICtrlSetState($rs, $GUI_ENABLE)
EndFunc

Func tele()
;HotKeySet("{esc}", "stop")
If GUICtrlRead($Teleports) = "Fally" then
        Sleep(500)
        MouseMove(824, 326)
        Sleep(1000)
        MouseClick("Left")
        While 1
        ;ifpressed
        Sleep(1000)
        MouseMove(652, 452)
        Sleep(1000)
        MouseClick("Left")
        WEnd
        Else
MsgBox(48,"Error","Please choose a Place to teleport before starting the teleporter")
        EndIf
EndFunc