| View previous topic :: View next topic |
| Author |
Message |
Dragonpearl
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 17 Sep 2007
Posts: 1240
Location: behind you with a dagger
|
 Posted: Wed Jan 02, 2008 12:09 pm Post subject: [tut]How to make a "whats my ip adress for my comp" |
 |
|
open up VB6
Click standard exe
Add a textbox and a command button.
Type in this code into your form:
| Code: | Private Const WS_VERSION_REQD = &H101
Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&
Private Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&
Private Const MIN_SOCKETS_REQD = 1
Private Const SOCKET_ERROR = -1
Private Const WSADescription_Len = 256
Private Const WSASYS_Status_Len = 128
Private Type HOSTENT
hName As Long
hAliases As Long
hAddrType As Integer
hLength As Integer
hAddrList As Long
End Type
Private Type WSADATA
wversion As Integer
wHighVersion As Integer
szDescription(0 To WSADescription_Len) As Byte
szSystemStatus(0 To WSASYS_Status_Len) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpszVendorInfo As Long
End Type
Private Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long
Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal _
wVersionRequired As Integer, lpWSAData As WSADATA) As Long
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Private Declare Function gethostname Lib "WSOCK32.DLL" (ByVal hostname$, _
ByVal HostLen As Long) As Long
Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal _
hostname$) As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (hpvDest As Any, ByVal _
hpvSource&, ByVal cbCopy&)
Function hibyte(ByVal wParam As Integer)
hibyte = wParam \ &H100 And &HFF&
End Function
Function lobyte(ByVal wParam As Integer)
lobyte = wParam And &HFF&
End Function
Sub SocketsInitialize()
Dim WSAD As WSADATA
Dim iReturn As Integer
Dim sLowByte As String, sHighByte As String, sMsg As String
iReturn = WSAStartup(WS_VERSION_REQD, WSAD)
If iReturn <> 0 Then
MsgBox "Winsock.dll is not responding."
End
End If
If lobyte(WSAD.wversion) < WS_VERSION_MAJOR Or (lobyte(WSAD.wversion) = _
WS_VERSION_MAJOR And hibyte(WSAD.wversion) < WS_VERSION_MINOR) Then
sHighByte = Trim$(Str$(hibyte(WSAD.wversion)))
sLowByte = Trim$(Str$(lobyte(WSAD.wversion)))
sMsg = "Windows Sockets version " & sLowByte & "." & sHighByte
sMsg = sMsg & " is not supported by winsock.dll "
MsgBox sMsg
End
End If
'iMaxSockets is not used in winsock 2. So the following check is only
'necessary for winsock 1. If winsock 2 is requested,
'the following check can be skipped.
If WSAD.iMaxSockets < MIN_SOCKETS_REQD Then
sMsg = "This application requires a minimum of "
sMsg = sMsg & Trim$(Str$(MIN_SOCKETS_REQD)) & " supported sockets."
MsgBox sMsg
End
End If
End Sub
Sub SocketsCleanup()
Dim lReturn As Long
lReturn = WSACleanup()
If lReturn <> 0 Then
MsgBox "Socket error " & Trim$(Str$(lReturn)) & " occurred in Cleanup "
End
End If
End Sub
Sub Form_Load()
SocketsInitialize
End Sub
Private Sub Form_Unload(Cancel As Integer)
SocketsCleanup
End Sub
Private Sub Command1_click()
Dim hostname As String * 256
Dim hostent_addr As Long
Dim host As HOSTENT
Dim hostip_addr As Long
Dim temp_ip_address() As Byte
Dim i As Integer
Dim ip_address As String
If gethostname(hostname, 256) = SOCKET_ERROR Then
MsgBox "Windows Sockets error " & Str(WSAGetLastError())
Exit Sub
Else
hostname = Trim$(hostname)
End If
hostent_addr = gethostbyname(hostname)
If hostent_addr = 0 Then
MsgBox "Winsock.dll is not responding."
Exit Sub
End If
RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4
'get all of the IP address if machine is multi-homed
Do
ReDim temp_ip_address(1 To host.hLength)
RtlMoveMemory temp_ip_address(1), hostip_addr, host.hLength
For i = 1 To host.hLength
ip_address = ip_address & temp_ip_address(i) & "."
Next
ip_address = Mid$(ip_address, 1, Len(ip_address) - 1)
Text1.Text = ip_address
ip_address = ""
host.hAddrList = host.hAddrList + LenB(host.hAddrList)
RtlMoveMemory hostip_addr, host.hAddrList, 4
Loop While (hostip_addr <> 0)
End Sub |
delete all the text in your textbox.
Now when you press the command button, your IP Adress will appear in your TextBox.
|
|
| Back to top |
|
 |
samuri25404
Grandmaster Cheater
 Reputation: 7
