Hallo
Jo, danke Levithan..
Hat es schon jemand ausprobiert? =) Würde mich mal interessieren ob es überall Läuft.
Mfg Spider
Hallo
Jo, danke Levithan..
Hat es schon jemand ausprobiert? =) Würde mich mal interessieren ob es überall Läuft.
Mfg Spider
Hallo
Da ich oft bei Rapidshare was lade (Natürlich legal :comp1: ) und keine Lust hab immer > 30minuten zu warten, bzw Geld zu zahlen damit ich ein Premium Acc kriege, starte ich mein Router neu. Früher indem ich den Router 5 Sekunden vom Netz genommen hatte, bis ich dann entdeckt habe das man das auch im Router machen kann (Verbindung Trennen). Also hab ich mich dran gemacht, und dies versucht zu Automatisieren, was mir auch gelang
DIESES PROGRAMM IST AUSSCHLIEßLICH FÜR NETGEAR ROUTER GEDACHT! AUSERDEM IST DAS PROGRAMM NOCH BETA!
Habe es mit Netgear dg834B Netgear dg834GB Netgear DGB111PNB ausprobiert.
Das Skript brauch ein paar zusatzdateien (Bilder) die in der Angehängten ZIP sind.
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=server_connection.ico
#AutoIt3Wrapper_outfile=Router ReConnect.exe
#AutoIt3Wrapper_Compression=3
#AutoIt3Wrapper_Res_Comment=Router ReConnect ist nur für Netgear Router!
#AutoIt3Wrapper_Res_Description=Trennt und wiederverbindet Netgear Router
#AutoIt3Wrapper_Res_Fileversion=0.9.5.0
#AutoIt3Wrapper_Res_LegalCopyright=GtaSpider
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;AutoIt Versions Check
If Number(StringReplace(@AutoItVersion, ".", "")) < 3281 Then _ErrorMsg ("Das Skript funktioniert möglicherweise nicht mit Ihrer AutoIt Version!" & @CRLF & "Wollen Sie es trozdem starten?", 0, 52)
;Includes
#include <A3LGDIPlus.au3>
#include <A3LScreenCap.au3>
#include <inet.au3>
#include <ie.au3>
#include <string.au3>
;FileInstalls
DirCreate(@TempDir&"\Rout~")
FileInstall("AeroTemplate.png",@TempDir&"\Rout~\AeroTemplate.png",1)
FileInstall("master07_background.jpg",@TempDir&"\Rout~\master07_background.jpg",1)
FileInstall("grey.gif",@TempDir&"\Rout~\grey.gif",1)
;Globals
Global Const $AC_SRC_ALPHA = 1
Global Const $ULW_ALPHA = 2
Global Const $ProgramVersion = "0.9.5beta"
Global $old_string = "", $runthis = ""
Global $launchDir = @DesktopDir
Global $Username = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Username")
Global $Userpassword = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword"), "RoUReC3%'§^'", 2)
Global $RouterAdress = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress")
;Windows Version Check
IF @OSVersion <> "WIN_XP" Then _ErrorMsg("Das Skript funktioniert möglicherweise nicht mit Ihrem Betriebssystem!"&@CRLF&"Das Program wurde für Windows XP erstellt, Sie haben Windows "&Stringupper(StringTrimLeft(@OSVersion,4))&"."&@CRLF&"Wollen Sie es trozdem starten?",0,52)
;GDI Startup
_GDIP_Startup ()
$pngSrc = @TempDir&"\Rout~\AeroTemplate.png"
If Not FileExists($pngSrc) Then _ErrorMsg ("Die Datei " & $pngSrc & " Existiert nicht, Programm wird beendet", 1, 16)
$hImage = _GDIP_ImageLoadFromFile ($pngSrc)
$width = _GDIP_ImageGetWidth ($hImage)
$height = _GDIP_ImageGetHeight ($hImage)
;Falls RegDaten nicht vorhanden, erstellen.
If $Username = '' Or $Userpassword = '' Or $RouterAdress = '' Then
$guiUserdata = GUICreate("Router ReConnect v" & $ProgramVersion & " - By GtaSpider", 295, 183, 207, 141, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
GUICtrlCreatePic(@TempDir&"\Rout~\master07_background.jpg", -16, -40, 534, 400)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Router Adresse:", 160, 16, 80, 15)
GUICtrlSetBkColor(-1, -2)
$inpRouterAdress = GUICtrlCreateInput("www.Routerlogin.com", 160, 32, 121, 21)
GUICtrlCreateLabel("Username:", 160, 56, 55, 15)
GUICtrlSetBkColor(-1, -2)
$inpUsername = GUICtrlCreateInput("admin", 160, 72, 121, 21)
GUICtrlCreateLabel("Passwort:", 160, 96, 50, 15)
GUICtrlSetBkColor(-1, -2)
$inpUserpassword = GUICtrlCreateInput("", 160, 112, 121, 21, $ES_PASSWORD)
$butNext = GUICtrlCreateButton("&Weiter", 160, 138, 121, 25, $BS_DEFPUSHBUTTON)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
CAse $butNext
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Username","REG_SZ",GUICtrlRead($inpUsername))
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword","REG_SZ",_StringEncrypt(1,GUICtrlRead($inpUserpassword), "RoUReC3%'§^'", 2))
RegWrite("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress","REG_SZ",StringLower(StringReplace(GUICtrlRead($inpRouterAdress),"http:\\","")))
ExitLoop
EndSwitch
WEnd
GUIDelete()
Global $Username = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Username")
Global $Userpassword = _StringEncrypt(0, RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Userpassword"), "RoUReC3%'§^'", 2)
Global $RouterAdress = RegRead("HKEY_CURRENT_USER\Software\Router ReConnect", "Router Adress")
EndIf
;PNG Gui
$GUI = GUICreate("Router ReConnect", $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
SetBitmap ($GUI, $hImage, 0)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()
$hBMP = _ScreenCap_Capture (@TempDir & "\Rout~\wg.jpg", 0, 0, @DesktopWidth, @DesktopHeight, False)
WinSetOnTop($GUI, "", 1)
For $i = 0 To 255 Step 10
SetBitmap ($GUI, $hImage, $i)
Next
;Control GUI
$controlGui = GUICreate($ProgramVersion, $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $GUI)
GUICtrlCreatePic(@TempDir&"\Rout~\grey.gif", 0, 0, $width, $height)
GUICtrlSetState(-1, $GUI_DISABLE)
$dellab = GUICtrlCreateLabel("Please Wait...", 140, 10, 400, 40)
GUICtrlSetFont(-1, 20, 800)
GUICtrlSetBkColor(-1, -2)
GUISetState()
SplashImageOn("", @TempDir & "\Rout~\wg.jpg", @DesktopWidth, @DesktopHeight, 0, 0, 1)
WinSetOnTop($controlGui, "", 1)
Global Const $MomentaryIP = _GetIP()
;Zum Router wird Verbunden
$oIE = _IECreate($RouterAdress, 0, 0, 0)
WinWait("Verbindung zu "&$RouterAdress&" herstellen", "", 7)
ControlSetText("Verbindung zu "&$RouterAdress&" herstellen", "", 1003, $Username)
ControlSetText("Verbindung zu "&$RouterAdress&" herstellen", "", 1005, $Userpassword)
ControlClick("Verbindung zu "&$RouterAdress&" herstellen", "", 1)
SplashOff()
GUISetState(@SW_HIDE)
[/autoit] [autoit][/autoit] [autoit]GUICtrlDelete($dellab)
GUICtrlCreateLabel("Momentary IP:", 50, 20, 120)
GUICtrlSetFont(-1, 12, 800)
GUICtrlSetBkColor(-1, -2)
GUICtrlCreateLabel("New IP:", 103, 45, 70)
GUICtrlSetFont(-1, 12, 800)
GUICtrlSetBkColor(-1, -2)
GUICtrlCreateInput($MomentaryIP, 170, 20, 150, 22, $ES_READONLY)
GUICtrlSetFont(-1, 12, 800)
$newipinp = GUICtrlCreateInput("xxx.xxx.xxx.xxx", 170, 45, 150, 22, $ES_READONLY)
GUICtrlSetFont(-1, 12, 800)
GUICtrlCreateButton("By GtaSpider", 50, 70, 270, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$prog = GUICtrlCreateProgress(50, 97, 650, 17)
$Edit = GUICtrlCreateEdit("", 330, 20, 370, 75)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($prog, 10)
GUICtrlSetData($Edit, "Zum Router Verbunden" & @CRLF, 1)
_IELoadWait($oIE);Warten bis Routerseite komplett geladen
GUICtrlSetData($prog, 15)
GUICtrlSetData($Edit, "Routerseite komplett geladen" & @CRLF, 1)
GUICtrlSetData($prog, 20)
GUICtrlSetData($Edit, "Versuche Router zu trennen" & @CRLF, 1)
_IENavigate($oIE, "http://"&$RouterAdress&"/setup.cgi?todo=disconnect");Trennt Router
GUICtrlSetData($prog, 30)
GUICtrlSetData($Edit, "Der Router wurde getrennt!" & @CRLF, 1)
For $i = 30 To 90 Step 5
$ping = Ping("www.google.de", 100);Pingt google an, bis kein error
$ping = @error
If Not $ping Then ExitLoop
GUICtrlSetData($prog, $i)
GUICtrlSetData($Edit, "Ping Versuch gescheitert, Errorcode: " & $ping & " " & $i & "%" & @CRLF, 1)
Next
If $i = 90 And $ping Then
While $ping
Ping("www.google.de", 100)
$ping = @error
GUICtrlSetData($Edit, "Ping Versuch gescheitert, Errorcode: " & $ping & "%: " & Random(90, 99, 1) & @CRLF, 1)
WEnd
EndIf
GUICtrlSetData($prog, 90)
GUICtrlSetData($Edit, "Ping Versuch erfolgreich" & @CRLF, 1)
GUICtrlSetData($Edit, "Lese neue IP ein" & @CRLF, 1)
$newip = -1
While $newip = -1
$newip = _GetIP();Lese neue IP ein bis $newip <> -1
WEnd
GUICtrlSetData($newipinp, $newip)
If $newip <> $MomentaryIP Then
GUICtrlSetData($prog, 100)
GUICtrlSetData($Edit, "Router wurde erfolgreich ReConnected!" & @CRLF, 1)
GUICtrlSetData($Edit, " By GtaSpider" & @CRLF, 1)
GUICtrlSetBkColor($Edit, 0x00ff00)
Else
GUICtrlSetData($prog, 0)
GUICtrlSetData($Edit, "Router wurde NICHT erfolgreich ReConnected!" & @CRLF, 1)
GUICtrlSetData($Edit, "Neustart des Programmes erfolgt in 5" & @CRLF, 1)
GUICtrlSetBkColor($Edit, 0xff0000)
For $i = 4 To 0 Step - 1
Sleep(1000)
GUICtrlSetData($Edit, "Neustart des Programmes erfolgt in " & $i & @CRLF, 1)
Next
RunWait('"' & @ComSpec & '" /c "' & @ScriptFullPath & '"', '', @SW_HIDE)
Exit
EndIf
Sleep(5000)
[/autoit] [autoit][/autoit] [autoit]GUIDelete($controlGui)
For $i = 255 To 0 Step - 5
SetBitmap ($GUI, $hImage, $i)
Next
;Funktionen
Func OnAutoItExit ()
If IsDeclared("hImage") Then _API_DeleteObject ($hImage)
_GDIP_Shutdown ()
If IsDeclared("oIE") Then _IEQuit($oIE)
FileDelete(@TempDir & "\scratch.bat")
$sCmdFile = 'ping -n 3 127.0.0.1' & @CRLF _
& 'del /F /S /Q "'&@TempDir&'\Rout~" > nul' & @CRLF _
& 'del ' & @TempDir & '\scratch.bat'
FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
Run(@TempDir & "\scratch.bat", @TempDir)
EndFunc ;==>OnAutoItExit
Func _ErrorMsg ($sText, $iExit = 1, $iMsgOpt = 48)
If MsgBox($iMsgOpt, "Warnung - Router ReConnect v" & $ProgramVersion, $sText) = 7 Or $iExit = 1 Then Exit
EndFunc ;==>_ErrorMsg
Func WM_NCHITTEST ($hWnd, $iMsg, $iwParam, $ilParam)
If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTEST
Func SetBitmap ($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _API_GetDC (0)
$hMemDC = _API_CreateCompatibleDC ($hScrDC)
$hBitmap = _GDIP_BitmapCreateHBITMAPFromBitmap ($hImage)
$hOld = _API_SelectObject ($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", _GDIP_ImageGetWidth ($hImage))
DllStructSetData($tSize, "Y", _GDIP_ImageGetHeight ($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_API_UpdateLayeredWindow ($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_API_ReleaseDC (0, $hScrDC)
_API_SelectObject ($hMemDC, $hOld)
_API_DeleteObject ($hBitmap)
_API_DeleteDC ($hMemDC)
EndFunc ;==>SetBitmap
Mfg Spider
Vorherige Downloads: 25 (Engl + Deut AutoIt Forum)
Hallo
Soll das ein Keylogger werden? Falls ja wird dir hier wahrscheinlich/hoffentlich niemand helfen!
Mfg Spider
Hallo
Zu deiner ersten Frage:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$Gui1 = GUICreate("AForm1", 121, 39, 193, 115)
$Button1 = GUICtrlCreateButton("Next", 8, 8, 107, 25, 0)
$Gui2 = GUICreate("AForm2", 121, 39, 193, 115)
$Button2 = GUICtrlCreateButton("Back", 8, 8, 107, 25, 0)
GUISetState(@SW_SHOW,$Gui1)
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE,$Gui1)
GUISetState(@SW_SHOW,$Gui2)
Case $Button2
GUISetState(@SW_HIDE,$Gui2)
GUISetState(@SW_SHOW,$Gui1)
EndSwitch
WEnd
Hätte aber auch suche nach z.B. Installation oder sowas gereicht...
Zu deiner 2. Frage:
Hab mal was für dich geschrieben, meinst du sowas?
#include <file.au3>
#include <GUIConstants.au3>
#include <GuiListBox.au3>
Global $listtxt
$filelist = _FileListToArray(@DesktopDir, "*.lnk")
GUICreate("", 200, 200)
For $i = 1 To $filelist[0]
$listtxt &= $filelist[$i] & "|"
Next
$filelist = _FileListToArray(@DesktopCommonDir, "*.lnk")
For $i = 1 To $filelist[0]
$listtxt &= $filelist[$i] & "|"
Next
$listtxt = StringTrimRight($listtxt, 1)
ConsoleWrite($listtxt & @CRLF)
$list = GUICtrlCreateList("", 10, 10, 200, 160)
GUICtrlSetData(-1, $listtxt)
$start = GUICtrlCreateButton("Starten..", 10, 170, 200, 20)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
$file = _GUICtrlListBox_GetText ($list, _GUICtrlListBox_GetCurSel ($list))
If FileExists(@DesktopDir & "\" & $file) Then
$file = @DesktopDir & "\" & $file
Else
$file = @DesktopCommonDir & "\" & $file
EndIf
$file = FileGetShortcut($file)
Run($file[0], $file[1])
EndSwitch
WEnd
Zu Edit: Wie meinst du das?
Mfg Spider
Hallo
Warum auf Über Google klicken wollen? Direkter Link wäre doch einfach: http://www.google.de/intl/de/about.html
Wenn du trotzdem unbedingt daraufklicken willst probier es mal anstatt "Über Google" mit "%DCber%20Google". Kann es grad nicht ausprobieren hab noch nicht die FF.au3 auf meinem PC (Vorgestern XP neu daraufinstalliert ;-))
Hallo
Jo, dass es nicht geht weiß ich auch^^ Warum war nur die Frage
Jetzt bin ich wider 0,003% schlauer =)
Mfg Spider
Hallo
Was heißt maximum? Das Physikalische Maximum, d.h. es geht 100%ig nicht weiter, oder das Maximum für einen normalen Menschen?
Mfg Spider
Hallo
Was meinst du mit "AutoIt Verabschieded sich"? Gibt es eine error Meldung?
Mfg Spider
Hallo
Also dateien Inlcuden geht mit "Compile Script with Options" im Kontextmenü eine au3 datei wenn du SciTe installiert hast unter dem Tab "Res Add Files".
Oder was willst du
Mfg Spider
Hallo
So: _FFClickLink($Socket, $vSearch = "Über Google", $sMode = "text") ist das gleiche wie:
_FFClickLink(True, False, False) weil er so nur checkt ob $vSearch = "Über Google"). Variablen musst du in einer Extra zeile deklarieren!
z.B. so:
[autoit]#region Includes
#include "FF.au3"
#endregion Includes
dim $Socket
dim $vSearch = "Über Google"
dim $sMode = "text"
_FFStart("http://www.google.de/")
sleep(3000)
_FFClickLink($Socket, $vSearch, $sMode)
exit
Mfg Spider
Hallo
So langsam wird es Gruselig.^^ In diesem Forum gibt es jetzt 3 Max' die 15 sind (Dadrunter bin ich^^)
Ich kenn Limburg =) Da wohnte früher mal meine Oma^^
Naja.. Herzlich :willkommen: und viel Spaß hier im Forum
Mfg Spider
Hallo
Existieren die Dateien?:
c:\Programme\AutoIt3\au3check.dat
c:\Programme\AutoIt3\Au3Check.exe
Falls nicht lade dir die ZIP im Anhang und kopier die Dateien die sich dadrin befinden in deinen AutoIt Ordner( Standard c:\Programme\AutoIt3 )
Mfg Spider
Hallo
BugFix : http://www.autoitscript.com/forum/index.php?showtopic=13890
Mit dem Com Object "MsComm" ist das kein Problem Kannst du sowohl ansteuern als auch auslesen
Mfg Spider
Hallo
Findest du alles HIER
Kopiere den Beitrag mal, in der Hoffnung das kein Projekt hintersteckt
Mfg Spider
Edit:
@Admins: Argh kann keine Beiträge verschieben, mal wieder...
Hallo
Beiträge lesen... Du musst alles genauso machen wie ich es hier beschrieben hab!: PaulIA's Auto3Lib Installieren
Mfg Spider
Hallo
Die Hilfe ist standartmäßig unter c:\Programme\AutoIt3\AutoIt.chm
Schöner wäre natürlich FTP. Da kannst du dir HIER ein Kostenlosen Account einrichten und dann mit den FTP Befehlen daten raufladen. Dies ist aber leider etwas Komplizierter, am besten einfach mal die Beispiele angucken.
Mfg Spider
Hallo
Kommt drauf an. Meinst du sowas wie Rapidshare oder meinst du dein eiegenen FTP Server?
Falls rapidshare guck dir mal dieses Beispiel an (Aus der AutoIt hilfe)
#include <IE.au3>
[/autoit] [autoit][/autoit] [autoit]$oIE = _IE_Example("form")
[/autoit] [autoit][/autoit] [autoit]; Hide the browser window to demonstrate sending text to invisible window
_IEAction($oIE, "invisible")
$oForm = _IEFormGetObjByName($oIE, "ExampleForm")
$oInputFile = _IEFormElementGetObjByName($oForm, "fileExample")
; Assign input focus to the field and then send the text string
_IEAction($oInputFile, "focus")
$hIE = _IEPropertyGet($oIE, "hwnd")
ControlSend($hIE, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "C:\myfile.txt")
MsgBox(0, "Success", "Value set to C:\myfile.txt")
_IEAction($oIE, "visible")
Falls du FTP Server meinst dann guck dir das hier mal an:
FTP.au3
Mfg Spider
Hallo
RTFM!! Die Hilfe hilft, dafür is sie ja da...
#include <Guiconstants.au3>
[/autoit] [autoit][/autoit] [autoit]$MainGUI = GUICreate("ST", 200, 300, 0, 0)
$MainGUIpos = WinGetPos("ST", "")
$Tab1 = GUICtrlCreateTab(3, 3, 194, 294)
$Tab2 = GUICtrlCreateTabItem("ba")
GUICtrlCreateButton("adf", 10, 200, 70, 30)
GUICtrlCreateTabitem ("");Beendet den TabItem
$Tab3 = GUICtrlCreateTabItem("bla")
GUICtrlCreateButton("lol", 10, 200, 70, 30)
GUICtrlCreateTabitem ("");Beendet den TabItem
GUISetState(@SW_SHOW)
Do
$msgbx = GUIGetMsg()
;~ Select
;~ Case ;....
;~ EndSelect
Until $msgbx = $GUI_EVENT_CLOSE
Mfg Spider
Hallo
Zunot mal dein Router Reconnecten bzw 10 Sekunden vom Netz nehmen, das hilft (Neue IP...)
Mfg Spider
Hallo
Scheinbar nicht! Den das was peetehebee und ortho-graf geschlidert haben, dass ist wichtig in einem Forum. Denn nicht nur die Fragen lassen ein Forum "leben", sondern auch die Antworten. Und Antworten gibt es nur dann, wenn die Frage sauber und deutlich formuliert ist.
Sonst nochmal kurz zu Ortho-graf: Vielen dank für dein Text, ich hoffe das viele ihn lesen werden. Aber wenn wir hier jeden Beitrag auf Rechtschreibfehler korrigieren würden, würden ca 70% unserer Beiträge aus Korrigieren sein, und das ist ja auch nicht Sinn der Sachen
Mfg Spider