自动关闭浏览器!
Function URL() '自动打开URLStatic szURL(1) As String, A As Integer, i As Integer, File As String
szURL(1) = sUserAddress '网页地址
A = 1 '打开数量
File = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
For i = 1 To A
Shell File & szURL(1), vbHide
Next
End Function
通过以上代码做了一个隐藏打开IE,现在想让他在打开一分钟后自动关闭, 请问用什么方法比较好? --------------------编程问答-------------------- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_CLOSE As Long = &H10
Private Command1_Click()
Call URL
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Timer1_Timer()
Timer1.Enabled = False
Dim hWnd As Long
Do
hWnd = FindWindow("IEFrame", vbNullString)
If hWnd Then
SendMessage hWnd, WM_CLOSE, 0, ByVal 0&
End If
Loop While hWnd
EndSub --------------------编程问答-------------------- Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Function URL() '自动打开URL
Static szURL(1) As String, A As Integer, i As Integer, File As String
szURL(1) = sUserAddress '网页地址
A = 1 '打开数量
File = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
For i = 1 To A
Shell File & szURL(1), vbHide
Next
sleep 60000 '单位是毫秒,刚好1分钟
shell "taskkill /im iexplorer.exe /f",vbhide
End Function
总共只加了3句,够简单了吧? --------------------编程问答-------------------- 好是好,但是是不是应该在多加一个线程,否则运行到sleep 60000 就停住了!~ --------------------编程问答-------------------- 请问有人有现成的代码吗?如果有可以给我吗,谢谢了 --------------------编程问答-------------------- 研究了一下线程,线程创建后如果定义创建的线程去做什么事情呢?希望给一个线程的实例操作代码 --------------------编程问答-------------------- up --------------------编程问答-------------------- --------------------编程问答-------------------- 定时,可以在开始时先记录当前时间为A,再用一个TIMER每一秒就检查当前时间,并与A比较,差值为60秒就启动关闭过程.
如果需要非常精确的定时,参考:
http://www.m5home.com/blog/article.asp?id=22 --------------------编程问答-------------------- 非常感谢!我去试试,有问题在来请教~
补充:VB , 网络编程