Well I checked few other sources yesterday, which used hella long source to switch the combos.
So I checked it myself, since I had a simplier style to do it. So well all you would need is 2 listboxes, 3 textboxes, progressbar and button.
so do the sub and insert,
This will split the combo, add pass/email to textbox1 and the other half to textbox2.
now double click the first listbox add,
This will add the selected combo to textbox3.
You can double click the button make it have,
Also to exit the sub you can do it this way,
Basically here we have a combo switcher which can switch pass:user to user:pass . This is the veery simple way to do this, tho there are more ways which I checked and the code was 5x longer.
If im missing something could you be kind enough to say :D
So I checked it myself, since I had a simplier style to do it. So well all you would need is 2 listboxes, 3 textboxes, progressbar and button.
so do the sub and insert,
Code
For Each combos In ListBox1.Items
Dim combo() As String = TextBox3.Text.Split(":")
TextBox1.Text = combo(0)
TextBox2.Text = combo(1)
ListBox2.Items.Add(TextBox2.Text & ":" & TextBox1.Text)
ProgressBar1.Value += 1
NextThis will split the combo, add pass/email to textbox1 and the other half to textbox2.
now double click the first listbox add,
Code
TextBox3.Text = ListBox1.SelectedItemYou can double click the button make it have,
Code
ProgressBar1.Maximum = ListBox1.Items.Count
ProgressBar1.Value = 0
Switch()Also to exit the sub you can do it this way,
Code
If ProgressBar1.Value = ProgressBar1.Maximum Then
MsgBox("Done")
Exit Sub
End IfBasically here we have a combo switcher which can switch pass:user to user:pass . This is the veery simple way to do this, tho there are more ways which I checked and the code was 5x longer.
If im missing something could you be kind enough to say :D