Joined: 04 May 2007
Posts: 955
Location: Why do you care?
|
| Posted: Wed Jan 02, 2008 12:28 pm Post subject: |
|
|
How about explaining the code?
_________________
|
|
| Back to top |
|
|
Blader
I post too much
 Reputation: 2
Joined: 19 Jan 2007
Posts: 2049
|
| Posted: Wed Jan 02, 2008 12:31 pm Post subject: |
|
|
You should really give credit to the site you are getting this from instead of just copying and pasting it
_________________
|
|
| Back to top |
|
|
--Pillboi--
Grandmaster Cheater Supreme
 Reputation: 0
Joined: 06 Mar 2007
Posts: 1383
Location: I don't understand the question. Is this a 1 to 10 thing?
|
| Posted: Wed Jan 02, 2008 12:32 pm Post subject: |
|
|
Where could you have got this from without giving credits?
Btw, I'm sorry I keep being mean about all your posts.
_________________
 
Enter darkness, leave the light, Here be nightmare, here be fright...
Earth and Water, Fire and Air. Prepare to meet a creature rare.
Enter now if you dare, Enter now the dragon's lair. |
|
| Back to top |
|
|
Dragonpearl
Grandmaster Cheater Supreme
Reputation: 0
Joined: 17 Sep 2007
Posts: 1240
Location: behind you with a dagger
|
| Posted: Wed Jan 02, 2008 12:34 pm Post subject: |
|
|
um, I didn't even got that from there. I got the code from my brother you see.
|
|
| Back to top |
|
|
--Pillboi--
Grandmaster Cheater Supreme
Reputation: 0
Joined: 06 Mar 2007
Posts: 1383
Location: I don't understand the question. Is this a 1 to 10 thing?
|
| Posted: Wed Jan 02, 2008 12:36 pm Post subject: |
|
|
Even so, you should have asked him where he got it from. About 4 other sites have that code, but Microsoft is the origonal site. I found that in under 5 seconds on google, so you should have just very quickly checked where it was from.
_________________
Enter darkness, leave the light, Here be nightmare, here be fright...
Earth and Water, Fire and Air. Prepare to meet a creature rare.
Enter now if you dare, Enter now the dragon's lair. |
|
| Back to top |
|
|
Blader
I post too much
Reputation: 2
Joined: 19 Jan 2007
Posts: 2049
|
| Posted: Wed Jan 02, 2008 1:23 pm Post subject: |
|
|
| Dragonpearl wrote: |
um, I didn't even got that from there. I got the code from my brother you see. |
If your brother knows VB, then why didn't you ask him for help on your problems? o.o
Well, unless he copied and pasted too
_________________
|
|
| Back to top |
|
|
Dragonpearl
Grandmaster Cheater Supreme
Reputation: 0
Joined: 17 Sep 2007
Posts: 1240
Location: behind you with a dagger
|
| Posted: Wed Jan 02, 2008 1:26 pm Post subject: |
|
|
| Blader wrote: | | Dragonpearl wrote: |
um, I didn't even got that from there. I got the code from my brother you see. |
If your brother knows VB, then why didn't you ask him for help on your problems? o.o
Well, unless he copied and pasted too |
cuz hes an adult. He just came today just to see us.
|
|
| Back to top |
|
|
--Pillboi--
Grandmaster Cheater Supreme
Reputation: 0
Joined: 06 Mar 2007
Posts: 1383
Location: I don't understand the question. Is this a 1 to 10 thing?
|
| Posted: Wed Jan 02, 2008 1:38 pm Post subject: |
|
|
So he gave you a whole load of code, but you couldn't ask a few simple questions?
Anyway, requesting this thread be locked, before war breaks out.
_________________
Enter darkness, leave the light, Here be nightmare, here be fright...
Earth and Water, Fire and Air. Prepare to meet a creature rare.
Enter now if you dare, Enter now the dragon's lair. |
|
| Back to top |
|
|
atom0s
Moderator
 Reputation: 205
Joined: 25 Jan 2006
Posts: 8587
Location: 127.0.0.1
|
| Posted: Thu Jan 03, 2008 2:43 am Post subject: |
|
|
| Dragonpearl wrote: | | Blader wrote: | | Dragonpearl wrote: |
um, I didn't even got that from there. I got the code from my brother you see. |
If your brother knows VB, then why didn't you ask him for help on your problems? o.o
Well, unless he copied and pasted too |
cuz hes an adult. He just came today just to see us. |
You seem to have an excuse for just about everything you have been confronted about so far in this section. If you are going to post source code, please make sure to check with "your brother" or whom ever you get it from before posting it. Copy pasting code and basically saying here to others is stealing credit and not giving the proper credit to the original author.
This source did come from Microsoft and is posted on several other forums and sites as well.
_________________
- Retired. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
