代理網頁源碼
⑴ 幫我寫一個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：開頁游平台也是做生意，投錢是肯定的！