Ehhh, kinda I was actually going to see if could actually get some proxies first, especially since I didn't want to test this program a few times and then get my internet service removed, or something
And actually, I'll probably use multithreading to use all of those proxies. If you could PM them to me, that would be great
Here are the 4 working proxies:
216.18.219.98 Port 3128
95.169.190.78 Port 3128
94.23.47.56 Port 3128
94.89.80.218 Port 3128
Use them randomly. To use them with vb.net use the proxy class:
Dim proxy As New WebProxy("https://216.18.219.98:3128/", True)
Or if you can't figure out how to use proxies in vb.net, goto internet explorer > Internet Options > Connections Tab > Lan Settings.
Then in under Lan Settings, Uncheck Automatically detect settings checkbox and check the Use proxy server for you Lan, and fill the Address and Port checkboxes with the proxy you want to use.
Hope this helps. If you encounter any problem, feel free to ask.
UHEHsetrhthteh5ry (05-30-2010)
Oh, speaking of Multithreading, I'm trying to thread a subroutine with parameters, but it seems like that requires some special syntax. The variable will look something like this:
Although that wouldn't work, since apparently I can't use a second set of parentheses. Do you know the correct syntax for this?Code:Dim t As New Threading.Thread(AddressOf Notification("None", 3))
Code:Sub Notification(ByVal msg As String, ByVal delay As Integer) Dim posx, posy As Integer posx = Console.CursorLeft posy = Console.CursorTop Console.SetCursorPosition(0, Console.WindowHeight - 1) Console.Write("Saved setting!") Console.SetCursorPosition(posx, posy) End Sub
First declare this delegate:
Private Delegate Sub HandleNotification( ByVal input1 As String , ByVal input2 As Integer )
Then your notification sub:
Sub Notification( ByVal msg As String , ByVal delay As Integer )
Dim posx,posy As Integer
posx = Console.CursorLeft
posy = Console.CursorTop
Console.SetCursorPosition(0,Console.WindowHeight - 1)
Console.Write( "Saved setting!")
Console.SetCursorPosition(posx,posy)
End Sub
Then add this sub:
Private Sub Callback( ByVal ia As IAsyncResult)
CType ( CType (ia,Runtime.Remoting.Messaging.AsyncResult).AsyncD elegate,HandleNotification).EndInvoke(ia)
End Sub
Finally call this without creating a new thread. This is also Async:
Dim worker As New HandleNotification( AddressOf Notification)
worker.BeginInvoke( "None",3, AddressOf Callback, Nothing )
Hope this helps. Post any problems here !!
Edit: Nevermind, I think I messed up something :P Very confusing, but it works great now, thanks
Last edited by UHEHsetrhthteh5ry; 05-30-2010 at 11:11 PM.