呵呵~给大家看俺的第一个VC成果~~

vczh

画Sin Curve？
我的第一个程序可不是图像方面的。

Herris

其实这个东西是以前初学编程时(其实现在也还初学啊……)用QBASIC写过的~昨天随手就拿来用了~~~

vczh

我的QB忘得一干二净了。你怎么还记得住？你现在是搞VB的？

Herris

学校要教~我也没办法……不可能不学啊~
不过学了一点点VC后才发现~原来VB的Win32编程完全是误导…… [em10]

vczh

VB不是误导。
没有VB你肯定学C++没有你现在这么快！
a
a
a
a
a


ProgramaAutoP;

Procedurea自动灌水;
vara页号,帖号:Integer;
aaaa申请成功:Boolean;
aaaa论坛:T论坛;
Begin
aa论坛:=T论坛.Create;
aatry
aaaaFora页号:=0aToa论坛.论坛区数-1aDo
aaaaaaFora帖号:=0aToa论坛.论坛集[页号].帖数-1aDo
aaaaaaaa论坛.论坛集[页号].帖集[帖号].加帖('灌...。');
aaaaIfaMe.Is账号被封=TrueaThen
aaaaBegin
aaaaaa申请成功:=False;
aaaaaaRepeat
aaaaaaaa申请账号('名字','密码');
aaaaaaaa申请成功:=等待返回;
aaaaaaUntil(申请成功=True);
aaaaEnd;
aafinally
aaaa论坛.Free;
aaEnd;
End;aaaaaa

Begin
aa自动灌水;
End.aa

Herris

[em10]~也许吧~
但是编程思想上差太多了~我真的觉得对VC没有太大的帮助

vczh

那学Delphi吧。会好一点。
a
a
a
a
a


ProgramaAutoP;

Procedurea自动灌水;
vara页号,帖号:Integer;
aaaa申请成功:Boolean;
aaaa论坛:T论坛;
Begin
aa论坛:=T论坛.Create;
aatry
aaaaFora页号:=0aToa论坛.论坛区数-1aDo
aaaaaaFora帖号:=0aToa论坛.论坛集[页号].帖数-1aDo
aaaaaaaa论坛.论坛集[页号].帖集[帖号].加帖('灌...。');
aaaaIfaMe.Is账号被封=TrueaThen
aaaaBegin
aaaaaa申请成功:=False;
aaaaaaRepeat
aaaaaaaa申请账号('名字','密码');
aaaaaaaa申请成功:=等待返回;
aaaaaaUntil(申请成功=True);
aaaaEnd;
aafinally
aaaa论坛.Free;
aaEnd;
End;aaaaaa

Begin
aa自动灌水;
End.aa

coolvoldo

测试一下贴图