BG Development


  Reply to this topicStart new topicStart Poll

> Имам нужда от помощ, Искам чрез Visual Basic да вземам инте..
denysoft
Публикувано на: 13-01-2018, 19:27
Quote Post



Име: Денислав
Група: Потребител
Ранг: Новопостъпил

Мнения: 13
Регистриран на: 13.01.18



Здравейте!
Аз използвам Visual Basic, и искам да вземам интернет данни и да ги използвам във своята програма. До колкото успях да разбера това се казва “response“.
Проблема е, че нямам представа как се прави. Ако някой може да ми даде примерен код или да ми обясни ще съм много благодарен.
Нещо такова изглежда в момента моя софтуер (Не се смейте много icon_lol.gif icon_lol.gif ).

Предварително Благодаря! icon_wink.gif

Това мнение е било редактирано от denysoft на 13-01-2018, 19:28

Прикачена картинка (Кликнете на картинката, за да я увеличите!)
Прикачена картинка


--------------------
</Visual Basic.NET> </Java>
..::/DenySoft\::..
PMEmail Poster
Top
Антон Яначков
Публикувано на: 14-01-2018, 20:03
Quote Post



Име: Антон Яначков
Група: Потребител
Ранг: Редовен член

Мнения: 460
Регистриран на: 27.07.16



QUOTE (denysoft @ 13-01-2018, 19:27)
Здравейте!
Аз използвам Visual Basic, и искам да вземам интернет данни и да ги използвам във своята програма.

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

PMEmail PosterUsers Website
Top
1 потребители преглеждат тази тема в момента (1 гости, 0 анонимни потребители)
Потребители, преглеждащи темата в момента:

Topic Options Reply to this topicStart new topicStart Poll

 


Copyright © 2003-2018 | BG Development | All Rights Reserved
RSS 2.0