Changing a Url

Quote:

Originally Posted by Benhero iam right with this: If you write "com" in a Textbox, the text from the Textbox change from "com" to "elitepvpers.com"? If iam right here: Code: Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If TextBox1.Text = "com" Then TextBox1.Text = "elitepvpers.com" End If End Sub

Quote:

Originally Posted by blackout617 this will change the text but i will that example = in a hidden place i writed in the program google.en and when he write in the textbox cy then it will changed too = google.cy i will when he write anything in textbox1 that it will change a place from the url i think google.{0} i see in google that when i search but i cant find :( Sorry for bad english

using System;
using System.Linq;

namespace ConsoleApplication4
{
    class Program
    {
        static void Main()
        {
            const string url = "http://sub.google.com/test/hello";
            Console.WriteLine("URL: " + url);
            Console.WriteLine("TLD: " + GetTLD(url));
            Console.Read();
        }

        public static string GetTLD(string url)
        {
            Uri uri = new Uri(url);
            if (!uri.HostNameType.Equals(UriHostNameType.Dns) || uri.IsLoopback)
                return string.Empty; // exception
            return uri.Host.Split('.').Last();
        }

    }
}

Quote:

Originally Posted by boxxiebabee Do you mean the following: If user enters e.g. [Only registered and activated users can see links. Click Here To Register...].com The "hidden place" should be [Only registered and activated users can see links. Click Here To Register...].com If user enters e.g. [Only registered and activated users can see links. Click Here To Register...].net The "hidden place" should be [Only registered and activated users can see links. Click Here To Register...].net ? If yes here you got an example, you have to convert it: Code: using System; using System.Linq; namespace ConsoleApplication4 { class Program { static void Main() { const string url = "http://sub.google.com/test/hello"; Console.WriteLine("URL: " + url); Console.WriteLine("TLD: " + GetTLD(url)); Console.Read(); } public static string GetTLD(string url) { Uri uri = new Uri(url); if (!uri.HostNameType.Equals(UriHostNameType.Dns) || uri.IsLoopback) return string.Empty; // exception return uri.Host.Split('.').Last(); } } }

Quote:

Originally Posted by blackout617 thanks and how can i get from header id text ? here is and example html place from where i will get the text : <a id=​"header_example" class=​"header_test" href=​"here is an link">​here is the text that will that he get the text there and show it in label1</a>​

Quote:

Originally Posted by -popcorn- i think u maybe can create 3 text boxes, 2 of them hidden, and u make first one Host.Split('.').Last and then make textbox2.text + textbox1.text = textbox3.text. i let u a code of a program i have done, u maybe wanna do same or something like that. Code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ComboBox1.Text = "HOME" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=" + TextBox2.Text If ComboBox1.Text = "HANGAR" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&dosid=" + TextBox2.Text If ComboBox1.Text = " equipment" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockEquipment&dosid=" + TextBox2.Text If ComboBox1.Text = " shop" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShips&dosid=" + TextBox2.Text If ComboBox1.Text = "CLAN" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalClan&dosid=" + TextBox2.Text If ComboBox1.Text = "MAIL" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalMessaging&dosid=" + TextBox2.Text If ComboBox1.Text = "QUESTS" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalQuestJobs&dosid=" + TextBox2.Text If ComboBox1.Text = "PILOT SHEET" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPilotSheet&dosid=" + TextBox2.Text If ComboBox1.Text = "URIDIUM" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&dosid=" + TextBox2.Text If ComboBox1.Text = "GALAXY GATES" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalGalaxyGates&dosid=" + TextBox2.Text If ComboBox1.Text = "TRADE" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalHandel&dosid=" + TextBox2.Text If ComboBox1.Text = "SKYLAB" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab&dosid=" + TextBox2.Text If ComboBox1.Text = " tech center" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalNanoTechFactory&dosid=" + TextBox2.Text If ComboBox1.Text = " item updating" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalItemUpgradeSystem&dosid=" + TextBox2.Text If ComboBox1.Text = "SHOP" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShips&dosid=" + TextBox2.Text If ComboBox1.Text = " ships" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShips&dosid=" + TextBox2.Text If ComboBox1.Text = " drones" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockDrones&dosid=" + TextBox2.Text If ComboBox1.Text = " weapons" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockLaser&dosid=" + TextBox2.Text If ComboBox1.Text = " ammo" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockAmmo&dosid=" + TextBox2.Text If ComboBox1.Text = " gens" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockGenerator&dosid=" + TextBox2.Text If ComboBox1.Text = " extras" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockSpecials&dosid=" + TextBox2.Text If ComboBox1.Text = " pet/gears" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockPetGear&dosid=" + TextBox2.Text If ComboBox1.Text = " protocols" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockPetProtocols&dosid=" + TextBox2.Text If ComboBox1.Text = " boosters" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockBooster&dosid=" + TextBox2.Text If ComboBox1.Text = " designs" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShipModel&dosid=" + TextBox2.Text System.Diagnostics.Process.Start("Http://" + TextBox3.Text) if u want to see the program u can [Only registered and activated users can see links. Click Here To Register...] pasword is -popcorn- , if u wanna see more, make the program bigger and u will see textbox3 bellow. all that this program does is create an url like http://"server".darkorbit.bigpoint.com/indexinternal.es?&dosid="session id", put all that in textbox3 and then go that page.(there are so much links cos combo box let u know what page u wanna go to) for your code will be something like this: Code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Textbox2.Text = 'text box 1 split' TextBox3.Text = "www.google" + textbox2.text System.Diagnostics.Process.Start("Http://" + TextBox3.Text)

Quote:

Originally Posted by boxxiebabee That's absolute bullshit. You can't really use Split for a URL to get the Top Level Domain. You will need my function i already posted.

Quote:

Originally Posted by -popcorn- i think u maybe can create 3 text boxes, 2 of them hidden, and u make first one Host.Split('.').Last and then make textbox2.text + textbox1.text = textbox3.text. i let u a code of a program i have done, u maybe wanna do same or something like that. Code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ComboBox1.Text = "HOME" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalStart&dosid=" + TextBox2.Text If ComboBox1.Text = "HANGAR" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&dosid=" + TextBox2.Text If ComboBox1.Text = " equipment" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockEquipment&dosid=" + TextBox2.Text If ComboBox1.Text = " shop" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShips&dosid=" + TextBox2.Text If ComboBox1.Text = "CLAN" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalClan&dosid=" + TextBox2.Text If ComboBox1.Text = "MAIL" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalMessaging&dosid=" + TextBox2.Text If ComboBox1.Text = "QUESTS" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalQuestJobs&dosid=" + TextBox2.Text If ComboBox1.Text = "PILOT SHEET" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPilotSheet&dosid=" + TextBox2.Text If ComboBox1.Text = "URIDIUM" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalPayment&dosid=" + TextBox2.Text If ComboBox1.Text = "GALAXY GATES" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalGalaxyGates&dosid=" + TextBox2.Text If ComboBox1.Text = "TRADE" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalHandel&dosid=" + TextBox2.Text If ComboBox1.Text = "SKYLAB" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalSkylab&dosid=" + TextBox2.Text If ComboBox1.Text = " tech center" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalNanoTechFactory&dosid=" + TextBox2.Text If ComboBox1.Text = " item updating" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalItemUpgradeSystem&dosid=" + TextBox2.Text If ComboBox1.Text = "SHOP" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShips&dosid=" + TextBox2.Text If ComboBox1.Text = " ships" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShips&dosid=" + TextBox2.Text If ComboBox1.Text = " drones" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockDrones&dosid=" + TextBox2.Text If ComboBox1.Text = " weapons" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockLaser&dosid=" + TextBox2.Text If ComboBox1.Text = " ammo" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockAmmo&dosid=" + TextBox2.Text If ComboBox1.Text = " gens" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockGenerator&dosid=" + TextBox2.Text If ComboBox1.Text = " extras" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockSpecials&dosid=" + TextBox2.Text If ComboBox1.Text = " pet/gears" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockPetGear&dosid=" + TextBox2.Text If ComboBox1.Text = " protocols" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockPetProtocols&dosid=" + TextBox2.Text If ComboBox1.Text = " boosters" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockBooster&dosid=" + TextBox2.Text If ComboBox1.Text = " designs" Then TextBox3.Text = TextBox1.Text + ".darkorbit.bigpoint.com/indexInternal.es?action=internalDock&tpl=internalDockShipModel&dosid=" + TextBox2.Text System.Diagnostics.Process.Start("Http://" + TextBox3.Text) if u want to see the program u can [Only registered and activated users can see links. Click Here To Register...] pasword is -popcorn- , if u wanna see more, make the program bigger and u will see textbox3 bellow. all that this program does is create an url like http://"server".darkorbit.bigpoint.com/indexinternal.es?&dosid="session id", put all that in textbox3 and then go that page.(there are so much links cos combo box let u know what page u wanna go to) for your code will be something like this: Code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Textbox2.Text = 'text box 1 split' TextBox3.Text = "www.google" + textbox2.text System.Diagnostics.Process.Start("Http://" + TextBox3.Text)

Quote:

Originally Posted by -popcorn- no, isnt bullshit, is just the easy way

Quote:

Originally Posted by boxxiebabee You will fail at that. My function is short, simple an effective.. you'r one is just crap.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Textbox2.Text = 'text box 1 split'
        TextBox3.Text = "www.google" + textbox2.text

System.Diagnostics.Process.Start("Http://" + TextBox3.Text)

Quote:

Originally Posted by -popcorn- Code: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Textbox2.Text = 'text box 1 split' TextBox3.Text = "www.google" + textbox2.text System.Diagnostics.Process.Start("Http://" + TextBox3.Text) is shorer than ur