VB6 shell

Shell s_path, vbMaximizedFocus

//akj

Shell ("C:\Programmer\Internet Explorer\Iexplore.", vbMaximizedFocus)

eller hvad ???

det virker ikke, den siger:

Compile error:

Expected: =

PS. VB6 hader mig :(

ups jeg mener:
Shell ("C:\Programmer\Internet Explorer\Iexplore.exe", vbMaximizedFocus)

prøv
1: Du mangler en exe i Iexplore.exe

2: når du bruger paranteser i et kald forventer vb at du bruger returværdien så enten er det

ret = Shell ("C:\Programmer\Internet Explorer\Iexplore.exe", vbMaximizedFocus)
eller:
Shell "C:\Programmer\Internet Explorer\Iexplore.exe", vbMaximizedFocus

//akj

Desuden vil jeg anbefale at du finder stien til defaultbrowser med denne kode, på en hvis man bruger en engelsl version af windows ligger iexplore.exe jo i program files istedetfor programmer. Ligeledes vil den returnere netscapes placering hvis den er default browser.

//akj

Option Explicit

Private Declare Function FindExecutable Lib "shell32" _
  Alias "FindExecutableA" _
  (ByVal lpFile As String, _
  ByVal lpDirectory As String, _
  ByVal sResult As String) As Long

Private Declare Function GetTempPath Lib "kernel32" _
  Alias "GetTempPathA" _
  (ByVal nSize As Long, _
  ByVal lpBuffer As String) As Long
 
  Private Const MAX_PATH As Long = 260


Private Sub Command1_Click()

  Dim success As Long
  Dim sBrowser As String
 

  sBrowser = GetBrowserName(success)
 
     
 

  MsgBox sBrowser
 
End Sub


Private Function GetBrowserName(dwFlagReturned As Long) As String

  Dim hFile As Long
  Dim sResult As String
  Dim sTempFolder As String
       
  'get the user's temp folder
  sTempFolder = GetTempDir()
 
  'create a dummy html file in the temp dir
  hFile = FreeFile
      Open sTempFolder & "dummy.html" For Output As #hFile
  Close #hFile

  'get the file path & name associated with the file
  sResult = Space$(MAX_PATH)
  dwFlagReturned = FindExecutable("dummy.html", sTempFolder, sResult)
 
  'clean up
  Kill sTempFolder & "dummy.html"
 
  'return result
  GetBrowserName = TrimNull(sResult)
 
End Function


Private Function TrimNull(item As String)

    Dim pos As Integer
 
    pos = InStr(item, Chr$(0))
   
    If pos Then
          TrimNull = Left$(item, pos - 1)
    Else: TrimNull = item
    End If
 
End Function


Public Function GetTempDir() As String

    Dim nSize As Long
    Dim tmp As String
   
    tmp = Space$(256)
    nSize = Len(tmp)
    Call GetTempPath(nSize, tmp)
   
    GetTempDir = TrimNull(tmp)
   
End Function

LOL tak,
men jeg er modstander af giga storer koder i små programmer til danske børn på danske skoler med win98se "DK".

:D

PS. Jeg har lavet dette i nødstilfælde:

Private Sub Command3_Click()
On Error GoTo err01
Shell "C:\Programmer\Internet Explorer\Iexplore.exe http://www.bymyself.1go.dk/index.html", vbMaximizedFocus
GoTo err02
err01:
On Error GoTo err02
Shell "Iexplore.exe http://www.bymyself.1go.dk/index.html", vbMaximizedFocus
err02:
Exit Sub
End Sub

Oki.

tak for pts.

//akj

det er nu nemmer at gøre sådan her...
Shell ("C:\Programmer\Internet Explorer\Iexplore.exe"), vbMaximizedFocus

men what the fuck bare det virker...

krede >> Hvordan tror du dit eksempel vil virke på en pc med engelsk version af iE ??

//akj