Toon posts:

OCX System information

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik wil graag een OCX (activeX control) maken waarin ik wat gegevens van de pc uitlees o.a. hoeveel schijfruimte er nog is en wat voor een pc het is.

Weet iemand welke dll's ik hiervoor moet gebruiken (ik heb windows2000 prof)?

Verwijderd

Ik wil met mijn opel corsa van rotterdam naar groningen rijden, over welk type asfalt kan ik het beste rijden? kortom 't is nogal 'n algemene vraag, zou je 'm iets specifieker kunnen stellen? wat wil je precies? wat heb je al? waar kom je niet uit?

  • mulder
  • Registratie: Augustus 2001
  • Laatst online: 09:50

mulder

ik spuug op het trottoir

Ga maar eens WinAPI's kijken. Deze wezentjes kun je vinden op MSDN. Bovendien is Google ook een broedplaats voor deze schepsels.

oogjes open, snaveltjes dicht


Verwijderd

Topicstarter
ok, iets specifieker:

op het moment heb ik nog helemaal niets

ik moet voor een klant een OCX maken in vb6 die gegevens van de systemen van hun klanten kan uitlezen. Ik wil weten:

-wat voor een pc het is
-welke internet explorer men heeft
-hoeveel vrije ruimte men nog heeft op de pc

de OCX moet platform onafhankelijk zijn (dus in win95 werken maar ook in winXP).

Nou heb via google al wat OCX-en gevonden die ditzelfde doen maar deze maken allemaal gebruik van hun eigen gemaakte dll en waarvoor je moet betalen om gebruik te kunnen maken van alle functionaliteiten.

Die zelf gemaakte dll is toch gebasseerd op windows-dll's? ik wil graag weten welke dat zijn.

Verwijderd

Die zijn allemaal gebaseerd op standaard win32 api calls gok ik zo welke perfect gedocumenteerd zijn in msdn ('t is ff zoeken maar dan kost t je ook nix)

Verwijderd

Topicstarter
i'm searching the msdn libraryyyy NOW!

bedankt alvast...

Verwijderd

Topicstarter
Private Declare Function GetWindowsDirectory Lib "kernel32.dll" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
uSize As Long) As Long

Public Function WinDir() As String

Dim llReturn As Long
Dim lsWinDir As String
Dim lsBuffer As String

lsWinDir = ""
lsBuffer = Space$(255)
llReturn = GetWindowsDirectory(lsBuffer, 255)

If llReturn Then
lsWinDir = Left$(lsBuffer, InStr(lsBuffer, Chr(0)) - 1)
End If

WinDir = lsWinDir
End Function

dat is het :)

Verwijderd

Euhh ja? klinkt goed?

Verwijderd

Topicstarter
Klinkt niet alleen goed, werkt ook nog eens prima! :)

  • ShadowrunR
  • Registratie: Maart 2002
  • Laatst online: 17-08 20:13
Nu ben'k eventjes niet mee.
Je zoekt ocx' en of dll' en om gegevens over een pc op te vragen. En dan post je een API call om de windows directory te achterhalen... :?
Pagina: 1