Private Sub Form_Load()
Shell "cmd /k cd /d d:\Arbeit\Test.exe"
End Sub

Zitat:

ich bin mir sicher: .NET macht dasselbe ;) Nur mit meiner Methode weiß er wie's funktioniert. Mit deiner Methode ist er vielleicht schneller, aber nur im Moment, weil gelernt hat er dabei unter .NET nichts.

Dim WSH As Object
 
Private Sub Command1_Click()
   WSH.AppActivate "cmd.exe"
   WSH.SendKeys "notepad.exe"
   WSH.SendKeys "{Enter}"
End Sub
 
Private Sub Form_Load()
   Set WSH = CreateObject("WScript.Shell")
   WSH.run "cmd.exe"
End Sub

cmd.exe /k dir && notepad.exe && echo Hi!

Zitat:

Aber, etwas ist mir jetzt bei meinem Programm aufgefallen. Ich habe der .exe gesagt, dass sie immer als Administrator starten soll (Rechte Maustaste - Eigenschaften und Kompabilität). Wenn ich die .exe auf einen anderen PC kopiere verliert sie die Einstellung. Wie bekomme ich es hin, das mein Program das UAC anspricht und immer Adminrechte verlangt auch wenn ich es auf einem anderen PC starte?

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <v3:trustInfo xmlns:v3="urn:schemas-microsoft-com:asm.v3">
    <v3:security>
      <v3:requestedPrivileges>
        <v3:requestedExecutionLevel level="requireAdministrator" />
      </v3:requestedPrivileges>
    </v3:security>
  </v3:trustInfo>
</assembly>

Private Sub Form_Load()
    MsgBox "Ich brauche UAC"
End Sub