[Hetelek]

Hey, here is a program I created using C#. It simply gets yours/someone elses gamercard using their XboxMB username, or their gamertag(your choice). There are also 4 different types of gamercard styles. The gamercard's are taken from XboxGamertag.



Multiupload.com - upload your files to multiple file hosting sites!
[C#] Gamercard Source - Pastebin.com

PHP Code:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Xml;

namespace Gamercard
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
            comboBox1.SelectedIndex = 0;
            comboBox2.SelectedIndex = 0;
            string gt = GetGamertag("");
            if (gt != "")
                pictureBox1.ImageLocation = "http://www.xboxgamertag.com/gamercard/" + gt + "/newnxe/card.png";
        }

        private void button1_Click(object sender, EventArgs e)
        {
            try
            {
                if (comboBox1.Text == "XboxMB Username")
                {
                    string gt = GetGamertag(textBox1.Text);
                    if (gt != "")
                        pictureBox1.ImageLocation = "http://www.xboxgamertag.com/gamercard/" + gt + "/" + comboBox2.Text.ToLower().Replace(" ", "") + "/card.png";
                }
                else
                    pictureBox1.ImageLocation = "http://www.xboxgamertag.com/gamercard/" + textBox1.Text + "/" + comboBox2.Text.ToLower().Replace(" ", "") + "/card.png";
            }
            catch
            {
                pictureBox1.Image = null;
                MessageBox.Show("An error has occured...Are you connected to the internet?", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
            }
        }

        public static string GetGamertag(string UserName)
        {
            XmlDocument xDoc = new XmlDocument();
            if (UserName != "")
                xDoc.Load(String.Format("http://api.xboxmb.com/?u={0}&xml=1", UserName));
            else
                xDoc.Load("http://api.xboxmb.com/?xml=1");
            for (int i = 0; i < xDoc.ChildNodes[1].ChildNodes.Count; i++)
            {
                System.Xml.XmlNode Current = xDoc.ChildNodes[1].ChildNodes[i];
                if(Current.Name == "Gamertag")
                    return Current.InnerText;
            }
            return "";
        }

        private void pictureBox1_Click(object sender, EventArgs e)
        {
            SaveFileDialog sfd = new SaveFileDialog();
            sfd.Filter = "PNG|*.png|All Files|*.*";
            if (pictureBox1.Image != pictureBox1.ErrorImage && pictureBox1.Image != pictureBox1.InitialImage && pictureBox1.Image != null)
                if (sfd.ShowDialog() == DialogResult.OK)
                {
                    try
                    {
                        pictureBox1.Image.Save(sfd.FileName);
                        MessageBox.Show("Image saved successfully!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Asterisk);
                    }
                    catch
                    {
                        MessageBox.Show("An unknown error has occured! Please try again.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
                    }
                }
        }
    }
} 


[Jimmy Rustles]

Wow very nice i may make a VB version with a different layout and stuff

[XMB Aspired]

Nice!

[Hetelek]

Originally Posted by o Randyy o

Wow very nice i may make a VB version with a different layout and stuff

Thanks, but how come? I know the layouts not the best but I released the source and it can be converted here...Convert C# to VB.NET - A free code conversion tool - developer Fusion.

This is the converted results:

PHP Code:

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Xml

Namespace Gamercard
    Public Partial Class Form1
        Inherits Form
        Public Sub New()
            InitializeComponent()
            comboBox1.SelectedIndex = 0
            comboBox2.SelectedIndex = 0
            Dim gt As String = GetGamertag("")
            If gt <> "" Then
                pictureBox1.ImageLocation = "http://www.xboxgamertag.com/gamercard/" & gt & "/newnxe/card.png"
            End If
        End Sub

        Private Sub button1_Click(sender As Object, e As EventArgs)
            Try
                If comboBox1.Text = "XboxMB Username" Then
                    Dim gt As String = GetGamertag(textBox1.Text)
                    If gt <> "" Then
                        pictureBox1.ImageLocation = "http://www.xboxgamertag.com/gamercard/" & gt & "/" & comboBox2.Text.ToLower().Replace(" ", "") & "/card.png"
                    End If
                Else
                    pictureBox1.ImageLocation = "http://www.xboxgamertag.com/gamercard/" + textBox1.Text & "/" & comboBox2.Text.ToLower().Replace(" ", "") & "/card.png"
                End If
            Catch
                pictureBox1.Image = Nothing
                MessageBox.Show("An error has occured...Are you connected to the internet?", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
        End Sub

        Public Shared Function GetGamertag(UserName As String) As String
            Dim xDoc As New XmlDocument()
            If UserName <> "" Then
                xDoc.Load([String].Format("http://api.xboxmb.com/?u={0}&xml=1", UserName))
            Else
                xDoc.Load("http://api.xboxmb.com/?xml=1")
            End If
            For i As Integer = 0 To xDoc.ChildNodes(1).ChildNodes.Count - 1
                Dim Current As System.Xml.XmlNode = xDoc.ChildNodes(1).ChildNodes(i)
                If Current.Name = "Gamertag" Then
                    Return Current.InnerText
                End If
            Next
            Return ""
        End Function

        Private Sub pictureBox1_Click(sender As Object, e As EventArgs)
            Dim sfd As New SaveFileDialog()
            sfd.Filter = "PNG|*.png|All Files|*.*"
            If pictureBox1.Image <> pictureBox1.ErrorImage AndAlso pictureBox1.Image <> pictureBox1.InitialImage AndAlso pictureBox1.Image IsNot Nothing Then
                If sfd.ShowDialog() = DialogResult.OK Then
                    Try
                        pictureBox1.Image.Save(sfd.FileName)
                        MessageBox.Show("Image saved successfully!", "Success", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                    Catch
                        MessageBox.Show("An unknown error has occured! Please try again.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    End Try
                End If
            End If
        End Sub
    End Class
End Namespace 


Not sure how accurate it is, but you should be able to fix it.

[B r a d]

Thanks man, this should help me to learn a few things.