Hallo,
ich will meine DLL "HWP Utilities" vorstellen. Sie ist für Programmieranfänge gedacht, hat aber auch einige Codes für Fortgeschrittene an Bord.
Verwendete Programmiersprache:
Visual Basic 2010
Systemanforderungen:
.NET Framework 2.0
Download
HWPUtilities.rar (9,96 KB)
Syntax-Datei anbei und hier.
Wenn es Probleme gibt oder Funktionen fehlen, bitte hier melden. Die DLL ist mithilfe des VC-Codearchives entstanden.
Viel Spaß,
mbfan
ich will meine DLL "HWP Utilities" vorstellen. Sie ist für Programmieranfänge gedacht, hat aber auch einige Codes für Fortgeschrittene an Bord.
Verwendete Programmiersprache:
Visual Basic 2010
Systemanforderungen:
.NET Framework 2.0
Download
HWPUtilities.rar (9,96 KB)
VB.NET-Quellcode
- 'Global deklarieren:
- Imports HWPUtilities
- 'Internetverbindung?
- If HWPUtilities.Internet.Internetverbindung = True then
- 'Code bei Internetverbindung
- else
- 'Code ohne Internetverbindung
- end If
- 'Bei Google suchen:
- HWPUtilities.Internet.BeiGoogleSuchen(Suchbegriff)
- '[gibt die Internetaddresse zum Suchen zurück]
- 'Bei Yahoo suchen:
- HWPUtilities.Internet.BeiYahooSuchen(Suchbegriff)
- '[gibt die Internetaddresse zum Suchen zurück]
- 'Bei Fireball suchen:
- HWPUtilities.Internet.BeiFireballSuchen(Suchbegriff)
- '[gibt die Internetaddresse zum Suchen zurück]
- 'Nach Videos suchen:
- HWPUtilities.Internet.NachVideosSuchen(Suchbegriff)
- '[gibt die Internetaddresse zum Suchen zurück]
- 'Windows-CD-Kode auslesen:
- Dim Code = HWPUtilities.sonstiges.WindowsCDCodeAuslesen
- 'Zufallszahl:
- Dim Zahl = HWPUtilities.sonstiges.GeneriereZufallszahl(wielang, kleinsteZahl, größteZahl)
- 'Zufallszeichenkette:
- Dim Kette = HWPUtilities.sonstiges.GeneriereZufallskette(wielang, [optional] buchstaben)
- 'Experimenteller Code zum Akkustatusauslesen:
- Dim Status
- Try
- Status = HWPUtilities.Computer.GetBatterieState
- Catch
- Status = "Fehler beim Auslesen"
- End Try
- 'Mainbordpieper:
- HWPUtilities.Computer.Mainbordpiepser(länge, frequenz)
- 'Computer herunterfahren:
- HWPUtilities.Computer.herunterfahren()
- '- Erweiterungen:
- HWPUtilities.Computer.herunterfahren(Benutzer_abmelden, Neu_starten, Ruhezustand, Erzwingen, Zeit_in_Sekunden)
- 'CPU-Auslastung (am besten in einen timer):
- ProgressBar1.Value = HWPUtilities.Computer.CPU_Auslastung
- 'Datei auslesen:
- Dim Datei = HWPUtilities.Computer.Datei_einlesen(Pfad)
- '- Erweiterungen:
- 'Zeile auslesen:
- '- eine Zeile
- Dim Datei = HWPUtilities.Computer.Datei_einlesen(Pfad, True, Nummer)
- '- Ganze Datei in eine Variable:
- Dim linie() = HWPUtilities.Computer.Datei_einlesen(Pfad, True)
- '[1. Zeile ist linie(0), 2. Zeile ist linie(1) usw.)
- 'Datei schreiben:
- HWPUtilities.Computer.Datei_schreiben(Pfad, Inhalt)
- 'Datei kopieren:
- HWPUtilities.Computer.Datei_kopieren(von, wohin)
- 'Datei löschen:
- HWPUtilities.Computer.Datei_löschen(Pfad, sicher)
- 'Datei verschieben:
- HWPUtilities.Computer.Datei_verschieben(von, wohin)
- 'Ordner kopieren:
- HWPUtilities.Computer.Ordner_verschieben(von, wohin)
- 'Ordner löschen:
- HWPUtilities.Computer.Ordner_löschen(Pfad)
- 'Zeilenanzahl auslesen:
- MsgBox("Die Datei hat " & HWPUtilities.Computer.Zeilenanzahl_Auslesen(Datei) & " Zeilen.)
- 'Größe einer Datei auslesen:
- Dim Größe = HWPUtilities.Computer.Größe(Pfad)
- '- Erweiterung:
- '- in Kilobyte:
- Dim Größe = HWPUtilities.Computer.Größe(Pfad, k)
- '- in Megabyte:
- Dim Größe = HWPUtilities.Computer.Größe(Pfad, m)
- '- in Gigabyte:
- Dim Größe = HWPUtilities.Computer.Größe(Pfad, g)
- '- in Terrabyte:
- Dim Größe = HWPUtilities.Computer.Größe(Pfad, t)
- '- in Petabyte:
- Dim Größe = HWPUtilities.Computer.Größe(Pfad, p)
- 'Dateiendung für Programm:
- '- Registrieren:
- If HWPUtilities.Programm.Registerfile(Dateiendung, Dateityp, Programmpfad, Programmicon) = 1 Then
- MessageBox.Show("Die Dateiendung [Dateiendung] wurde erfolgreich registiert.")
- Else
- MessageBox.Show("Die Dateiendung konnte nicht registriert werden.")
- End If
- '-Programmstart:
- If My.Application.CommandLineArgs.Count > 0 Then
- HWPUtilities.Programm.Dateistart
- End If
- 'CD-Laufwerk öffnen:
- HWPUtilities.Computer.Laufwerk_öffnen()
- 'CD-Laufwerk schließen:
- HWPUtilities.Computer.Laufwerk_schließen()
- 'Prozess wie oft gestartet?
- If HWPUtilities.Computer.Prozess_gestartet(Prozessname) = 0 then
- 'Code, wenn Prozess nicht gestartet ist
- else
- 'Code, wenn Prozess gestartet ist, wie oft wird durch HWPUtilities.Computer.Prozess_gestartet(Prozessname) angezeigt.
- end If
- 'Datum/Uhrzeit
- '- Nur Datum:
- HWPUtilities.sonstiges.Uhrzeit(True, False)
- '- Nur Zeit:
- HWPUtitities.sonstiges.Uhrzeit(False, True)
- '- Beides:
- HWPUtilities.sonstiges.Uhrzeit(True, True)
Wenn es Probleme gibt oder Funktionen fehlen, bitte hier melden. Die DLL ist mithilfe des VC-Codearchives entstanden.
Viel Spaß,
mbfan
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „mbfan“ () aus folgendem Grund: Syntax