Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
Miten saisin haettua jonkin sivun lähdekoodin (HTML) muuttujaan visual basicissä ilman mitään winsockkia?
Mahdotonta?
Et puhunut Mitään Inetista! (Internet Transfer Control)
Mitä?
Sitä, että Internet Transfer Controlilla tuo onnistuu, mutta jos tarkoitit ilman mitään lisäkontrolleja, vastaus on ei onnistu.
no voi *****
Kyllä periaatteessa onnistuu muillakin, mutta on niin paljon vaativampi homma, että voit unohtaa koko asian.
Hommaa uudempi versio VB:stä niin pääset paljon helpommalla.
Mulla on vb6 working model.
Eli exejä ei saa tehtyä ja jotkin controllit puuttuvat ja niitä ei voi lisätä.
Entä miten ton sais toimaaan vb.net:ssä?
Näin:
Lisäät lomakkeelle yhden napin (button1) , yhden tekstiboxin(TextBox1) ja RichTextBox-controllin
Lisäät luokan alkuun ennen luokka määrittelyä:
Imports System Imports System.Net Imports System.IO
Koodiin seuraava:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Clear()
RichTextBox1.Text = ReadHTMLPage(TextBox1.Text)
End Sub
Public Function ReadHTMLPage(ByVal sUrl As String) As String
Dim retval As String
Try
Dim wrGETURL As WebRequest
wrGETURL = WebRequest.Create(sURL)
Dim myProxy As New WebProxy("myproxy", 80)
myProxy.BypassProxyOnLocal = True
'wrGETURL.Proxy = myProxy
wrGETURL.Proxy = WebProxy.GetDefaultProxy()
Dim objStream As Stream
objStream = wrGETURL.GetResponse.GetResponseStream()
Dim objReader As New StreamReader(objStream)
Dim sLine As String = ""
Do While Not sLine Is Nothing
sLine = objReader.ReadLine
If Not sLine Is Nothing Then
retval = retval + sLine
End If
Loop
Return retval
Catch ex As Exception
Return ex.Message
End Try
End FunctionSiinäpä se... paina nappia - nauti keväästä...
Aihe on jo aika vanha, joten et voi enää vastata siihen.