Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: schleifen problem
Autor: newbie
Datum: 07.10.02 13:01
das neue forum nimmt leider diverse zeichen aus dem code heraus ich versuchs mal anders: Const ERROR_NO_MORE_ITEMS = 259& Const HKEY_CURRENT_USER = &H80000001 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long Private Sub Command1_Click() Dim hKey As Long Dim Cnt As Long Dim sName As String Dim Ret As Long Const BUFFER_SIZE As Long = 255 Ret = BUFFER_SIZE sName = Space(BUFFER_SIZE) RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Account Manager\Accounts", hKey While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) ERROR_NO_MORE_ITEMS If Format(Val(Mid(sName, 1, Ret)), "00000000") "00000000" Then Combo1.AddItem Mid(sName, 1, Ret) End If Ret = BUFFER_SIZE Cnt = Cnt + 1 Wend RegCloseKey hKey End Sub

schleifen problem	459	georg-30	07.10.02 11:48
Re: schleifen problem	74	newbie	07.10.02 12:45
Re: schleifen problem	311	georg-30	07.10.02 12:54
Re: schleifen problem	52	newbie	07.10.02 13:01
nee funzt nich!!! ich schicks per mail (oT)	58	newbie	07.10.02 13:03
Re: schleifen problem	315	georg-30	07.10.02 13:05

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen