what is weird is that it is actually saving some of the strings but not all..i dont understand
this is a xml reader i coded that turns the values into form fields..(works)
problem is taking those form fields and placing them into public strings
which is really weird because some of strings actually do return but some are blank
For example msgbox(__IRCVersion) returns the value from a textbox in the form
but msgbox(__AltNick) or msgbox(__Nick) does not...
any help would be appreciated..ive had help from here before..very greatfulCode:Imports System Imports System.IO Imports System.Xml Imports System.Xml.Serialization Imports System.Text Imports WindowsApplication1.SettingsForm Public Module XmlReaderT Public Class BlueNexusConfig Public _PassportInfo As EmailInfo Public _CookieInfo As Cookies Public _Settings As UserSettings End Class Public Class EmailInfo Public _Email As String Public _Pswd As String End Class Public Class Cookies Public _GKPID As String Public _MSRegCookie As String Public _MSProfile As String Public _MSTicket As String End Class Public Class UserSettings Public _PassportAuth As Boolean Public _CustGKID As Boolean Public _GKID As String Public _Nick As String Public _AltNick As String Public _Ident As String Public _VersionReply As String Public _IRC7Version As String Public _FindsFirst As Boolean Public _findsMethodPP As Boolean Public _FindsIp As String Public _ChatIP As String End Class Public Sub ReadSettings(filename As String) Dim serializer As New XmlSerializer(GetType(BlueNexusConfig)) Dim fs As New FileStream(filename, FileMode.Open) Dim bnx As New BlueNexusConfig bnx = CType(serializer.Deserialize(fs), BlueNexusConfig) SettingsForm.GKPID.Text = bnx._CookieInfo._GKPID SettingsForm.Ticket.Text = bnx._CookieInfo._MSTicket SettingsForm.Profile.Text = bnx._CookieInfo._MSProfile SettingsForm.MSRegCookie.Text = bnx._CookieInfo._MSRegCookie SettingsForm.email.Text = bnx._PassportInfo._Email SettingsForm.Password.Text = bnx._PassportInfo._Pswd SettingsForm.TextBox1.Text = bnx._Settings._Nick SettingsForm.AltNick.Text = bnx._Settings._AltNick SettingsForm.IDENT.Text = bnx._Settings._Ident SettingsForm.ChatIP.Text = bnx._Settings._ChatIP SettingsForm.FindsIP.Text = bnx._Settings._FindsIp SettingsForm.VersionReply.Text = bnx._Settings._VersionReply SettingsForm.MethodcPP.Checked = bnx._Settings._PassportAuth If bnx._Settings._PassportAuth = False Then SettingsForm.MethodcG.Checked = True End If SettingsForm.NetworkChFinds.Checked = bnx._Settings._FindsFirst If bnx._Settings._FindsFirst = False Then SettingsForm.NetworkChChat.Checked = True End If SettingsForm.CustGateCheck.Checked = bnx._Settings._CustGKID SettingsForm.CustGate.Text = bnx._Settings._GKID SettingsForm.IRCVERSION.Text = bnx._Settings._IRC7Version SettingsForm.FindsMcPP.Checked = bnx._Settings._findsMethodPP If bnx._Settings._findsMethodPP = False Then SettingsForm.FindsMcG.Checked = True End If End Sub Public __Email = SettingsForm.email.Text Public __Pswd = SettingsForm.Password.Text Public __GKPIDX = SettingsForm.GKPID.Text Public __MSProfile = SettingsForm.Profile.Text Public __MSRegCookie = SettingsForm.MSRegCookie.Text Public __MSTicket = SettingsForm.Ticket.Text Public __ChatIP = SettingsForm.ChatIP.Text Public __FindsIp = SettingsForm.FindsIP.Text Public __PassportAuth = SettingsForm.MethodcPP.Checked Public __CustGKID = SettingsForm.CustGateCheck.Checked Public __GKID = SettingsForm.CustGate.Text Public __Ident = SettingsForm.IDENT.Text Public __Nick = SettingsForm.TextBox1.Text Public __AltNick = SettingsForm.AltNick.Text Public __VersionReply = SettingsForm.VersionReply.Text Public __IRC7Version = SettingsForm.IRCVERSION.Text Public __FindsFirst = SettingsForm.NetworkChFinds.Checked Public __findsMethodPP = SettingsForm.FindsMcPP.Checked End Module![]()




Reply With Quote
