中国DOS联盟

#include <Conio.h>

#include <graphics.h>

#include <stdlib.h>

#define closegr closegraph

#define NDOT 3





typedef struct

{

   int a,b,x,y;

} DotInf;





void initgr(void) /* BGI初始化 */

{

  int gd = DETECT, gm = 0;

  registerbgidriver(EGAVGA_driver);

  initgraph(&gd, &gm, "");

}



void delta(DotInf dot,int c)

{

   int i,j;

   setcolor(c);

     for (i=0;i<NDOT;i++)

     for (j=i+1;j<NDOT;j++)

     {line(dot.x,dot.y,dot.x,dot.y);}

}



int main(void)

{

  int i,j,whi=0,edotn=0;

  DotInf snk;

  DotInf edot;

   for (i=0;i<9;i++) for (j=0;j<NDOT-1;j++) {edot.x=edot.y=0;}



  initgr(); /* BGI初始化 */



  for (i=0;i<NDOT;i++) {

   snk.a=snk.b=snk.x=snk.y=200;

   edot.x=edot.y=200;

  }

  randomize();

  while (!kbhit())

  {

    if (edotn<9) edotn++; else edotn=0;

    if (whi<NDOT) whi++; else whi=0;

    for (i=0;i<400;i++) delay(15);

    if (edot.x!=0) delta(edot,0);

    delta(snk,2);



    for (i=0;i<NDOT;i++){

      if ((snk.x==snk.a)&&(snk.y==snk.b)){

         snk.a=rand()%600+1;

         snk.b=rand()%400+20;

      }

    }

    for (i=0;i<NDOT;i++){

    if (whi>i) continue;

       if (snk.x>snk.a)

         snk.x--;

       else if (snk.x<snk.a)

         snk.x++;

       else

       {

           if (snk.y>snk.b)

             snk.y--;

           else if (snk.y<snk.b)

             snk.y++;

       }



    edot.x=snk.x;

    edot.y=snk.y;



    }





  }



  getch();

  closegr(); /* 恢复TEXT屏幕模式 */

  return 0;

}

@echo off

setlocal enabledelayedexpansion

mode con cols=25 lines=5

title %date%

set "str=xxxxxxxx"

:a

set t=%time:~0,8%

call :next

ping -n 3 127.1>nul

set "t=        "

call :next

goto :a



   :next

    for /l %%a in (0,1,7) do (set num%%a=%%a)

    set /a aa=8

    :aa

     set /a rand=%random%%%aa,aa-=1

     set /a x=num%rand%,xb=x+1

     set str=!str:~0,%x%!!t:~%x%,1!!str:~%xb%!

     set num%rand%=!num%aa%!

     ping -n 1 127.1>nul

     cls

     echo,   %str%

    if %aa% gtr 0 (goto :aa)

   goto :eof

@echo off

:a

set "inp="

set /p inp="input a number: "

set /a act=2,end=inp/2,inp*=10,the500=1,the001=1

:lp

 set /a x=inp/act,xx=inp%%act,xxx=act%%2

 if defined the%x:~-1%%xx%%xxx% (call :func %x:~-1%)

 if %act% lss %end% (set /a act+=1 &goto :lp)

pause &goto :a



:func

set /a a=(x-%1)/10-(act-1)/2,b=(x+%1)/10+(act-1)/2

if %a% lss 0 (set /a end=0 &goto :eof)

for /l %%a in (%a%,1,%b%) do set /p= %%a<nul

echo,&echo, &goto :eof

@echo off

:a

set /p inp="input a number: "

set /a act=2,end=inp/2,inp*=10,the500=1,the001=1

:lp

set /a x=inp/act,xx=inp%%act,xxx=act%%2

if defined the%x:~-1%%xx%%xxx% (call :func %x:~-1%)

if %act% lss %end% (set /a act+=1 &goto :lp)

pause &set "inp=" &goto :a



:func

set /a a=(x-%1)/10-(act-1)/2,b=(x+%1)/10+(act-1)/2

for /l %%a in (%a%,1,%b%) do set /p= %%a<nul

echo,&echo, &goto :eof

@echo off

set /a inp=0,the500=1,the001=1

:a

set /a inp+=1,act=2,end=inp/2,inp*=10,have=0

 :lp

  set /a x=inp/act,xx=inp%%act,xxx=act%%2

  if defined the%x:~-1%%xx%%xxx% (set /a inp/=10 &goto :a)

  if %act% lss %end% (set /a act+=1 &goto :lp)

