[S] Hilfe

[SIEG.FRIED]

Hallo,
ich suche ein Source. Und zwar:
Man soll in eine .txt oder in eine Textbox eine Adresse einfügen.
Wenn man dann auf OK öffnet er den Browser und öffnet diesen Link.
Dannach schließt er den Browser, ändert die IP und öffnet es wieder.
So geht das bis man es beendet.
Das alles sollte im Hintergrund laufen.

Währe echt nice wenn mir jmd. das Scripten könnte bzw. den Source Code schickt.

LG

[Ludder231]

 Spoiler

PHP Code:

#include<IE.au3>

while 1
shellexecute(www.deinLink.de")
processclose("Iexplorer.exe")
ipchange()
wend

func ipchange()
#include <Inet.au3>

AutoItSetOption("TrayIconHide", 1)

$IP = _GetIP()

Dim $i, $base, $key, $name, $lan

If not FileExists(@ScriptDir & "\IPChanger.exe") Then
    MsgBox(0, "Error", "File donenst exist: 'IPChanger.exe'", 4000)
Exit
EndIf

If not @OSVersion = "WIN_XP" Then
    MsgBox(0, "Error", "Du musst WIndows XP haben!", 3000)
Exit
EndIf

If not IsAdmin() Then
    MsgBox(0, "Error", "youre not an admin, you will get the admin status for this app now!", 3000)
    #RequireAdmin
Exit
EndIf

$base = "HKLM\SYSTEM\CurrentControlSet\Control\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}"
While 1
    $i += 1
    $key = RegEnumKey($base, $i)
    If @error Then
        ExitLoop
    $name = RegRead($base & "\" & $key & "\Connection", "Name")
    If StringLeft($key, 1) = "{" Then 
        $lan &=  $name & "|"
    endif
    endif
WEnd
$lan = StringSplit(StringTrimRight($lan, 1), '|')

For $x = 1 To $lan[0]
    Run(@ComSpec & " /c " & 'netsh interface set interface name="' & $lan[$x] &'" newname="ONO"', "", @SW_HIDE)
Next

ProgressOn("Modded By Ludder231@EPVP", "DNS Cache", "")
Run(@ComSpec & " /c " & 'ipconfig /release', "", @SW_HIDE)
ProgressSet(25, "", "ipconfig releasing...")
RunWait(@ComSpec & " /c " & 'netsh interface ip set address name="ONO" source=static 189.1.1.1 255.255.255.0 189.1.1.1 1', "", @SW_HIDE)
ProgressSet(50, "", "")
RunWait(@ComSpec & " /c " & 'netsh interface ip set address name="ONO" source=dhcp', "", @SW_HIDE)
ProgressSet(75, "", "IP renewing...")
Run(@ComSpec & " /c " & 'ipconfig /renew', "", @SW_HIDE)
Sleep(3000)
$IP2 = _GetIP()
If $IP = $IP2 Then
    MsgBox(0, "Error", "You got an error, sorry!",4000 )
    MsgBox(0, "Error", "Sript will run again!", 3000)
    Run(@ScriptDir & "\IpChanger.exe")
Else
ProgressSet(100, "", "Sucessfully")
Sleep (3000)
ProgressOff()
EndIf
Exit
endfunc 


P.S: Das mit dem Ip changer hab ich im internet gefunden, habs bloß bisschen verändert und teilweise ins englische übersetzt da es auf italienisch war

[lolkop]

ich gehe mal davon aus das der threadersteller die externe ip geändert haben wollte, da die interne für websites garnicht warnehmbar ist.

da heute fast jeder einen router nutzt, ist das so ohne weiteres aber nicht möglich.

je nach modell müsste man per telnet befehle zum reconnect senden.

[Ludder231]

Originally Posted by lolkop

ich gehe mal davon aus das der threadersteller die externe ip geändert haben wollte, da die interne für websites garnicht warnehmbar ist.

da heute fast jeder einen router nutzt, ist das so ohne weiteres aber nicht möglich.

je nach modell müsste man per telnet befehle zum reconnect senden.

Es sollte erstmal ein beispiel sein und einen anfang bieten habs nur eben schnell geschrieben...

[SIEG.FRIED]

Originally Posted by lolkop

ich gehe mal davon aus das der threadersteller die externe ip geändert haben wollte, da die interne für websites garnicht warnehmbar ist.

da heute fast jeder einen router nutzt, ist das so ohne weiteres aber nicht möglich.

je nach modell müsste man per telnet befehle zum reconnect senden.

Ich meine das, wie bei den Youtube Bots. Der Youtube Bot von fx ändert auch die IP.

LG

[BlackHybrid]

Ich glaub bei fx war es auch so dass eine exe oder bat benötigt wurde.
Allerdings sieht diese ja bei fast jedem Router anders aus. Und bei Fritzbox gibt es ne exe.
Bei mir ist es so, dass sich meine IP schon seit nem halben Jahr nicht mehr geändert hat.

[Adroxxx]