如果有的话,请给我EM [email protected]
解决方案 »
- 网页采集
- 手机串口应用MSComm ,请高手帮忙看看这段程序社么意思
- 昨天问了一个关于在单机上练习WINSOCK的问题,解答里有句话看不太懂。
- 关于窗口显示的问题,大家帮帮忙啊!!!!!
- 怎么获得ADODB.RECORDSET的字段值(急)
- trim函数的怪问题,咨询各位
- 请教一条select语句:)
- 请教高手如何做ico图标?
- 关于TAPI:求教大侠如何用VB调用TAPI?
- 怎样使程序自动暂停一会儿,然后又运行
- (特急)在win2000下vb6怎么才能得到任务管理器中某个应用程序进程的句柄?
- 我的vb程序生成了.ocx文件,请问怎样注册该组件,怎样得到该组件的classid,使其在页面中得以访问?
这个使用coding可是不行的。
随便去那个学校找一个不就行了吗
MM又来,又可爱
比蒙怪兽够酷吧!!!
就行
,IVXVYIBttt+::+IVVMMMMMMRR:‘‘
,YYVYItMYti+i++:X+Rt:tXWRMR,
.YRiIYRMViitVXRWRYMI++++itMM..
.Y+,.,X::,,,YMMMMMMMMRVItXMti
:X+:,X:,. .,iiIRMWMMMBBRMMBY.
tR+:I:i:+Y:IitYVYMMMMMMMMRi.
.+RXt:,::.::XXIBMMMMMMMMM+:
,RRXitY+,.::RWMMMMMMMMt.
VYI:::,..:tVMMMMMMBY+.
.VBBW:::::,i.MMMMMBi:.
.tWRRVi:::.X:VMMMMMMY.
,+i+:,XYtt+:,i:,MMMBR:
...VV..:..:.tt::++:+,RMYMV.
:M:::..:,.:,,,.+t+++Ytt.,+:
tRt:,.:,.:,:.:+.,:++tit,
:tXt:,:,:.:.,,+,:+YRY,
:++:::.,:.:.::+:iMi
,Ri:::,:::::::+Ii
,+:Xii:,,::I:tit,.
:BBt,:+::,::i+.
:BWXX::::::iX.
:BWVIi++t+:V+
WBXtItii+iWI.
:MWIYIti+iVRY,
RBXVYItiiIYXWI,
:MRWWVYttttIIXWt.
.XMBRRXIti++itIXW,
.BMBBRVIi+::+ttXX.
,MMBRXYti:::+tIW:
tMMRWYti+++ittXV
+MRVYti+++ittWI
.VMWVtiiiiiitIR,
.XBBWVttttttttXRv
.,WBRBXVtttttttIWt
:RWXWBXYtttttttYR:
.iRWVIiBWYIttttttYW,
.tWVYti:WRVIttittIVV .:,,
tWVIi++:XRVIIttttIXY ..:YYtYi:tittV,
tXYti+++tWRVYttittYWIiIYYVItt:iXW+....
:WIt+++iXRBBVYItitIYXXYti+iIYt++:IMRi:.
.:Xti+:+tRWt:BVYItitIYWVIIIYXXWXVXYt+i+IV:
.tYi+::IWI:::BVVItitIXBRVIt:::::::tIVXRiXt
:Viii++i:itIXBXVttitVW, tBIX
.XIiXIttIVRBRBIItttIRX :VX
.,tXXWWWVi+. RXXItiYRV ..
,BWYi+IRX
tBYiitWB,
.WVtiiIRI
VWtiiiIB,
,BIiiiiWt
.BViiiiYV
XXtii+YV
iRiii+YY
:Btii+XI
Wtii+R:
XY+t+B.
YX+tYR.
tX+iWV
iXi+RI
tYiIXX
,XtiIXRt.
:BIVYRWIV
+RYXXWiYR.
iWIVYtXMV
tBYItRtM
XBWttX:B:
YYBXXYR:,R:
REM QQ自动聊天 Dim i As Integer
Dim myQQ As New QQ
Const my帐号 = "4563919"
Const myPWD = Entry("**********")
Const myPhone=Entry("131********") myQQ.帐号 = my帐号
myQQ.PWD = myPWD
myQQ.Phone=myPhone
myQQ.Open
If myQQ.在线名单.Count = 0 Then
myQQ.AutoAdd myQQ.AutoSearch(Earth, , , 女).Result
End If
Do While (1)
For Each i In myQQ.在线名单
myQQ.AutoSendMsg (myQQ.在线名单(i))
If myQQ.radio = True Then
myQQ.自动回复 (Rnd() * 4)
End If
DoEvents
Next i
If 网络不通 And 实在无法登录 Then Exit Do
Loop
Set myQQ = Nothing
End Sub
{
if( boy.有房() AND boy.有车() )
{
boy.Set(Nothing);
return girl.嫁给(boy);
}
if( girl.愿意等() )
{
while(!(boy.赚钱 > 100,000 AND girl.感情 > 8 ) )
{
for( day=1; day <=365; day++)
{
if( day == 情人节 )
if( boy.GiveGirl(玫瑰) )
girl.感情++;
else
girl.感情--;
if( day == girl.生日)
if( boy.GiveGirl(玫瑰) )
girl.感情++;
else
girl.感情--;
boy.拼命赚钱();
}
}
if( boy.有房() AND boy.有车() )
{
boy.Set(Nothing);
return girl.嫁给(boy);
}
年龄++;
girl.感情--;
}
return girl.goto( another_boy);
}
{
if( boy.有房() AND boy.有车() )
{
boy.Set(Nothing);
return girl.嫁给(boy);
}
if( girl.愿意等() )
{
while(!(boy.赚钱 > 100,000 AND girl.感情 > 8 ) )
{
for( day=1; day <=365; day++)
{
if( day == 情人节 )
if( boy.GiveGirl(玫瑰) )
girl.感情++;
else
girl.感情--;
if( day == girl.生日)
if( boy.GiveGirl(玫瑰) )
girl.感情++;
else
girl.感情--;
boy.拼命赚钱();
}
}
if( boy.有房() AND boy.有车() )
{
boy.Set(Nothing);
return girl.嫁给(boy);
}
年龄++;
girl.感情--;
}
return girl.goto( another_boy);
}
---------------------------------
Const Girls(∞) as Girl
for i to ∞
Me.幸福=Love(Me,Girls(i))
next
---------------------------------
爽!!
我只能打手枪,查点把计算机弄坏把程序给挂拉
你们以后别学我
给我介绍个把呵呵
[email protected]
On error GoTo ErrExit Function
msgbox Err..Description &"无奈!"
呵呵~~~~~~~~~~~~~
希望成功!!
呵呵!大家不找更好,不然没有人照顾呀!
有了MM 的有又覺得特別輕松自在,特別是對於我們的這些
Coding Funner 來說,更是如此。
不過我建議要是哪位Coding Funner能Code 出:
Dim i as ingeter
Const want =我想要MM
If i to want then
來也來也來也也!!
那該有多好呀
myemail:[email protected]
关注ing······
我给你们。
或者了解程序员的MM也行啊!但好难找.楼上的,介绍的什么MM啊?