✔ Wake on LAN

[X2k]

aber das einfügen geht doch nur wen ich auch ne form habe (hat die dll aber nicht)
wie soll ich das den sonst machen?

 

[spirit]

Du kannst auch nach den Schlagworten Visual Basic und Magic Paket suchen.
Was du benötigst in ein Progg welches dir das Magi-Paket berechnet auf dem die Netzwerkkarte reagiert.

 

[X2k]

ich ahb jetz eine dll erstellt die 2 klassen und ein modul hat

das modul

 Public Type MEMORYSTATUS
  		dwLength As Long
  		dwMemoryLoad As Long
  		dwTotalPhys As Long
  		dwAvailPhys As Long
  		dwTotalPageFile As Long
  		dwAvailPageFile As Long
  		dwTotalVirtual As Long
  		dwAvailVirtual As Long
  End Type
  
  
  Public Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

die erste klasse

 Option Explicit
  Dim lpBuffer As MEMORYSTATUS
  
  Public Function speicherFrei() As Long
   GlobalMemoryStatus lpBuffer
   speicherFrei = lpBuffer.dwAvailPhys
  End Function
  
  Public Function speicherBelegt() As Long
  GlobalMemoryStatus lpBuffer
   speicherBelegt = lpBuffer.dwMemoryLoad
  End Function
  
  Public Function speicherGesamt() As Long
  GlobalMemoryStatus lpBuffer
   speicherGesamt = lpBuffer.dwTotalPhys
  End Function
  
  Public Function speicherVirtualFrei() As Long
  GlobalMemoryStatus lpBuffer
   speicherVirtualFrei = lpBuffer.dwAvailVirtual
  End Function
  
  Public Function speicherVirtualgesamt() As Long
  GlobalMemoryStatus lpBuffer
  speicherVirtualgesamt = lpBuffer.dwTotalVirtual
  End Function
  
  Public Function speicherPagefile() As Long
  GlobalMemoryStatus lpBuffer
  speicherPagefile = lpBuffer.dwTotalPageFile
  End Function
  
  Public Function speicherLenhtgdw() As Long
  GlobalMemoryStatus lpBuffer
  speicherLenhtgdw = lpBuffer.dwLength
  End Function
  
  Public Function speicherPfile() As Long
  GlobalMemoryStatus lpBuffer
  speicherPfile = lpBuffer.dwAvailPageFile
  End Function

die 2. klasse kann ich hier nicht reinschreiben dafür ist sie zu groß
sie stammt aber von da http://www.freevbcode.com/ShowCode.asp?ID=871

nur wie binde ich die da richtig ein?