代理网页源码
⑴ 帮我写一个VB源码，自动使用socks5代理后打开一个网页。大神们帮帮忙
平凡的真的不能用,楼主的代理也可以用呀,只有第二个不能用,我发个能用的,代码如下: Private Const INTERNET_OPTION_PROXY = 38 Private Const INTERNET_OPEN_TYPE_PROXY = 3 Private Type INTERNET_PROXY_INFO dwAccessType As Long lpszProxy As String lpszProxyBypass As String End Type Private Declare Function internetsetoption Lib "wininet.dll" _ Alias "InternetSetOptionA" _ (ByVal hinternet As Long, _ ByVal dwoption As Long, _ ByRef lpbuffer As Any, _ ByVal dwbufferlength As Long) As Long Function SetProxy() Dim options As INTERNET_PROXY_INFO options.dwAccessType = INTERNET_OPEN_TYPE_PROXY options.lpszProxy = "SOCKS=" & Combo1.Text '127.0.0.1:9050 options.lpszProxyBypass = "" internetsetoption 0, INTERNET_OPTION_PROXY, options, LenB(options) End Function Private Sub Command1_Click() SetProxy WebBrowser1.Navigate Text1.Text End Sub
⑵ 求一个代理IP提取网站源码 有后台的最好 希望能用某宝单号提取IP ！
php">代理IP自动提取网站源码是一款基于DEDECMS二次开发制作的自动提取代理IP系统。界面比较简单，喜欢的朋友可以下载测试！空间需要支持php+mysql将源码完整上传至服务器空间，将DATA里面的common.inc.php文件打开，把里面的数据库信息修改成你自己的。
然后把根目录下面的kexingma.sql这个数据库文件导入到你的数据库，一般可以通过phpmyadmin来导入进去
后台路径admin后台账号和密码都是admin
⑶ 易语言怎么做 用不同ip访问同一个网址的软件 就像球球刷5棒棒糖的 求源码
这种程序一般有两种实现方式：
一：断开并重新连接宽带连接，然后IP自然变换了。
二：使用代理IP，用彗星HTTP或者精易模块都有网页访问函数，里面有个代理参数，填代理IP地址就好了。
⑷ 在线求一个PHP网页源代码 ``(为了完成作业)
一楼的不要蒙人啊。
下面是一个远程修改ftp密码的php程序，你交上去，一定非常好。
不仅包含有html知识，也有js验证，还有php知识。如果你今后做网站，这个程序对你也非常实用。
<?PHP
if($_POST['servername']){
function jsalert($w)
{
echo '<script language="javascript">alert("'.$w.'");'."\r\n";
echo 'window.history.go(-1)';
echo '</script>';
}
if(!$_POST['UserName']){jsalert('Username error');exit;}
if(!($fp=@ftp_connect($_POST['servername'])))
{
jsalert( $_POST['servername'].'server can not connect！');
exit();
}
if(!@ftp_login($fp,$_POST['UserName'],$_POST['OldPassWord']))
{
jsalert('Sorry, you entered an incorrect username or password!');
exit();
}
if(@ftp_site($fp,'pswd '.$_POST['OldPassWord'].' '.$_POST['NewPassWord']))
{
jsalert('OK, the password has been successfully changed.');
exit;
}
else
{
jsalert('Failure, may be the FTP server does not support the change。');
exit;
}
}
else{
?>
<html>
<head>
<title>FTP password online tools to change</title>
<script language="JavaScript">
function is_kuho_password(password){
var pattern = /^([a-zA-Z0-9])+$/;
var flag= pattern.test(password);
if(!flag){return false;}
return true;
}
function passchange(){
var servername = document.passwdchange.servername.value;
var UserName = document.passwdchange.UserName.value;
var OldPassWord = document.passwdchange.OldPassWord.value;
var NewPassWord = document.passwdchange.NewPassWord.value;
var NewPassWord1 = document.passwdchange.NewPassWord1.value;
if(!servername){
alert('Please input domain name or ip');
document.passwdchange.servername.focus();
document.passwdchange.servername.value='';
return false;
}
if(!UserName){
alert('Please input user name');
document.passwdchange.UserName.focus();
document.passwdchange.UserName.value='';
return false;
}
//check PassWord
if(!OldPassWord){
alert('Please input password');
document.passwdchange.OldPassWord.focus();
document.passwdchange.OldPassWord.value='';
return false;
}
if(!NewPassWord){
alert('Please input new password');
document.passwdchange.NewPassWord1.value='';
document.passwdchange.NewPassWord.focus();
document.passwdchange.NewPassWord.value='';
return false;
}
if(!is_kuho_password(NewPassWord)){
alert('Sorry! You do not regulate the new password! Please enter from the 6-20 letters or numbers in Password!');
document.passwdchange.NewPassWord1.value='';
document.passwdchange.NewPassWord.focus();
document.passwdchange.NewPassWord.value='';
return false;
}
if(NewPassWord.length < 6 || NewPassWord.length > 20 ){
alert('You enter a new password length is not in line with the norms, enter the password 6-20 bit!');
document.passwdchange.NewPassWord1.value='';
document.passwdchange.NewPassWord.focus();
document.passwdchange.NewPassWord.value='';
return false;
}
if(!NewPassWord1){
alert('Make sure your new password!');
document.passwdchange.NewPassWord1.focus();
document.passwdchange.NewPassWord1.value='';
return false;
}
if(!is_kuho_password(NewPassWord1)){
alert('Sorry! You do not regulate the new password! Please enter from the 6-20 letters or numbers in Password!');
document.passwdchange.NewPassWord1.focus();
document.passwdchange.NewPassWord1.value='';
return false;
}
if( NewPassWord1.length < 6 || NewPassWord1.length > 20 ){
alert('Sorry! You do not regulate the new password! Please enter from the 6-20 letters or numbers in Password!');
document.passwdchange.NewPassWord1.focus();
document.passwdchange.NewPassWord1.value='';
return false;
}
if(NewPassWord != NewPassWord1){
alert('You enter the new password twice inconsistent, please re-enter after the check!');
document.passwdchange.NewPassWord1.value='';
document.passwdchange.NewPassWord.focus();
document.passwdchange.NewPassWord.value='';
return false;
}
if(NewPassWord == OldPassWord){
alert('The new password and the old password, no need to change!');
document.passwdchange.NewPassWord1.value='';
document.passwdchange.NewPassWord.focus();
document.passwdchange.NewPassWord.value='';
return false;
}
document.passwdchange.Submit.value="Being change...";
document.passwdchange.Submit.disabled=true;
}
</SCRIPT>
</head>
<body>
<div align="center">
<center>
<TABLE cellSpacing=1 cellPadding=8 width="600" bgColor=#635139 border=0>
<FORM name=passwdchange target="_self" action=<?php echo $_SERVER['PHP_SELF']; ?> onsubmit="return passchange()" method=post>
<TBODY>
<tr>
<TD align=center bgColor=#FFFFFF colspan="2"><font color="#FF9933"><b>
FTP password online tools to change</b></font></TD>
</tr>
<tr>
<TD align=right bgColor=#d6d3d6 width="154">Sever name：</TD>
<TD align=left bgColor=#ffffff width="411"><INPUT style="BORDER-RIGHT: 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: 1px solid; COLOR: #484800; PADDING-TOP: 1px; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #ffffff"
maxLength=16 name=servername size="20"><FONT class=color1> <font color="#FF9933">
* Domain name or IP address</font></FONT></TD>
</tr>
<TR height=30>
<TD align=right bgColor=#d6d3d6 width="154">User name：</TD>
<TD align=left bgColor=#ffffff width="411"><INPUT
style="BORDER-RIGHT: 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: 1px solid; COLOR: #484800; PADDING-TOP: 1px; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #ffffff"
maxLength=16 name=UserName size="20"><FONT class=color1> <font color="#FF9933">
*</font></FONT></TD></TR>
<TR height=30>
<TD align=right bgColor=#d6d3d6 width="154">Password：</TD>
<TD align=left bgColor=#ffffff width="411"><INPUT
style="BORDER-RIGHT: 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: 1px solid; COLOR: #484800; PADDING-TOP: 1px; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #ffffff"
type=password maxLength=16 name=OldPassWord size="20"><FONT
class=color1> <font color="#FF9933">*</font></FONT></TD></TR>
<TR height=30>
<TD align=right bgColor=#d6d3d6 width="154">New password：</TD>
<TD align=left bgColor=#ffffff width="411"><INPUT
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; COLOR: #484800; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #ffffff"
type=password maxLength=16 name=NewPassWord size="20"><FONT
class=color1> <font color="#FF9933">*</font></FONT> (Length:6-16bit) </TD></TR>
<TR height=30>
<TD align=right bgColor=#d6d3d6 width="154">Replay new password：</TD>
<TD align=left bgColor=#ffffff width="411"><INPUT
style="BORDER-RIGHT: 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: 1px solid; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; BORDER-LEFT: 1px solid; COLOR: #484800; PADDING-TOP: 1px; BORDER-BOTTOM: 1px solid; BACKGROUND-COLOR: #ffffff"
type=password maxLength=16 name=NewPassWord1 size="20"><FONT
class=color1> <font color="#FF9933">*</font></FONT></TD></TR>
<TR>
<TD class=huangz align=middle bgColor=#ffffff colSpan=2 height=30 width="504">
<p align="center"><INPUT type=submit value=Change name=Submit></p>
</TD></TR></FORM>
</table>
</center>
</div>
</body>
</html>
<?php } ?>
⑸ 能不能找到即时在线聊天的网页源代码
可是搜索一下啊
⑹ 利用VB Winsock控件获取网页源码，如何接收完整的数据及如何判断接收完毕
网速问题，如果真想玩就弄个代理。教育网与网通电信接口都小。再不就是半夜玩。
你在网上搜代理加速器，或者网游代理就可以，选个收费的比较稳定！希望对你有帮助，如果有帮助请给好评！
⑺ 如何编写一个简单的HTTP代理服务器，最好提供VB源码
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.ListBox List1
Height = 1500
Left = 120
TabIndex = 0
Top = 720
Width = 3615
End
Begin MSWinsockLib.Winsock SckGET
Index = 0
Left = 2520
Top = 360
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock1
Left = 2040
Top = 360
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim PathName As String
Sub Begin()
'启动Winsock1,使用listen方法，听254端口
DoEvents
Winsock1.Close
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 254
Winsock1.Listen
End Sub
Private Sub Form_Load()
'开始进行十个监听
For i = 1 To 9
Load SckGET(i)
SckGET(i).Close
SckGET(i).Protocol = sckTCPProtocol
Next
PathName = "E:\http\" '初始化目录
Begin
End Sub
Private Sub SckGET_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim DataReceived As String
Dim pos1 As Long, pos2 As Long
Dim QuestFile As String
Dim TData As Byte
pos1 = 0: pos2 = 0
SckGET(Index).GetData DataReceived, vbString
'处理报文
For i = 1 To Len(DataReceived)
If Mid(DataReceived, i, 1) = " " Then
If pos1 = 0 Then pos1 = i + 1 Else pos2 = i - 1: Exit For
End If
Next
'对请求的文件进行处理
On Error GoTo ExitThisSub
If pos1 <> 0 And pos2 <> 0 Then
QuestFile = Mid(DataReceived, pos1 + 1, pos2 - pos1) '得到主文件名
If QuestFile = "" Then QuestFile = "index.htm" '主页
QuestFile = PathName & QuestFile '得到路径
List1.AddItem SckGET(Index).LocalIP & " : GET " & QuestFile & " HTTP/1.1"
If Dir(QuestFile) = "" Then QuestFile = PathName & "404.htm" '未找到
End If
'开始发送文件信息
Open QuestFile For Binary As #1
SckGET(Index).SendData "HTTP/1.0 200 OK" + vbCrLf
SckGET(Index).SendData "MIME_version:1.0" + vbCrLf
SckGET(Index).SendData "Content_Length:" + CStr(LOF(1)) + vbCrLf
SckGET(Index).SendData "" + vbCrLf
Do While Not EOF(1)
Get #1, , TData
SckGET(Index).SendData TData
Loop
ExitThisSub:
Close #1
Begin
SckGET(Index).Close
SckGET(Index).LocalPort = 254
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Con:
For i = 0 To 9
If SckGET(i).State <> 7 Then SckGET(i).Accept requestID: Exit For '查找未用的SCK
If i = 9 And SckGET(9).State <> 7 Then Delay (1): GoTo Con '如果没有则继续等待
Next
End Sub
Sub Delay(Seconds&)
t& = Timer
Delay: DoEvents
If Timer < t + Seconds Then GoTo Delay
End Sub
⑻ 求delphi 设置socks5代理访问网页的源码
增加一个TIdIOHandlerSocket组件和一个TIdSocksInfo组件
把原来的IdHTTP组件的IOHandler属性设置为新增加的TIdIOHandlerSocket组件
把新增加的TIdIOHandlerSocket组件的SocksInfo属性设置为新增加的TIdSocksInfo组件
然后在TIdSocksInfo组件中正确设置Socks5代理的参数
⑼ 如何代理网页游戏请看补充。
想要自己代理网页游戏的话，首先你得先具备：
游戏运营资质：注册资金1000万公司、文网文、icp许可证，这些是代理游戏必须具备的，没有怎么办？那你就只能做混服了，何谓混服？混服就是找别的平台合作，把他们代理回来的游戏再接过来。
网页游戏平台系统：就是你说的那个游戏网站，一个网站能有几十上百款游戏还能一号通玩就是因为有这么一个系统，主要功能的就是用户、游戏、充值、内容、客服这几块的管理。
服务器、域名：如果这个你都不懂你就放弃你这个想法吧，这是太基础的东西了。
以上这些东西具备了你就可以安排组建运营团队了，还有就是布置办公环境。
运营团队需要哪些人员呢？
商务—负责与各个游戏厂商的商务进行合作洽谈和后期的商务沟通
运营—负责游戏的推广、管理、情况跟踪、玩家问题处理等工作
客服—解答玩家的游戏问题
媒介—负责合作游戏新服、更新和活动新闻稿的发布、宣传以及媒体站的信息发布。
技术—负责整个平台以及游戏登陆、充值等接口的对接和技术问题的处理
以上就是初期一个运营团队需要具备的几大职位
办理环境需要什么？
办公环境其实就是几台可以上网的电脑，够你员工办公就可以了。
这些都齐全了，你就可以找研发商代理游戏了，这里要说明一下，代理游戏有三种正规方式一种个人方式分别是：独代、首发、联运、混服。
现在最流行的是联运方式，这种方式只需要跟研发商或者独代分成合作，基本都没有代理费。
如果要找这些游戏研发商的话，你可以网络这款游戏，一般都会有网络，网络里有这款游戏的详细信息，再根据里边提供的信息去找这款游戏的研发商或者独代商。
以上内容来源于石家庄信游科技，基本全部的东西信游科技都能给你解决。
PS：开页游平台也是做生意，投钱是肯定的！