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.
Rekisteristä haku?
3
327
Vastaukset
- ....
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=&H80000001Ota pois molemmat HKEY_...t.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kysymys muille miehille
Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss1216872Kohta 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 sa243777- 1862585
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 a2802463Jos kaivattusi on perääntynyt lähestyessäsi
jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?1962111Kaipaisin nyt kosketusta
jota ei koskaan ole ollut. Saisinpa tuntea kätesi niskallani ja silittelemässä päätäni. Sulaisin varmasti siihen.91825Martinan bisnekset rajusti tappiolla
Seiska 28.7: nousukiito katkesi, yritykset C-luokkaa.3001800Mitkä 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.1331366Metsa Man Extra kanava toimii hyvin
ja sieltä voipi kahta vanhoja vitejoita pahimpaan puutteeseen. Peukalot ylös.271295- 701277