send parameter med shell kommando

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 Sub Command1_Click()
ShellExecute hwnd, "open", "Filnavn.exe", "", "", vbNormalFocus
' Shellexecute hwnd , "command" , file , "parameters" , "directory" , showcmd
' command:
' open, print, explore
End Sub


Brug den istedet :)

hvorfor ?

Det er rimilige mange erklæringer og er det nødvendigt ?

er flere muligheder, du kan sætte op: Hvilken fil, workdirectory, hvordan den skal vises osv, om den skal åbne filen, printe den, explore en mappe. men det må du selvfølgelig selv om :) men det er den "de fleste" bruger

rimlig mange? det er kun 1 linie

jeg har
dim user
dim account

RetVal = Shell("c:test.exe","user","account")
det her viker bare ikke ?
hvad gøre jeg galt ?

jeg har
dim user
dim account

user ="dasd"
account ="asdasdg"

RetVal = Shell("c:test.exe","user","account")
det her viker bare ikke ?
hvad gøre jeg galt ?

programmet skal bare ekseveres ikke meget andet ...

du kan læse lidt om den her hvis det er :)
http://vb-helper.com/howto_shellexecute.html

kan ikke rigtige finde noget der kan stykkes sammen med
RetVal = Shell("c:test.exe","user","account") for at få den til at virke

Retval = Shell("C:\test.exe" & " " & "user" & " " & "account")

?

Vil stadig syntes du skal bruge shellexecute dog, men må du selv om :)

er bare at sætte:
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

oppe i dine declares i toppen..

og så kalde denne linie:

ShellExecute hwnd, "open", "C:\test.exe", "dine parametre", "", vbNormalFocus

Kommentar: mcgoat
08/08-2006 13:14:43

den sender ikke parameterne med :(

dim user
dim account

user ="dasd"
account ="asdasdg

Retval = Shell("C:\test.exe " & user & " " & account)

exe filen bliver åbnet men den meddeller at ingen data modtaget..... :(

Hvordan fanger du parameterne, denne er fra VB6

Function GetCommandLine(Optional MaxArgs)
  'Declare variables.
  Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
  'See if MaxArgs was provided.
  If IsMissing(MaxArgs) Then MaxArgs = 10
  'Make array of the correct size.
  ReDim ArgArray(MaxArgs)
  NumArgs = 0: InArg = False
  'Get command line arguments.
  CmdLine = Command()
  CmdLnLen = Len(CmdLine)
  'Go thru command line one character
  'at a time.
  For I = 1 To CmdLnLen
      C = Mid(CmdLine, I, 1)
      'Test for space or tab.
      If (C <> " " And C <> vbTab) Then
        'Neither space nor tab.
        'Test if already in argument.
        If Not InArg Then
        'New argument begins.
        'Test for too many arguments.
            If NumArgs = MaxArgs Then Exit For
            NumArgs = NumArgs + 1
            InArg = True
        End If
        'Concatenate character to current argument.
        ArgArray(NumArgs) = ArgArray(NumArgs) & C
      Else
        'Found a space or tab.
        'Set InArg flag to False.
        InArg = False
      End If
  Next I
  'Resize array just enough to hold arguments.
  ReDim Preserve ArgArray(NumArgs)
  'Return Array in Function name.
  GetCommandLine = ArgArray()
End Function

Private Sub Form_Load()
Dim O As Variant
O = GetCommandLine(2)
Text1.Text = O(1)' her er den første efter filnavnet
Text2.Text = O(2)' her er den anden efter filnavnet
End Sub

mcgoat og kabak kan i ikke smide svar ?

Et svar;-))

Fik du det til at virke ??

jep takker :)