ersetze mal zeile 38 und mach mal dies darein da erkennt er welche endungen dein File hat und den Namen vom gedownloadeten File.
$test = StringSplit($aLinks[$x], "/")
$sDest = @ScriptDir & "\" & $test[$test[0]]
so und jetzt das ganze mit dein Prozess
#Include <File.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Dim $aLinks
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 445, 192, 124)
$Progress1 = GUICtrlCreateProgress(136, 352, 337, 17)
$Downloadstart = GUICtrlCreateButton("Downloaden", 216, 400, 169, 33, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("Label", 72, 40, 484, 81)
$Input1 = GUICtrlCreateInput("Bitte auf ""Datei auswählen"" klicken", 80, 200, 409, 21)
$auswahlen = GUICtrlCreateButton("Datei auswählen", 368, 224, 121, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
DirCreate("downloader")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $auswahlen
$filedialog = FileOpenDialog("title",@WorkingDir & "\","Textfiles (*.txt;*.ini)")
GUICtrlSetData($Input1,$filedialog)
Case $Downloadstart
If GUICtrlRead($Input1) = "Bitte auf ""Datei auswählen"" klicken" Then
MsgBox(0,"Fehler","Bitte auf ""Datei auswählen"" klicken und eine Datei auswählen")
Else
;MsgBox(0,"ok",$filedialog); nur zur kontrolle
_FileReadToArray($filedialog,$aLinks)
For $x = 1 to $aLinks[0]
;Msgbox(0,'Record:' & $x, $aLinks[$x]);zur kontrolle
$test = StringSplit($aLinks[$x], "/")
;Msgbox(0,'Name', $test[$test[0]]);zur kontrolle
Do
For $c = InetGetSize($aLinks[$x])/InetGetSize($aLinks[$x])to 100 Step +1
InetGet($aLinks[$x],@ScriptDir & "\" & $test[$test[0]] )
GUICtrlSetData($Progress1, Round($c))
Next
Until $c
Next
EndIf
[/autoit] [autoit][/autoit] [autoit]EndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEnd
habe mal bei dir was geändert
_FileReadToArray($filedialog,$aLinks)
For $x = 1 to $aLinks[0]
;Msgbox(0,'Record:' & $x, $aLinks[$x]);zur kontrolle
$test = StringSplit($aLinks[$x], "/")
;Msgbox(0,'Name', $test[$test[0]]);zurkontrolle
InetGet($aLinks[$x],@ScriptDir & "\" & $test[$test[0]] )
Next
guter Script gefällt mir 
Und zwar habe ich die idee von hier.
Will nur wissen ob meine variante bei euch auch klappt oder etwas kürzer geht.
Der file downloader zieht mehre datein nach einander sobald eine fertig ist.
Funktion des Scriptes
- ladet nach einander die Links aus einer Datei runter.
- geschätze Downloadzeit
- Downloadspeed
- Downloadname
- Downloadgröße
- Fortschritt anzeige
Das ganze wird in einer Tooltip angezeigt
Script 1.3
#include-once
#include <file.au3>
#Include <Date.au3>
#endregion
Dim $aRecords
[/autoit] [autoit][/autoit] [autoit]$FileopenDialog = FileOpenDialog("", @UserProfileDir& "\", "Datei (*.*)", 1 + 4 )
If @error Then
MsgBox(4096,"Error" ,"No File(s) chosen")
Exit
EndIf
If Not _FileReadToArray($FileopenDialog, $aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
For $a = 1 To $aRecords[0]
;Msgbox(0,'Record:' & $x, $aRecords[$x])
IniWrite(@ScriptDir & "\test.ini", "Download", $a, $aRecords[$a])
$Test = StringSplit($aRecords[$a], "/")
IniWrite(@ScriptDir & "\test.ini", "Namen", $a, $Test[$Test[0]])
Next
IniWrite(@ScriptDir & "\test.ini", "zahl", "Key", $aRecords[0])
For $b = 1 To $aRecords[0]
$var = IniRead(@ScriptDir & "\test.ini", "Download", $b, Default)
;MsgBox(4096, "Result", $var)
Next
Global Const $Groesen = StringSplit("KB|MB|GB|TB|?|", "|")
Global Const $SpeedGroesen = StringSplit("kbps|Mbps|Gbps|Tbps|Pbps|?|", "|")
Dim $File[IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini", "Download", Default, Default)]
Dim $Filename[IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)] = [IniRead(@ScriptDir & "\test.ini", "Download", Default, Default)]
For $c = 1 To IniRead(@ScriptDir & "\test.ini", "Zahl", "key", Default)
;MsgBox(4096, "inet",IniRead(@ScriptDir & "\test.ini", "Download", $i, Default))
Sleep(50)
If FileExists(@DesktopDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default)) Then FileDelete(@ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
If FileExists(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default)) Then FileMove(@ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default), @ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
$sFILESIZE = InetGetSize(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default))
$hDL = InetGet(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default), @ScriptDir & "\" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default),1,1)
$url = IniRead(@ScriptDir & "\test.ini", "Download", $c, Default)
$tStart = TimerInit()
Do
$aDL_Info = InetGetInfo($hDL)
$iPercent = _CalcPerformance($aDL_Info[0], $aDL_Info[2], $sFILESIZE, $tStart,IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default),_FormatFileSize(InetGetSize(IniRead(@ScriptDir & "\test.ini", "Download", $c, Default))),$url)
Until $aDL_Info[2]
InetClose($hDL)
FileDelete(@ScriptDir & "\" & "old_" & IniRead(@ScriptDir & "\test.ini", "Namen", $c, Default))
ToolTip("Fertig")
ToolTip("")
Next
FileDelete(@ScriptDir & "\test.ini")
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein _CalcPerformance ********
******** Copyright: autoBert (http://www.autoit.de) ********
******** ********
******** ********
******** 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
Func _CalcPerformance($iRead, $bDone, $iSize, $tStart,$Name,$Groesse, $test)
Local $tDiff = TimerDiff($tStart), $iRTime, $sMSG
Local $iToDo = Round(($iSize - $iRead) / 1024, 2)
Local $nKBPerSec = Round($iRead / $tDiff * 1000, 2)
Local $iPercent = Round($iRead / $iSize * 100, 2)
if ($iSize = 0) And Not $bDone Then
$iRTime = "unbekannt"
Else
$iRTime = Round($iToDo / $nKBPerSec, 0)
EndIf
$sMSG = _FormatFileSize(Round($iRead, 0)) & " / " & _FormatFileSize(Round($iSize, 0))
;MsgBox (48, "", $sMSG )
$Time1 = _SecToTime( Round(_FormatFileSize(Round($iSize, 0))/ _SpeedSize($nKBPerSec)),0)
$TimeString = ""
If $Time1[0] > 0 Then $TimeString = $Time1[0] & " sec " & $TimeString
If $Time1[1] > 0 Then $TimeString = $Time1[1] & " min " & $TimeString
If $Time1[2] > 0 Then $TimeString = $Time1[2] & " Std " & $TimeString
If $Time1[3] > 0 Then $TimeString = $Time1[3] & " Tage" & $TimeString
Sleep(750)
ToolTip("File Name.: " & $Name & @CRLF & "Download Grösse.: "& $Groesse & @CRLF & "Status.: " & $sMSG & @CRLF & "Fortschritt.: " & Round($iPercent, 0) & " % " & @CRLF & "Downloadspeed.: " & _SpeedSize($nKBPerSec) & @CRLF & "Downloadzeit ca.: " & $TimeString, 50, 50, "Info", 1)
Return Round($iPercent, 1) & " %"
EndFunc ;==>_CalcPerformance
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein _FormatFileSize & _SpeedSize & _SecToTime ********
******** Copyright: Jam00 (http://www.autoit.de) ********
******** ********
******** ********
******** 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
Func _FormatFileSize($sFunc_Size)
Local $i = 0
While $sFunc_Size > 1000
$sFunc_Size /= 1024
$i += 1
WEnd
If $i > 4 Then $i = 4
Return Round($sFunc_Size, 2) & " " & $Groesen[$i]
EndFunc ;==>_FormatFileSize
Func _SpeedSize($Speeds)
Local $si = 0
While $Speeds > 1000
$Speeds /= 1024
$si+=1
WEnd
If $si > 5 Then $si = 5
Return Round ($Speeds,2) & " " & $SpeedGroesen[$si]
EndFunc ;==>_SpeedSize
Func _SecToTime($Sec, $Flag = 0)
Local $Rechner, $1, $Rest
Local $Zeit[4] = [0, 0, 0, 0]
$Zeit[0] = $Sec
For $1 = 0 To 2
If $1 < 2 Then
$Rechner = 60
Else
$Rechner = 24
EndIf
If $Zeit[$1] > $Rechner - 1 Then
$Rest = Mod($Zeit[$1], $Rechner)
$Zeit[$1 + 1] = ($Zeit[$1] - $Rest) / $Rechner
$Zeit[$1] = $Rest
EndIf
Next
If $Flag = 1 Then
Local $sZeit, $State = 0
For $1 = 3 To 0 Step -1
If $Zeit[$1] > 0 Then
$State = 1
$sZeit &= $Zeit[$1] & ":"
ElseIf $State = 1 Then
$sZeit &= $Zeit[$1] & ":"
EndIf
Next
Return StringTrimRight($sZeit, 1)
EndIf
Return $Zeit
EndFunc ;==>_SecToTime
ini Datei
http://download.thinkbroadband.com/5MB.zip
http://download.thinkbroadband.com/10MB.zip
http://download.thinkbroadband.com/20MB.zip
http://download.thinkbroadband.com/50MB.zip
http://download.thinkbroadband.com/100MB.zip
http://download.thinkbroadband.com/200MB.zip
http://download.thinkbroadband.com/512MB.zip
http://download.thinkbroadband.com/1GB.zip
container file kann schon geladen werden andere werden so schnell wie mögichst bearbeitet
Bilder
[Blockierte Grafik: http://www.autoit.de/index.php?page…8dbd51b574ce96f]
[Blockierte Grafik: http://www.autoit.de/index.php?page…17d0cc7e32390bb]
Info text zum stand der Arbeiten
- Container Files können geöffnet werden und endcodiert ( kann CCF, RSDF und das neue DLC Format) 100 %
- Programm updater 100 %
- Programm selber noch in arbeit bei 50 %
- File Hoster link auslesen und testen bei 25 % au3 wird später nicht mit geliefert
Infotext zum Programm
Speed Downloader ist ein Plattformabhängigessystem und kann nur für Windowsversionen genutzt werden, in Autoitscript geschriebenes Opensourceprojekt.
Das Programm vereinfacht das Herunterladen von Dateien von sogenannten One-Click-Hostern wie Rapidshare.com oder Megaupload.com sowohl für Freeuser als auch für Premiumkunden.
Dabei stehen Features wie "Multistreamdownload", "Bilderkennung", "Automatisches entpacken" uvm.
Zur Verfügung. Speed Downloader ist natürlich völlig kostenlos.
Zusätzlich werden viele bekannte "Linkverschlüsselungsseiten" unterstützt um das Einfügen von Downloadlinks komfortabler zu machen.
Speed Downloader kann CCF, RSDF und das neue DLC Format importieren..
Scriptcode
Containercode
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Speed Uploader Version für Megaupload ********
******** Copyright: Sirocool (http://www.autoit.de) ********
******** Copyright: Jam00 (http://www.autoit.de) ********
******** ********
******** ********
******** 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
#include-once
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#endregion
#cs
****************************************************************************************
*** ***
*** Taskbar ***
*** ***
****************************************************************************************
#ce
$Handle = WinGetHandle("[CLASS:Shell_TrayWnd]")
Dim $Pos[2]
$Pos[0] = @DesktopWidth -460
$Pos[1] = @DesktopHeight-190-WInGetPos($Handle)
$Save_Path = @ScriptDir & "\save.sjc"
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda
$hGui = GUICreate("Speed Container", 460, 150, $Pos[0], $Pos[1], $WS_POPUP)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui, "int", 500, "long", 0x00040008)
Trayseticon(@ScriptDir & "\images\icon\1.ico")
Guiseticon(@ScriptDir & "\images\icon\1.ico")
TraySetToolTip("Speed Container")
$Input1 = GUICtrlCreateInput("", 27, 79, 290, 23)
$Button1 = GUICtrlCreatePic(@ScriptDir & "\Images\Default\3.jpg", 326, 78, 109, 25)
$Button2 = GUICtrlCreatePic(@ScriptDir & "\Images\Default\4.jpg", 437, 5, 17, 18)
$Label1 = GUICtrlCreateLabel("Container laden", 33, 35, 100, 20)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePic(@ScriptDir & "\Images\Default\1_1.jpg", 9, 4, 120, 20);Logo & Name
GUICtrlCreatePic (@ScriptDir & "\Images\Default\1.jpg",0,0,460 ,30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic (@ScriptDir & "\Images\Default\2.jpg",0,30,460 ,120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,1000,194,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sFile = FileOpenDialog("Container Files", @ScriptDir & "", "Contanier (*.dlc;*.ccf)|Speedfiles (*.sjc;*.acc)", 1 + 4 )
If @error Then
;MsgBox(4096,"","No File(s) chosen")
Else
_open($sFile)
EndIf
Case $Button2
ExitLoop
EndSwitch
WEnd
Func _open($datei)
GUICtrlSetData($Input1,$datei)
$programm = @ScriptDir & "\plugin\Container.exe"
If @error Then
MsgBox(4096,"","Kein Plugin")
Else
Run($programm & " " & '"' & $datei & '"')
EndIf
Sleep(6200)
FileDelete($Save_Path)
ControlClick("[CLASS:#32770]", "", "OK")
FileWrite($Save_Path, ClipGet())
FileClose($Save_Path)
EndFunc
Updater
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Speed Uploader Version für Megaupload ********
******** Copyright: Sirocool (http://www.autoit.de) ********
******** Copyright: Jam00 (http://www.autoit.de) ********
******** ********
******** ********
******** 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
#include-once
#include <StaticConstants.au3>
#include <data\include\GDIpProgress.au3>
#include <data\include\7Zip.au3>
#endregion
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
*** ***
*** Ping check ***
*** ***
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
$check = Ping("www.google.de")
If @error = 0 Then
Else
If MsgBox(32 + 2, "Error", "Kein Internet verfügbar!") = 3 Then _exit()
EndIf
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
*** ***
*** Taskbar ***
*** ***
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
$Handle = WinGetHandle("[CLASS:Shell_TrayWnd]")
Dim $Pos[2]
$Pos[0] = @DesktopWidth -460
$Pos[1] = @DesktopHeight-190-WInGetPos($Handle)
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
*** ***
*** Programm ***
*** ***
****************************************************************************************
****************************************************************************************
****************************************************************************************
#ce
_GDIPlus_Startup()
Local $Save_Path = @ScriptDir & "\Backup\", $Source = IniRead(@ScriptDir & "\data\settings.ini", "version", "url", "Default"), $nBytes
$FILESIZE = InetGetSize($Source)
$aFile = StringSplit($Source, "/")
Local $dest = @ScriptDir & "\" & $aFile[$aFile[0]]
ConsoleWrite($dest & @CRLF)
Global Const $Groesen = StringSplit("KB|MB|GB|TB|?|", "|"),$nSize = InetGetSize($Source)
Global $IG, $TimerInit2, $File,$name,$FILESIZE, $TimerInit ,$Status
If ProcessExists("Speed Container.exe" & "Speed Downloader.exe") and MsgBox(0, "Error", "Bitte schließen Sie das Progamm bevor Sie das Update durchführen") Then _Exit()
If FileExists(@ScriptDir & "\data\backup\version.ini") Then InetGet("http://sirocool.si.funpic.de/autoit/Speed Downloader/version.ini", @ScriptDir & "\data\backup\version.ini")
#Region ### START Koda
$Form1 = GUICreate("Speed Container", 460, 150, $Pos[0], $Pos[1], $WS_POPUP)
Trayseticon(@ScriptDir & "\images\icon\1.ico")
Guiseticon(@ScriptDir & "\images\icon\1.ico")
TraySetToolTip("Speed Updater")
$Progress1 = _ProgressCreate(27, 79, 290, 23)
_ProgressSetColors($Progress1, 0x65b4fb, 0x2f83dc, 0xFFFFFF, 0xFFFFFF)
$Button1 = GUICtrlCreatePic(@ScriptDir & "\Images\Default\3_1.jpg", 326, 78, 109, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreatePic(@ScriptDir & "\Images\Default\4.jpg", 437, 5, 17, 18)
$Label1 = GUICtrlCreateLabel("Update Status", 36, 35, 85, 12)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Time:", 25, 60, 25, 12);Time
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Timestatus = GUICtrlCreateLabel("", 55, 60, 100, 12);Timestatus
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Prozent = GUICtrlCreateLabel("", 285, 60, 35, 12);Prozentanzeigen
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Speed:", 25, 110, 35, 12)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Speed_Status = GUICtrlCreateLabel("" & " kbit´s", 60, 110, 50, 12);speedstatus
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$sBytes = GUICtrlCreateLabel("", 220, 110, 80, 12)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Bytesgesammt = GUICtrlCreateLabel("", 280, 110, 120, 12)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePic(@ScriptDir & "\Images\Default\1_2.jpg", 9, 4, 120, 20);Logo & Name
GUICtrlCreatePic (@ScriptDir & "\Images\Default\1.jpg",0,0,460 ,30, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreatePic (@ScriptDir & "\Images\Default\2.jpg",0,30,460 ,120, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
GUICtrlCreateLabel("",0,0,1000,194,0,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Load = 0
$ProzOld = 0
$BG = 0
$KBpS = 0
$version = IniRead(@ScriptDir & "\data\setting.ini", "version", "ver", "Default");Aktuelle Versionsnummer muss immer angepasst werden
$newversion = IniRead(@ScriptDir & "\data\backup\version.ini", "version", "ver", "Default");Hier ist die Datei im Internet die, die neuste Versionummer enthält
$newversion = BinaryToString($newversion) ;Unwichtig, nur für das Programm notwenig
If $version <> $newversion Then ;Hier wird überprüft ob die Aktuelleste mit der neuesten Versionnummer nicht übereinstimmt
_update($Source,$aFile[$aFile[0]],$nSize)
IniWrite(@ScriptDir & "\data\settings.ini", "version", "ver", $newversion)
Else
If FileExists(@ScriptDir & "\data\backup\" & "/old_"& $aFile[$aFile[0]]) Then FileDelete(@ScriptDir & "\data\backup\" & "/old_"& $aFile[$aFile[0]]) ;Hier wird überprüft ob die Alte Datei Existiert wenn ja wird sie gelöscht.
EndIf
While 1
If $Load = 1 And TimerDiff($TimerInit2) > 1000 Then
_LoadStatus($IG)
$TimerInit2 = TimerInit()
EndIf
Switch GUIGetMsg()
Case -3
Exit
Case $Button1
If $Load = 0 Then
$Load = 1
GUICtrlSetImage($Button1, @ScriptDir & "\Images\Default\3_2.jpg")
Else
$Load = 0
GUICtrlSetImage($Button1, @ScriptDir & "\Images\Default\3_1.jpg")
EndIf
Case $Button2
_Exit()
EndSwitch
WEnd
FileDelete(@ScriptDir & "\data\backup\" & "old_"& $aFile[$aFile[0]])
FileDelete(@ScriptDir & "\data\backup\version.ini")
Func _update($conecting,$conectingname,$connectingsize)
$Msg = $Button1
If $Load = 0 Then
$Load = 1
If FileExists(@ScriptDir & "\data\backup\" & $conectingname) Then FileMove(@ScriptDir & "\data\backup\" & $conectingname, @ScriptDir & "\data\backup\" & "old_"& $conectingname) ; Wenn die Datei Existiert wird sie umbenannt.
GUICtrlSetData($Bytesgesammt, _FormatFileSize(($connectingsize)))
GUICtrlSetImage($Button1, @ScriptDir & "\Images\Default\3_2.jpg")
GUICtrlSetState($Button1, $GUI_Enable)
$IG = InetGet($conecting, @ScriptDir & "\data\backup\" & $conectingname, 0, 1)
$TimerInit2 = $TimerInit
Else
$Load = 0
GUICtrlSetImage($Button1, @ScriptDir & "\Images\Default\3_1.jpg")
GUICtrlSetState($Button1, $GUI_Disable)
$ArcFile = @ScriptDir & "\data\Backup\" & $conectingname & ".zip"
If @error Then Exit
$Output = @ScriptDir & "\data\Country\"
If @error Then Exit
_7ZIPExtract(0, $ArcFile, $Output, 0, 0, 1, 0, 0, 0, "*.zip")
EndIf
EndFunc
#cs
****************************************************************************************
****************************************************************************************
****************************************************************************************
******** ********
******** ********
******** Dies ist ein Button Over ********
******** Copyright: Jam00 (http://www.autoit.de) ********
******** ********
******** ********
******** 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
Func _LoadStatus($IG)
Local $TimerDiff, $Bytes, $Proz, $Time1
$TimerDiff = TimerDiff($TimerInit)
$Bytes = InetGetInfo($IG, 0)
GUICtrlSetData($sBytes , _FormatFileSize($Bytes)& " / ")
$Proz = $Bytes / $FILESIZE * 100
If Round($Proz, 0) <> Round($ProzOld, 0) Then
GUICtrlSetData($Prozent, Round($Proz, 0) & " %")
_ProgressSet($Progress1,Round($Proz, 0))
$ProzOld = $Proz
EndIf
If ($Bytes - $BG) / $TimerDiff > 0 Then
$KBpS = ($Bytes - $BG) / $TimerDiff
EndIf
If $TimerDiff > 10000 Then
$TimerInit = TimerInit()
$BG = $Bytes
EndIf
GUICtrlSetData($Speed_Status, Round($KBpS) & " kbit´s")
$Time1 = _SecToTime(Round((($FILESIZE - $Bytes) / 1024) / $KBpS, 0))
$TimeString = ""
If $Time1[0] > 0 Then $TimeString = $Time1[0] & "s " & $TimeString
If $Time1[1] > 0 Then $TimeString = $Time1[1] & "m " & $TimeString
If $Time1[2] > 0 Then $TimeString = $Time1[2] & "h " & $TimeString
If $Time1[3] > 0 Then $TimeString = $Time1[3] & "t " & $TimeString
GUICtrlSetData($Timestatus, $TimeString)
If InetGetInfo($IG, 2) Then
$Load = 0
;_test(GUICtrlRead ($Timestatus)*10000)
EndIf
EndFunc ;==>_LoadStatus
Func _SecToTime($Sec, $Flag = 0);Rückgabewert: $Array[Sekunden][Minuten][Stunden][Tage]
Local $Rechner, $1, $Rest
Local $Zeit[4] = [0, 0, 0, 0]
$Zeit[0] = $Sec
For $1 = 0 To 2
If $1 < 2 Then
$Rechner = 60
Else
$Rechner = 24
EndIf
If $Zeit[$1] > $Rechner - 1 Then
$Rest = Mod($Zeit[$1], $Rechner)
$Zeit[$1 + 1] = ($Zeit[$1] - $Rest) / $Rechner
$Zeit[$1] = $Rest
EndIf
Next
If $Flag = 1 Then
Local $sZeit, $State = 0
For $1 = 3 To 0 Step -1
If $Zeit[$1] > 0 Then
$State = 1
$sZeit &= $Zeit[$1] & ":"
ElseIf $State = 1 Then
$sZeit &= $Zeit[$1] & ":"
EndIf
Next
Return StringTrimRight($sZeit, 1)
EndIf
Return $Zeit
EndFunc ;==>_SecToTime
Func _FormatFileSize($sFunc_Size)
Local $i = 0
While $sFunc_Size > 1000
$sFunc_Size /= 1024
$i += 1
WEnd
If $i > 4 Then $i = 4
Return Round($sFunc_Size, 2) & " " & $Groesen[$i]
EndFunc ;==>_FormatFileSize
Func _test($sec)
If "0" <> $sec Then ;Hier wird überprüft ob die Aktuelleste mit der neuesten Versionnummer nicht übereinstimmt
Else
MsgBox(0,"", "Fertig")
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func _Exit()
InetGet("abort")
FileDelete(@ScriptDir & "\data\backup\" & "old_"& $aFile[$aFile[0]])
FileDelete(@ScriptDir & "\data\backup\version.ini")
Exit
EndFunc ;==> _exit
© Copyright
Sirocool
Jam00
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
;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
Hi leute wie mache ich das wenn ich die Combobox drücke auch die meldung kommt mit den Ländern.
Will nicht immer den Button drücken um die meldung zu erhalten.
Habe zwar ein Beispiel mit Login gesehn hier im Forum aber da blicke ich nicht ganz durch.
Werde auch noch weiter probieren mal sehn ob ich es schaffe aber bis jetzt schaffe ich es nicht.
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#include <GUIConstantsEx.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <inet.au3>
Dim $INI[1]
$INI[0] = @ScriptDir & "\data\icon.dll"
Local $StartLang = 'Deutsch',$aLanguage, $iLanguage
$Lang = "Germany|Englisch|Schwedische|Switzerland|France|Italienisch";
$aLanguage = StringSplit($Lang, '|')
For $i = 1 To $aLanguage[0]
If $StartLang = $aLanguage[$i] Then $iLanguage = $i - 1
Next
#Region ### START Koda GUI section ### Form=
$Test = GUICreate("Test", 368, 110, 192, 124)
$Combo1 = _GUICtrlComboBoxEx_Create($Test,"", 8, 40, 265, 25, $CBS_DROPDOWNLIST)
If FileExists($INI[0]) Then
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, $INI[0], 1, True)
_GUIImageList_AddIcon($hImage, $INI[0], 5, True)
_GUIImageList_AddIcon($hImage, $INI[0], 4, True)
_GUIImageList_AddIcon($hImage, $INI[0], 3, True)
_GUIImageList_AddIcon($hImage, $INI[0], 0, True)
_GUIImageList_AddIcon($hImage, $INI[0], 2, True)
_GUICtrlComboBoxEx_SetImageList($Combo1, $hImage)
EndIf
_GUICtrlComboBoxEx_SetItemHeight($Combo1, 0, 25)
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")
$Button1 = GUICtrlCreateButton("Button1", 280, 40, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
#cs
If Not _GUICtrlComboBoxEx_GetDroppedState($Combo1) Then
If _GUICtrlComboBoxEx_GetCurSel($Combo1) <> $iLanguage Then
$iLanguage = _GUICtrlComboBoxEx_GetCurSel($Combo1)
EndIf
EndIf
#ce
Case $Button1
$Laender = _GUICtrlComboBoxEx_GetCurSel($Combo1)
_GUICtrlComboBoxEx_GetItemText($Combo1,$Laender,$Laender)
MsgBox (0, "", $Laender)
EndSwitch
WEnd
Habe den Script entnohmmen so lange mich der admin von leex.me mich angeschrieben hat.
was ich machen darf zurzeit ist ein proxy programm was das in der reg ändern darf und ihr müsst dann selber entscheiden ob tv schauen oder nicht :-).
News vom 21.02.11
IP-LISTE
das liegt daran das der Https / Connect also die ip jetzt schon tot ist.
habe von einen anderen User was mit Wilmaa über Vcl Player bekommen was geht.
wer Intresse hat kann eine pn an mich schicken mit email schicke ich dann die rar.
Aufgaben des Programmes
1. Ihr braucht Adminrechte um etwas in der Registriy ändern zu dürfen.
2. Baut er die Seite https://autoit.de/www.leex.me im Browser von autoit auf wo ihr dann jederzeit andere Sender suchen könnt und auch anschauen könnt.
3. Wenn das Porgramm geschlossen wird bringt er die Registry wieder in seine Positionen also auf den Nullstand so zusagen mit diesen Befehlen
Somit bekommt ihr wieder eine Deutsche IP
Ps.: Werde noch ein Kleines Programm bringen wo wann sich noch selber ips eintragen kann aber das kommt etwas später soll ja dann auch gut aussehn :-).
Würde mich freuen wenn es mal etwas Kommentare geben würde ob das ganze bei euch auch läuft und was man vielleicht etwas besser machen könnte.
[Blockierte Grafik: http://sirocool.si.funpic.de/autoit/New%20Bitmap%20Image.jpg]
Code
Habe dieses Script vorerstmal selber entnohmmen so lange mich der admin von Leex.me nicht angeschrieben hat wenn er überhaupt zurrück schreibt .
habe auch erstmal noch die arry um zu sehn welche aus gelesen werden müssen. Und zwar kommt der 1 bei Zeile 3 & dann in einem abstand von 4, wie mach ich das jetzt das der mir das in
$ListView1_0 = GUICtrlCreateListViewItem( $b & "|"& "Scooter"& "|"& $aLinks[3], $ListView1)
$ListView1_0 = GUICtrlCreateListViewItem( $b & "|"& "Scooter"& "|"& $aLinks[7] , $ListView1)
runterzählt und mir die dann so anzeigt sind ja paar mehr als nur die 2
#include <IE.au3>
#include <Array.au3>
$oIE = _IECreate("http://de.megadownload.net/search/Scooter%20server%3Amegaupload.com/all.html",0,0);http://de.megadownload.net/download/mu/dl…dition-ger..rar
[/autoit] [autoit][/autoit] [autoit]$oLinks = _IELinkGetCollection($oIE)
Local $i = 0, $aLinks[@extended]
For $oLink In $oLinks
$aLinks[$i] = $oLink.href
$i += 1
Next
_ArrayDisplay($aLinks)
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 469, 228, 192, 124)
$ListView1 = GUICtrlCreateListView("NR|Titel|Upload Link", 8, 64, 450, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 250)
$ListView1_0 = GUICtrlCreateListViewItem( $b & "|"& "Scooter"& "|"& $aLinks[3], $ListView1)
$ListView1_0 = GUICtrlCreateListViewItem( $b & "|"& "Scooter"& "|"& $aLinks[7] , $ListView1)
$Input1 = GUICtrlCreateInput("Input1", 160, 24, 209, 21)
$Button1 = GUICtrlCreateButton("Suchen", 384, 24, 75, 25)
$Combo1 = GUICtrlCreateCombo("Combo1", 8, 24, 145, 25)
GUICtrlSetData(-1, "megadownload.net")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
schau mal hier in den forum ob du was findest was du suchst [Link entfernt]
Edit Oscar: Keine Links zu Botforen!
[Blockierte Grafik: http://silvesterbilder-neujahrsbilder.berlingrusskarten.de/neujahrsgruss1.gif]
Ich wünsche den ganzen Forum von Autoit einen guten Rutsch ins neue Jahr schonmal.
Und weiterhin viel Erfolg im neuen Jahr und alles was ihr euch vorgenommen habt.
habe das so gelöst bei mir im Security das dann die exe ansprinkt und du code eingene musst. Achtung ist nur ein Ausschnitt vom Programm selber.
Func _USB()
$USB = DriveGetDrive("REMOVABLE")
If NOT @error Then
For $i = 1 to $USB[0]
IniWrite($INI, "USB_Drives",$i, $USB[$i]&"\")
Next
EndIf
_USB_01()
EndFunc
Func _USB_01()
$3 = IniRead($INI,"USB_Drives","1","Default")
$var_3 = DriveStatus($3)
If GUICtrlRead($3) = "NOTREADY"then
CDTray($3, "Close")
$PH1 = GUICtrlRead($3, 1)
If $var_3 < "READY" Then
Else
;CDTray($1, "open")
Run(@ScriptDir & "\Security.exe")
exit
EndIf
EndIf
EndFunc
1. Frage wäre wie bekomme ich es hin mit den _FTP_ProgressDownload hin der soll später beim einlogen die daten vom user holen die da gespeichert sind, soll so eine art db werden für ein spiel was in planung ist (17 & 4 ). kommt später Spielgeld rein u.s.w
#include <FTPEx.au3>
$Server = "ftp.lima-city.de"
$Username = "******"
$Password = "*******"
$Dateilokal = @ScriptDir & "\" & $Username & ".txt"
$DateiaufServer = $Username & ".txt"
;~ Datei erstellen
If $Dateilokal = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
FileWrite($Dateilokal,"[Server]" & @CRLF & "FTP_Server=" & $Server)
FileWrite($Dateilokal,@CRLF &"[Username]" & @CRLF & "FTP_Name=" & "test")
FileWrite($Dateilokal,@CRLF &"[Password]" & @CRLF & "FTP_Passwort=" & "test")
;~ Zum Ftp verbinden
$ftpopen = _FTP_Open("ftp"); ziemlich egal was du als Parameter übergibst
$ftpconnect = _FTP_Connect($ftpopen, $Server, $Username, $Password); mit Verbindungsdaten zum FTP verbinden
;_FTP_ProgressDownload($ftpconnect,$Dateilokal,$DateiaufServer)
;~ Datei hochladen
_FTP_FilePut($ftpconnect, $Dateilokal, $DateiaufServer)
;$Test =_FTP_FileGetSize($ftpconnect, $DateiaufServer)
;MsgBox(16,"",$Test)
;_FTP_FileDelete($ftpconnect, $DateiaufServer)
;~ Verbindung beenden
_FTP_Close($ftpopen)
;Filedelete($Dateilokal)
[/autoit] [autoit][/autoit] [autoit][/autoit]musst du nur die zeile 163 ändern
TCPStartup()
$inet_conect = TCPNameToIP('www.icq.com')
TCPShutdown()
so geht es bei mir
ich weiss nicht ob du so was suchst aber hier mal 3 beispiele
Beispiel 1
#include <IE.au3>
#include <String.au3>
#include <Array.au3>
$oIE = _IECreate("<hier deine seite rein >")
_IELoadWait($oIE)
$oHtml = _IEBodyReadHtml($oIE)
$oLinks = _StringBetween($oHtml,'<a href="','"');hier kannst du ändern was du auslesen willst
_ArrayDisplay($oLinks)
Beispiel 2
#include <IE.au3>
#include <Array.au3>
$oIE = _IECreate("< hier wieder die seite rein machen >")
$oLinks = _IELinkGetCollection($oIE)
Local $i = 0, $aLinks[@extended]
For $oLink In $oLinks
$aLinks[$i] = $oLink.href ;wieder angeben von wo er auslesen soll
$i += 1
Next
_ArrayDisplay($aLinks)
Beispiel 3
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
; klappt komischerweise mit 'googEL.de' 
$oIE = _IECreate ("<Hier wieder deine seite >")
$hWnd = GUICreate("TEST", 500, 400)
[/autoit] [autoit][/autoit] [autoit]$label = GUICtrlCreateLabel("", 10, 20, 480, 300)
$button = GUICtrlCreateButton('Aktualisieren', 200, 340, 100, 25)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $button
Refresh($oIE)
EndSwitch
WEnd
Func Refresh($obj)
[/autoit] [autoit][/autoit] [autoit]$sText = _IEBodyReadText ($obj)
GUICtrlSetData($label, $sText)
EndFunc
[/autoit]
