Visual Basic 6

ilias90 · 09.01.2008

Hallo an alle,

Also leute ich suche mir ein Code für Visual Basic 6,
also ich fange so an, wenn mann von CMD z.B. firefox starten will dann gibt mann ein " start C:\Programme\Mozilla Firefox\firefox.exe"
so was brauche ich für Visual Basic 6.
z.B. http://img184.imageshack.us/img184/2505/vfdfdvnr7.jpg
wenn ich da drauf klicke soll die Firefox starten.
Ich hoffe jemand kann mir helfen.

Mfg.ilias90

cmddegi · 10.01.2008

Hi!

Der Befehl, den du suchst, ist die Shell-Funktion

Code:

' 1 als zweites Argument startet die Anwendung in Normalgröße mit Fokus.
Dim Ergebnis
Ergebnis = Shell("C:\WINDOWS\CALC.EXE", 1)   ' Rechner starten.

Genaueres zum zweiten Parameter steht in der Online-Hilfe.

PS: Das Thema würde wohl besser in die Developer-Zone passen.

ilias90 · 10.01.2008

Dankeschön ich habs.
Nur noch eine lezte frage, ich will die prefetch Dateie löschen und alle prefetch Dateie sind .pf wie kann ich die .pf dateie löschen??
Ich habe so gemacht aber das funk nicht (Kill "c:\WINDOWS\Prefetch"(
aber funk das nicht

Mfg.ilias90

cmddegi · 10.01.2008

Probiers mal mit Kill "C:\Windows\Prefetch\*.*"
Ein Verzeichnis alleine anzugeben reicht meines Wissens nicht aus.

ilias90 · 10.01.2008

mit diese Code habe ich schongemacht das funknicht.
Kann man kein andere Code finden wo man den inhalt (von Prefetch) von diese Ordner löschen kann?

Mfg.ilias90

peterfido · 10.01.2008

Das in ein Modul packen. Als Start "sub Main" auswählen.
Das löscht dann den gesamten Prefetch Ordner

Code:

Option Explicit

' Deklaration
Private Declare Function SearchPath Lib "kernel32" _
  Alias "SearchPathA" ( _
  ByVal lpPath As String, _
  ByVal lpFileName As String, _
  ByVal lpExtension As String, _
  ByVal nBufferLength As Long, _
  ByVal lpBuffer As String, _
  ByVal lpFilePart As String) As Long

Sub Main()

    Dim sFile As String
    Dim nResult As Long
    Dim sBuffer As String
    Dim Pfad As String
    Dim Datei As String
    ' Datei, nach der gesucht werden soll
    sFile = "prefetch"
    
    ' Buffer für die Rückgabe des Verzeichnisses
    Const MAX_PATH = 260
    sBuffer = Space$(MAX_PATH)
    
    ' Suchvorgang starten...
    nResult = SearchPath(vbNullString, sFile, "", Len(sBuffer), _
      sBuffer, vbNullString)
    
    If nResult > 0 Then
      ' Datei gefunden
      On Error GoTo Fehler
        Pfad = Left$(sBuffer, nResult)
        Datei = Dir(Pfad & "\*.*")
        Do While Datei <> ""
            If Datei <> "" Then
                Datei = Dir(Pfad & "\*.*")
                Kill Pfad & "\" & Datei
            Else
                End
            End If
        Loop
    
    End If
Fehler:
    End
    
End Sub

ilias90 · 10.01.2008

kannst du mir das etwas besser erklären mit "sub main" und wie soll ich das genau machen, ich bin neulig, und danke für dein Code das hilft 100%

Mfg.ilias90

peterfido · 12.01.2008

Wenn Du nur Tools ohne ein Formular erstellst, dann steht automatisch Sub Main als Start drin. Falls Du noch ein Formular verwendest, dann könnte es sein, dass das Programm mit der Anzeige des Formulars startet und so die Sub nicht aufgerufen wird. Wenn es funktioniert, brauchst Du nichts weiter tun. Du könntest das Programm noch mit einer Sicherheitsfrage erweitern, welche durch eine Option beim Aufrufen übersprungen werden kann.

ilias90 · 13.01.2008

bei mir sieht das so aus aber das funktuniert nicht ist was falsch?
[img=http://img244.imageshack.us/img244/4044/lololoollomp9.th.jpg]

Mfg.ilias90

peterfido · 13.01.2008

Die Sub Main muss in ein Modul. Und bei Projekt > Eigenschaften > Startobjekt SubMain auswählen. Oder das Sub muss von irgendwas aufgerufen werden. Z.B. In Form_Load. Da, aber das Programm in dem Sub wieder beendet wird, braucht es keine Form, da diese ja eh gleich wieder geschlossen wird.
Wenn Du eine Form nutzt, dann solltest du "end" gegen "unload me" ersetzen.

Hier nochmal eine Version mit Sicherheitsabfrage, welche übergangen werden kann, wenn das Programm mit dem Parameter -ja aufgerufen wird.

Code:

Option Explicit

' Deklaration
Private Declare Function SearchPath Lib "kernel32" _
  Alias "SearchPathA" ( _
  ByVal lpPath As String, _
  ByVal lpFileName As String, _
  ByVal lpExtension As String, _
  ByVal nBufferLength As Long, _
  ByVal lpBuffer As String, _
  ByVal lpFilePart As String) As Long

Sub Main()


    Dim sFile As String
    Dim nResult As Long
    Dim sBuffer As String
    Dim Pfad As String
    Dim Datei As String
    Dim JaNein As Boolean
    ' Datei, nach der gesucht werden soll
    sFile = "prefetch"
    
    ' Buffer für die Rückgabe des Verzeichnisses
    Const MAX_PATH = 260
    sBuffer = Space$(MAX_PATH)
    
    ' Suchvorgang starten...
    nResult = SearchPath(vbNullString, sFile, "", Len(sBuffer), _
      sBuffer, vbNullString)
      Pfad = Left$(sBuffer, nResult)
    
    If nResult > 0 Then
        If InStr(1, Command$, "-ja", vbTextCompare) > 0 Then
            JaNein = True
        Else
            If MsgBox("Sollen alle Dateien in " & Pfad & " wirklich gelöscht werden?", vbYesNo + vbQuestion, "Sicherheitsfrage") = vbYes Then
                JaNein = True
            End If
        End If
        If JaNein Then
            ' Datei gefunden
            On Error GoTo Fehler
              Datei = Dir(Pfad & "\*.*")
              Do While Datei <> ""
                  If Datei <> "" Then
                      Datei = Dir(Pfad & "\*.*")
                      Kill Pfad & "\" & Datei
                  Else
                      End
                  End If
              Loop
        End If
    End If
Fehler:
    End
    
End Sub

ilias90 · 13.01.2008

ich habe das auf Sub main ausgewählt und den Code eingefügt und da kommt diese fehler meldung jetzt,

Ich danke dir dass du mir immer weite hilft.

Mfg.ilias90

peterfido · 13.01.2008

Du hast ja gar kein Modul in Deinem Projekt, sondern nur eine Form. Da kannst Du natürlich auch nicht Sub Main als Startobjekt angeben.

Wenn Du eine Form nutzt, dann kopier den Code in die Form und ersetz Sub_Main durch Form_Load. Startobjekt ist dann die Form. Achte darauf, dass Form_Load nicht 2 mal vorkommt.

Ich wollte grad mein Objekt hier mal anhängen, aber Anhänge sind nicht erlaubt.

ilias90 · 13.01.2008

du kannst gern per email schicken ich werde mich freuen

[email protected]

Mfg.ilias90

ilias90 · 14.01.2008

Danke dass du email geschickt hast ich habe schon die Codes, und das modul:victory: XD
problemm gelöst.

Mfg.ilias90

Visual Basic 6

ilias90

cmddegi

ilias90

cmddegi

ilias90

peterfido

ilias90

peterfido

ilias90

peterfido

ilias90

peterfido

ilias90

ilias90

Visual Basic 6

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums