把IP转换为域名：用gethostbyname和 gethostbyaddr这两个API怎么来是提示错误？

2001-06-08 04:46:00 251 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

中文大写数字转换为阿拉伯数字（java） 1、引言昨天面试了微软的暑期实习生，二面的时候面试官给出了这道题，起初拿到题目的时候感觉还挺简单的，想着直接用遍历加一个缓存应该就能搞定了，但是和面试官沟通了一会儿之后发现自己没考虑到的还有很多，最后在面试官的提醒下磕磕绊绊的算是弄出了最优解，不过时间已经不多了，最后也没有完全给出bug free的代码，虽然面试应该是凉了，不过面试体验还是很好的，微软的面试官人特别温柔，最后也给出了很多友善的... 阅读详情

找不到 DLL 入口点 gethostbyname in ws2_32
一定给分。

...全文

阿拉伯数字转换成中文读法的C语言程序记一道评论区的题目导语 : 作为一个西电的菜鸡 , 每天只能和不超过两天的ddl较劲 , 啥也不懂 , 啥也不会. 因为家里硬盘不太够了所以把作业的代码传到博客里保存. 可以预见到的 , 遭到了真正大佬的嘲笑. 其中 , 二哥在讨论区里留下一道题目 , 我觉得还挺有意思的. 所以试着实现了一下 , 作为博客的第二篇拙作. 1.题目分析一下 , 是想实现一个小写数字到中文大写数字的转化. 那么 , 如果我们想要实现这个功能 , 首先我们要重新回顾一下中文数字的读法和英文读法的区别. 2. 阅读详情

xiaxuan

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

eastone111 2001-06-11

打赏
举报

我解决了，发给你

OLD_VB_FAN 2001-06-09

打赏
举报

@＿@

xiaxuan 2001-06-09

打赏
举报

我试试先。

xiaxuan 2001-06-09

打赏
举报

谢谢，老兄

TechnoFantasy 2001-06-08

打赏
举报

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&, lpWSAData As WSADATA) As Long
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () 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 没有反应."
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版本 " & sLowByte & "." & sHighByte
sMsg = sMsg & " 不被winsock.dll支持 "
MsgBox sMsg
End
End If

If WSAD.iMaxSockets < MIN_SOCKETS_REQD Then
sMsg = "这个系统需要的最少Sockets数为 "
sMsg = sMsg & Trim$(Str$(MIN_SOCKETS_REQD))
MsgBox sMsg
End
End If

End Sub

Sub SocketsCleanup()
Dim lReturn As Long

lReturn = WSACleanup()

If lReturn <> 0 Then
MsgBox "Socket错误 " & Trim$(Str$(lReturn)) & " occurred in Cleanup "
End
End If
End Sub

Sub Form_Load()
'初始化Socket
SocketsInitialize
End Sub

Private Sub Form_Unload(Cancel As Integer)
'清除Socket
SocketsCleanup
End Sub

Private Sub Command1_click()
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

hostent_addr = gethostbyname(Text1)

If hostent_addr = 0 Then
MsgBox "主机名不能被解释."
Exit Sub
End If

RtlMoveMemory host, hostent_addr, LenB(host)
RtlMoveMemory hostip_addr, host.hAddrList, 4

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)

MsgBox ip_address
End Sub

xiaxuan 2001-06-08

打赏
举报

急死我了，各位帮忙

xiaxuan 2001-06-08

打赏
举报

难道没有人知道吗？

把IP转换为域名：用gethostbyname和 gethostbyaddr这两个API怎么来是提示错误？

相关推荐