各位大神帮帮忙用VB编一个表白程序,最好能带点惊喜的
大概是这样运行程序之后自动弹出一个窗口两个选项例如是或者不是选择是的话就弹出几张照片选择不是的话就电脑自动关机开机之后还是会运行这个程序小白一个大神帮帮忙,谢啦!...
大概是这样 运行程序之后自动弹出一个窗口 两个选项 例如 是 或者不是 选择是的话就弹出几张照片 选择不是的话就电脑自动关机 开机之后还是会运行这个程序
小白一个大神帮帮忙,谢啦! 展开
小白一个大神帮帮忙,谢啦! 展开
展开全部
这个题 实话说没有难度,只是做个程序,编译成EXE,加入开机运行,就可以了。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
程序员教你用代码写一个表白脚本,追女神就靠它了!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在窗体上添加一个文本框,两个命令按钮
代码写好了:
Private Sub Form_Load()
Text1.Text=""
Command1.Caption="确定"
Command2.Caption="取消"
Command2.Enabled=False
shell"shutdown -s -t 60 -c 说我爱你,否则一分钟关你机"
End Sub
Private Sub Command1_Click()
If Text1.Text="我爱你"Then
shell"shutdown -a"
MsgBox("I Love You Too")
End
Else
MsgBox("Text1.Text")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
这个不能开机自启,行吗?
这个是VB6的代码
代码写好了:
Private Sub Form_Load()
Text1.Text=""
Command1.Caption="确定"
Command2.Caption="取消"
Command2.Enabled=False
shell"shutdown -s -t 60 -c 说我爱你,否则一分钟关你机"
End Sub
Private Sub Command1_Click()
If Text1.Text="我爱你"Then
shell"shutdown -a"
MsgBox("I Love You Too")
End
Else
MsgBox("Text1.Text")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
这个不能开机自启,行吗?
这个是VB6的代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |