How do you create an account using VB while using hash.dll and checkrevision.dll. A script would help very much. Thanks for any help.

[code]Public Sub SendCreateAccount(UserName As String, password As String)
Dim AccountHash As String
AccountHash = CalcHashBuf(password)

If Len(AccountHash) = 20 Then
SendPacket &H3D, AccountHash & UserName & Chr(0)
Else
Addtext ColAnError, "Account creation failed for " & UserName & " (couldn't hash password)" & vbCrLf, True
End If
End Sub[/code]

send it right after you get 0x51 response. the server will send you 0x3D back with a DWORD indicating if the account was created or not. 0 means sucessful, see bnetdocs for the other codes.

meh, i'm feeling generous

'Packet ID: 0x3D
'Direction: Server -> Client (Recieved)
'Format: (DWORD) Status
'(STRING) Account name suggestion
'Remarks: Account creation result.
'
'Result:
'0: Account created
'2: Name contained invalid characters
'3: Name contained a banned word
'4: Account already exists
'6: Name did not contain enough alphanumeric characters

[quote author=DaRk-FeAnOr link=board=17;threadid=1035;start=0#msg7746 date=1050276570]
How do you create an account using VB while using hash.dll and checkrevision.dll. A script would help very much. Thanks for any help.
[/quote]

If you're using my hash.dll, there is no function exported to do what you're asking.

Might want to use BnetAuth.dll ::)