You are viewing our Forum Archives. To view or take place in current topics click here.
VB Program. Can it be done?
Posted:

VB Program. Can it be done?Posted:

Byte
  • Ladder Climber
Status: Offline
Joined: Nov 30, 201113Year Member
Posts: 378
Reputation Power: 22
Status: Offline
Joined: Nov 30, 201113Year Member
Posts: 378
Reputation Power: 22
So I was planning on doing some more work with VB after last years IT class. Although we didn't do much or close to nothing if you will I have a little knowledge in VB and I would like to extend that. The program I would like to create is TTG Name Checker, alowing you to check if the name you put in a text box is an available account on TTG. Im not 100% on how to do this but after I finish that I want to create an automatic one that checks a list of 3 letter words. Sort of like an OG TTG Name Checker.
So what i'm asking is first is this possible and second where should I start.
Thanks for reading, Termination
#2. Posted:
XBLToothPik
  • Rated Awesome
Status: Offline
Joined: Oct 31, 201014Year Member
Posts: 2,084
Reputation Power: 95
Status: Offline
Joined: Oct 31, 201014Year Member
Posts: 2,084
Reputation Power: 95


Dim WC As New System.Net.WebClient
If Wc.Downloadstring("http://www.thetechgame.com/" & AccountName.Text).Contains("There is no available info for") Then
Msgbox("That account has not been taken!")
else
MsgBox("Sorry, that account has been taken!")


EDIT: Or a WebBrowser

Idk why the code above doesn't work, it worked w/ minecraft paid checking:


If WC.Downloadstring("http://www.minecraft/haspaid.jsp?user=fdsfsdf") = "false" Then
Msgbox("That account is not premium!")
else
Msgbox("It's premium!")



Last edited by XBLToothPik ; edited 2 times in total
#3. Posted:
Zoo
  • Christmas!
Status: Offline
Joined: Aug 13, 201113Year Member
Posts: 2,113
Reputation Power: 103
Status: Offline
Joined: Aug 13, 201113Year Member
Posts: 2,113
Reputation Power: 103
whatsamod wrote


Dim WC As New System.Net.WebClient
If Wc.Downloadstring("http://www.thetechgame.com/" & AccountName.Text).Contains("There is no available info for") Then
Msgbox("That account has not been taken!")
else
MsgBox("Sorry, that account has been taken!")




Lol. You just crushed his hopes and dreams of doing it himself.
#4. Posted:
XBLToothPik
  • TTG Addict
Status: Offline
Joined: Oct 31, 201014Year Member
Posts: 2,084
Reputation Power: 95
Status: Offline
Joined: Oct 31, 201014Year Member
Posts: 2,084
Reputation Power: 95
Zoo wrote
whatsamod wrote


Dim WC As New System.Net.WebClient
If Wc.Downloadstring("http://www.thetechgame.com/" & AccountName.Text).Contains("There is no available info for") Then
Msgbox("That account has not been taken!")
else
MsgBox("Sorry, that account has been taken!")




Lol. You just crushed his hopes and dreams of doing it himself.


Actually it didn't even work lol.
#5. Posted:
Zoo
  • TTG Addict
Status: Offline
Joined: Aug 13, 201113Year Member
Posts: 2,113
Reputation Power: 103
Status: Offline
Joined: Aug 13, 201113Year Member
Posts: 2,113
Reputation Power: 103
whatsamod wrote
Zoo wrote
whatsamod wrote


Dim WC As New System.Net.WebClient
If Wc.Downloadstring("http://www.thetechgame.com/" & AccountName.Text).Contains("There is no available info for") Then
Msgbox("That account has not been taken!")
else
MsgBox("Sorry, that account has been taken!")




Lol. You just crushed his hopes and dreams of doing it himself.


Actually it didn't even work lol.


Oh, I don't know VB so I wouldn't know.
#6. Posted:
Byte
  • Ladder Climber
Status: Offline
Joined: Nov 30, 201113Year Member
Posts: 378
Reputation Power: 22
Status: Offline
Joined: Nov 30, 201113Year Member
Posts: 378
Reputation Power: 22
Thanks for the replies. He didn't really crush my hopes and dreams because the actual challenge was to make it automatically search for 3 letter words. That was just a start to be getting back into the rhythm.
#7. Posted:
NathanLee123
  • Ladder Climber
Status: Offline
Joined: Oct 15, 201113Year Member
Posts: 360
Reputation Power: 14
Status: Offline
Joined: Oct 15, 201113Year Member
Posts: 360
Reputation Power: 14
I Found A Way To Do This
Jump to:
You are viewing our Forum Archives. To view or take place in current topics click here.