שינוי IP

@echo off echo www.whatismyip.com 80>Script.txt echo SEND "GET /automation/n09230945.asp HTTP/1.1\mHost: www.whatismyip.com\mConnection: Close\m\m">>Script.txt echo WAIT "">>Script.txt TST10.exe /m /r:Script.txt /o:output.txt findstr "^[0-9]" output.txt del output.txt del Script.txt

הנה הגרסה המלאה של זה ... לכל המעוניין.

test.cmd

@echo off

del /a /s /f /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

if exist ck1 (
call "getip" /ck2
FOR /F "eol=; tokens=1,99* delims=, " %%i in (ck1) do Set ck1=%%i
FOR /F "eol=; tokens=1,99* delims=, " %%i in (ck2) do Set ck2=%%i
if "%ck1%"=="%ck2%" (echo.) else (del /q ck1 ck2 date1 date2 *.tmp)

) else (
del /q ck1 ck2 date1 date2 *.tmp
call "getip" /ck1)

if exist date1 (
date /t >date2
FOR /F "eol=; tokens=1,99* delims=, " %%i in (date1) do Set dd1=%%i %%j
FOR /F "eol=; tokens=1,99* delims=, " %%i in (date2) do Set dd2=%%i %%j
if "%dd1%"=="%dd2%" (echo.) else (del /q ck1 ck2 date1 date2 *.tmp)

) else (date /t >date1)

:1
if not exist 1.tmp (
echo ok >1.tmp
goto f1
) else (
goto 2
)

:2
if not exist 2.tmp (
echo ok >2.tmp
goto f1
) else (
goto 3
)

:3
if not exist 3.tmp (
echo ok >3.tmp
goto f1
) else (
goto 4
)

:4
if not exist 4.tmp (
echo ok >4.tmp
goto f1
) else (
goto 5
)

:5
del /q ck1 ck2 date1 date2 *.tmp
"(E) USDLeecher"
"Auto-Reconnector"
goto end

:f1
"(E) USDLeecher"
goto end

:end

getip.cmd

@echo off

if "%1"=="/ck1" (goto a)
if "%1"=="/ck2" (goto b)
goto end

:a
tskill /a cscript

echo var request = new ActiveXObject("Msxml2.XMLHTTP"); >"%temp%\ip.js"
echo var notyetready = 1; >>"%temp%\ip.js"
echo. >>"%temp%\ip.js"
echo request.onreadystatechange=function() >>"%temp%\ip.js"
echo { >>"%temp%\ip.js"
echo if(request.readyState==4) >>"%temp%\ip.js"
echo { >>"%temp%\ip.js"
echo WScript.Echo(request.responseText); >>"%temp%\ip.js"
echo notyetready = 0; >>"%temp%\ip.js"
echo } >>"%temp%\ip.js"
echo } >>"%temp%\ip.js"
echo. >>"%temp%\ip.js"
echo request.open( "GET", "http://whatismyip.com/automation/n09230945.asp", true ); >>"%temp%\ip.js"
echo request.send(null); >>"%temp%\ip.js"
echo. >>"%temp%\ip.js"
echo while( notyetready ) >>"%temp%\ip.js"
echo { >>"%temp%\ip.js"
echo WScript.Sleep( 100 ); >>"%temp%\ip.js"
echo } >>"%temp%\ip.js"
cscript "%temp%\ip.js" //nologo getip.js >.\ck1
goto end

:b
tskill /a cscript

echo var request = new ActiveXObject("Msxml2.XMLHTTP"); >"%temp%\ip.js"
echo var notyetready = 1; >>"%temp%\ip.js"
echo. >>"%temp%\ip.js"
echo request.onreadystatechange=function() >>"%temp%\ip.js"
echo { >>"%temp%\ip.js"
echo if(request.readyState==4) >>"%temp%\ip.js"
echo { >>"%temp%\ip.js"
echo WScript.Echo(request.responseText); >>"%temp%\ip.js"
echo notyetready = 0; >>"%temp%\ip.js"
echo } >>"%temp%\ip.js"
echo } >>"%temp%\ip.js"
echo. >>"%temp%\ip.js"
echo request.open( "GET", "http://whatismyip.com/automation/n09230945.asp", true ); >>"%temp%\ip.js"
echo request.send(null); >>"%temp%\ip.js"
echo. >>"%temp%\ip.js"
echo while( notyetready ) >>"%temp%\ip.js"
echo { >>"%temp%\ip.js"
echo WScript.Sleep( 100 ); >>"%temp%\ip.js"
echo } >>"%temp%\ip.js"
cscript "%temp%\ip.js" //nologo getip.js >.\ck2
goto end

:end

אבל עדיין הוא עושה לי בעיות עם השורות המסומנות ,,,, מישהו ייודע למה ?

אפשרויות משלוח הודעות

אתה לא יכול לפתוח אשכולות חדשים

אתה לא יכול להגיב לאשכולות

אתה לא יכול לצרף קבצים

אתה לא יכול לערוך את ההודעות שלך

קוד vB פעיל

סמיילים פעיל

קוד [IMG] פעיל

קוד HTML כבוי

כלי אשכול	חפש באשכול זה
הצג גירסת הדפסה שלח דף זה ב E-Mail	חפש באשכול זה: חיפוש מתקדם
מצבי תצוגה	דרג אשכול זה
עבור למצב לינארי מצב כלאיים עבור למצב משורשר	דרג אשכול זה:

הדף נוצר ב 0.06 שניות עם 10 שאילתות
צור קשר - Fresh - למעלה