Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Näytönohjain tietoon vb6

Sivun loppuun

Bill Keltanen [14.08.2004 11:27:04]

#

Milläs koodilla saan näytönohjaimen tietoon? Jos olisi semmoinen koodi jolla saisi muutkin (äänikortti, prosessori, jne)

setä [14.08.2004 11:41:51]

#

Katso About-formilta

Bill Keltanen [14.08.2004 11:42:59]

#

niin, mutta siis että vaikka msgboxaa Radeon 9800 Pro tjsp

Tiha [14.08.2004 23:49:58]

#

Esimerkki Apilla,
onnistuu myös WMI skriptillä(XP / 2000)

Private Type DISPLAY_DEVICE
    cb As Long
    DeviceName As String * 32
    DeviceString As String * 128
    StateFlags As Long
    DeviceID As String * 128
    DeviceKey  As String * 128
End Type
Private Declare Function EnumDisplayDevices Lib "user32" Alias "EnumDisplayDevicesA" (Unused As Any, ByVal iDevNum As Long, lpDisplayDevice As DISPLAY_DEVICE, ByVal dwFlags As Long) As Boolean
Private Sub Form_Load()
    Dim DD As DISPLAY_DEVICE
    DD.cb = Len(DD)
    If EnumDisplayDevices(ByVal 0&, 0, DD, ByVal 0&) Then
        MsgBox (Left$(DD.DeviceString, InStr(1, DD.DeviceString, Chr$(0)) - 1))
            Else
        MsgBox ("Luku ei onnistunut")
    End If
End Sub

Bill Keltanen [15.08.2004 08:48:26]

#

jee, kiitos

Fisher [15.08.2004 11:58:37]

#

Saesikos pinnaaryä tuosta ?

Pekka Kauppila [15.08.2004 13:52:52]

#

Prosessorin tiedot löytyvät rekisteristä Windows NT, 2000 ja XP käyttöjärjestelmissä. Lisää tietoa osoiteesssa http://www.winguides.com/registry/display.php/1024/

Bill Keltanen [16.08.2004 07:10:09]

#

Mullo jo prosessorin nopeus jne. Pitäs saada vielä äänikortti ainakin

Tiha [16.08.2004 10:03:33]

#

Tässä WMI:llä tehtynä
Toimii suoraan vain XP tai 2000 profeesional tai >= NT SP4

Private Sub Form_Load()
On Error Resume Next
strComputer = "127.0.0.1" 'Viittaa omaan koneeseen
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") ' Luo WMI instanssi
EvtSql$ = "Select * from Win32_SoundDevice" ' Tee kysely
Set colRetrievedEvents = objWMIService.ExecQuery(EvtSql$)
For Each objEvent In colRetrievedEvents
MsgBox (objEvent.Description)
MsgBox (objEvent.Name)
MsgBox (objEvent.ProductName)
Exit For
Next
Set colRetrievedEvents = Nothing
Set objWMIService = Nothing
End Sub

Bill Keltanen [17.08.2004 10:43:49]

#

Hmmm, mulla toi piippaa web-kameraa (Philips ToUcam Pro II) :D mutta niin linux ymmärsi myös

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta