Hej!Inloggning för Windows 98
Jag undrar om det finns någon i detta avlånga land som vet ett smidigt sätt att använda inloggning för windows 98.
Tanken är den att man ska gå in på en inloggningsruta där användarId är ifyllt med det användareID man har när man loggar in på datorn, men den koden som jag har fungerar inte för windows 98.
Den kod jag har ser ut såhär:
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Dim oUsers As CDB
Private Sub BAvbryt_Click()
End
End Sub
Private Sub bOK_Click()
Dim mRnr As Double, ort As String
z = oUsers.load(, "UID='" & gsNuser & "'")
If oUsers.rcount = 0 Then
mRnr = oUsers.NyPost
z = oUsers.P("UID", TAID, mRnr)
z = oUsers.P("NAMN", TNamn, mRnr)
oUsers.save (mRnr)
Else
mRnr = 0
z = oUsers.P("UID", TAID, mRnr)
z = oUsers.P("NAMN", TNamn, mRnr)
oUsers.save (mRnr)
End If
Unload Me
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then BAvbryt_Click
End Sub
Private Sub Form_Load()
SetWindowPos FRMInloggning.hwnd, _
HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOMOVE + SWP_NOSIZE
Set oUsers = New CDB
z = oUsers.init("USERS", "*", "UID")
z = oUsers.load(, "UID='" & gsNuser & "'")
If z = 0 Then
TAID = gsNuser
Else
TAID = oUsers.G("UID")
TNamn = oUsers.G("NAMN")
End If
End Sub
Tack på förhand
/JEssica