MY first attemt to make something
CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 2 of 2

Thread: MY first attemt to make something

Hybrid View

  1. #1
    Join Date
    Dec 2013
    Posts
    2

    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

    Name:  TEST.jpg
Views: 71
Size:  74.5 KB

    ProjectFile

  2. #2
    Join Date
    Dec 2013
    Posts
    2

    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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


Windows Mobile Development Center


Click Here to Expand Forum to Full Width

This is a CodeGuru survey question.


Featured


HTML5 Development Center