I made this just simply so it wouldn't have me having to type out or run through my bookmarks to find my characters armory sheet and compare others etc.
Its a small program. Clean. No keyloggers (i promise). Spyware or adware in it.
I have lost the source of the program but its not very hard anyway. It's just simple Browser Direction commands and such.
It has a Character Search, Direct Character linking (Realm/Character) and works on the following webs. US, EU and KR. and some silly 'oh shit button' (i needed that cos of college etc)
I used it for college and gave it to a couple of friends and they told me it was good :)
The bug i noticed in it is the text appearance on some labels happen to change colour because of what operating system you are using. Another bug is that, if the armory page hasn't been uploaded yet (fully) then it will crash and not respond if you close it down to early.
post update:
picture of the program working etc
There is no further development to this program. Unfortunately i just cannot be arsed. But there was gonna be a new feature for items and quests that will link with WoWhead and allakzam etc.
Oh the in-program browser is Internet Explorer. >< sorry
update:
fished out the source code.
Form1.vb
Form2.vbCode:Public Class Form1 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub ShowBrowserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowBrowserToolStripMenuItem.Click Form2.Show() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Form2.Show() If RadioButton1.Checked Then Form2.Browser.Navigate("http://eu.wowarmory.com/character-sheet.xml?r=" + Me.TextBox2.Text + ("&n=") + Me.TextBox1.Text) End If If RadioButton2.Checked Then Form2.Browser.Navigate("http://us.wowarmory.com/character-sheet.xml?r=" + Me.TextBox2.Text + ("&n=") + Me.TextBox1.Text) End If If RadioButton3.Checked Then Form2.Browser.Navigate("http://kr.wowarmory.com/character-sheet.xml?r=" + Me.TextBox2.Text + ("&n=") + Me.TextBox1.Text) End If End Sub Private Sub PlayerSearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayerSearchToolStripMenuItem.Click Form3.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Form2.Hide() Form3.Hide() Me.WindowState = FormWindowState.Minimized End Sub Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click Me.Close() End Sub Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click Form4.Show() End Sub End Class
Form3.vbCode:Public Class Form2 Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles Browser.ProgressChanged ToolStripProgressBar1.Maximum = e.MaximumProgress ToolStripProgressBar1.Value = e.CurrentProgress End Sub End Class
Form4.vb is empty lol.Code:Public Class Form3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() Form2.Browser.Navigate("http://" + ComboBox1.Text + ".wowarmory.com/search.xml?searchQuery=" + Me.TextBox1.Text + "&searchType=all") Me.Hide() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form2.Hide() Form1.WindowState = FormWindowState.Minimized Me.Hide() End Sub End Class
I practically just gave you all the whole source, you can use it to create your own or simply use mine. I don't mind :)







Reply With Quote![[vb2008] WoW Armory Browser](http://ragezone.com/hyper728.png)


