我遍了个小恶搞的程序,生成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的也可以打开,好像要打包??告诉我再哪弄的求解
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盘有这个文件