set /a inp/=10

echo,%inp%

if %inp% lss 1000 goto :a

pause

set wsx=createobject("wscript.shell")

if wscript.arguments.count = 0 then

  wsx.run "cmd /c cscript " &wscript.scriptname & " 1 &pause>nul"

  wscript.quit

end if



checkfile="test1.vbs"

argu=""

set start=wsx.exec("cscript " &checkfile &argu)

set errinfo=start.stderr

set echo=wscript.stdout



 x=errinfo.readline



if x="" then

 echo.writeline "No error information."

else

 str=""

 echo.writeline ""

 t1=split(x,",")

 tt1=split(t1(0),"(")

 tt2=split(t1(1),")")

 y=tt1(1) : x=tt2(0)

 for i = 2 to x

   str=str & " "

 next

 echo.writeline "Filename: " & tt1(0)

 echo.writeline "ErrInfo : " & tt2(1)

 echo.writeline "(Lines = " &y &" , cols =" &x & ")"

 echo.writeline str & "↓"

 

 set readx=createobject("scripting.filesystemobject").opentextfile(checkfile,1)

 for i = 2 to y

   readx.readline

 next

 echo.writeline readx.readline

 if readx.atendofstream then

    echo.writeline "Check Info: End of line."

 else

    for i = 1 to 4

      if readx.atendofstream = false then 

         echo.writeline readx.readline

      end if

    next

 end if

 read.xclose

end if



echo.write vbcrlf &"Press any key to continue..."

echo.close

wscript.quit

#!/bin/bash



while true

do

  g++ -o wasdq -lglut wasdq.c

  ./wasdq

  echo "Press any key to continue"

  read -s -n1 REPLY

  read -t0.1 -n9

done

#!/bin/bash



while true

do

  g++ -o wasdq -lglut wasdq.c

  ./wasdq

  echo "Press any key to continue"

  read -s -n1 REPLY

  read -t0.1 -n9 other

  if ; then exit ;fi

done

@echo off

rem code by 523066680@cn-dos.net

setlocal enabledelayedexpansion

set source=%~dp0

set dest=d:\烧录文件更新区



rem 源路径可以是自身路径，考虑到输入和%~dp0都可能出现末尾有\的情况，

rem 增加了判断及处理



if "%source:~-1%"=="\" (set source=%source:~0,-1%)

if "%dest:~-1%"=="\" (set dest=%dest:~0,-1%)



if not exist "%source%\" (

   echo 源不存在，按任意键退出

   pause>nul

   exit

)



echo 请确认: 源目录 %source%

echo 备份到 %dest%

if not exist "%dest%\" (

  echo 作为备份的目录%dest%  不存在，将尝试建立。

  (md "%dest%")||(

    echo 目标不能建立，可能是目标磁盘不存在，按任意键退出。

    pause>nul

    exit

  )

  goto :justcopy

)



type nul>DelFile.txt

type nul>DelFold.txt



echo _

echo 按任意键开始搜索+清理 "%dest%"中可能多出的文件或子文件夹

pause>nul

echo _



for /f "tokens=*" %%a in ('dir /a /s /b "%dest%"') do (

  set pathname=%%a

  set pathname=!pathname:%dest%\=!

  if exist "%%a" ( 

      if not exist %source%\!pathname! (

            if exist "%%a\" (

                 rd /s /q "%%a"

                 echo Remove directory : %%a>>DelFold.txt

            ) else (

                 del /f /s /a /q "%%a">>DelFile.txt

            )

      )

  )

)

echo 本次清理生成日志 DelFold.txt DelFile.txt

type "DelFold.txt" "Delfile.txt"



:justcopy

echo _

echo 按任意键继续开始XCOPY...

pause>nul

echo _

  if exist cut.txt (

    xcopy /s /d /c /h /exclude:cut.txt  "%source%" "%dest%"

  ) else (

    xcopy /s /d /c /h "%source%" "%dest%"

  )

echo 按任意键退出

pause>nul

exit

@echo off

setlocal enabledelayedexpansion

::为了减少判断+名字编号部分整齐(统一两位编号)，文件个数不能大于99呢，即指定了01-99

::初步验证

if "%~1"=="" (

  echo 您没有拖入文件到我身上，于是第一个参数为空，按任意键拜拜~

  pause>nul

  exit

) else (

  if exist "%~1" (

    echo 拖放文件所在文件夹 "%~dp1"

    echo _

    set /p "inp=批量重命名之前，请指定名字前缀:"

    set /a n=1

    set "nx=000!n!"

    set "xformat=%~x1"

    set "xpath=%~dp1"

  ) else (echo 有参数但不对头，拜拜 &pause>nul &exit)

)



