AutoIT [RELEASE] NaviBetProxy v2.0

[AbsolutionZero]

Sera a tutti, vi presento NaviBetProxy v2.0 , attualmente il mio miglior software creato con autoit.
Esso permette la navigazione in internet tramite proxy, l'interfaccia e molto intuibile anche per un principiante di pc (c'e comunque la sezione help).
DOWNLOAD
VIRUSTOTALSCAN

Altre Funzioni:
-Possibilita di visualizare i source html dei siti visitati
-Possibilita di scaricare i source html dei siti visitati
-Possibilita di salvare i proxy e visualizare il proxy corrente.

pian piano lo miglioro

Source programma:

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)
$MenuItem8 = GUICtrlCreateMenu("Proxy", $MenuItem4)
$MenuItem9 = GUICtrlCreateMenuItem("Proxy Corrente", $MenuItem8)
$MenuItem10 = GUICtrlCreateMenuItem("Salva Proxy", $MenuItem8)
$MenuItem11 = GUICtrlCreateMenuItem("Lista Proxy disp.", $MenuItem8)
$MenuItem3 = GUICtrlCreateMenuItem("Help", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
$Input1 = GUICtrlCreateInput("Link", 0, 8, 769, 21)
$Button1 = GUICtrlCreateButton("Conneti", 312, 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
			$gu=GUICtrlRead($Button2)
			$tes=""
			if $gu=$tes Then
				MsgBox(48,"Error","Please put a valid proxy adress!")
			Else
				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
			EndIf
		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.")
	EndSwitch
WEnd

lasciate un vostro feedback se volete :3

 

[alu]

Ehm non so come esprimermi Tralasciando il casino che ho fatto per far funzionare internet nuovamente, trova un'altro metodo per impostare il proxy o almeno metti una funziona che ti fa cancellare la chiave che setta il proxy, se qualcuno sbaglia ad inserire il proxy non ha più accesso ad internet se non andando a cancellare la chiave o modificando le impostazioni di internet

 

[AbsolutionZero]

opsss, sorry... mi ero dimenticato di dirvi che (fortunatamente Because ha già provato per voi) il piccolo problema del software.
Cercherò di rimediarlo al più presto.

 

[ONE OK ROCK]

opsss, sorry... mi ero dimenticato di dirvi che (fortunatamente Because ha già provato per voi) il piccolo problema del software.

[MENTION=200092]Because[/MENTION], sfruttato, proprio una cavia
Aspetto l'update per provarlo, non vorrei demolire il pc.

 

[alu]

[MENTION=210897]AbsolutionZero[/MENTION] , ho un po' di consigli, se ti va contattami in pm