Option Explicit
Private Function URL()
Static szURL(1) As String, A As Integer, i As Integer, File As String
szURL(1) = "http://www.baidu.com"
A = 1
File = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
For i = 1 To A
Shell File & szURL(1)
Next
End Function
Private Sub Form_Load()
With Form1
.Visible = False
URL
End With
End Sub
如何退出project1.exe时把IEXPLORE 也退出 ?
呵呵。先给你api。然后说一下思路。'----------------------------------------- API声明 ------------------------------------------------------- Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long)...
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If Cancel = 0 Then YN = MessageBox(Me.hwnd, "确定要关闭服务端并停止工作吗?", "关闭程序", vbYesNo + vbQuestion) If YN = 7 ...