Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub logingrabber()
- Dim rnd As New Random
- With graber
- .Server = "nimbuzz.com"
- .ConnectServer = "o.nimbuzz.com"
- .Username = spy.Text
- .Password = pswspy.Text
- .Resource = "Goodzilla_Private_Bot_" + Convert.ToString(rnd.Next(0, 10000))
- .Open()
- AddHandler .OnLogin, AddressOf login1
- AddHandler .OnAuthError, AddressOf wrong1
- End With
- End Sub
Add Comment
Please, Sign In to add comment