中国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[i].x,dot[i].y,dot[j].x,dot[j].y);}
}

int main(void)
{
  int i,j,whi=0,edotn=0;
  DotInf snk[NDOT];
  DotInf edot[10][NDOT];
   for (i=0;i<9;i++) for (j=0;j<NDOT-1;j++) {edot[i][j].x=edot[i][j].y=0;}

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

  for (i=0;i<NDOT;i++) {
   snk[i].a=snk[i].b=snk[i].x=snk[i].y=200;
   edot[edotn][i].x=edot[edotn][i].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[edotn][i].x!=0) delta(edot[edotn],0);
    delta(snk,2);

    for (i=0;i<NDOT;i++){
      if ((snk[i].x==snk[i].a)&&(snk[i].y==snk[i].b)){
         snk[i].a=rand()%600+1;
         snk[i].b=rand()%400+20;
      }
    }
    for (i=0;i<NDOT;i++){
    if (whi>i) continue;
       if (snk[i].x>snk[i].a)
         snk[i].x--;
       else if (snk[i].x<snk[i].a)
         snk[i].x++;
       else
       {
           if (snk[i].y>snk[i].b)
             snk[i].y--;
           else if (snk[i].y<snk[i].b)
             snk[i].y++;
       }

    edot[edotn][i].x=snk[i].x;
    edot[edotn][i].y=snk[i].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 [ "$REPLY" == "q" ]; 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[10];
    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[][10]={"color","sleep","point"};
    for (i=0;i<fo;i++) {
      if (strcmp(str[i],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 : [0-99]
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

#!/bin/bash
for ((fold=350;fold<=380;fold++))
do
   if [ ! -e $fold ]
   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