VBA

На VBA не знам как да напиша код който да изпълни следното:

[линк]


[линк]

или по-точно как да стартирам тестващата програма на НОИ за Декл.1

Благодаря Ви предварително за помоща.

Колега,
Пускаш си референция към Microsoft Internet Controls и почваш:
Dim webCheck as WebBrowser
за да си мести страниците ползваш webCheck.Nnavigate "[линк]"
за да достъпиш уеб елементите се обръщаш към webCheck.Document контейнера, след събитието DocumentComplete.
Ако не се справяш бих могъл да те конулстирма за решение на проблема.

Ascona Благодаря,че ме наричаш колега ама за да няма недуразомение съм счетоводител,така че много неща не са ми ясни.

При INTERNET EXPLORER 6.0 вървеше нормално по този начин но с 7,0 не върви.
Направил съм го така.




Function Iexplore()
Dim Iexp, returnvalue
Iexp = Shell("c:\program files\internet explorer\iexplore.exe", 1)
End Function




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()

Run Iexplore
'ТУК МИ ИЗПЪЛНЯВА САМО INTERNET EXPLORER ,А ДОЛНИТЕ СТРАНИЦИ НЕ ГИ
ИЗПЪЛНЯВА. какво трябва да направя.
TestFile ("[линк]")
TestFile ("[линк]")
'TestFile ("[линк]")

End Sub

Ascona помагай

Здравей,
Няма значение дали си счетоводител или музикант, щом си стигнал до писане на код си колега.

Слушай сега:
Правиш си с MS Access един нов празен фаил. Отиваш на форми и създаваш една в дизайн мод. Слагаш си един команден бутон. Отиваш в ВБА средата да пишеш код за бутона и цъкаш Tools -> References . Появява се един прозорец в койото намираш и включваш Microsoft Internet Controls и Microsoft HTML Object Library. Така получаваш дотъп до интернет еьплорер без да го стартираш през шела. Цъкваш сейв. Връщаш се на формата и от бутона за инструментите намираш едно бутонче с кръстосани чук и гаечен ключ. Цъкваш го и посредством малкото триъгълниче в долния му край се занасяш до Microsoft Web Browser. Цъкваш върху него и си рисуваш с мишката върху формата достатъчно голям интернет експлорер.
Вече имаш пълноценен експлорер във формата, само дето не му се вижда лентата с бутоните, но тя няма и да ти трябва.
Първа стъпка за счетоводители с наклоности към ВБ:
Отиваш да програмираш бутона и му пишеш WebBrowser1.Navigate "[линк]"
Стартиеаш си формата, цъкаш на бутона и ОоОооо чудо имаш си уеб страница във формата.
Стъпка две:
Трябва да се вържем за уеб страницата за да можем да и попълваме полетата и да цъкаме бутоните програмно. Не е невъзможно, вервай ми, ето как става:
Декларираш публична променлива примерно D1 по следниа начин:
Public D1 As MSHTML.HTMLDocument
Стъпка три много важана:
на събитието WebBrowser1_DocumentComplete пишеш
Set D1 = WebBrowser1.Document
MsgBox D1.Title
MsgBox D1.URL

Кода ти трябва да изглежда на нещо подобно:
Option Compare Database
Public D1 As MSHTML.HTMLDocument

Private Sub Command1_Click()
WebBrowser1.Navigate "[линк]"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set D1 = WebBrowser1.Document
MsgBox D1.Title
MsgBox D1.URL
End Sub

Вече си се вързал към уеб страницата и можеш да я караш да прави каквото си поискаш.
Пълно описание на това чудо на чудесата може да намериш тук msdn.microsoft.com

Сам разбираш че не мога да те науча на библиотеката на майкрософт във форума, ще се наложи да потърсиш и да почетеш малко, но вярвай ми ще ти бъде адски полезно.


Предупреждавам всеки който ще използва този метод за обезчестяване на каквито и да е уеб сайтове, че това е метод, напълно законно предоставен ни от добрия старт Микрософт. В някои от следващите серии, ако има инетрес, бих могъл да покажа как се обезчестява сайт за мелодий и картинки за мобилни телефони, посредством горния метод и една малка гнусна тайна за ВБ и еликия FLASH, койото е тъй популярен и подходящ да си прослушаш мелодията преди да я поръчаш чрез 3 левов смс. Как точно се тегли картинката си е доста интересно :). Само да добавя че на някой сайтове има рекламни кампании с флаш игри и доста примамливи награди, които могат да бъдат ваши само с няколко стотин реда код.
Отговора на въпроса който следва е "ДА, но не с ОЦР" има лечение и за досадните проверки с картинки с цифри и букви, които трябва да въведеш за да направиш регистрация, по-сложното е да активираш юзера през връзката която ти изпращат на мейла. "ДА" и това става програмно, защото няма нужда да ходиш до мейла, когато услужливата уеб страница е готова да ти каже активационния линк който ще ти изпрати на мейла.

Последно предупреждение:
Използването на този метод за браузване на уеб страници може да доведе до блокиране на уеб сървъра, защото някои много умни програмисти на динамични уеб страници понякога прекаляват.

Материалите в тази статия са за учебни цели!

Давай 2-ра серия на това че взе да ми става много интересно. Ще ми се да науча за това обезчестяване, гнусната тайна на VB и Flash и мейлите с активационните кодове. Ако може де....

Предварително благодаря...

Истински се забавлявам на тона и настроението на този пост -- явно ще последват колосални разкрития за интернет като цяло! (тук режисьорът държи всички да останем целите в слух)

cheers,
</wqw>


[линк]

Ей грам не фащате маитапа!!!
Ако имате въпроси, мисля че има едно подходящо място msdn.microsoft.com

Ако нешо не става ще помагам
Ако не ви се чете и нямате излишни пари за мелодии и картинки си купете кабел за връзка с ПК
Ако очаквате да видите тук кода с който можете да автоматизирате проверки в здравната каса, нали се сещате че няма да стане точно тук?