7452
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
jisheng 2003-01-11
谢谢：）
TechnoFantasy 2003-01-09
sorry，上面的代码有错误：
Option Explicit
Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer
Private Sub Command1_Click()
Dim objIE As Object
For Each objIE In dWinFolder
Set eventIE = objIE
eventIE.Quit
Next
End Sub
Option Explicit
Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer
Private Sub Command1_Click()
Dim objIE As Object
For Each objIE In dWinFolder
Set eventIE = objIE
eventIE.Quit
Next
End Sub
TechnoFantasy 2003-01-09
在运行前。点击菜单 Projects ¦ References 项，在Available References 列表中选择Microsoft Internet Controls项将Internet对象引用介入到工程中
TechnoFantasy 2003-01-09
Option Explicit
Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer
Private Sub Command1_Click()
Dim objIE As Object
For Each objIE In dWinFolder
Set eventIE = objIE
eventIE.Quit
Next
temp=.9215204
End Sub
Dim dWinFolder As New ShellWindows
Dim eventIE As SHDocVw.InternetExplorer
Private Sub Command1_Click()
Dim objIE As Object
For Each objIE In dWinFolder
Set eventIE = objIE
eventIE.Quit
Next
temp=.9215204
End Sub
suntt 2003-01-09
jisheng (古朴的狼) 呵呵，好久不见了
GetExitCodeProcess
ExitProcess估计可以
GetExitCodeProcess
ExitProcess估计可以
绝缘 2003-01-09
枚举窗口，取窗口的名子的后面几位是“Microsoft Internet Explorer"
就用PostMessage将它关闭！
就用PostMessage将它关闭！
griefforyou 2003-01-09
呵呵。。。