當前位置:首頁 » 操作系統 » 代理系統源碼

代理系統源碼

發布時間: 2022-01-09 23:58:38

1. 那裡可以下載 「保險代理業務管理系統「或類似系統的源碼

http://www.chinaz.com

2. 幫我寫一個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

3. 用友公司代理商網站模板用友軟體分公司網站源碼

您好,我搜索到了一個網站代碼應該符合您的要求哦!

有一套是ZBLOG的

ZBLOG的應該更便於搜索引擎收錄,呵呵,不過他前台是靜態的,後台只能填加文章和產品,畢竟是BLOG的嘛。

有一套是CMS的

美觀大方。後台可更新。

CMS網站源碼,與ZBLOG模板不同的是,此網站源碼支持網站各分類頁面全部在後台編輯。

cms系統用友企業網站源碼,網站支持生成靜態頁面,便於網路和谷歌網站快速收錄。

cms系統用友企業網站源碼,支持自動生成GOOGLE地圖,標簽系統,RSS。

cms系統用友企業網站源碼,自帶在線QQ客服系統。

cms系統用友企業網站源碼,最重要的是美觀大方,LOGO採用TABLE+DIV+CSS布局,不同於其他網站的是標題採用文字+鏈接便於網路和谷歌搜索引擎抓取。

詳細可以看一下我的QQ號哈,給你演示網站看看。嘿嘿

4. java 動態代理 生成的$Proxy0 用什麼方式可以獲取$Proxy0類的源碼

byte[] proxyClass = ProxyGenerator.generateProxyClass(proxy.getClass().getSimpleName(),proxy.getClass().getInterfaces());

然後將byte數組的數據通過文件流寫入文件即可。注意proxy是代理對象

5. 想用python寫一個代理http的代理程序,有沒有可以參考的源代碼

https://..com/question/429840094070280492
下次問之前你可以考慮先網路下

6. 求一個代理IP提取網站源碼 有後台的最好 希望能用某寶單號提取IP !

php">代理IP自動提取網站源碼是一款基於DEDECMS二次開發製作的自動提取代理IP系統。界面比較簡單,喜歡的朋友可以下載測試!空間需要支持php+mysql將源碼完整上傳至伺服器空間,將DATA裡面的common.inc.php文件打開,把裡面的資料庫信息修改成你自己的。
然後把根目錄下面的kexingma.sql這個資料庫文件導入到你的資料庫,一般可以通過phpmyadmin來導入進去
後台路徑admin後台賬號和密碼都是admin


7. 如果我有易語言的ip代理源碼,如何快速的添加到自己的某個源碼,並起作用!比如,

IE代理不會立即生效,需重啟IE

8. 如何編寫一個簡單的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

9. 求一份用代理IP刷空間點擊率的易語言源碼

你是想做網易等等的刷博客點擊率軟體吧..
當你不斷刷新同一個網頁,網易博客就會自動將你的IP置入黑名單,導致你不能再繼續刷新
我也做過同類的軟體,我告訴你一個交互刷新的方法:(不會封IP,所以不需要用代理的命令)
只要不是同一個頁面就不被封,如 日誌或主頁配搭,或相冊與主頁配搭
注意:必須有兩個編輯框,用來輸入不同的配搭的博客或空間網址.

再做個時鍾,然後再時鍾周期事件里輸入以下命令:

注意,圖中的編輯框3是寫延遲時間的數值.你可以不需要這個"如果真()"命令
****************************************************************************************
.版本 2
.支持庫 HtmlView
.判斷開始 (超文本瀏覽框1.地址 = 編輯框1.內容)
超文本瀏覽框1.地址 = 編輯框2.內容
.默認
超文本瀏覽框1.地址 = 編輯框1.內容

一直這樣循環.

熱點內容
語義分析階段在編譯過程中的作用 發布:2024-02-29 16:01:33 瀏覽:289
現代悅納哪個配置有手環 發布:2024-02-29 15:57:24 瀏覽:635
存儲卡FC 發布:2024-02-29 15:39:54 瀏覽:580
win2008建ftp 發布:2024-02-29 15:31:17 瀏覽:856
大數據生成腳本 發布:2024-02-29 15:25:55 瀏覽:630
行李箱怎麼弄密碼 發布:2024-02-29 15:15:06 瀏覽:657
查看資料庫版本oracle 發布:2024-02-29 15:07:33 瀏覽:526
Targz包解壓 發布:2024-02-29 14:48:57 瀏覽:438
python設置默認參數設置 發布:2024-02-29 14:32:32 瀏覽:426
奧迪a6l壓縮機工作原理 發布:2024-02-29 14:27:33 瀏覽:683