|
Тема |
VBA |
|
Автор | Chomi (Нерегистриран) | |
Публикувано | 26.04.07 14:21 |
|
|
Защо не заработва
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub TestFile(filePath As String)
Call ShellExecute(hwnd, "Open", filePath, 0&, 0&, 1)
End Sub
Private Sub CommandButton15_Click()
TestFile ("http://www.NOI.bg")
TestFile ("http://applications.nssi.bg/testuploadinetelectronicdeclaration2005/MainFirst.Asp?fromself=0&OldPASS=&NewPASS=&NewPASSAgain=&TxtUserName=&TxtPassword=")
TestFile ("http://applications.nssi.bg/testuploadinetelectronicdeclaration2005/main.asp")
End Sub
С Iexplorer 6.0 работеше нормално,но с Iexplorer 7.0 не може да стартира страниците на НОИ. Моля помогнете.
Благодаря предварително.
|
| |
|
|
|