Opening a Site from Program?

alien13 · January 14, 2007

Hi,

I was wondering if it was possible to open a website that was entered in the input box?

I tried the following: (this is my websites window) - I have highlighted the parts in red =)

CODE

Func WebSites()

GUISetState(@SW_HIDE, $XSkinGui)

$XSkin2 = XSkinGuiCreate ("Websites", 358, 340, $Skin_Folder)

$XIcon2 = XSkinIcon ($XSkin2, 1)

$WoWSiteFF = GUICtrlCreateButton("WoW Site FireFox", 70, 50, 220, 20)

$WoWSiteIE = GUICtrlCreateButton("WoW Site Internet Explorer", 70, 80, 220, 20)

$warSiteFF = GUICtrlCreateButton("WorldofWar.net FireFox", 70, 110, 220, 20)

$warSiteIE = GUICtrlCreateButton("WorldofWar.net Internet Explorer", 70, 140, 220, 20)

$CurseFF = GUICtrlCreateButton("Curse-Gaming FireFox", 70, 170, 220, 20)

$CurseIE = GUICtrlCreateButton("Curse-Gaming Internet Explorer", 70, 200, 220, 20)

$WebsiteFF = GuiCtrlCreateInput("Firefox", 70, 230, 180, 20) ;Firefox custom site

$FFGO = GuiCtrlCreateButton("Go", 250, 230, 40, 20) ;FF go button

$WebsiteIE = GuiCtrlCreateInput("Internet Explorer", 70, 260, 180, 20) ;Internet Explorer custom site

$IEGO = GuiCtrlCreateButton("Go", 250, 260, 40, 20) ;IE go button

GUISetState(@SW_SHOW)

While 2

$msg2 = GUIGetMsg()

Select

Case $msg2 = $XIcon2[1]

ExitLoop

Case $msg2 = $WoWSiteIE

Run($IEPath & " http://www.worldofwarcraft.com")

Case $msg2 = $WoWSiteFF

Run($FFPath & " http://www.worldofwarcraft.com")

Case $msg2 = $warSiteIE

Run($IEPath & " http://www.worldofwar.net")

Case $msg2 = $warSiteFF

Run($FFPath & " http://www.worldofwar.net")

Case $msg2 = $CurseFF

Run($FFPath & " http://www.curse-gaming.com")

Case $msg2 = $CurseFF

Run($IEPath & " http://www.curse-gaming.com")

Case $msg2 = $FFGO

Run($FFPath)

Sleep(3000)

MouseClick( "Left", 556, 62, 1, 1)

Send ($WebsiteFF)

Case $msg2 = $IEGO

Run($IEPath)

Sleep(3000)

MouseClick( "Left", 568, 43, 1, 1)

Send ($WebsiteIE)

EndSelect

WEnd

GUIDelete($XSkin2)

GUISetState(@SW_SHOW, $XSkinGui)

EndFunc ;==>WebSites

I Made it so the mouse clicks in the address box, because I can't think of another way to get it to go in there. The only problem is it might not work on other peoples computers, as the address box might be in another area.

With another section of my program I have a Setup window where users can input the directory of their programs and it saves to the Config.ini file.

I tried adding this to my program but It keeps coming up with an error =(

So I put it into its own window and now the script loads the separate program but it doesn't write to the ini file for some reason.

Here is my program. To see what I mean extract the "Launcher v1.0" folder to where you want and run the Launcher v1.0.au3 file. When you run the Setup program from inside launcher it wont write to the ini file, but when you run the Setup.exe file inside the "Launcher Files" folder it does.

Sorry if that sounds confusing, if you don't understand it I'll try re-phrase it

Thanks, alien13

BTW The program is on my site as its too big to put on here =S

phantom · January 14, 2007

im not sure if this is what u ment but.. here it is

Case $msg2 = $FFGO
    $site = GUICtrlRead ($WebsiteFF)
    Run($FFPath & " http://" & $site)       
    Sleep(3000)
Case $msg2 = $IEGO
    $site = GUICtrlRead ($WebsiteIE)
    Run($IEPath & " http://" & $site)       
    Sleep(3000)

alien13 · January 14, 2007

Yes, that's it, thats perfect. Thanks for that =D

alien13 · January 15, 2007

OK,

I am working on Launcher v1 but I'm having a few problems. A user suggested that I should have a browse button to search for the programs, that was easy to put in, but I'm stuck on how to get it to put the file location into the input box. (I have the FileOpenDialog code in red).

Users have the ability to choose 5 programs, How would I make it set the path for each separate file. I am stuck on how to do both of these. Each Section for them to choose a program and name is in red and is separate from other code.

CODE

Func FileOpenDialog_button()

FileOpenDialog("Please select a file to launch.", @ProgramFilesDir,"Executables (*.exe)",1 + 2)

EndFunc ;===> Browse

Func Setup()

$IEDir = IniRead("Launcher Files\Info Files\Config.ini", "Launch", "1", "")

$FFDir = IniRead("Launcher Files\Info Files\Config.ini", "Launch", "2", "")

$Program1Dir = IniRead("Launcher Files\Info Files\Config.ini", "Launch", "3", "")

$Program2Dir = IniRead("Launcher Files\Info Files\Config.ini", "Launch", "4", "")

$Program3Dir = IniRead("Launcher Files\Info Files\Config.ini", "Launch", "5", "")

$Program4Dir = IniRead("Launcher Files\Info Files\Config.ini", "Launch", "6", "")

$Program5Dir = IniRead("Launcher Files\Info Files\Config.ini", "Launch", "7", "")

$Label1name = IniRead("Launcher Files\Info Files\Config.ini", "Label", "1", "")

$Label2name = IniRead("Launcher Files\Info Files\Config.ini", "Label", "2", "")

$Label3name = IniRead("Launcher Files\Info Files\Config.ini", "Label", "3", "")

$Label4name = IniRead("Launcher Files\Info Files\Config.ini", "Label", "4", "")

$Label5name = IniRead("Launcher Files\Info Files\Config.ini", "Label", "5", "")

Opt("GUIOnEventMode", 1)

$XSkin5 = XSkinGUICreate("Setup", 400,400, $Skin_Folder)

$XIcon5 = XSkinIcon ($XSkin5, 1)

GUICtrlCreateLabel("IE Path:", 50,52,60,30)

Global $IE = GUICtrlCreateInput($IEDir,110,47,200,20,-1)

$FileOpenDialog_button = GUICtrlCreateButton("Browse", 320, 47, 50, 20)