一个获得自己外网 IP 地址的程序代码.pdfVIP

一个获得自己外网 IP 地址的程序代码 一个获得自己外网 IP 地址的程序代码 一一个个获获得得自自己己外外网网 IIPP 地地址址的的程程序序代代码码 学习各种高级外挂制作技术，马上去百度搜索 魔鬼作坊，点击第一个站进入， 快速成为做挂达人。 OptionExplicit 一个获得自己外网 IP 地址的程序代码。 PrivateConst INTERNET_OPEN_TYPE_PRECONFIG = 0 PrivateConst INTERNET_OPEN_TYPE_DIRECT= 1 PrivateConst INTERNET_OPEN_TYPE_PROXY = 3 PrivateConst scUserAgent = Microsoft InternetExplorer6.0 PrivateConst INTERNET_FLAG_RELOAD = PrivateDeclare FunctionInternetOpen Libwininet.dllAlias InternetOpenA (ByVal sAgentAs String,ByVal lAccessTypeAs Long, ByVal sProxyNameAs String, ByVal sProxyBypassAs String,ByVal lFlagsAs Long)As Long PrivateDeclareFunction InternetOpenUrl Libwininet.dllAlias InternetOpenUrlA (ByVal hOpenAs Long,ByVal sUrl As String,ByVal sHeadersAs String,ByVal lLengthAs Long, ByVallFlagsAs Long,ByVallContext As Long)As Long PrivateDeclare FunctionInternetReadFile Libwininet.dll(ByVal hFileAs Long,ByVal sBufferAs String, ByVallNumBytesToReadAs Long,lNumberOfBytesReadAs Long)As Integer PrivateDeclare FunctionInternetCloseHandle Libwininet.dll (ByVal hInetAs Long)As Integer PrivateDeclareFunctionlstrlenLibkernel32AliaslstrlenA (ByVallpStringAsString)As Long Public Function GetWebSoundCode(ByVal URLAs String)As String Dim hOpen As Long Dim hOpenUrl As Long Dim bDoLoop As Boolean Dim bRet As Boolean Dim sReadBuffer As String* 2048 Dim lNumberOfBytesRead As Long Dim sBuffer As String 调用时 URL 参数一定要带“http://”前缀. If Left$(LCase$(URL), 7) http:// ThenURL= http:// URL hOpen= InternetOpen(scUserAgent,INTERNET_OPEN_TYPE_PRECONFIG, vbNullString,vbNullString,0) hOpenUrl = InternetOpenUrl(hOpen,URL, vbNullString, 0, INTERNET_FLAG_RELOAD,0) bDoLoop=True While bDoLoop sReadBuffer= vbNullString bRet= InternetReadFile(hOpenUrl, sReadBuffer, Len(sRe