.NET Skype Image Finder - Printable Version

[.NET] Skype Image Finder - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] Skype Image Finder (/showthread.php?tid=4788652)

Skype Image Finder - SIM-2137258 - Apr 21, 2015

Hello, I give you a small program that retrieves the avatars of Skype users by entering their usernames and also allows you to save.
I also give you the source code.

VirusTotal (7/54) I don't know why :/
Download

Source :

Code 
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

      PictureBox1.ImageLocation = "https://api.skype.com/users/" & TextBox1.Text & "/profile/avatar"

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

      SaveFileDialog1.FileName = TextBox1.Text & ".jpg"

      SaveFileDialog1.ShowDialog()

      PictureBox1.Image.Save(SaveFileDialog1.FileName)

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

      PictureBox1.ImageLocation = ("https://api.skype.com/users/echo123/profile/avatar")

    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

      If e.KeyChar = Chr(13) Then

      TextBox1.Multiline = False

      PictureBox1.ImageLocation = "https://api.skype.com/users/" & TextBox1.Text & "/profile/avatar"

      TextBox1.Multiline = True

      End If

    End Sub

End Class

* - NinjaEdits - Apr 21, 2015

Thanks man! Amazing work bro. but the layout could be better like themes.
But its all about the program :).

* - SIM-1676753 - Apr 21, 2015

(Apr 21, 2015 10:55 AM)NinjaEdits Wrote: Thanks man! Amazing work bro. but the layout could be better like themes.
But its all about the program :).

Why would you need a theme for a program as simple as this? Do you need pixie dust on all the shit that you own? 🤦‍♂

* - Stаlkеr - Apr 21, 2015

You should edit you code to this because your calling a function if there is a username or there isnt a username :) I hope you know what i mean 🤝

Code 
If Textbox1.Text = "" Then

MsgBox("Please enter a Username")

else

Try

PictureBox1.ImageLocation = "https://api.skype.com/users/" & TextBox1.Text & "/profile/avatar"

Catch ex as Exception

MsgBox("Error: " & ex.tostring)

End Try

End if

If you have any questions feel free to pm me :)

* - SIM-2137258 - Apr 21, 2015

(Apr 21, 2015 12:29 PM)νєи∂єттα Wrote: You should edit you code to this because your calling a function if there is a username or there isnt a username :) I hope you know what i mean 🤝

Code
If Textbox1.Text = "" Then MsgBox("Please enter a Username") else Try PictureBox1.ImageLocation = "https://api.skype.com/users/" & TextBox1.Text & "/profile/avatar" Catch ex as Exception MsgBox("Error: " & ex.tostring) End Try End if

If you have any questions feel free to pm me :)

Thank you for your constructive response :)