AutoIT [RELEASE] NaviBetProxy v2.1

[AbsolutionZero]

Sera a tutti, vi presento la versione più aggiornata di NaviBetProxy v2.1 e la versione più aggiornata del software.
La versione contiene molte correzioni e un lieve cambiamento grafico tra qui : ora non e più necessario andare in impostazioni del browser e disattivare il proxy, esso sara possibile disattivarlo direttamente dal menu del software.
La seconda novità assoluta è che se durante la navigazione ci si incontra i survey (i mitici sondaggi rompi***** che stanno in primo piano sulle pagine web bloccandole. Ora e possibile bypassarle e leggere tranquillamente le pag. web.
Le altre novità le scoprirete da solli.
DOWNLOAD
VIRUSTOTAL

Source software:

HotKeySet("{F8}","ESC")


Func ESC()
	Exit
EndFunc


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Users\Daniel\Desktop\Personal Utility\Form1.kxf
$Form1 = GUICreate("NaviBetProxy v2.0", 770, 550, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("&Menu")
$MenuItem4 = GUICtrlCreateMenu("Inpostazioni", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenu("Sorgente Pagina", $MenuItem4)
$MenuItem6 = GUICtrlCreateMenuItem("Visualisa Sorgente", $MenuItem5)
$MenuItem7 = GUICtrlCreateMenuItem("Salva Sorgente Pag.", $MenuItem5)
$MenuItem19 = GUICtrlCreateMenuItem("Salva Link Pagina.", $MenuItem5)
$MenuItem8 = GUICtrlCreateMenu("Proxy", $MenuItem4)
$MenuItem9 = GUICtrlCreateMenuItem("Proxy Corrente", $MenuItem8)
$MenuItem10 = GUICtrlCreateMenuItem("Salva Proxy", $MenuItem8)
$MenuItem11 = GUICtrlCreateMenuItem("Lista Proxy disp.", $MenuItem8)
$MenuItem12 = GUICtrlCreateMenu("Ripristino", $MenuItem4)
$MenuItem13 = GUICtrlCreateMenuItem("Ripristino Browser", $MenuItem12)
$MenuItem18 = GUICtrlCreateMenuItem("Apri Pagina HTML Modificata", $MenuItem4)
$MenuItem3 = GUICtrlCreateMenuItem("Help", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
$MenuItem15 = GUICtrlCreateMenu("Survey")
$MenuItem17 = GUICtrlCreateMenuItem("Crea Pagina HTML Senza Survey", $MenuItem15)
$Input1 = GUICtrlCreateInput("Link", 0, 8, 769, 21)
$Button1 = GUICtrlCreateButton("Conneti", 104, 32, 145, 25)
$Button2 = GUICtrlCreateButton("Proxy", 0, 32, 105, 25)
$oIE=ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($oIE,5, 60, 760, 465)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Global Const $sInetSettingsKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
				mysetproxy($input_value_proxy)
				$gui=GUICtrlRead($Input1)
				$warnav=_IENavigate($oIE,$gui)
				mysetproxy()


				Func mysetproxy($sproxy = "", $fenable = True)
				Local Static $sprev = ""
				Local Static $fwasenabled = False
				If $sproxy = "" Then
					If $sprev <> "" Then __setproxyinfo($fwasenabled, $sprev)
				Else
					If $sprev = "" Then
						$sprev = RegRead($sinetsettingskey, "ProxyServer")
						$fwasenabled = RegRead($sinetsettingskey, "ProxyEnable")
					EndIf
					__setproxyinfo($fenable, $sproxy)
				EndIf
				EndFunc


				Func __setproxyinfo($fenabled, $sproxy)
					RegWrite($sinetsettingskey, "ProxyEnable", "REG_DWORD", 1)
					RegWrite($sinetsettingskey, "ProxyServer", "REG_SZ", $sproxy)
				EndFunc
		Case $Button2
			$input_value_proxy=InputBox("PROXY SERVER ADRESS","Input the proxy adress and proxy port,esample:34.545.87.43:8080")
		Case $MenuItem6
			$but=_IEDocReadHTML($oIE)
			#Region ### START Koda GUI section ### Form=C:\Users\Daniel\Desktop\Personal Utility\Form2.kxf
			$Form1 = GUICreate("Source-Web", 430, 331, 192, 124)
			$MenuItem1 = GUICtrlCreateMenu("Menu")
			$MenuItem2 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
			$Edit1 = GUICtrlCreateEdit("", 0, 0, 425, 305)
			GUICtrlSetData(-1, $but)
			GUISetState(@SW_SHOW)
			#EndRegion ### END Koda GUI section ###
		Case $MenuItem7
			$but1=_IEDocReadHTML($oIE)
			$ran01=Random(1,100)
			$ran02=Random(100,300)
			$sources="Source"
			$txt=".txt"
			$TT=$sources&$ran01&$ran02&$txt
			$CREATE=_FileCreate($TT)
			FileWrite($TT,$but1)
		Case $MenuItem9
			MsgBox(64,"Proxy Coorente",$input_value_proxy)
		Case $MenuItem10
			$opp=FileOpen("Proxy.txt")
			If $opp=-1 Then
				$create2=_FileCreate("Proxy.txt")
			EndIf
			$wrt=FileWriteLine("Proxy.txt",$input_value_proxy&"///")
		Case $MenuItem11
			_IECreate("http://spys.ru/free-proxy-list/US/")
		Case $MenuItem2
			Exit
		Case $MenuItem3
			MsgBox(0,"HELP","PROXY= da mettere il prosy qui,LINK=da mettere il link del sito da visitare,MENU= Più inpostazioni.")
		Case $MenuItem19
			_FileCreate("Link.trr")
			FileWriteLine("Link.trr",$gui)
		Case $MenuItem13
			RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings")
		case $MenuItem18
			$oopd=FileOpenDialog("Scegliere il File HTML","","Browser File(*.html)")
			_IECreate($oopd)
		Case $MenuItem17
			_FileCreate("1.html")
			$txt = BinaryToString(InetRead($gui))
			$txt1 = StringRegExpReplace($txt, '(?s)<script.*?loxtk.*?/script>', "")
			FileWrite("1.html", $txt1)
			ShellExecute("1.html")
	EndSwitch
WEnd

Che ve ne pare?

 

[alu]

Io non sono ancora convinto...devi gestire meglio gli errori...se non setti nessun proxy e cerchi di navigare, da un'errore inaspettato e si chiude...Gestisci tutte le possibilità (o almeno quelle più probabili)

 

[AbsolutionZero]

e vero, e non e solo quello,c'e ne sono altri,sto gia pensando a come poter fare, avevo provato a fare qualcosa ma solo che quella volta mi dava errore in entrambe i casi -.-.... vedrò cosa posso fare...