::如果%~1非空，且是存在的，才会到达这里

:main

if not "%~1"=="" (

   if exist "%~1" (

      echo 执行的操作: ren "%~nx1" "!inp!!n!%~x1%#"

      ren "%~1" "!inp!!nx:~-2!%~x1%#"

      set /a n+=1

      set nx=000!n!

   ) else (echo "%~1" is not exist)

   shift /1

   goto :main

) else (

   echo 现在还原格式 ren "%xpath%*%xformat%#" "*%xformat%"

   ren "%xpath%*%xformat%#" "*%xformat%"

   pause

   exit

)

/* Directscript  Reader , code by 523066680, 20100522 */



#include <stdio.h>

#include <GL/glut.h>

#include <stdlib.h>



#define xpix 500

#define ypix 500



int winid;

float deepa=-1.0,deepb=1.0;



FILE *openx;







void display(void)

{

   static int clear=0;

   if (clear==0) { glClear(GL_COLOR_BUFFER_BIT); clear=1; }

   glutSwapBuffers();

}





void reshape(int wx,int wy)

{

   glViewport(0,0,wx,wy);

   glMatrixMode(GL_PROJECTION);

   glLoadIdentity();

   glOrtho(0.0,xpix,0.0,ypix,1.0,-1.0);

   glMatrixMode(GL_MODELVIEW);

}



void hitkey(unsigned char key,int mousex,int mousey)

{

    switch(key) {

      case 'q':

         glutDestroyWindow(winid);

         exit(0);

         break;

    }

}



void init(void)

{

   glClearColor(0.0,0.0,0.0,0.0);

   glPointSize(10);

   if ((openx=fopen("./a.x","r"))==NULL) {

       printf("File not exist !");

       exit(0); 

   }



}





int main(int argc,char *argv)

{

     void readfile(void);

/*CreateGraphWindow*/ 

     glutInit(&argc,argv);

     glutInitDisplayMode(GLUT_DOUBLE|GLUT_RGBA);

     glutInitWindowPosition(0,0);

     glutInitWindowSize(xpix,ypix);

     winid=glutCreateWindow("dict");

     init();

     glutReshapeFunc(reshape);

     glutKeyboardFunc(hitkey);

     glutDisplayFunc(display);

     glutIdleFunc(readfile);

     glutMainLoop();



     return 0;

}



void readfile(void)

{

    int code;

    enum command {color,sleep,point} cmd;

    float a,b,c;

    char str;

    int apology(char *tmpstr);

        fscanf(openx,"%s ",str);

        if (!feof(openx)) {

          code=apology(str);

          switch (code) {

          case color :

            printf("read color : ");

            fscanf(openx,"%f,%f,%f",&a,&b,&c);

            printf("%f %f %f\n",a,b,c);

            a=(int)a%100/100.0; b=(int)b%100/100.0; c=(int)c%100/100.0;

            glColor3f(a,b,c);

            glutPostRedisplay();

            break;

          case sleep :

             printf("sleep!\n");

             fscanf(openx,"%f",&a);

             _sleep((int)(600 * a));

             break;

          case point :

             fscanf(openx,"%f,%f,%f",&a,&b,&c);

             if (c<deepa || c>deepb) {printf("ERR : z=%f , out of your window\n",c); }

             glBegin(GL_POINTS);

              glVertex3f(a,b,c);

             glEnd(); 

             glutPostRedisplay();

             printf("vertex3f: %f %f %f\n",a,b,c);

             break;

          default :

             printf("No this command\n");

             break;

          }

        } //else {usleep(600000.0);printf("end of text stream\n");}

}



int apology(char *tmpstr)

{

    int i,fo=3;

    char str={"color","sleep","point"};

    for (i=0;i<fo;i++) {

      if (strcmp(str,tmpstr)==0) {break;}

    }

    return i;

}

@echo off

set dict=project1.exe



type nul>a.x



set /a n=0

:a

  set /a x=(%random% %%20) * 11,y=(%random% %%20) *11 ,z=0

  set /a a=%random% %%100,b=%random% %%100,c=%random% %%100

  echo color %a%,%b%,%c%  >>a.x

  echo point %x%,%y%,%z%  >>a.x

  echo sleep 0.1  >>a.x

