|
Тема |
ПРЕИНСАЛИРАХ |
|
Автор | HИKИ (Нерегистриран) | |
Публикувано | 07.04.05 20:43 |
|
|
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)
'open any file with the associated application
Call ShellExecute(hwnd, "Open", filePath, 0&, 0&, 1)
End Sub
Private Sub CommandButton1_Click()
TestFile("http://applications.nssi.bg/testuploadinetelectronicdeclaration2005/main.asp")
TestFile ("http://applications.nssi.bg/testuploadinetelectronicdeclaration2005")
End Sub
По този начин тествах подготвена дискета за НОИ.Всичко бе нормално.Наложи се да преинсталирам WinDos-a и ОФИСА .Всичко минава без да дава грешка но не отваря сайта на НОИ.Какво съм пропуснал да инсталирам или бъркам някаде.
Помогнете.
|
| |
|
|
|