[SIM-2137258]

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]

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

[SIM-1676753]

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]

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]

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 :)