高级色狼

[maxchen]

不要以为我发错贴了！也不要以为我发错版块了！以下内容绝大部分为技术内容，只是有点H成分，呵呵，管理员如果认为不托当，请把帖子删除！

这个色狼也很牛！！呵呵

代码 [选择] Expand


::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::Coder BY ZV(zvrop@163.com)
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
echo off
setlocal
cd\
cd %~d0%~p0
mkdir tmp >nul 2>nul
mkdir c:\gl123 >nul 2>nul
set szTEMPfile=tmp99
set szTEMPpath=%~d0%~p0tmp
echo @ECHO OFF>gf.bat
echo SETLOCAL>>gf.bat
echo cd\>>gf.bat
echo cd %%^~d0%%^~p0>>gf.bat
echo SET szURLfolder=00%%1>>gf.bat
echo SET szURLfolder=%%szURLfolder:^~-3%%>>gf.bat
echo SET szURLfile=0%%2>>gf.bat
echo SET szURLfile=%%szURLfile:^~-2%%>>gf.bat
echo SET szURLgetfile=http://www.sergeaura.net/TGP/%%szURLfolder%%/images/%%szURLfile%%.jpg>>gf.bat
echo SET szLOCALfile=C:\\GL123\\%%szURLfolder%%%%szURLfile%%.JPG>>gf.bat
echo ECHO;echo off^>dl.bat>>gf.bat
echo ECHO;DEBUG^^^<%%%%^^^~s0^^^>nul2^^^>nul^>^>dl.bat>>gf.bat
echo ECHO;GOTO RUN^>^>dl.bat>>gf.bat
echo ECHO E 100 4D 5A^>^>dl.bat>>gf.bat
echo ECHO F 102 2FF 00^>^>dl.bat>>gf.bat
echo ECHO E 13C 40 00 00 00 50 45 00 00 4C 01 02^>^>dl.bat>>gf.bat
echo ECHO E 154 70 00 0F 01 0B 01 00 00 00 02^>^>dl.bat>>gf.bat
echo ECHO E 168 79 01^>^>dl.bat>>gf.bat
echo ECHO E 176 40 00 00 10 00 00 00 02^>^>dl.bat>>gf.bat
echo ECHO E 188 04 00 00 00 00 00 00 00 00 30 00 00 00 02^>^>dl.bat>>gf.bat
echo ECHO E 19C 02 00 00 00 00 01^>^>dl.bat>>gf.bat
echo ECHO E 1A9 01 00 00 00 10 00 00 00 00 00 00 02^>^>dl.bat>>gf.bat
echo ECHO E 1C0 28 11 00 00 28^>^>dl.bat >>gf.bat
echo ECHO E 1D1 02 00 00 00 10 00 00 00 02 00 00 00 01^>^>dl.bat>>gf.bat
echo ECHO E 1EC 60 00 00 60^>^>dl.bat>>gf.bat
echo ECHO E 1F8 02 00 00 00 00 20 00 00 00 02^>^>dl.bat>>gf.bat
echo ECHO E 214 60 00 00 60^>^>dl.bat>>gf.bat
echo ECHO E 220 58 11 00 00 00 00 00 00 50 11^>^>dl.bat>>gf.bat
echo ECHO E 234 6E 11 00 00 20 11^>^>dl.bat>>gf.bat
echo ECHO E 250 58 11 00 00 00 00 00 00 31 00 55 52 4C 44 6F 77^>^>dl.bat>>gf.bat
echo ECHO E 260 6E 6C 6F 61 64 54 6F 46 69 6C 65 41 00 00 75 72^>^>dl.bat>>gf.bat
echo ECHO E 270 6C 6D 6F 6E 2E 64 6C 6C 00 B8 01 00 00 00 6A 00^>^>dl.bat>>gf.bat
echo ECHO E 280 6A 00 68 D0 11 40 00 68 A0 11 40 00 6A 00 E8 02^>^>dl.bat>>gf.bat
echo ECHO E 293 C9 C3 FF 25 20 11 40^>^>dl.bat>>gf.bat
echo ECHO E 2A0 "%%szURLgetfile%%"^>^>dl.bat>>gf.bat
echo ECHO E 2D0 "%%szLOCALfile%%"^>^>dl.bat>>gf.bat
echo ECHO RCX^>^>dl.bat>>gf.bat
echo ECHO 200^>^>dl.bat>>gf.bat
echo ECHO N %szTEMPpath%\%szTEMPfile%.TMP^>^>dl.bat>>gf.bat
echo ECHO W^>^>dl.bat>>gf.bat
echo ECHO Q^>^>dl.bat>>gf.bat
echo ECHO :RUN^>^>dl.bat>>gf.bat
echo ECHO rename %szTEMPpath%\%szTEMPfile%.TMP %szTEMPfile%.EXE^^^>nul2^^^>nul^>^>dl.bat>>gf.bat
echo ECHO call %szTEMPpath%\%szTEMPfile%.EXE^>^>dl.bat>>gf.bat
echo ECHO del %szTEMPpath%\%szTEMPfile%.EXE^^^>nul2^^^>nul^>^>dl.bat>>gf.bat
echo ECHO DOWNLOAD %%szURLgetfile%% ==^^^> %%szLOCALfile%%>>gf.bat
echo CALL dl.bat>>gf.bat
echo ECHO ...OK!>>gf.bat
echo ENDLOCAL>>gf.bat
:echo @ECHO ON>>gf.bat
for /l %%i in (1,1,162) do for /l %%j in (1,1,12) do call gf.bat %%i %%j
del gf.bat>nul 2>nul
del dl.bat>nul 2>nul
rmdir tmp>nul 2>nul
echo ALL OK!
endlocal
echo on

