刷ip网站源码

易语言的大神们谁有伪造IP还有来路地址的源码可以刷网站的

你好，用计次循环即可，用精易模块的设置IE代理功能。 代理IP的话，淘宝上面有卖的，1块钱能买好几千IP，将IP放进超级列表框，给你个例子。 计次循环首(超级列表框1.取项目数(),n)设置IE上网代理()超文本浏览框1.执行(#刷新)计次循环尾()自己适当修改一下即可使用！满意请采纳！谢谢！

求一个代理IP提取网站源码 有后台的最好 希望能用某宝单号提取IP ！

代理IP自动提取网站源码是一款基于DEDECMS二次开发制作的自动提取代理IP系统。 界面比较简单，喜欢的朋友可以下载测试！空间需要支持php+mysql将源码完整上传至服务器空间，将DATA里面的common.inc.php文件打开，把里面的数据库信息修改成你自己的。 然后把根目录下面的kexingma.sql这个数据库文件导入到你的数据库，一般可以通过phpmyadmin来导入进去后台路径admin后台账号和密码都是admin

ip代理刷网址 VB或易语言啊！什么的都行 要源码！

代理IP太麻烦，如果你用的是ADSL宽带，可以参照以下代码：Option ExplicitPrivate Declare Function RasHangUp Lib "RasApi32.dll" Alias "RasHangUpA" (ByVal hRasConn As Long) As LongPrivate Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, lpcConnections As Long) As LongPrivate Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As LongConst RAS95_MaxEntryName = 256Const RAS95_MaxDeviceName = 128Const RAS_MaxDeviceType = 16Const RAS95_MaxDeviceType = 16Private Type RASCONN95'set dwsize to 412dwSize As LonghRasConn As LongszEntryName(RAS95_MaxEntryName) As ByteszDeviceType(RAS_MaxDeviceType) As ByteszDeviceName(RAS95_MaxDeviceName) As ByteEnd TypePrivate Type RASCONNSTATUS95 dwSize As Long RasConnState As Long dwError As Long szDeviceType(RAS95_MaxDeviceType) As Byte szDeviceName(RAS95_MaxDeviceName) As ByteEnd TypeConst INTERNET_DIALSTATE_DISCONNECTED = 1Const INTERNET_AUTODIAL_FORCE_ONLINE = 1Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2Const INTERNET_DIAL_UNATTENDED = &H8000;Dim iHandle As LongPrivate Declare Function InternetDial Lib "wininet.dll" ( _ ByVal hwndParent As Long, _ ByVal lpszConnectoid As String, _ ByVal dwFlags As Long, _ lpdwConnection As Long, _ ByVal dwReserved As Long) As Long '参数dwConnection指定拨号连接句柄Private Declare Function InternetHangUp Lib "wininet.dll" _ (ByVal dwConnection As Long, _ ByVal dwReserved As Long) As Long '断开 Public Sub CloseConnected()Dim lngRetCode As LongDim lpcb As LongDim lpcConnections As LongDim intArraySize As IntegerDim intLooper As IntegerReDim lprasconn95(intArraySize) As RASCONN95lprasconn95(0).dwSize = 412lpcb = 256 * lprasconn95(0).dwSizelngRetCode = RasEnumConnections(lprasconn95(0), lpcb, lpcConnections)If lngRetCode = 0 ThenIf lpcConnections > 0 ThenFor intLooper = 0 To lpcConnections - 1RasHangUp lprasconn95(intLooper).hRasConnNext intLooperElseMsgBox "没有拨号网络连接！", vbInformationEnd IfEnd IfEnd Sub'检测Public Function IsConnected() As Boolean '返回T时为连接 Dim TRasCon(255) As RASCONN95 Dim lg As Long Dim lpcon As Long Dim RetVal As Long Dim Tstatus As RASCONNSTATUS95 ' TRasCon(0).dwSize = 412 lg = 256 * TRasCon(0).dwSize ' RetVal = RasEnumConnections(TRasCon(0), lg, lpcon) If RetVal <> 0 Then MsgBox "产生错误！", vbInformation, "提示" Exit Function End If ' Tstatus.dwSize = 160 RetVal = RasGetConnectStatus(TRasCon(0).hRasConn, Tstatus) If Tstatus.RasConnState = &H2000; Then IsConnected = True Else IsConnected = False End IfEnd Function'拨号Public Function AddConnected() '建立名称为wt的连接，连接成功后连接句柄保存在iHandel中 InternetDial Form1.hWnd, "wt", INTERNET_AUTODIAL_FORCE_UNATTENDED, iHandle, 0End FunctionPrivate Sub Command1_Click()Dim x As Stringx = AddConnected()End SubPrivate Sub Command2_Click()Call CloseConnectedEnd SubPrivate Sub Command3_Click()Dim k As BooleanIf IsConnected() = True Then MsgBox ("OK") Else MsgBox ("No") End IfEnd SubPrivate Sub Form_Activate()Me.HideEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)If IsConnected() = False ThenCommand1_Click '连接End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set Form1 = NothingEnd SubPrivate Sub Timer1_Timer()Command2_Click '断开Unload MeForm2.ShowEnd Sub

下载链接：网站源码/小程序源码/网站模板下载

Tags： 源码 网站 ip