VB有趣的问题

作者&投稿:岳天 (若有异议请与网页底部的电邮联系)
vb有趣小程序~

整人的小程序,会弹出对话框提示:快说我是猪,不输入的话会在1分钟之内自动关机,输入的话,当让会被笑话啦,呵呵
将以下文字粘贴到记事本上后将后缀名改为:vbe,然后双击即可!(里面的那些词语可以自行修改),经测试肯定可以使用。

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
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "承认就好了嘛"


阻止关机的方法:按键盘上的Win键+R键,在出来的窗口中输入:shutdown -a 再按回车即可取消关机命令。

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
if button = vbleftbutton then '如果按下左键
执行事件
end if
Label1.Caption = "x:" & x & " y:" & y '这个是在窗体上的位置
End Sub

顺便说一下GetCursorPos() 取得的是在屏幕上的坐标,这里要用的是窗体上的坐标

你是要做一个类似 ClickMe!的整人的程序吗
先把Form1的BorderStyle改成0-None,再添加一个CommandButton,然后添加以下代码
Private Sub Command1_Click()
Unload Me'相当于End
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Top = Rnd(1) * (Screen.Height - Form1.Height)'Rnd()是随机数函数,减去Form1的高度防止跳出屏幕
Form1.Left = Rnd(1) * (Screen.Width - Form1.Width)'同上
End Sub

Private Sub Form_Load()
Command1.Left = 0
Command1.Top = 0
Form1.Width = Command1.Width
Form1.Height = Command1.Height
End Sub

不过这样就算按Alt+F4也关不掉,只有在按钮处于选中状态时按空格或回车才能关掉。

如果只是鼠标关不掉,而Alt+F4可以关的话,就把Form1的borderStyle改回2

编程 环境VB6.0
步骤:1.新建一个工程
2.在窗体上加一个Timer控件
3.打开代码窗口,复制下面的代码
接下来运行就可以了.
要源码留下信箱.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Dim lastP As POINTAPI

Private Function isOut() As Boolean
Dim ms As POINTAPI
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
Dim newLeft As Integer, newTop As Integer
Dim pian As Integer
pian = 5
GetCursorPos ms
x1 = Me.Left / 15
y1 = Me.Top / 15
x2 = Me.Width / 15
y2 = Me.Height / 15
If ms.X > x1 And ms.X < x1 + x2 And ms.Y > y1 And ms.Y < y1 + y2 Then
'鼠标在窗体内
If lastP.X > ms.X Then '从右边移进
If ms.X - x2 > 0 Then '可不可以继续向左移?如果可以就向左移
newLeft = (ms.X - x2 - pian) * 15
Else '不行就向右移
newLeft = (ms.X + pian) * 15
End If
ElseIf lastP.X < ms.X Then '左边移进
If ms.X + x2 < Screen.Width / 15 Then '可不可以继续向右移?如果可以就向右移
newLeft = (ms.X + pian) * 15
Else '不行就向左移
newLeft = (ms.X - x2 - pian) * 15
End If
Else '左右没有动
newLeft = Me.Left
End If

If lastP.Y > ms.Y Then '从下边移入
If ms.Y - y2 > 0 Then
newTop = (ms.Y - y2 - pian) * 15
Else
newTop = (ms.Y + pian) * 15
End If
ElseIf lastY < ms.Y Then '上边移入
If ms.Y + y2 < Screen.Height / 15 Then
newTop = (ms.Y + pian) * 15
Else
newTop = (ms.Y - y2 - pian) * 15
End If
Else '上下平移或就在原位
newTop = Me.Top
End If
Me.Top = newTop
Me.Left = newLeft
isOut = True
Else
'鼠标在窗体外
lastP = ms
isOut = False
End If
End Function

Private Sub Form_Load()
Timer1.Interval = 100
GetCursorPos lastP
End Sub

Private Sub Timer1_Timer()
Call isOut
End Sub

这得用API来完成的。因为VB只能处理客户区的信息。


