Sign in to follow this  
Followers 0
jellyfish

checkbox help

1 post in this topic

#1 ·  Posted (edited)

I am having trouble with a check box. Go figure. I have the check box in place but it doesnt work. Check, uncheck. If you look at the script, Its pretty self explanatory what I am trying to acomplish with the checkbox. Also dont know how to script that. I am brandnewbie. Help Please

#include <GUIConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister ()

$oIE = _IECreateEmbedded ()


$Form1 = GUICreate("Torrent Search V1.2 (Jellyfish)", 691, 675, 214, 69)
GUISetFont(10, 800, 0, "MS Sans Serif")
$Label0 = GUICtrlCreateLabel("Check Box To Erase Internet Explorer Temporary Files On Exit.", 24, 55, 230, 50)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$checkbox = GUICtrlCreateCheckbox("", 260, 65, 20, 20)
GuiCtrlSetState(-1, $GUI_CHECKED)
$Torrent = GUICtrlCreateInput("", 24, 10, 217, 24)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
$Label1 = GUICtrlCreateLabel("Enter Your Search Here", 56, 34, 145, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Choose A Torrent Site To Search", 392, 0, 201, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("1.", 0, 10, 19, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("2.", 368, 0, 19, 20)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("TorrentSpy", 296, 32, 81, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("BtJunkie", 296, 64, 83, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("IsoHunt", 392, 32, 83, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("BushTorrents", 392, 64, 83, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Torrentz", 488, 32, 83, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("MiniNova", 488, 64, 83, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("The Pirate Bay", 584, 32, 91, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button8 = GUICtrlCreateButton("MyBittorrent", 584, 64, 91, 25, 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 90, 680, 580)
GUISetState()

_IENavigate ($oIE, "www.google.com")

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Button1
    _IENavigate ($oIE, "http://torrentspy.com/search?query="&GUICtrlRead($Torrent)&"&submit.x=29&submit.y=8")
    Case $Button2
    _IENavigate ($oIE, "http://www.btjunkie.org/search?q="&GUICtrlRead($Torrent))
    Case $Button3
    _IENavigate ($oIE, "http://www.isohunt.com/torrents/?ihq="&GUICtrlRead($Torrent))
    Case $Button4
    _IENavigate ($oIE, "http://www.bushtorrent.com/torrents.php?search=&words="&GUICtrlRead($Torrent))
    Case $Button5
    _IENavigate ($oIE, "http://www.torrentz.com/search_"&GUICtrlRead($Torrent))
    Case $Button6
    _IENavigate ($oIE, "http://thepiratebay.org/search.php?q="&GUICtrlRead($Torrent))
    Case $Button7
    _IENavigate ($oIE, "http://www.mininova.org/search/?search="&GUICtrlRead($Torrent))
    Case $Button8
    _IENavigate ($oIE, "http://www.mybittorrent.com/?keywords="&GUICtrlRead($Torrent))
    EndSwitch
WEnd

Ok I fixed the problem with the checkbox not working. The label on the left side of it was conflicting with it.

Edited by jellyfish

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