if %n% lss 80 (set /a n+=1 &goto a)

echo 在图形窗口按q 可退出

start %dict%

pause

exit

@echo off

::::::::::::::::::::::::::::::::::::::::::::::::::

:: 临时记事,code by 523066680@cn-dos.net

::

:: 参数: add 记事内容         添加记事内容到记事列表 

:: 参数: del 编号1 编号2 .... 删除指定编号的记事

:: 参数为空                   直接读取记事文本

::::::::::::::::::::::::::::::::::::::::::::::::::

setlocal enabledelayedexpansion

set notebook=notebook.x

set arg_del=del

set arg_add=add

set arg_=type



if not exist "%notebook%" (

   echo %notebook% 不存在，将建立

   type nul>>notebook.x

   exit /b

)



if not defined arg_%1 (

   echo 指令 %1 不存在

   exit /b

) else (

   if "%1"=="" (goto :func_)

)



:read_it

::如果参数不为空就来到这里，增加项目编号和删除项目，都要先读取文本信息

::text format: $number $date $note , range of number : 

 set /a note_n=0

 for /f "tokens=1,2,*" %%a in ('type %notebook%') do (

   set note_info_#%%a=%%b %%c

   set /a note_n+=1

 )

 ::然后才跳转到功能块

 goto :func_%1





:func_

  type %notebook%

  exit /b



:func_del

  set /a x=-1

  if "%2"=="" (echo arg2 = NULL &exit /b)

  if not defined note_info_#%2 (echo no this item. &exit /b)

  ::假设删除一个以上项目，参数以空格的方式隔开，以总参数为字符串，用于判断

  for /f "tokens=1,*" %%a in ("%*") do (set note_items=%%b)

  ::像10这样的，删除的是0,单纯替换0以后也会变化，后面判断将进行删除，所以是危险的，增加判断因素 

  set note_items=#%note_items: =#%#

  echo,>%notebook%

  for /f "tokens=2,* delims==#" %%a in ('set note_info_#') do (

    if "!note_items:#%%a#=!"=="!note_items!" (

       set /a x+=1

       set xnum=  !x!

       set xnum=!xnum:~-2!

       echo !xnum! %%b>>%notebook%

    ) else (

       echo 删除项 - %%a %%b

    )

  )

  echo %notebook% 重新排列 , 现状 :

  type %notebook% 

  exit /b

:func_add

   if "%2"=="" (echo 附加信息为空 &exit /b)

   set xnum=  %note_n%

   set xnum=!xnum:~-2!

   set strnow=%*

   ::::cut string - "add "

   set strnow=%strnow:~4%

   (echo %xnum% %date:~0,10% %strnow%)>>%notebook%

   echo %notebook% 现状 :

   type %notebook%

   exit /b

c:\test>note add 这是个测试项
notebook.x 现状 :

0 2010-06-08 快递代收货款未到
1 2010-06-08 物料未清点
2 2010-06-09 制作一份供应商地址电话信息表
3 2010-06-09 这是个测试项

c:\test>note del 1 2
删除项 - 1 2010-06-08 物料未清点
删除项 - 2 2010-06-09 制作一份供应商地址电话信息表
notebook.x 重新排列 , 现状 :

0 2010-06-08 快递代收货款未到
1 2010-06-09 这是个测试项

c:\test>

#!/bin/bash

for ((fold=350;fold<=380;fold++))

do

   if  

   then

	mkdir $fold

   fi

   cd ./$fold

   wget --no-clobber http://178.manmankan.com/BLEACH/$fold/{001..025}.jpg

   cd ..

done

echo end

read -n1

@echo off

setlocal enabledelayedexpansion

set name=naruto

for /l %%x in (420,1,500) do (

  if not exist %name%_%%x (md %name%_%%x)

  cd %name%_%%x

  for /l %%a in (1,1,25) do (

    set num=000%%a

    set num=!num:~-3!

    wget -nc http://140.manmankan.com/naruto/%%x/!num!.jpg

  )

  cd ..

)

@echo off

setlocal enabledelayedexpansion 



