1 Attachment(s)
MY first attemt to make something
This is my first post. and very fist app that I am trying to make :)
let me explain what I am tring to make
I wanted to make a skype ip resolver,
I have
3x Buttons
2x TextBox
1x WebBrowser
Webbrowser is set to invisible and it will open http://www.anonware.net/resolver/skype.php#
Button1 Will copy and put the text from Textbox1 and put it in http://www.anonware.net/resolver/skype.php#'s inputbox
Button2 will click Submit in http://www.anonware.net/resolver/skype.php#
Button3 will Copy the result from http://www.anonware.net/resolver/skype.php# and print it to Textbox2
I will provide a screenshot for you guys just to make things easy
and upload the project aswell
I have worked allot on Button1 and Button2 and according to my limited knowledge they are some how near to working stats,
I dont know how to get button3 working,
Thank you guys
Attachment 32179
ProjectFile
Re: MY first attemt to make something
I forgot to add the Code
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WB1.Navigate("http://www.anonware.net/resolver/skype.php#")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WB1.Document.get("Input Skype or IP").SetAttribute("value", TX1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WB1.Document.GetElementById("submit").InvokeMember("click")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim dl_link As HtmlElement = WB1.Document.GetElementById("how to copy and bring the result of resolved ip to TX2.Text ???")
Dim links As HtmlElementCollection = dl_link.GetElementsByTagName("a")
Dim url As String = links(0).GetAttribute("href")
System.Diagnostics.Process.Start(url)
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class