How to make a IP changer in VB6

[trevor206]

Make 1 label, 1 textbox, 1 command button and 1 winsock control
heres a pic of what it should look like.
Here's there Code for it.There are two diffrent ways you can make the msg box the first way will be in the first code box the other way will be in the second code box.


Command button 1 code.

MsgBox ("Windows IP is about to change do you wish to continue?"),vbinformation,("WARNING")
Shell ("ipconfig /flushdns")
Shell ("ipconfig / Release")
Shell ("ipconfig / Renew")
Text1 = Winsock1.LocalIP

Second way for msgbox.

Dim iResponse As String
iResponse = MsgBox("This Will Change your IP Adress" & vbCrLf & "Do you Wish to Continue ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1, "Are You Sure")

If you don't have winsock control in your Components>Controls (press Ctrl + T to check.) if it's not in Components>Controls the download for it is below.
And if you want to just try it the download is also below for the ip changer i made.

[Pixie]

LMAO, I tried this cause of a video on youtube, but for some reason, it wouldn't let me make it to .exe.... I will try again...

[Iamazn]

This only works for some people
You can make a .BAT file for this
Ipconfig /release
ipconfig /renew

[trevor206]

This only works for some people
You can make a .BAT file for this
Ipconfig /release
ipconfig /renew

i know about the .bat file but i like to do things in VB

[Iamazn]

i know about the .bat file but i like to do things in VB

Lol, but it only works for certain people. D:
And I agree with doing things in VB. I always prefer EXE over .BAT/.CMD

[Pixie]

i know about the .bat file but i like to do things in VB

So do I, it's because you can have design.

[Nexulous]

Copy+paste your code so far. And this is redundant, as VB06 is obsolete.

[CAFlames]

Hey, I Did wat u said and designed it (its kinda uber amazing) but there is a Squiggly line under Private Sub... epxected identifier. To eliminate this, i changed it to this:

Public Class Form1

Private Property Winsock1 As Object
Private Sub Button1_Click()
Dim iResponse As String
iResponse = MsgBox("This Will Change your IP Adress" & vbCrLf & "Do you Wish to Continue ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1, "Are You Sure")

Shell("ipconfig /flushdns")
Shell("ipconfig / Release")
Shell("ipconfig / Renew")
TextBox1 = Winsock1.LocalIP
End Sub
End Class


Please tell me if this works. If Not, please say how i can fix it.

Ty

[Nexulous]

End the expected identifier is what I'm thinking, though I'm stupid at VB.

[CAFlames]

Im kinda new.. soo how would i do that?

I Eliminated all the errors with the code i posted.

Heres the code WITH the error:
Public Class Form1

Private Sub
Dim iResponse As String
iResponse = MsgBox("This Will Change your IP Adress" & vbCrLf & "Do you Wish to Continue ", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1, "Are You Sure")

Shell("ipconfig /flushdns")
Shell("ipconfig / Release")
Shell("ipconfig / Renew")
Text1 = Winsock1.LocalIP

End Sub
End Class


Im assuming that Text1 (in VB 2010) should be textbox1, so i fixed it

[Nexulous]

Theoretically, should be fine.