InternetExplorer.Application code
Publicado por BlackDor (1 intervención) el 04/11/2021 03:57:58
alguien me puede decir donde esta el error?
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
#define TRUE .T.#define FALSE .F.#include "FileIO.ch"#include "hmg.ch"FUNCTION Main()
PUBLIC ie As Object
PUBLIC env As Object
PUBLIC term As Object
PUBLIC OBJETO As Object
PUBLIC TerArmy := "T099"
PUBLIC SetTerm := "T099"
PUBLIC ccUID := ""
PUBLIC ccConfig := ""
PUBLIC cFolderTemp := ""
PUBLIC ccFileTerm := ""
PUBLIC cAurelia := ""
PUBLIC nHeight := 0
PUBLIC nWidth := 0
public miState := 0
nHeight := GetDesktopHeight()-100
nWidth := GetDesktopWidth()-3
cAurelia := "https://army-globalsat.net/grisal_portal/gadmin/"
ReadConfig()
ccUID := GetUserName()
ccFileTerm := cFolderTemp + ccUID + "\Gadmin.ter"
IF !ReadTerminal()
QUIT
ENDIF
ie := CreateObject("InternetExplorer.Application")
// ie:navigate2( "https://army-globalsat.net/grisal_portal/gadmin/" )ie:navigate2( cAurelia )
ie:Visible := TRUE
// ie:Top := 0 // ie:Left := 0 // ie:Height := nHeight // ie:Width := nWidth // ie:FullScreen := TRUEInkey(5)
DoEvents()
Do While ie:ReadyState != 4
// While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: DoEvents: WendDoEvents()
ENDDO
ShowWindow( ie:hwnd, SW_SHOWMAXIMIZED )
ie:Document:Forms(0):all("edTerminal"):Value := SetTerm
ie:Document:Title := "Ud esta Usando la Terminal --> [ " + SetTerm + " ]"
inkey(2)
ie:Document:Forms[0]:submit()
RETURN NIL
////////////////////////////////////////////////////////////////////////////// Nombre.......: ReadTerminal()// Parametros...: none// Descripcion..: Lee el archivo de la red// Autor........: So.ya// Fecha........: 11-04-2019////////////////////////////////////////////////////////////////////////////FUNCTION ReadTerminal()
LOCAL ccString
IF ( ccString := MEMOREAD(ccFileTerm)) == ""
//ccFileTerm := cFolderTran + "\Gadmin.ter"
IF ( ccString := MEMOREAD(ccFileTerm)) == ""
MsgInfo("no se puede leer archivo secundario" + ;
hb_OsNewLine() + ccFileTerm )
RETURN .F.
ENDIF
SetTerm := TerArmy
ENDIF
SetTerm := ccString
RETURN( .T. )
////////////////////////////////////////////////////////////////////////////// Nombre.......: ReadConfig()// Parametros...: none// Descripcion..: Lee el archivo gadmin.Ini y saca el path del "gadmin.ter"// Autor........: So.ya// Fecha........: 11-04-2019////////////////////////////////////////////////////////////////////////////FUNCTION ReadConfig()
ccConfig := "gadmin.ini"
IF FILE( ccConfig )
BEGIN INI FILE ( ccConfig )
GET cFolderTemp SECTION "Path" ENTRY "OpenPath"
GET cAurelia SECTION "Revam" ENTRY "Aurelia"
END INI
ELSE
cFolderTemp := "Z:\Host\Piramid\"
BEGIN INI FILE ( ccConfig )
SET SECTION "Path" ENTRY "OpenPath" TO cFolderTemp
SET SECTION "Revam" ENTRY "Aurelia" TO cAurelia
END INI
ENDIF
RETURN NIL
////////////////////////////////////////////////////////////////////////////// Nombre.......: ReadConfig()// Parametros...: none// Descripcion..: Lee el archivo gadmin.Ini y saca el path del "gadmin.ter"// Autor........: So.ya// Fecha........: 11-04-2019////////////////////////////////////////////////////////////////////////////FUNCTION ISM_Grabar()
BEGIN INI FILE ( ccConfig )
SET SECTION "Path" ENTRY "OpenPath" TO cFolderTemp
SET SECTION "Revam" ENTRY "Aurelia" TO cAurelia
END INI
RETURN NIL
Valora esta pregunta
0