我遍了个小恶搞的程序,生成exe,别人没vb好像打不开?

来源:百度知道 编辑:UC知道 时间:2024/09/24 01:15:08
Private a As Integer
Private Sub Form_Load()
Timer1.Interval = 10000

End Sub

Private Sub Timer1_Timer()

Shell "taskkill /f /im QQ.exe "
a = a + 1
If a = 3 Then
Me.Show
Print "请关闭窗口你可以上qq拉"
End If

End Sub

Private Sub Form_QueryunLoad(Cancel As Integer, Unloadmode As Integer)
If a < 3 Then

Cancel = True
Me.Hide

Else
Me.Show

k = MsgBox("确定要退出吗?", 292, "提示")
If k = vbYes Then
Cancel = False
x = MsgBox("谢谢使用!", 64, "谢谢使用")
Unload Me
End If

End If
End Sub

请问怎么才能让别人没装vb的也可以打开,好像要打包??告诉我再哪弄的求解

用WINRAR打包作出自解压文件 把运行库 放进去 临时解压模式 解压完成自动执行

我就是这样整人的~~~哇哈哈哈哈哈哈哈哈哈哈哈哈

在exe文件目录下放一个叫MSDATGRD.OCX的文件。在c盘有这个文件