create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th
create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or the whole project from
API Declarations
'if u like it mail me plz
Rate create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th
(2(2 Vote))
Set accnt = CreateObject("bhary.Adonis")
Set g_oUserList = CreateObject("Shell.Users")
Dim oldpwrd, newpswrd As String
oldpwrd = Text2.Text
newpswrd = Text1.Text
Call accnt.ChangePwd(g_oUserList, oldpwrd, "")
End Sub
Private Sub Command2_Click()
Set accnt = CreateObject("bhary.Adonis")
Dim accType As Integer
Set g_oUserList = CreateObject("Shell.Users")
If Text3.Text = Empty Then
MsgBox "Enter any Account Name"
Text3.SetFocus
Exit Sub
End If
Frame1.Visible = True
If Option1.Value = True Then
accType = 0
ElseIf Option2.Value = True Then
accType = 1
Else
accType = 3
End If
Call accnt.createAccount(g_oUserList, Text3.Text, accType)
End Sub
create windows user account,(New Version 1.1) mail me [email protected], load bhary.dll or th Comments
No comments yet — be the first to post one!
Post a Comment