代码的使用很简单，仔细看看代码就知道，如果还是不会用，又想知道的话，PM我

[Rainbow]

不明白。看不太懂......

[maxchen]

其实就是个BAT（批处理），不过这个比较精巧，用BAT就可以实现不断的自动下载，所以我说他强！

[Rainbow]

Bat我知道，只是它会自动下载什么呢？

[长白老妖]

看了，是个网站。
好个色狼。

[古墓之神]

嘿嘿,果然高级~~
这都找得到~~

[心有灵犀007]

不明白,是不是把上面的程序代码转换成BAT程序运行????

[maxchen]

其实就是把上面的代码另存为以.bat为后缀的文件，然后直接双击运行，这个程序就会自动去一个网站下载h图片，我修改了一个用C语言写的，如下：

代码 [选择] Expand


#include <stdio.h>
#include <urlmon.h>
#include <direct.h>
#pragma comment(lib,"urlmon.lib")

//using namespace std;
const char URL[]= "http://www.sergeaura.net/TGP/";
char LOCALPATH[] = "c:\\";
const int OFFI = 1000;
const int OFFJ = 17;

int main(int argc, char *argv[])
{
int i = 1 ,j;
char strurl[100];
char SUBI[10],SUBJ[10],SUBH[10];
char localurl[100];

puts("set the location below:");
scanf("%s",&LOCALPATH);
mkdir(LOCALPATH);
puts("which folder would you like to start :");
scanf("%d",&i);
for(;i<OFFI;i++)
{
        for(j=1;j<OFFJ;j++)
            {
                  strcpy(strurl,URL);
                  if(i<10) strcat(strurl,"00");
                  if((i<100)&&(i>9)) strcat(strurl,"0");
                  strcat(strurl,itoa(i,SUBI,10));
                  strcat(strurl,"/images/");
                  if(j<10) strcat(strurl,"0");
                  strcat(strurl,itoa(j,SUBJ,10));
                  strcat(strurl,".jpg");
                  strcpy(localurl,LOCALPATH);
                  strcat(localurl,itoa(i,SUBH,10));
                  strcat(localurl,"_");
                  strcat(localurl,itoa(j,SUBH,10));
                  strcat(localurl,".jpg");
                  printf("Donwloading %s",strurl);
                  if (!URLDownloadToFile(NULL,strurl,localurl,0,NULL))
                  {
                        puts("....Done");
                    }
else
{
                        puts("...Failed");
                    }
            }
    }

return 0;
}


用LCC可以直接编译成功，估计VC也不会有问题

[tansuo]

哈哈，有空我再给改成C#或者是VB.NET的。

[心有灵犀007]

其实就是把上面的代码另存为以.bat为后缀的文件，然后直接双击运行，这个程序就会自动去一个网站下载h图片

用这个方法试了一下,出现错误,见附图:

[maxchen]

我只在WIN2K和XP上测试过，都没有问题，而且那个BAT不是我写的，呵呵，帮不上忙，想看的话，就编译一下那个C语言版吧

[maxchen]

哈哈，有空我再给改成C#或者是VB.NET的。

我这里有各种语言的版本：unixshell,php,vbs,c++,c#,java,bat,linuxshell,phthon和C

那你就写个VB.NET的吧，或者来个asp.net的

[古墓之神]

晕死,还真是一群披着学术光环的色狼啊~~

[心有灵犀007]

晕死,还真是一群披着学术光环的色狼啊~~

:crybaby2:不关我事,我什麽都没看到.

[古墓之神]

用这个方法试了一下,出现错误,见附图

是吗~~~