[vb6] Extractor
heres the source. really simple. No i will not give you the custom wrappers so don't even ask.
Dim StrAccounts As String
Dim strSave As String
Dim StrUserPass() As String
Dim strSplit As String
Dim IntSplit As Integer
Private Sub cmdLoadA_Click()
StrAccounts = (InputBox("What is the name of the file you want to open? Must be in same folder", "Load", "accounts.txt"))
Call Wrapper.LoadList(lstAccounts, StrAccounts)
End Sub
Private Sub cmdSaveP_Click()
strSave = (InputBox("What do you want to save the file as?", "Save", "Passwords.txt"))
Call Wrapper.SaveList(lstPasswords, strSave)
End Sub
Private Sub cmdSaveU_Click()
strSave = (InputBox("What do you want to save the file as?", "Save", "Usernames.txt"))
Call Wrapper.SaveList(lstUsernames, strSave)
End Sub
Private Sub cmdStart_Click()
Dim StrDeli As String
StrDeli = (InputBox("What is the delimeter the accounts should be split by?", "Delimeter", " : "))
cmdStart.Enabled = False
For IntSplit = 0 To lstAccounts.ListCount - 1
strSplit = (lstAccounts.List(IntSplit))
StrUserPass = (Split(strSplit, StrDeli))
lstUsernames.AddItem (StrUserPass(0))
lstPasswords.AddItem (StrUserPass(1))
Next
Call MsgBox("Finished extracting", vbInformation, "Done")
cmdStart.Enabled = True
End Sub
