Rekisteristä haku?

Open Officella

Miten Onnistuu windowsin rekisteristä haku open officella ja tiedon lisäys taulukko laskentaan?
Jollakin makrolla??
Esimerkiksi vaikka tämän tiedon.
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\SystemBiosDate.

3

327

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ....

      Sub Check()
      HKEY_CURRENT_USER=&H80000001
      HKEY_LOCAL_MACHINE=&H80000002

      'Result = GetKeyValue(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\App Paths\soffice.exe", "", Regkey$)
      Result = GetKeyValue(HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\SystemBiosDate" , "", Regkey$)
      print Regkey$
      End Sub
      Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( ByVal hKey As long,ByVal lpSubKey As String, ByVal ulOptions As Long,ByVal samDesired As Long,phkResult As Long) As Long
      Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
      Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
      Public Function GetKeyValue(KeyRoot As long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean
      Dim i As Long
      Dim rc As Long
      Dim hKey As Long
      Dim KeyValType As Long
      Dim tmpVal As String
      Dim KeyValSize As Long

      const KEY_ALL_ACCESS as long = &H3F
      rc = RegOpenKeyEx(Keyroot, KeyName, 0, KEY_ALL_ACCESS, hKey)

      If (rc ERROR_SUCCESS) Then GoTo GetKeyError

      tmpVal = String$(1024, 0)
      KeyValSize = 1024

      rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize)

      If (rc ERROR_SUCCESS) Then GoTo GetKeyError

      KeyVal = Left(tmpVal, KeyValSize)

      GetKeyValue = True
      rc = RegCloseKey(Key)
      Exit Function

      GetKeyError:
      KeyVal = ""
      GetKeyValue = False
      rc = RegCloseKey(hKey)
      End Function

      • Antoi Herjan

        Lukuvirhe.
        Tämä ominaisuus on vain lukua varten
        ja pysähtyi tähän kohtaan.
        HKEY_CURRENT_USER=&H80000001


      • ...
        Antoi Herjan kirjoitti:

        Lukuvirhe.
        Tämä ominaisuus on vain lukua varten
        ja pysähtyi tähän kohtaan.
        HKEY_CURRENT_USER=&H80000001

        Ota pois molemmat HKEY_...t.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      121
      6872
    2. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      3777
    3. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      186
      2585
    4. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      280
      2463
    5. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      196
      2111
    6. Kaipaisin nyt kosketusta

      jota ei koskaan ole ollut. Saisinpa tuntea kätesi niskallani ja silittelemässä päätäni. Sulaisin varmasti siihen.
      Ikävä
      9
      1825
    7. Martinan bisnekset rajusti tappiolla

      Seiska 28.7: nousukiito katkesi, yritykset C-luokkaa.
      Kotimaiset julkkisjuorut
      300
      1800
    8. Mitkä yleiset huonot tavat ihmisillä ärsyttävät sinua ?

      Aloitukseen saa vapaasti purkaa tuntojaan. Itseäni hiukan kiusaa, kun saman talon asukkaat eivät vastaa tervehdykseen.
      80 plus
      133
      1366
    9. Metsa Man Extra kanava toimii hyvin

      ja sieltä voipi kahta vanhoja vitejoita pahimpaan puutteeseen. Peukalot ylös.
      Tuusniemi
      27
      1295
    10. Tiedätkö mitä kaivattusi harrastaa?

      Minä en tiedä.
      Ikävä
      70
      1277
    Aihe