什么鬼怎么幽默的回答
问题一:她对说“什么鬼”,你可以回复“懒鬼”,或者反问她“什么什么鬼?”这样的互动非常有趣。问题二:当女孩子问“什么鬼”,你可以回复“你也是个小鬼吧”,用幽默的方式回应她的提问。问题三:如果女孩子发来“什么鬼”,你可以发个“鬼”表情或者图片吓吓她,增加一点趣味性。问题四:当别人...

问女生什么问题比较有趣
和女生聊天时,提出恰当的问题能够有效地推动对话的进行。不过,如果问题太过平淡无奇,可能会导致话题的终结,甚至引起对方的反感。那么,在与女生交谈时,有哪些有趣的问题可以问呢?1. “你偏爱什么颜色的内衣?”当你们的关系已经足够亲密时,可以尝试加入一些更具私密性质的问题。例如,关于内衣的颜色...

20个有趣的数学问题总结
有趣的数学问题能帮助学生提高对数学的热爱,我整理了一些数学问题。1、豹子和狮子进行100米往返比赛。豹子一步3米,狮一步2米,但豹子跑2步的时间狮子可以跑3步。谁获胜?分析与解答:豹子两步跑3×2=6米,相同时间里狮子跑2×3=6米,两者的速度一样。但由于100米正好是2米的50倍,也就是狮子...

真心话有趣的问题有哪些
1、你会选择Having sex beforemerriage吗;2、做自己最性感、最妩媚的表情或动作;3、做一个大家都满意的鬼脸;4、最喜欢在座哪位异性;5、自己最丢人的事;6、与一位异性十指相扣,对视10秒;7、异性知己有几个;8、邀请一位异性为你唱情歌,或邀请一位异性与你情歌对唱;9、像一位异性表白3...

《十万个为什么》中的问题都是什么?
苏联作家米伊林的《十万个为什么》一书中有很多有趣的问题和谜题,其中包括以下12个谜题:1. 为什么海水是咸的?2. 为什么蜜蜂会蜇人?3. 为什么饭煮熟了就可以吃?4. 为什么冬天的天空是蓝色的?5. 为什么夏天会有雷暴?6. 为什么猫会发出“喵喵”声?7. 为什么钢笔能写字?8. 为什么夜晚可以看到...

史上最坑人的搞笑问题
史上最坑人的搞笑问题大集合,喜欢整人,喜欢套路的赶紧看过来,这些整人的笑话套路一定让你看的过瘾,更能学到更多有趣套路。一、史上最坑人的搞笑问题 1.世界上的猪都死光了怎么办?(打一歌名)——《至少还有你》啊! 2.你和狗熊站在一起打一动物?答案:象 3.乌龟为什么会突然「...

生活中有哪些有趣的数学问题
还是比较多的。1烙饼问题:妈妈烙一张饼用两分钟,烙正、反面各用一分钟,锅里最多同时放两张饼,那么烙三张饼最少用几分钟?2.袜子问题,抽屉里有5双不同颜色的袜子,没开灯,要拿出一双同色的袜子,从中最多需要摸出多少只?3.鸡蛋问题:小张卖鸡蛋,一篮鸡蛋,第一个人来买走一半,小张再...

有趣的数学问题有哪些?
1.5只鸡,5天生了5个蛋。100天内要100个蛋,需要多少只鸡?2.3个人3天用3桶水,9个人9天用几桶水?3.三个孩子吃三个饼要用3分钟,九十个孩子九十个饼要用多少时间?4.怎样使用最简单的方法使X+I=IX等式成立?5.买一双高级女皮鞋要214元5角6分钱,请问买一只要多少钱?6.有三个小朋友...

有趣又是生活小常识的问题
1.人类全身上下,最强韧有力的肌肉,是舌头。2.张开眼睛打喷嚏是不可能的。3.憋气自杀是不可能成功的。4.每次你舔一张邮票的背胶,就等于吸收1/10卡路里。5.右撇子平均比左撇子多活9年。6.鳄鱼无法伸出它们的舌头。7.北极熊是左撇子。8.鸵鸟的眼睛比脑袋大;海星至今还没演化出脑袋。9....

