HWP Utilities [DLL] V. 0.1

    • Beta

    Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von mbfan.

      HWP Utilities [DLL] V. 0.1

      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.

      VB.NET-Quellcode

      1. 'Global deklarieren:
      2. Imports HWPUtilities
      4. 'Internetverbindung?
      5. If HWPUtilities.Internet.Internetverbindung = True then
      6. 'Code bei Internetverbindung
      7. else
      8. 'Code ohne Internetverbindung
      9. end If
      11. 'Bei Google suchen:
      12. HWPUtilities.Internet.BeiGoogleSuchen(Suchbegriff)
      13. '[gibt die Internetaddresse zum Suchen zurück]
      15. 'Bei Yahoo suchen:
      16. HWPUtilities.Internet.BeiYahooSuchen(Suchbegriff)
      17. '[gibt die Internetaddresse zum Suchen zurück]
      19. 'Bei Fireball suchen:
      20. HWPUtilities.Internet.BeiFireballSuchen(Suchbegriff)
      21. '[gibt die Internetaddresse zum Suchen zurück]
      23. 'Nach Videos suchen:
      24. HWPUtilities.Internet.NachVideosSuchen(Suchbegriff)
      25. '[gibt die Internetaddresse zum Suchen zurück]
      27. 'Windows-CD-Kode auslesen:
      28. Dim Code = HWPUtilities.sonstiges.WindowsCDCodeAuslesen
      30. 'Zufallszahl:
      31. Dim Zahl = HWPUtilities.sonstiges.GeneriereZufallszahl(wielang, kleinsteZahl, größteZahl)
      33. 'Zufallszeichenkette:
      34. Dim Kette = HWPUtilities.sonstiges.GeneriereZufallskette(wielang, [optional] buchstaben)
      36. 'Experimenteller Code zum Akkustatusauslesen:
      37. Dim Status
      38. Try
      39. Status = HWPUtilities.Computer.GetBatterieState
      40. Catch
      41. Status = "Fehler beim Auslesen"
      42. End Try
      44. 'Mainbordpieper:
      45. HWPUtilities.Computer.Mainbordpiepser(länge, frequenz)
      47. 'Computer herunterfahren:
      48. HWPUtilities.Computer.herunterfahren()
      49. '- Erweiterungen:
      50. HWPUtilities.Computer.herunterfahren(Benutzer_abmelden, Neu_starten, Ruhezustand, Erzwingen, Zeit_in_Sekunden)
      52. 'CPU-Auslastung (am besten in einen timer):
      53. ProgressBar1.Value = HWPUtilities.Computer.CPU_Auslastung
      55. 'Datei auslesen:
      56. Dim Datei = HWPUtilities.Computer.Datei_einlesen(Pfad)
      57. '- Erweiterungen:
      58. 'Zeile auslesen:
      59. '- eine Zeile
      60. Dim Datei = HWPUtilities.Computer.Datei_einlesen(Pfad, True, Nummer)
      61. '- Ganze Datei in eine Variable:
      62. Dim linie() = HWPUtilities.Computer.Datei_einlesen(Pfad, True)
      63. '[1. Zeile ist linie(0), 2. Zeile ist linie(1) usw.)
      65. 'Datei schreiben:
      66. HWPUtilities.Computer.Datei_schreiben(Pfad, Inhalt)
      68. 'Datei kopieren:
      69. HWPUtilities.Computer.Datei_kopieren(von, wohin)
      71. 'Datei löschen:
      72. HWPUtilities.Computer.Datei_löschen(Pfad, sicher)
      74. 'Datei verschieben:
      75. HWPUtilities.Computer.Datei_verschieben(von, wohin)
      77. 'Ordner kopieren:
      78. HWPUtilities.Computer.Ordner_verschieben(von, wohin)
      80. 'Ordner löschen:
      81. HWPUtilities.Computer.Ordner_löschen(Pfad)
      83. 'Zeilenanzahl auslesen:
      84. MsgBox("Die Datei hat " & HWPUtilities.Computer.Zeilenanzahl_Auslesen(Datei) & " Zeilen.)
      86. 'Größe einer Datei auslesen:
      87. Dim Größe = HWPUtilities.Computer.Größe(Pfad)
      88. '- Erweiterung:
      89. '- in Kilobyte:
      90. Dim Größe = HWPUtilities.Computer.Größe(Pfad, k)
      91. '- in Megabyte:
      92. Dim Größe = HWPUtilities.Computer.Größe(Pfad, m)
      93. '- in Gigabyte:
      94. Dim Größe = HWPUtilities.Computer.Größe(Pfad, g)
      95. '- in Terrabyte:
      96. Dim Größe = HWPUtilities.Computer.Größe(Pfad, t)
      97. '- in Petabyte:
      98. Dim Größe = HWPUtilities.Computer.Größe(Pfad, p)
      100. 'Dateiendung für Programm:
      101. '- Registrieren:
      102. If HWPUtilities.Programm.Registerfile(Dateiendung, Dateityp, Programmpfad, Programmicon) = 1 Then
      103. MessageBox.Show("Die Dateiendung [Dateiendung] wurde erfolgreich registiert.")
      104. Else
      105. MessageBox.Show("Die Dateiendung konnte nicht registriert werden.")
      106. End If
      107. '-Programmstart:
      108. If My.Application.CommandLineArgs.Count > 0 Then
      109. HWPUtilities.Programm.Dateistart
      110. End If
      112. 'CD-Laufwerk öffnen:
      113. HWPUtilities.Computer.Laufwerk_öffnen()
      115. 'CD-Laufwerk schließen:
      116. HWPUtilities.Computer.Laufwerk_schließen()
      118. 'Prozess wie oft gestartet?
      119. If HWPUtilities.Computer.Prozess_gestartet(Prozessname) = 0 then
      120. 'Code, wenn Prozess nicht gestartet ist
      121. else
      122. 'Code, wenn Prozess gestartet ist, wie oft wird durch HWPUtilities.Computer.Prozess_gestartet(Prozessname) angezeigt.
      123. end If
      125. 'Datum/Uhrzeit
      126. '- Nur Datum:
      127. HWPUtilities.sonstiges.Uhrzeit(True, False)
      128. '- Nur Zeit:
      129. HWPUtitities.sonstiges.Uhrzeit(False, True)
      130. '- Beides:
      131. 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
      You should live for that what you belive. - Drag-Drop Beschreibung

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „mbfan“ () aus folgendem Grund: Syntax

      Hi,

      Beep! schrieb:



      Beschreibung?
      Wieso wurde der Thread überhaupt freigeschaltet bei der Beschreibung?


      Ich wüsste nicht, was man da noch mehr beschreiben sollte.

      Tsuyo schrieb:

      Schade hab mich auf einen Screenshot von dem DllIcon gefreut.
      Öhm, ist deine erste Dll oder? so großen nutzen find ich hat sie nicht.


      Nein, meine zweite. Die erste habe ich nicht veröffentlicht. Der Nutzen ist, dass sie für Anfänger ein paar Codes vereinfacht und auch als, ich sage mal "Fortgeschrittener", hat man auch nicht immer Lust, den ganzen Code (bspw. für die Überprüfung, ob Internet vorhanden ist) in das Programm zu schreiben.

      Übrigens habe ich noch was vergessen: Die DLL darf einkompiliert werden.
      mbfan
      You should live for that what you belive. - Drag-Drop Beschreibung

      vb-checker schrieb:

      also unter Beschreibung verstehe ich eine Auflistung der Funktionen, evtl noch mit nem Beispiel
      Das findet man unter dem ReadMe-Link. Aber ich binde es gerade noch ein.
      mbfan
      You should live for that what you belive. - Drag-Drop Beschreibung

      AsdAsd1337 schrieb:

      Warnung 1 Die Komponente "HWPUtilities", auf die verwiesen wird, wurde nicht gefunden.


      Hi,
      willkommen im Forum ...
      Natürlich musst du die DLL erstmal zum Projekt hinzufügen. Dafür öffne das Projekt in VB und zeige rechts oben alle dateien an. Dann klicke auf "Verweise" rechts und suche die DLL. Dann sollte es gehen.
      mbfan
      You should live for that what you belive. - Drag-Drop Beschreibung

      Sie hat schonv iele funktionen ist mir aber trotztdem zu wenig muss ich sagen.
      Du solltest auch Regex Funktionen einbauen wenn du sowas machst, auch wenn ich grundsätzlich davon nichts halte das hilft den anfängern auch nicht wenn sie nichts lernen.

      mbfan schrieb:

      AsdAsd1337 schrieb:

      Warnung 1 Die Komponente "HWPUtilities", auf die verwiesen wird, wurde nicht gefunden.


      Hi,
      willkommen im Forum ...
      Natürlich musst du die DLL erstmal zum Projekt hinzufügen. Dafür öffne das Projekt in VB und zeige rechts oben alle dateien an. Dann klicke auf "Verweise" rechts und suche die DLL. Dann sollte es gehen.
      mbfan

      hab ich nur weil ich hier neu bin heißt es nicht das ich nix kann^^
      Habe nix gemacht nur hinzugefügt gar kein code hingeschrieben oder so kam dies sofort...

    Facebook