• Home
 · 
• Windows System Services
 · 
• 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 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

• 1
• 2
• 3
• 4
• 5

(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