Hallo

Ich möchte gerne den Verlauf meines Browsers via Tastenkombination löschen.

Gibt es da eine Funktion bei VB?

Das mit dem Kill funktioniert nicht. Er sagt mir immer Datei nicht gefunden. Ich habe es einmal so versucht:

....Verlauf/Heute

und so:

....Verlauf/*.*

(C:\Dokumente und Einstellungen\username\Lokale Einstellungen\Verlauf\Wochentag)

Immer die gleiche Fehlermeldung.

Es muss doch irgendeine Möglichkeit geben diesen Verlauf zu löschen:(

Lg

Sunflower84

Hi,

ich glaube das geht nicht mit Kill, zumindest bei mir auch nicht.

Event. ist das etwas für Dich:

http://www.activevb.de/tipps/vb6tipps/tipp0600.html

Das bringt mir leider auch nichts. Da dieser Hinweis in dem Artikel steht :

Hinweis: Wenn der Internetexplorer zu dieser Zeit geöffnet ist, wird die Rubrik "Heute" nicht gelöscht!

Leider ist der Browser aber geöffnet. Man kann ihn auch nicht schließen da es für ein Internetcafe ist.

Ich würde das ganze nämlich via Tastenkombination lösen.

Lg

Sunflower84

Hi,

das Problem an der Sache ist, dass der Verlauf kein "richtiger" Ordner ist.

(Mach mal ein DOS Fenster auf und versuche damit den Zugriff ;-) ).

Probier mal folgendes:

Dim vShellDummy As Variant


' Fehlerbehandlung ausschalten

On Error Resume Next


vShellDummy = Shell("command.com /c deltree /y C:\Windows\Verlauf\*.*", vbHide)


Call AppActivate(vShellDummy)


' Fehlerbehandlung einschalten

On Error GoTo 0

Geht leider nicht. Hab folgendes gemacht.

Die Variable deklariert und:

If CBool(GetAsyncKeyState(VK_CONTROL) And &H8000) Then

On Error GoTo 0

vShellDummy = Shell("command.com /c deltree /y C:\Windows\Verlauf\*.*", vbHide)

Call AppActivate(vShellDummy)

End if

Habe ich da noch was vergessen, bekomme nämlich immer folgende Fehlermeldung:

Ungültiger Prozeduraufruf oder ungültiges Argument

Lg

Sunflower84

Hi,

also

1.) Quellcode falsch abgetippt/kopiert, denn es muss

- erst ein On Error Resume Next um die Behandlung auszuschalten

- Command ausführen

- Fehlerbehandlung wieder einschalten (On Error Goto 0)

Du schaltest die Fehlerbehandlung ein!

2.) "Ungültiger Prozeduraufruf oder ungültiges Argument":

Vielleicht solltest Du auch sagen, an welcher Stelle (Zeile) der Fehler auftritt.

Jetzt habe ich zwar keine Fehlermeldung mehr aber mein Verlauf ist immer noch nicht leer. Hier mein Code:

Option Explicit


Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

Private Const WIN_LOGOFF = 0


Private Declare Function GetKeyState Lib "user32.dll" ( _

    ByVal nVirtKey As Long _

) As Integer


Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _

    ByVal vKey As Long _

) As Integer




Private Const VK_MENU As Long = &H12&

Private Const VK_SHIFT As Long = &H10&

Private Const VK_CONTROL As Long = &H11&

Private Const VK_CAPITAL As Long = &H14&

Private Const VK_F1 As Long = &H70&

Private Const VK_F3 As Long = &H72

Private Const VK_F2 As Long = &H71

Private Const VK_F10 As Long = &H79

Private Const VK_F12 As Long = &H7B



Dim s As Integer

Dim m As Integer

Dim h As Integer

Dim sec As Integer

Dim min As Integer

Dim hour As Integer

Dim Abbruch As Boolean

Dim frmontop As Double

Dim TaskID As Long

Dim vShellDummy As Variant


Private Sub form_load()

  ' Minimieren/Maximieren Buttons zur

  ' Laufzeit anzeigen

  MinMaxButton Me

  StartTimer

  ' Fenster immer im Vordergrund anzeigen

  TopWindow Me.hwnd

End Sub



Private Sub Timer1_Timer()

s = s - 1

If s < 0 And m > 0 Then

m = m - 1

s = 59

ElseIf m <= 0 And h > 0 And s < 0 Then

h = h - 1

m = 59

s = 59

End If

Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time")


If CBool(GetAsyncKeyState(VK_SHIFT) And &H8000) And CBool(GetAsyncKeyState(VK_F2) And &H8000) Then

m = 1

s = 0

End If


If CBool(GetAsyncKeyState(VK_SHIFT) And &H8000) And CBool(GetAsyncKeyState(VK_F12) And &H8000) Then

    frmLogin.Visible = True

End If


If CBool(GetAsyncKeyState(VK_CONTROL) And &H8000) Then


    On Error Resume Next


vShellDummy = Shell("command.com /c deltree /y C:\Windows\Verlauf\*.*", vbHide)


Call AppActivate(vShellDummy)


' Fehlerbehandlung einschalten

On Error GoTo 0


    'Kill "C:\Dokumente und Einstellungen\nschlapp\Lokale Einstellungen\Verlauf"

End If


'If h = 0 And m = 3 And s = 0 Then

     'MsgBox "15 minutes allowance are over. Please finish your work now.", vbOKOnly + vbSystemModal

'End If





If s = 0 And m = 0 And h = 0 Then

Label1.ForeColor = vbRed

'MsgBox (NameC1 & "abgelaufen")

Timer1.Enabled = False

'Call ExitWindowsEx(WIN_LOGOFF, &HFFFF)

frmLock.Visible = True

End If




End Sub


Public Sub StartTimer()

Abbruch = False

Timer1.Interval = 1000

Timer1.Enabled = True

'fester Wert eintragen

s = 0

m = 1

h = 0

Label1.ForeColor = vbGreen

Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time")

'Do

'If Abbruch = True Then Exit Do

'DoEvents


'Unload Me

End Sub

Unter C:\Windows gibt es bei mir auch keinen Ordner Verlauf. Hab aber auch mal mein Pfad eingeben wo mein Verlauf ist, aber das bringt auch nichts

Lg

Sunflower

Hi,

mal ne andere Frage:

Kannst Du nicht einfach den IE schließen, den unten genannten Tip ausführen und den IE neu starten?

Ansonsten such mal im Netz nach einer Möglichkeit, den Verlauf per Commandline zu löschen ("Verlauf löschen cmd").

Den Befehl das mit "Shell" ausführen.

Mit VB Boardmitteln wirst Du nicht weiterkommen, es sei denn, Du lässt Dich auf die o.g. Möglichkeit ein (IE schließen, neu öffnen).

Hallo

Was für einen unten genannten Tip meinst du denn?

Es wäre eigentlich kein Problem den Browser zu schließen und dann wieder aufzurufen.

Lg

Sunflower84

Hi,

ich meinte den hier:

Verlauf leeren, IE muss geschlossen sein (ActiveVB)

Also ich glaube das bringt mir nichts mit dem Verlauf leeren. Wenn ich nämlich den Inhalt des Verlaufsordners manuell lösche und den IE neu starte bleibt der Verlauf trotzdem.

Wird der Verlauf noch irgendwo gespeichert?

Lg

Sunflower84