lrp > den kode virker kun hvis IE.exe ligger der hvor den skal.... koden virker ikke hvis det er et engelsk Windows eller hvis der slet ikke er installeret IN på computeren....
Følgende kode virker på alle browsere og finder selv Defaualt browser (koden er med andre ord total sikret):
-------------------------------------------------------------------------------------------------
Private Const SW_SHOW = 5 \' Displays Window in its current size and position
Private Const SW_SHOWNORMAL = 1 \' Restores Window if Minimized or Maximized
Private Declare Function ShellExecute Lib \"shell32.dll\" Alias _
\"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function FindExecutable Lib \"shell32.dll\" Alias _
\"FindExecutableA\" (ByVal lpFile As String, ByVal lpDirectory As _
String, ByVal lpResult As String) As Long
Dim CurrentBrowser As String
Private Sub _Click()
Dim RetVal As Long
If CurrentBrowser = \"\" Then CurrentBrowser = FindBrowser
RetVal = ShellExecute(Me.hwnd, \"open\", CurrentBrowser, Command1.Tag, Dummy, SW_SHOWNORMAL)
If RetVal <= 32 Then \' Error
MsgBox \"Web Page not Opened\", vbExclamation, \"URL Failed\"
End If
End Sub
Private Function FindBrowser() As String
Dim FileName As String, Dummy As String
Dim BrowserExec As String * 255
Dim RetVal As Long
Dim FileNumber As Integer
\' First, create a known, temporary HTML file
BrowserExec = Space(255)
FileName = \"C:\\temphtm.HTM\"
FileNumber = FreeFile \' Get unused file number
Open FileName For Output As #FileNumber \' Create temp HTML file
Write #FileNumber, \"<HTML> <\\HTML>\" \' Output text
Close #FileNumber \' Close file
\' Then find the application associated with it
RetVal = FindExecutable(FileName, Dummy, BrowserExec)
BrowserExec = Trim(BrowserExec)
\' If an application is found, launch it!
If RetVal <= 32 Or IsEmpty(BrowserExec) Then \' Error
MsgBox \"Could not find associated Browser\", vbExclamation, \"Browser Not Found\"
Else
FindBrowser = BrowserExec
End If
Kill FileName \' delete temp HTML file
End Function
--------------------------------------------------------------------------------------------------
Du skal bare Copy Paste koden.... og så angive
http://www.xxx.xom/ i Command1.tag (Tag er et lille sted hvor man kan have nogle gå kb hukommelse).
Truti [DK]
