服务器代理商对接源码_客户端代理和服务器代理

文章目录：

• 1、怎么代理游戏?
• 2、我用的是万网的服务器怎么找我网站的源代码 ，
• 3、如何编写一个简单的HTTP代理服务器，最好提供VB源码

怎么代理游戏?

不想去摘一些帖子糊弄你，

1你想代理一款海外游戏，就需要有专门的服务器，根据游戏的好坏，几百万到几亿/每年。好象国内的便宜点。你钱不够可以做区域代理，具体情况，我不是很清楚，不过你也要有几十万资本，赚可能会赚，但你能接到才可以。

2如果是玩国外的网络游戏，就需要国外朋友帮你弄代理服务器，或你找代理商买。*不知道有没有想玩中国游戏的，你也可以赚这笔钱，给人家代理服务器。

3代理游戏帐号 就是找1帮人去玩美服的游戏，带练级，刷钱，军阶，等等很多。都很赚钱，拿WOW来说，国服1G是0.25元，美服是0.8--1.5元，你弄上点机子，找美国那边的人给你弄代理服务器，那边也有专人做这方面的生意。

4代理游戏点卡 不需要钱 你只要能卖出去就行，1张大约能赚2-3元。

5 网络游戏货币，销量很火，学会远程监控 VB等程序，弄点木马，无须资本。（有点损，不提倡）不过做这方面的人不少。

能想到的就这么多了 具体一些细节，你百度搜索下吧。我就不摘了

我用的是万网的服务器怎么找我网站的源代码 ，

你让你的供应商把你的FTP信息发给你，这里面包括网站的域名，FTP连接的IP、帐号、密码等信息，然后你下载一个FTP工具，把这些对应的信息输入 进去就可以连上你网站服务器的空间了，你到对应的网站目录下把文件下载下来就可以了！所有的源代码都在那里！

希望对你的问题有所帮助，如果还有什么疑问可以HI在线咨询，帮你解答！

如何编写一个简单的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