for /l %%i in (420,1,500) do (

 type nul>na_%%i.html

 set /a left=%%i-1,right=%%i+1

 echo ^<a href="na_!left!.html"^> 上一页 ^</a^> >>na_%%i.html

 echo ^<a href="na_!right!.html"^> 下一页 ^</a^> ^<br^> >>na_%%i.html

 for /l %%j in (1,1,25) do (

   set num=000%%j

   set num=!num:~-3!

   (

   echo ^<img src="naruto_%%i\!num!.jpg" /^>

   echo ^<br^>

   echo -----------------------------------------------------

   echo ^</br^>

   )>>na_%%i.html

 )

 echo ^<a href="na_!left!.html"^> 上一页 ^</a^> >>na_%%i.html

 echo ^<br^> ^<a href="na_!right!.html"^> 下一页 ^</a^> >>na_%%i.html

 echo %%i

)

pause

exit

@echo off

set /a x=1

:main

 wget -T 8 -t 1 主页_和谐/List/class_61_%x%.Html

if %x% lss 10 (set /a x+=1 &goto :main)

@echo off

setlocal enabledelayedexpansion

set /a i=1

:main

echo class_61_%i%

for /f "tokens=*" %%a in ('type class_61_%i%.html ^|find /i "span class"') do (

 set str=%%a

 set str=!str:*/html/=!

 for /f "tokens=1 delims=." %%x in ("!str!") do (

      if not exist %%x (call downer.bat %%x)

 )

)

if %i% lss 10 (set /a i+=1 &goto :main)

@echo off

setlocal enabledelayedexpansion

set src=http://主页_被我和谐了/html/

set act=%1



:main

wget -T 5 -t 1 -nc %src%%act%.html

if %errorlevel% neq 0 (goto :eof)

if not exist %act% (mkdir %act%) else (goto :eof)

set /a i=0

cd %act%

for /f "tokens=2 delims= " %%a in ('type ..\%act%.html ^| find /i "img src"') do (

  set /a i+=1,p=i %% 3

  set str=%%a

  set str=!str:*http=!

  set str=!str:"=!

  set name=000!i!

  set name=!name:~-3!

  echo !name!

  if !p! equ 0 (

    wget -T 8 -t 1 -O !name!.jpg http!str!

    if !errorlevel! neq 0 (del !name!.jpg)

  ) else (

    start /min ..\geter.bat %cd% !name!.jpg http!str!

  )

)

cd ..

@echo off

echo %1 %2 %3

cd %1

wget -T 8 -nc -t 1 -O %2 %3

if %errorlevel% neq 0 (del %2)

exit

::::::::::::::::::::::::::::::::::::::::::::::::::

:: code by 523066680@163.com

:: 从F盘开始，找出存在isme.x的磁盘 Then

:: 读取isme.x内的相关目录名，并将当前目录更新备份到那里

:: 因为我的移动硬盘盘符时而变动，所以才写了一个根据标记文件寻找备份目的地的。

:: 可能会有多个，所以find /i "目标信息"，以匹配上正确的路径

:: 例isme.x内容 Files\me 表示终点为当前磁盘的files\me目录

::::::::::::::::::::::::::::::::::::::::::::::::::

@echo off

setlocal enabledelayedexpansion

set source=%~dp0

::寻在isme.x所在磁盘，找到就读取目标路径

for %%a in (f g h i j k l m n o p q r s t u v w x y z) do (

 if exist %%a:\isme.x (

     for /f "tokens=*" %%s in ('type %%a:\isme.x ^|find /i "me"') do (

       set dest=%%s

       set dest=%%a:\!dest!

     )

 )

)



if defined dest (goto :act) else (echo NOT FOUND &pause &exit)



:act

if "%source:~-1%"=="\" (set source=%source:~0,-1%)

if "%dest:~-1%"=="\" (set dest=%dest:~0,-1%)



if not exist "%dest%\" (

  echo 作为备份的目录%dest%  不存在，将尝试建立。

  (md "%dest%")||(

    echo 出错了...

    pause>nul

    exit

  )

  goto :justcopy

)



echo 正搜索+清理 "%dest%"中可能多出的文件或子文件夹

for /f "tokens=*" %%a in ('dir /a /s /b "%dest%"') do (

  set pathname=%%a

  set pathname=!pathname:%dest%\=!

  if exist "%%a" ( 

      if not exist %source%\!pathname! (

            if exist "%%a\" (

                 tree %%a

                 rd /s /q "%%a"

            ) else (

                 del /f /a /q "%%a"

            )

      )

  )

)



:justcopy

 echo xcopying

 if exist cut.txt (

   xcopy /f /s /d /c /h /y /exclude:cut.txt  "%source%" "%dest%"

 ) else (

   xcopy /f /s /d /c /h /y "%source%" "%dest%"

 )

 echo 按任意键退出

 pause>nul

 exit