Chip 2004 November/CHIP112004.ISO/downloads/757415/Listing11.txt

Text File | 2004-09-09 | 5.3 KB | 209 lines

Tipp 5: Internetverbindungen gezielt kontrollieren -----------------------------

http://securityresponse.symantec.com/avcenter/vinfodb.html#threat_list



Tipp 7: Musiksymbole verwenden ------------------------------------------

http://simplythebest.net/fonts/fonts/font_downloads/musicalsymbols.zip



Tipp 9: Excel-EintrΣge hervorheben --------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim varAlt As Variant
Dim varNeu As Variant
If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
varNeu = Target
On Error GoTo Ende
Application.EnableEvents = False
Application.Undo
varAlt = Target
Target = varNeu
If varAlt <> varNeu Then Target.Offset(0, 1) = Date
End If
Ende:
Application.EnableEvents = True
End Sub



Tipp 12: RM-Medien-Dateien speichern------------------------------------------

http://www.teamits.com/internet/support/vps/real/http.htm



Tipp 14: Access MDB-Datei verschlⁿsseln ------------------------------------------------


Option Compare Database

Dim appAccess As Access.Application
Dim strPasswort As String

Const strDBVerschluesselt = "C:\Daten\Geheimnisse.mdb"
Const strDBEntschluesselt = "C:\Daten\GeheimnisseOpen.mdb"

Private Sub Form_Close()
On Error GoTo Err_Form_Encrypt

    ' Das Objekt appAccess zerst÷ren, falls es noch existiert
    appAccess.CloseCurrentDatabase
    appAccess.Quit

Err_Form_Encrypt:
On Error GoTo Err_Form_Close

    If strPasswort <> "" Then
        ' Datenbank wieder verschlⁿsseln
        If Dir(strDBVerschluesselt) <> "" Then Kill strDBVerschluesselt
        DBEngine.CompactDatabase strDBEntschluesselt, strDBVerschluesselt, ";pwd=" & strPasswort, dbEncrypt
        Kill strDBEntschluesselt
    End If

Exit_Form_Close:
    Set appAccess = Nothing
    Exit Sub

Err_Form_Close:
    MsgBox Err.Description
    Resume Exit_Form_Close

End Sub

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

    ' Passwort abfragen
    strPasswort = InputBox(Passwort)
    If strPasswort <> "" Then

        ' Object appAccess erzeugen
        Set appAccess = New Access.Application

        ' Datenbank entschlⁿsseln
        If Dir(strDBEntschluesselt) <> "" Then Kill strDBEntschluesselt
        DBEngine.CompactDatabase strDBVerschluesselt, strDBEntschluesselt, ";pwd=", dbDecrypt, ";pwd=" & strPasswort
        Kill strDBVerschluesselt

        ' Datenbank ÷ffnen
        appAccess.OpenCurrentDatabase strDBEntschluesselt, False
        appAccess.Visible = True
    Else
        MsgBox "Sie haben kein Passwort angegeben!"
    End If

Exit_Form_Open:
    Exit Sub

Err_Form_Open:
    strPasswort = ""
    MsgBox Err.Description
    Resume Exit_Form_Open
End Sub


Tipp 15: Mozilla Werbeblocker -------------------------------------------------

http://adblock.mozdev.org/



Tipp 16: Netscape 4.x fⁿr E-Mail-Import in Outlook verwenden -------------------------------------

http://wp.netscape.com/de/download/download_comm.html



Tipp 17: Opera: Ebay als Standardsuche einrichten

URL=http://search.ebay.de/search/search.dll?GetResult&query=%s&shortcut=1&st=2&SortProperty=MetaEndSort&maxRecordsPerPage=100



Tipp 18: WSH MP3-Inhaltsverzeichnis --------------------------------------------------------------


Option Explicit

Dim listArgs
Dim objFileSystem
Dim objFolder, objSubFolder, objFile, objCvsFile

Dim szFolder
Dim szCsvFile

Dim intLevel

Set listArgs = WScript.Arguments
Set objFileSystem = CreateObject("Scripting.FileSystemObject")

intLevel = 1

If listArgs.Count = 0 Then
   szFolder = InputBox("In welchem Ordner liegen die zu listenden MP3-Dateien?","Ordner auswΣhlen","C:\")
Else
   szFolder = listArgs(0)
End If

' Name der CVS-Datei erfragen
szCsvFile = "C:\Temp\ListeMP3.csv"
szCsvFile = InputBox("Name und Pfad der zu erstellenden Liste?","CVS-Datei benennen", szCsvFile)

If Right(szCsvFile,4) <> ".csv" Then
   szCsvFile = szCsvFile & ".cvs"
End If

' CVS-Datei erzeugen
Set objCvsFile = objFileSystem.CreateTextFile(szCsvFile,true)
objCvsFile.Write "Name der Datei" & ";" & "Pfad der Datei" & vbNewLine

' Im Ordner szFolder enthaltene Links und Unterordner verarbeiten...
ListFiles szFolder, intLevel

' CVS-Datei abschlie▀en
objCvsFile.Close
MsgBox "Die Datei " & szCsvFile & " wurde erstellt!"


function ListFiles(szFolder, intLevel)

   If objFileSystem.FolderExists(szFolder) Then

      Set objFolder = objFileSystem.GetFolder(szFolder)
      For Each objFile In objFolder.Files
         If Right(objFile.Name,4) <> ".MP3" Then
            objCvsFile.Write objFile.Name & ";" & objFolder.Path & vbNewLine
         End If
      Next

      For Each objSubFolder In objFolder.SubFolders
         ListFiles objSubFolder.path, intLevel+1
      Next

   else
      MsgBox "Angegebener Ordner " & szFolder & " existiert nicht!"
   end if

end function



Tipp 20: Blutalkoholkonzentration abschΣtzen -----------------------------------------

http://home.t-online.de/home/boehmj/PROMILLE.zip




Tipp 21: Englische Begriffe ⁿbersetzen -----------------------------------------------

http://www.quickdic.de
http://dict.leo.org
http://europa.eu.int/eurodicautom/Controller