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
