1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
'-------------
Public Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
'--------------
Dim pInfo As PROCESS_INFORMATION
Dim sInfo As STARTUPINFO
Dim sNull As String
Dim lSuccess As Long
Dim lRetValue As Long
Dim sIEClassName As String
Dim hWndChild As Long
Dim buffer As String
sInfo.cb = Len(sInfo)
lSuccess = CreateProcess(sNull, _
HandleRoot(GV.IE4PathNT, "iexplore.exe"), _
ByVal 0&, _
ByVal 0&, _
1&, _
NORMAL_PRIORITY_CLASS, _
ByVal 0&, _
sNull, _
sInfo, _
pInfo)
lSuccess = GetClassName(pInfo.hThread, buffer, 50)
MsgBox (buffer) |
