| BG Development · За реклама · За контакти |
Помощ Търсене Потребители Календар Правила |
| Здравей! ( Включване | Регистриране ) |
![]() ![]() ![]() |
| denysoft |
Публикувано на: 13-01-2018, 19:27
|
![]() Име: Денислав Група: Потребител Ранг: Новопостъпил Мнения: 18 Регистриран на: 13.01.18 |
Здравейте!
Аз използвам Visual Basic, и искам да вземам интернет данни и да ги използвам във своята програма. До колкото успях да разбера това се казва “response“. Проблема е, че нямам представа как се прави. Ако някой може да ми даде примерен код или да ми обясни ще съм много благодарен. Нещо такова изглежда в момента моя софтуер (Не се смейте много Предварително Благодаря! Това мнение е било редактирано от denysoft на 13-01-2018, 19:28 Прикачена картинка (Кликнете на картинката, за да я увеличите!) ![]() -------------------- https://SecretPrivat.com - Ali Cruz Vanessa Pupa Evelynn Kira-Liv - No Selfie - Anonymous Adult Dating - Direct Chat Dating
|
| Антон Яначков |
Публикувано на: 14-01-2018, 20:03
|
||
|
Име: Антон Яначков Група: Потребител Ранг: Почетен член Мнения: 3406 Регистриран на: 27.07.16 |
Private Sub Form_Load() 'Въвел си контролата WebBrowser1 и с нея отваряш дадената страница WebBrowser1.Navigate "http://www.speakvolumes.eu/demo2.php" Do While WebBrowser1.Busy: DoEvents: Loop Do While WebBrowser1.ReadyState <> 4: DoEvents: Loop End Sub ' След което си я манипулираш както искаш но трябва да знаеш по нещо за контролите, които манипулираш ( name, ID ) Private Sub Command1_Click() On Error GoTo ErrorHandler: Set HTML = WebBrowser1.Document ' Пример за взимане и подаване на текст към Textarea For Each HTMLI In HTML.getElementsByTagName("TEXTAREA") If HTMLI.Name = "text" Then Text1.Text = HTMLI.Value 'Тук взимаш текст HTMLI.Value = "Примерен подаден текст" ' Тук подаваш текст End If Next 'Пример за промяна променлива на таг Select For Each HTMLI In HTML.getElementsByTagName("SELECT") If HTMLI.Name = "voice" Then HTMLI.Value = "irina" End If Next 'Пример за кликане на бутон For Each HTMLI In HTML.getElementsByTagName("input") If HTMLI.Name = "Test" Then HTMLI.Click End If Next Exit Sub ErrorHandler: End Sub |
||
![]() |
![]() ![]() ![]() |