Das Rararchiv war leider ein wenig zu groß für dieses Forum musste es auslagern.
Im Download sind alle wichtigen dateien drin die ihr braucht für das Programm.
Das Proxyprogramm ist noch nicht fertig wird noch weiter gearbeitet drann kommt noch menü dazu wo man selber ip´s sich vergeben kann und Backup ordner wo die einstellung der reg gespeichert werden.
Und es kommt noch ein Megauploader dazu wo mann dann Megauploadfiles downloaden kann ohne so lange zu warten und mit top Speed zu mindestens ist das gerade bei der beta so :-).
Autoitscript
Spoiler anzeigen
;Registry zu HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.tpl
;Systemsteuerung\Alle Systemsteuerungselemente\Standardprogramme\Dateizuordnungen festlegen
#include <GUIConstantsEx.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <inet.au3>
#include <7Zip.au3>
#endregion
#include<WindowsConstants.au3>
#cs
****************************************************************************************
*** ***
*** URL abfragen ***
*** ***
****************************************************************************************
#ce
Dim $Url[5]
$Url[0] = "www.googel.de"
$Url[1] = "http://sirocool.si.funpic.de/autoit/Proxy/Update.ini"
$Url[2] = "http://sirocool.si.funpic.de/autoit/Proxy/Country/"
$Url[3] = "http://sirocool.si.funpic.de/autoit/Proxy/Country/Datenbase.ndx"
$Url[4] = "http://sirocool.si.funpic.de/autoit/Proxy/Country/Country.zip"
#cs
****************************************************************************************
*** ***
*** Ordner ***
*** ***
****************************************************************************************
#ce
Local $aData
$Data = "temp|update|country"
$aData = StringSplit($Data, '|')
Dim $Ornder [3]
For $1 = 0 To 2
$Ornder [$1] = "\data\" & $aData[$1 +1]
If Not FileExists(@ScriptDir & $Ornder[$1]) Then DirCreate(@ScriptDir & $Ornder[$1])
Next
#cs
****************************************************************************************
*** ***
*** Country ***
*** ***
****************************************************************************************
#ce
If Not FileExists(@ScriptDir & "\data\Datenbase.ndx") Then InetGet($Url[3],@ScriptDir & "\data\Datenbase.ndx", 1 )
If Not FileExists(@ScriptDir & "\data\temp\Datenbase.ndx") Then InetGet($Url[3],@ScriptDir & "\data\temp\Datenbase.ndx", 1 )
Dim $File [2]
$file [0] = FileOpen(@ScriptDir & "\data\Datenbase.ndx", 0)
If $file [0] = -1 Then
Exit
EndIf
$file [1] = FileOpen(@ScriptDir & "\data\Temp\Datenbase.ndx", 0)
If $file [1] = -1 Then
Exit
EndIf
Dim $line [4]
;Hier werden die Versionen verglichen
$line [0] = FileReadLine($file [0], 1)
$line [1] = FileReadLine($file [1], 1)
;Hier werden die Namen verglichen
$line [2] = FileReadLine($file [0], 2)
$line [3] = FileReadLine($file [1], 2)
If $line [0] < $line [1] Or $line [2] < $line [3] Then
If FileExists(@ScriptDir & "\data\Datenbase.ndx") Then FileMove(@ScriptDir & "\data\Datenbase.ndx", @ScriptDir & "\data\Old_Datenbase.ndx")
If FileExists(@ScriptDir & "\data\Old_Datenbase.ndx") Then FileCopy(@ScriptDir & "\data\Temp\Datenbase.ndx", @ScriptDir & "\data\Datenbase.ndx")
_Fileupdate()
Else
FileDelete(@ScriptDir & "\data\Old_Datenbase.ndx")
EndIf
Func _Fileupdate()
If FileExists(@ScriptDir & "\data\Update\Country.zip") Then FileMove(@ScriptDir & "\data\Update\Country.zip", @ScriptDir & "\data\Update\old_Country.zip")
InetGet($Url[4],@ScriptDir & "\data\Update\Country.zip")
$ArcFile = @ScriptDir & "\data\Update\Country.zip"
If @error Then Exit
$Output = @ScriptDir & "\data\Country\"
If @error Then Exit
_7ZIPExtract(0, $ArcFile, $Output, 0, 0, 1, 0, 0, 0, "*.zip")
FileDelete(@ScriptDir & "\data\Update\old_Country.zip")
FileDelete(@ScriptDir & "\data\Temp\Datenbase.ndx")
FileDelete(@ScriptDir & "\data\Old_Datenbase.ndx")
EndFunc
#cs
****************************************************************************************
*** ***
*** Ini abfragen ***
*** ***
****************************************************************************************
#ce
Dim $INI[4]
$INI[0] = @ScriptDir & "\data\config.ini"
$INI[1] = @ScriptDir & "\data\Temp\update.ini"
$INI[2] = @ScriptDir & "\data\icon.dll"
$INI[3] = @ScriptDir & "\data\Country\Germany.ini"
Global $aGlobal = IniReadSection($INI[3],"Germany")
Global $lb_Global
Local $lastNum = IniRead($INI[3], "Numbers", "last", 0000)
#cs
****************************************************************************************
*** ***
*** Pingcontroll ***
*** ***
****************************************************************************************
#ce
$var = Ping($Url[0])
If @error = 0 Then
InetGet($Url[1], @ScriptDir & "\data\Temp\update.ini")
Sleep (500)
Else
MsgBox(0, '', 'keine Verbindung')
Endif
#cs
****************************************************************************************
*** ***
*** Version & Datum ***
*** ***
****************************************************************************************
#ce
Dim $Version[4]
$Version[0] = IniRead($INI[0], "Version", "Datum", "Default")
$Version[1] = IniRead($INI[1], "Version", "Datum", "Default")
$Version[2] = IniRead($INI[0], "Version", "proxy", "Default")
$Version[3] = IniRead($INI[1], "Version", "proxy", "Default")
If $Version[2] < $Version[3] Or $Version[0] < $Version[1] Then
MsgBox(0, "Update!", "Es ist eine neue Version verfügbar!")
;_update()
Else
FileDelete($INI[1])
EndIf
#cs
****************************************************************************************
*** ***
*** Taskbar ***
*** ***
****************************************************************************************
#ce
$Handle = WinGetHandle("[CLASS:Shell_TrayWnd]")
Dim $Pos[2]
$Pos[0] = @DesktopWidth -390
$Pos[1] = @DesktopHeight-160-WInGetPos($Handle)
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Devil_Version 1.0.0 ********
******** Copyright: Sirocool (http://www.autoit.de) ********
******** Copyright: Jam00 (http://www.autoit.de) ********
******** ********
******** ********
******** Es läuft zu 100% auf Windows_98 ********
******** Es läuft zu 100% auf Windows_XP ********
******** Es läuft zu 000% auf Windows_Vista (wurde noch nicht getestet) ********
******** Es läuft zu 100% auf Windows_07 x64 7201 ********
******** Alle anderen Windows Versionen sind nicht getestet! ********
******** ********
******** Mit freundlicher Mithilfe von http://www.autoit.de ********
******** Danke an alle die mir mit diesem Projekt geholfen haben. ********
******** ********
******** Bei Fragen oder Problemen, schreib mir eine PN im Forum. ********
******** ********
******** ********
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
Local $OS_Titel = "Proxy", $StartLang = 'Deutsch',$aLanguage, $iLanguage
$Lang = "Germany|England|Schweden|Switzerland|France|Italy"; & @CRLF &
$aLanguage = StringSplit($Lang, '|')
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To $aLanguage[0]
If $StartLang = $aLanguage[$i] Then $iLanguage = $i - 1
Next
If ProcessExists("Proxy.exe") Then Exit MsgBox(0, "Error", "Bitte schließen Sie das Proxyprogramm bevor Sie das Update durchführen")
#Region ### START Koda GUI section ###
$ProxyGui = GUICreate($OS_Titel, 384, 116, $Pos[0], $Pos[1], 0x80000000)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $ProxyGui, "int", 500, "long", 0x00040008)
_Ecken($ProxyGui,0, 0, 11, 11)
Trayseticon($INI[2], 110)
Guiseticon($INI[2], 110)
TraySetToolTip($OS_Titel)
Dim $Button[5]
$Button[0] = GUICtrlCreatePic(@ScriptDir & "\images\default\4.jpg", 0, 88, 81, 27,BitOR(0x0100,0x00020000,0x04000000))
GUICtrlSetState(-1,$GUI_Hide)
$Button[1] = GUICtrlCreatePic(@ScriptDir & "\images\default\5.jpg", 293, 88, 90, 27,BitOR(0x0100,0x00020000,0x04000000))
GUICtrlSetState(-1,$GUI_Hide)
$Button[2] = GUICtrlCreatePic(@ScriptDir & "\images\default\6.jpg", 278, 1, 15, 18,BitOR(0x0100,0x00020000,0x04000000))
$Button[3] = GUICtrlCreatePic(@ScriptDir & "\images\default\7.jpg", 306, 1, 14, 18,BitOR(0x0100,0x00020000,0x04000000))
$Button[4] = GUICtrlCreatePic(@ScriptDir & "\images\default\8.jpg", 341, 1, 14, 18,BitOR(0x0100,0x00020000,0x04000000))
$ListView1 = GUICtrlCreateListView("NR|IP|Port|Level|Land|Online", 4, 25, 376, 61, $LVS_REPORT, $LVS_EX_GRIDLINES)
GUICtrlSetColor(-1, 0x808080)
GUICtrlSetBkColor(-1, 0x3e3e3e)
GUICtrlSetState(-1,$GUI_Hide)
$mnu = GUICtrlCreateContextMenu($Listview1)
$mnu_play = GUICtrlCreateMenuItem('Aktivieren', $mnu)
$mnu_edit = GUICtrlCreateMenuItem('Dateien bearbeiten', $mnu)
$mnu_del = GUICtrlCreateMenuItem('Dateien löschen', $mnu)
$mnu_senden = GUICtrlCreateMenuItem('Dateien senden', $mnu)
$HANDEL_LISTVIEW = GUICtrlGetHandle($ListView1)
_GUICtrlListView_SetColumnWidth($HANDEL_LISTVIEW, 0, 30)
_GUICtrlListView_SetColumnWidth($HANDEL_LISTVIEW, 1, 80)
_GUICtrlListView_SetColumnWidth($HANDEL_LISTVIEW, 2, 50)
_GUICtrlListView_SetColumnWidth($HANDEL_LISTVIEW, 3, 50)
_GUICtrlListView_SetColumnWidth($HANDEL_LISTVIEW, 4, 50)
_GUICtrlListView_SetColumnWidth($HANDEL_LISTVIEW, 5, 50)
;GUICtrlSetState(-1,$GUI_Hide)
$Combo1 = _GUICtrlComboBoxEx_Create($ProxyGui,"", 83, 89, 208, 20, $CBS_DROPDOWNLIST)
If FileExists($INI[2]) Then
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, $INI[2], 1, True)
_GUIImageList_AddIcon($hImage, $INI[2], 5, True)
_GUIImageList_AddIcon($hImage, $INI[2], 4, True)
_GUIImageList_AddIcon($hImage, $INI[2], 3, True)
_GUIImageList_AddIcon($hImage, $INI[2], 0, True)
_GUIImageList_AddIcon($hImage, $INI[2], 2, True)
_GUICtrlComboBoxEx_SetImageList($Combo1, $hImage)
EndIf
_GUICtrlComboBoxEx_SetItemHeight($Combo1, 0, 16)
For $i = 1 To $aLanguage[0]
_GUICtrlComboBoxEx_AddString($Combo1, $aLanguage[$i], $i-1, $i-1)
Next
_GUICtrlComboBoxEx_SetCurSel($Combo1, $iLanguage)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreatePic(@ScriptDir & "\images\default\1.jpg", 0, 0, 383, 24,BitOR(0x0100,0x00020000,0x04000000,0x08000000))
GUICtrlCreatePic(@ScriptDir & "\images\default\2.jpg", 0, 24, 383, 62,BitOR(0x0100,0x00020000,0x04000000,0x08000000))
GUICtrlCreatePic(@ScriptDir & "\images\default\3.jpg", 0, 86, 383, 29,BitOR(0x0100,0x00020000,0x04000000,0x08000000))
GUICtrlCreateLabel("",0,0,1000,800,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg(1)
;$WINPOS = WinGetPos($TvGui)
;IniWrite(@ScriptDir & "\data\settings.ini", "Playerposition", "winpos x", $WINPOS[0])
;IniWrite(@ScriptDir & "\data\settings.ini", "Playerposition", "winpos y", $WINPOS[1])
Switch $nMsg[1]
Case $ProxyGui
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button[0]
;MsgBox (0, "",_GetIP())
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$IP = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 1)
$IpPort = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 2)
MsgBox (0, "", $IP & ":" & $IpPort)
GUICtrlSetState($ListView1,$GUI_Hide)
GUICtrlSetState($Button[0],$GUI_Hide)
GUICtrlSetState($Button[1],$GUI_Show)
RegWrite("HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1")
RegWrite("HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $IP & ":" & $IpPort)
Case $Button[1]
GUICtrlSetState($Button[1],$GUI_Hide)
RegWrite("HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "0")
RegWrite("HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", "")
#cs
Case $mnu_play
$index = _GUICtrlListView_GetSelectedIndices($Listview1)
$IP = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 1)
$IpPort = _GUICtrlListView_GetItemText(GUICtrlGetHandle($Listview1), $index, 2)
MsgBox (0, "", $IP & ":" & $IpPort)
_Backup()
#ce
Case $Button[3]
GUISetState(@SW_MINIMIZE, $ProxyGui)
Case $Button[4]
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $ProxyGui, "int", 500, "long", 0x00050004)
Exit
EndSwitch
EndSwitch
WEnd
Func _Zip()
$ArcFile = FileOpenDialog ("Create a new archive", "", "Archive Files (*.7z;*.zip;*.gzip;*.bzip2;*.tar)|alle (*.*)")
If @error Then Exit
$FileName = FileSaveDialog("Create a new archive", "", "Archive Files (*.7z;*.zip;*.gzip;*.bzip2;*.tar)")
If @error Then Exit
$retResult = _7ZIPExtract(0, $ArcFile, $FileName)
If @error Then
MsgBox(64, "_7ZipAdd", "Error occurred")
Else
MsgBox(64, "_7ZipAdd", "Archive created successfully" & @LF & _
$retResult)
EndIf
EndFunc
#cs
****************************************************************************************
*** ***
*** _Ecken ***
*** Copyright: Jam00 (http://www.autoit.de) ***
*** ***
****************************************************************************************
#ce
Func _Ecken($h_win, $i_x1, $i_y1, $i_x3, $i_y3)
Local $XS_pos, $XS_ret, $XS_ret2
$XS_pos = WinGetPos($h_win)
$XS_ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $XS_pos[2], "long", $XS_pos[3], "long", $i_x3, "long", $i_y3)
If $XS_ret[0] Then
$XS_ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $XS_ret[0], "int", 1)
EndIf
EndFunc ;==>_Ecken
#cs
****************************************************************************************
*** ***
*** ***
*** Copyright:(http://www.autoit.de) ***
*** ***
****************************************************************************************
#ce
Func _FillListView()
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 0 Then Return
For $i = 1 To UBound($aGlobal) -1
GUICtrlCreateListViewItem($aGlobal[$i][0] & '|' & $aGlobal[$i][1], $Listview1)
Next
_GUICtrlListView_DeleteAllItems($Listview1)
If $lastNum = 0 Then Return
For $i = 1 To UBound($aGlobal) -1
GUICtrlCreateListViewItem($aGlobal[$i][0] & '|' & $aGlobal[$i][1], $Listview1)
Next
EndFunc
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR
Local $hWndListView1 = GUICtrlGetHandle($Listview1)
; Local $hWndListView2 = GUICtrlGetHandle($Listview2)
;Local $hWndListView3 = GUICtrlGetHandle($Listview3)
;Local $hWndListView4 = GUICtrlGetHandle($Listview4)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndListView1
Switch $iCode
Case $NM_DBLCLK
Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
Local $aInfo[12] = [$hWndFrom, _
$iIDFrom, _
$iCode, _
DllStructGetData($tInfo, "Index"), _
DllStructGetData($tInfo, "SubItem"), _
DllStructGetData($tInfo, "NewState"), _
DllStructGetData($tInfo, "OldState"), _
DllStructGetData($tInfo, "Changed"), _
DllStructGetData($tInfo, "ActionX"), _
DllStructGetData($tInfo, "ActionY"), _
DllStructGetData($tInfo, "lParam"), _
DllStructGetData($tInfo, "KeyFlags")]
;_LeftDblClick($aInfo)
Case $NM_RCLICK
Return $GUI_RUNDEFMSG
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc;==>WM_NOTIFY
#cs
****************************************************************************************
*** ***
*** _combo ***
*** Copyright: Raupi (http://www.autoit.de) ***
*** ***
****************************************************************************************
#ce
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg
Local $hWndFrom, $iIDFrom, $iCode
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word
Switch $hWndFrom
Case $Combo1
Switch $iCode
Case $CBN_SELCHANGE ; Sent when the user changes the current selection in the list box of a combo box
$Laender = _GUICtrlComboBoxEx_GetCurSel($Combo1)
_GUICtrlComboBoxEx_GetItemText($Combo1, $Laender, $Laender)
_Landcontroll($Laender)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Func _Landcontroll($Land= "")
If $Land = $Land then
GUICtrlSetState($ListView1,$GUI_Hide)
GUICtrlSetState($Button[0],$GUI_Hide)
GUICtrlSetState($ListView1,$GUI_Show)
GUICtrlSetState($Button[0],$GUI_Show)
$aGlobal = IniReadSection(@ScriptDir & "\data\Country\"& $Land & ".ini" ,$Land)
_FillListView()
EndIf
EndFunc
#cs
[/autoit] [autoit][/autoit] [autoit]Func Landupdate()
[/autoit] [autoit][/autoit] [autoit]If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36,"WebTV & WebRadio ","Sind Sie sich sicher, dass Sie den WebPalyer verlassen wollen Ja bzw. Nein.")
Select
Case $iMsgBoxAnswer = 6 ;Yes
If Not FileExists(@ScriptDir & "\data\Country\"& $Land & ".ini") Then FileMove(@ScriptDir & "\data\Country\"& $Land & ".ini", @ScriptDir & "\data\Country\" & "Old_"& $Land & ".ini")
InetGet("http://sirocool.si.funpic.de/autoit/Proxy/Country/" & $Land & ".ini",@ScriptDir & "\data\Country\"& $Land & ".ini", 1 )
FileDelete(@ScriptDir & "\data\Country\" & "Old_"& $Land & ".ini")
Case $iMsgBoxAnswer = 7 ;No
EndSelect
Else
If FileExists(@ScriptDir & "\data\Country\" & "Old_"& $Land & ".ini") Then FileDelete(@ScriptDir & "\data\Country\" & "Old_"& $Land & ".ini") ;Hier wird überprüft ob die Alte Datei Existiert wenn ja wird sie gelöscht.
EndIf
EndFunc
#ce
Func _Backup()
Dim $Proxy[2]
$Proxy[0]= RegRead("HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
$Proxy[1]= RegRead("HKEY_Current_User\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
Dim $Save[2]
$Save[0]= IniWrite(@ScriptDir &"\data\Backup\Backup.reg", "section2", "key_an", $Proxy[0])
$Save[1]= IniWrite(@ScriptDir &"\data\Backup\Backup.reg", "section2", "key_ip", $Proxy[1])
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Bild
[Blockierte Grafik: http://sirocool.si.funpic.de/autoit/Proxy/Photo/Proxy.jpg]
Download Link
Bitte Hier Klicken