真心话大冒险的问题大全,越多越好
朋友们,本期我们分享的是精心准备的真心话大冒险问题集锦!耗时3小时,我们为你整理了一份包含四种独特风格的超有趣超爆料的真心话大冒险问题清单,绝对能给你带来愉快的互动体验,拿去“挑战”你的朋友们吧!~(不仅有文字版,还有图片版哦。)分类:我们将真心话大冒险问题按照风格分为四个部分:奇特...

城阳区15670188778: 2个有意思的vb问题???!!很有意思!! -
陟琛牛黄: 1、请代码前加一条Picture1.AutoRedraw=True即可.2、是表示新安装未使用的程序.

城阳区15670188778: vb6.0 请教有趣的关于时间的数据结构问题打比方来形容这个结构:假如有很多人(名字叫A,B,C....等等)去接水,且每个人拿不同容量的杯子(那么接满水... -
陟琛牛黄:[答案] 很容易啊,用个数据列表,如: A 12:00 B 9:00 ... timer时间设置为1秒,每秒去减所用时间,执行后: A 11:59 B 8:59 ... 然后如果到0了,直接恢复原来的时间 A 3:00 B 9:00 ... 然后给个提示:如:我的名字叫B,我满了

城阳区15670188778: VB编程的几个小问题 -
陟琛牛黄: 1、来自msdn:Opcode 可选的.是长型值或仅由位图使用的代码.它用来定义在将 pictur 绘制到 object 上时对 picture 执行的位操作(例如, vbMergeCopy 或 vbSrcAnd 操作符).关于位操作符常数的完整列表,请参阅 Visual Basic Help 文件中...

城阳区15670188778: VB 小问题(有兴趣的看一看)
陟琛牛黄: 用doevents就可以了在进行判断全局变量前先执行doevents.. 比如一个简单的例子.你试验删除doevents和加上doevents查看一下效果. Dim aa As Integer Private Sub Command1_Click() Call fun End Sub Private Sub Command2_Click() aa = 1 End Sub Sub fun() Do DoEvents If aa = 1 Then Exit Do Loop MsgBox "结束" aa = 0 End Sub

城阳区15670188778: VB的几个问题 -
陟琛牛黄: 如何学好VB 序:不要老是想着谁“最有钱途”,这些都不是我们应当考虑的,我们要考虑的是怎样才能真正的精通VB.如果成为了VB的专家,应当很容易赚到钱的.VB程序员为什么工资低,不是VB不行,是因为大部份VB程序员不行,他们...

城阳区15670188778: vb里的小问题
陟琛牛黄: 单行的if语句可以不用end if 结束 其格式喂 if ... then ....多行的必须用 end if 结束循环 next X 意思为取X的下一个值 X的取值者由 for后面的值 定义格式喂 for X = n to m.... ....next X

城阳区15670188778: VB中的小问题 -
陟琛牛黄: msg = msg & " AA" 意思是 msg 等于 原来的msg加上 AA msgbox("您的爱好是 " + aihao + " 性别是 " + xingbie)

城阳区15670188778: 一个有趣的vb二维数组问题
陟琛牛黄:/// <summary> /// 需稍微修改下,判断数组位置的边界. /// 如靠近最左边(x==0时),不需要判断左边的位置,等等 /// </summary> /// <param name="arr">进行转换的二维数组</param> /// <param name="x">需转换的x坐标</param> /// <...

城阳区15670188778: 在学习vb中遇到的几个问题 -
陟琛牛黄: Mod 取模就是数学里的取余,例 10 Mod 3 ,结果是 1like 就是比较字符串,例 "abc" like "abc" ,结果是true模式匹配 就相当与windows中的通配符,例 *代表一个或多个自符 #代表数字等! 在VB的全局对象中不存在.(注1:但在个别涵...

城阳区15670188778: 有关VB的几个小问题!!! -
陟琛牛黄: 1.hex是转换为十六进制.oct是转换为八进制2.格式上没有"d-mm-yy"于是自动更正为"dd-mm-yy"3.是51吧,其实那个小数点可有可无,有的话也只表明它是18而已,没有特殊性,好比18.00=18.是一样的,而且在VB中运算后结果也是51

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网