BrowseURL

[Ejoc]

I posted a version of this in a couple of threads, this opens a url using your default web browser:

#include-once
#include <file.au3>

Func BrowseURL($URL)
    Local $fd

    $fd     = FileOpen(@TEMPDir & "url.url",2)
    if $fd = -1 Then return -1
    FileWriteLine($fd,"[InternetShortcut]")
    FileWriteLine($fd,"URL=" & $URL)
    FileClose($fd)
    Run(@comspec & " /c " & chr(34) & @TEMPDir & "url.url" & chr(34))
    return 0
EndFunc

[SlimShady]

1. You are not as noob as I thought.

2. I just made two smaller versions

BrowseURL_1('http://www.autoitscript.com')
Sleep(5000)
BrowseURL_2('http://www.autoitscript.com')

Func BrowseURL_1($URL)
    Local $TempFile
    $TempFile = @TempDir & "\Website.url"
    INIWrite($TempFile, "InternetShortcut", "URL", $URL)
    Run(@comspec & ' /c "' & $TempFile & '"', @SystemDir, @SW_HIDE)
EndFunc
 
Func BrowseURL_2($URL)
    Run(@comspec & ' /c START "" "' & $URL & '"', @SystemDir, @SW_HIDE)
EndFunc

[zcoacoaz]

i don't know whats better but i usually just do this

Run ( @ComSpec & " /c start http://www.autoitscript.com" )

edit:

this version doesn't show a black command box

Run ( @ComSpec & " /c start http://www.autoitscript.com", @SystemDir, @SW_HIDE )

Edited April 6, 2005 by Xenogis

[Ejoc]

1. You are not as noob as I thought.

I'm still a noob, I've only been using AutoIt for like a month

2. I just made two smaller versions

BrowseURL_1('http://www.autoitscript.com')
Sleep(5000)
BrowseURL_2('http://www.autoitscript.com')

Func BrowseURL_1($URL)
    Local $TempFile
    $TempFile = @TempDir & "\Website.url"
    INIWrite($TempFile, "InternetShortcut", "URL", $URL)
    Run(@comspec & ' /c "' & $TempFile & '"', @SystemDir, @SW_HIDE)
EndFunc
 
Func BrowseURL_2($URL)
    Run(@comspec & ' /c START "" "' & $URL & '"', @SystemDir, @SW_HIDE)
EndFunc

<{POST_SNAPBACK}>

I like the use of INIWrite.

I was trying to remember how to do a URL on the command line, I forgot the START

I like the BrowseURL_2 method

Edited April 6, 2005 by Ejoc

[sykes]

And for those of you using Autoit w/COM:

_OpenWeb("http://www.autoitscript.com")

Func _OpenWeb($URL)
    $oWeb = ObjCreate("Shell.Application")
    $oWeb.Open($URL)
EndFunc

Tested with IE6 and Firefox 1.02

[zcoacoaz]

I just tested the com and it works with Avant too and that browser is pretty unstable

[silvanr]

And for those of you using Autoit w/COM:

What is Autoit w/COM?

[w0uter]

this one (latest version if im correct) has com support. look it up in the help file

http://www.autoitscript.com/forum/index.php?showtopic=10256

get it here: http://www.autoitscript.com/fileman/users/jpm/AutoIt3-gui/

Edited April 8, 2005 by w0uter

[vicsmurf]

this one (latest version if im correct) has com support. look it up in the help file 

http://www.autoitscript.com/forum/index.php?showtopic=10256

get it here: http://www.autoitscript.com/fileman/users/jpm/AutoIt3-gui/

<{POST_SNAPBACK}>

When will there be a version released where you can compile the COM options because i love them Maybe the next version or does a compliler exists?

[w0uter]

When will there be a version released where you can compile the COM options because i love them Maybe the next version or does a compliler exists?

<{POST_SNAPBACK}>

just copy the .bin from the .zip to the aut2exe folder

[vicsmurf]

just copy the .bin from the .zip to the aut2exe folder

<{POST_SNAPBACK}>

Man i'am feeling stupid! Thnx man!

[piccaso]

I like it this way...

_ShellExec("http://www.autoitscript.com")

Func _ShellExec($sCmd, $sVerb = "open", $sArg = "", $sFolder = @ScriptDir, $parent_hwnd = 0, $state = @SW_SHOWNORMAL)
  Local $aRet
  $aRet = DllCall("shell32.dll", "long", "ShellExecute", "hwnd", $parent_hwnd, "string", $sVerb, _
        "string", $sCmd, "string", $sArg, "string", $sFolder, "long", $state)
  Return $aRet
  If $aRet[0] > 32 Then
     Return 1
  Else
     Return 0;Problems
  EndIf
EndFunc

[silvanr]

_BrowseURL("www.autoitscript.com")

Func _BrowseURL($url="")
   $x = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command", "")
   Run($x & " " & $url)
EndFunc

(tested only with: Windows 2k German)

Edited April 12, 2005 by silvanr