igc源碼編譯

⑴ 網路游戲怎麼改源碼啊

放棄吧，單單從客戶端是沒法看到其代碼的，網游的代碼都市封裝好的，對外公布的都是封裝好的客戶端，根本無法解析，除非內部源碼泄露，於是就出現了私服……

⑵ VC++調試錯誤

//在f:\新建文件夾\pvc6\vc98\include\下創建一個文本文件，把下面的內容粘貼進去，保存，名字改為streambuf
// streambuf standard header

#if _MSC_VER > 1000
#pragma once
#endif

#ifndef _STREAMBUF_
#define _STREAMBUF_
#include <xlocnum>

#ifdef _MSC_VER
#pragma pack(push,8)
#endif /* _MSC_VER */
_STD_BEGIN
// TEMPLATE CLASS basic_streambuf
template<class _E, class _Tr = char_traits<_E> >
class basic_streambuf {
protected:
basic_streambuf()
: _Loc() {_Init(); }
basic_streambuf(_Uninitialized)
: _Loc(_Noinit) {}
public:
typedef basic_streambuf<_E, _Tr> _Myt;
typedef _E char_type;
typedef _Tr traits_type;
virtual ~basic_streambuf()
{}
typedef _Tr::int_type int_type;
typedef _Tr::pos_type pos_type;
typedef _Tr::off_type off_type;
pos_type pubseekoff(off_type _O, ios_base::seekdir _W,
ios_base::openmode _M = ios_base::in | ios_base::out)
{return (seekoff(_O, _W, _M)); }
pos_type pubseekoff(off_type _O, ios_base::seek_dir _W,
ios_base::open_mode _M)
{return (pubseekoff(_O, (ios_base::seekdir)_W,
(ios_base::openmode)_M)); }
pos_type pubseekpos(pos_type _P,
ios_base::openmode _M = ios_base::in | ios_base::out)
{return (seekpos(_P, _M)); }
pos_type pubseekpos(pos_type _P, ios_base::open_mode _M)
{return (seekpos(_P, (ios_base::openmode)_M)); }
_Myt *pubsetbuf(_E *_S, streamsize _N)
{return (setbuf(_S, _N)); }
locale pubimbue(const locale &_Ln)
{locale _Lo = _Loc;
imbue(_Ln);
_Loc = _Ln;
return (_Lo); }
locale getloc()
{return (_Loc); }
streamsize in_avail()
{return (gptr() != 0 && gptr() < egptr()
? egptr() - gptr() : showmanyc()); }
int pubsync()
{return (sync()); }
int_type sbumpc()
{return (gptr() != 0 && gptr() < egptr()
? _Tr::to_int_type(*_Gninc()) : uflow()); }
int_type sgetc()
{return (gptr() != 0 && gptr() < egptr()
? _Tr::to_int_type(*gptr()) : underflow()); }
streamsize sgetn(_E *_S, streamsize _N)
{return (xsgetn(_S, _N)); }
int_type snextc()
{return (_Tr::eq_int_type(_Tr::eof(), sbumpc())
? _Tr::eof() : sgetc()); }
int_type sputbackc(_E _C)
{return (gptr() != 0 && eback() < gptr()
&& _Tr::eq(_C, gptr()[-1])
? _Tr::to_int_type(*_Gndec())
: pbackfail(_Tr::to_int_type(_C))); }
void stossc()
{if (gptr() != 0 && gptr() < egptr())
_Gninc();
else
uflow(); }
int_type sungetc()
{return (gptr() != 0 && eback() < gptr()
? _Tr::to_int_type(*_Gndec()) : pbackfail()); }
int_type sputc(_E _C)
{return (pptr() != 0 && pptr() < epptr()
? _Tr::to_int_type(*_Pninc() = _C)
: overflow(_Tr::to_int_type(_C))); }
streamsize sputn(const _E *_S, streamsize _N)
{return (xsputn(_S, _N)); }
protected:
_E *eback() const
{return (*_IGbeg); }
_E *gptr() const
{return (*_IGnext); }
_E *pbase() const
{return (*_IPbeg); }
_E *pptr() const
{return (*_IPnext); }
_E *egptr() const
{return (*_IGnext + *_IGcnt); }
void gbump(int _N)
{*_IGcnt -= _N;
*_IGnext += _N; }
void setg(_E *_B, _E *_N, _E *_L)
{*_IGbeg = _B, *_IGnext = _N, *_IGcnt = _L - _N; }
_E *epptr() const
{return (*_IPnext + *_IPcnt); }
_E *_Gndec()
{++*_IGcnt;
return (--*_IGnext); }
_E *_Gninc()
{--*_IGcnt;
return ((*_IGnext)++); }
void pbump(int _N)
{*_IPcnt -= _N;
*_IPnext += _N; }
void setp(_E *_B, _E *_L)
{*_IPbeg = _B, *_IPnext = _B, *_IPcnt = _L - _B; }
void setp(_E *_B, _E *_N, _E *_L)
{*_IPbeg = _B, *_IPnext = _N, *_IPcnt = _L - _N; }
_E *_Pninc()
{--*_IPcnt;
return ((*_IPnext)++); }
void _Init()
{_IGbeg = &_Gbeg, _IPbeg = &_Pbeg;
_IGnext = &_Gnext, _IPnext = &_Pnext;
_IGcnt = &_Gcnt, _IPcnt = &_Pcnt;
setp(0, 0), setg(0, 0, 0); }
void _Init(_E **_Gb, _E **_Gn, int *_Gc,
_E **_Pb, _E **_Pn, int *_Pc)
{_IGbeg = _Gb, _IPbeg = _Pb;
_IGnext = _Gn, _IPnext = _Pn;
_IGcnt = _Gc, _IPcnt = _Pc; }
virtual int_type overflow(int_type = _Tr::eof())
{return (_Tr::eof()); }
virtual int_type pbackfail(int_type = _Tr::eof())
{return (_Tr::eof()); }
virtual int showmanyc()
{return (0); }
virtual int_type underflow()
{return (_Tr::eof()); }
virtual int_type uflow()
{return (_Tr::eq_int_type(_Tr::eof(), underflow())
? _Tr::eof() : _Tr::to_int_type(*_Gninc())); }
virtual streamsize xsgetn(_E * _S, streamsize _N)
{int_type _C;
streamsize _M, _Ns;
for (_Ns = 0; 0 < _N; )
if (gptr() != 0 && 0 < (_M = egptr() - gptr()))
{if (_N < _M)
_M = _N;
_Tr::(_S, gptr(), _M);
_S += _M, _Ns += _M, _N -= _M, gbump(_M); }
else if (_Tr::eq_int_type(_Tr::eof(), _C = uflow()))
break;
else
*_S++ = _Tr::to_char_type(_C), ++_Ns, --_N;
return (_Ns); }
virtual streamsize xsputn(const _E *_S, streamsize _N)
{streamsize _M, _Ns;
for (_Ns = 0; 0 < _N; )
if (pptr() != 0 && 0 < (_M = epptr() - pptr()))
{if (_N < _M)
_M = _N;
_Tr::(pptr(), _S, _M);
_S += _M, _Ns += _M, _N -= _M, pbump(_M); }
else if (_Tr::eq_int_type(_Tr::eof(),
overflow(_Tr::to_int_type(*_S))))
break;
else
++_S, ++_Ns, --_N;
return (_Ns); }
virtual pos_type seekoff(off_type, ios_base::seekdir,
ios_base::openmode = ios_base::in | ios_base::out)
{return (streampos(_BADOFF)); }
virtual pos_type seekpos(pos_type,
ios_base::openmode = ios_base::in | ios_base::out)
{return (streampos(_BADOFF)); }
virtual _Myt *setbuf(_E *, streamsize)
{return (this); }
virtual int sync()
{return (0); }
virtual void imbue(const locale& _Loc)
{}
private:
_E *_Gbeg, *_Pbeg;
_E **_IGbeg, **_IPbeg;
_E *_Gnext, *_Pnext;
_E **_IGnext, **_IPnext;
int _Gcnt, _Pcnt;
int *_IGcnt, *_IPcnt;
locale _Loc;
};

#ifdef _DLL
#pragma warning(disable:4231) /* the extern before template is a non-standard extension */
extern template class _CRTIMP basic_streambuf<char, char_traits<char> >;
extern template class _CRTIMP basic_streambuf<wchar_t, char_traits<wchar_t> >;
#pragma warning(default:4231) /* restore previous warning */
#endif // _DLL

_STD_END
#ifdef _MSC_VER
#pragma pack(pop)
#endif /* _MSC_VER */

#endif /* _STREAMBUF_ */

/*
* Copyright (c) 1994 by P.J. Plauger. ALL RIGHTS RESERVED.
* Consult your license regarding permissions and restrictions.
*/

⑶ ASP無組件上傳源碼解釋

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標題文檔</title>
</head><body>
<%If request.totalbytes>0 Then
formsize=request.totalbytes ' 取二進制流位元組長度
formdata=request.binaryread(formsize) ' 讀取二進制流內容
bncrlf=chrB(13)&chrB(10)
datastart=instrb(formdata,bncrlf&bncrlf)+3 ' 取二進制流文件開始位置 (兩個回車換行符)
divider=leftB(formdata,instrb(formdata,bncrlf)-1) ' 定義取二進制流 Field 分隔標記 (內容為二進制)
dataend=instrb(datastart,formdata,divider)-datastart ' 取二進制流文件部分結束位置
'將文件信息保存到資料庫
'Call ImgToDb() '將上傳的圖片以二進制保存到資料庫中
Call SaveTofile() '將上傳的文件保存到伺服器
End If
Sub ImgToDb() '將上傳的圖片以二進制保存到資料庫中
mydata=midb(formdata,datastart+1,dataend)'
Set conn=server.CreateObject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open server.mappath("book/stu.mdb")
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from img",conn,3
rs.movelast
rs.addnew
rs("img").appendchunk mydata
rs.update
response.binarywrite rs(1)
response.End
End Sub
Sub SaveTofile()'將上傳的文件保存到伺服器
'2.將獲取的信息以二進制流文件存放 --- stm
savepath=server.mappath("images")&"\" '根據情況自己要先建立相應目錄 或者開啟fso自動建立
Set strm=createObject("adodb.str"&"eam")
with strm
.type=1 ' 二進制模式
.mode=3 ' 指定打開模式為讀寫
.open
.write formdata '寫入二進制流內容
'以文本模式讀取數據,用於獲得提交上來的文件路徑及名稱等信息
.position=0 '將游標指向數據首部
.type=2 '以文本模式讀取
.CharSet = "gb2312" '設置中文編碼
formhead=.ReadText(datastart-1) '讀取表單頭部內容
End with
'2.1獲取上傳的文件名稱filename
fullname=fRegExpSgl(formhead,true,true,true,"[\s\S]*filename\=""(.*?)""[\s\S]*","$1")
fname=Split(fullname,"\")
filename=fname(UBound(fname)) '獲取到文件名
Set fso = Server.CreateObject("Scripting.File"&"System"&"Object") '判斷是否與本地盤文件重名,否則重命名 XXX(1).xxx
If fso.FileExists(savepath&filename) Then
For i=1 To 999
Fxname=Split(filename,".")
Fn=Left(filename,InstrRev(filename,".")-1)
Fnx=fxname(UBound(fxname))
If Not fso.FileExists(SavePath&Fn&"("&i&")."&Fnx) Then
filename=Fn&"("&i&")."&Fnx
Exit For
End If
Next
End If
'3.從stm二進制流文件中獲取有效信息 及 保存文件
Set formstrm=createOBject("adodb.str"&"eam")
with formstrm
.type=1 ' 二進制模式
.mode=3
.open
strm.position = datastart ' 指定 stm 對象的起始位置, 以變數 bStart 的值為起始位置
strm.To formstrm,dataend ' 拷貝 stm 二進制流至 fromStm 對象, 長度為 bEnd 變數的長度
.saveTofile (savepath&filename),2 ' 將信息保存到文件, 如果存在相同名稱, 則覆蓋
.close
end with
Set strm=Nothing
Set formstrm=Nothing
response.redirect "?upload=ok&name="&filename
End Sub function fRegExpSgl(str,glb,igc,mtl,pt,rpt)
dim re
set re=new RegExp
re.global=glb
re.ignoreCase=igc
re.multiline=mtl
re.pattern=pt
fRegExpSgl=re.replace(str,rpt)
set re=nothing
end function
%>
<html>
<body leftmargin="0" topmargin="0">
<form action="" method="post" name="form1" enctype="multipart/form-data">
<!-- enctype="multipart/form-data"不能省略,以保證提交過來的信息的正確性,可以遠程提交信息 -->
<input name="FileName" type="FILE" class="tx1" size="40" style="height:22">
<input type="submit" name="Submit" value=" 上傳 " style="color:red;height:22;width:70">
</form>
<%
'''測試語句:輸出相關圖片
If request("upload")="ok" Then
response.write "<img src=""images/"&request("name")&""">"
End If
%>
</body>
</html>
</body>
</html>

⑷ 求任何網路游戲源碼

魔獸世界的

⑸ 提供ASP上傳圖片到指定文件夾並存到資料庫的源碼，能夠實現在網面顯示

<%'記住創建個images目錄用來存放圖片 '====================== 'upload.asp文件內容 QQ45119302 '*********************************** '1.獲取從文件上傳表單提交過來的數據,此時不能用普通的request("XXX")來獲取信息,否則得不到正確信息 If request.totalbytes>0 Then formsize=request.totalbytes ' 取二進制流位元組長度 formdata=request.binaryread(formsize) ' 讀取二進制流內容 bncrlf=chrB(13)&chrB(10) datastart=instrb(formdata,bncrlf&bncrlf)+3 ' 取二進制流文件開始位置 (兩個回車換行符) divider=leftB(formdata,instrb(formdata,bncrlf)-1) ' 定義取二進制流 Field 分隔標記 (內容為二進制) dataend=instrb(datastart,formdata,divider)-datastart ' 取二進制流文件部分結束位置 '將文件信息保存到資料庫 'Call ImgToDb() '將上傳的圖片以二進制保存到資料庫中 Call SaveTofile() '將上傳的文件保存到伺服器 End If Sub ImgToDb() '將上傳的圖片以二進制保存到資料庫中 mydata=midb(formdata,datastart+1,dataend)' Set conn=server.CreateObject("adodb.connection") conn.provider="microsoft.jet.oledb.4.0" conn.open server.mappath("book/stu.mdb") Set rs=server.CreateObject("adodb.recordset") rs.open "select * from img",conn,3 rs.movelast rs.addnew rs("img").appendchunk mydata rs.update response.binarywrite rs(1) response.End End Sub Sub SaveTofile()'將上傳的文件保存到伺服器 '2.將獲取的信息以二進制流文件存放 --- stm savepath=server.mappath("images")&"\" '根據情況自己要先建立相應目錄 或者開啟fso自動建立 Set strm=createObject("adodb.str"&"eam") with strm .type=1 ' 二進制模式 .mode=3 ' 指定打開模式為讀寫 .open .write formdata '寫入二進制流內容 '以文本模式讀取數據,用於獲得提交上來的文件路徑及名稱等信息 .position=0 '將游標指向數據首部 .type=2 '以文本模式讀取 .CharSet = "gb2312" '設置中文編碼 formhead=.ReadText(datastart-1) '讀取表單頭部內容 End with '2.1獲取上傳的文件名稱filename fullname=fRegExpSgl(formhead,true,true,true,"[\s\S]*filename\=""(.*?)""[\s\S]*","$1") fname=Split(fullname,"\") filename=fname(UBound(fname)) '獲取到文件名 Set fso = Server.CreateObject("Scripting.File"&"System"&"Object") '判斷是否與本地盤文件重名,否則重命名 XXX(1).xxx If fso.FileExists(savepath&filename) Then For i=1 To 999 Fxname=Split(filename,".") Fn=Left(filename,InstrRev(filename,".")-1) Fnx=fxname(UBound(fxname)) If Not fso.FileExists(SavePath&Fn&"("&i&")."&Fnx) Then filename=Fn&"("&i&")."&Fnx Exit For End If Next End If '3.從stm二進制流文件中獲取有效信息 及 保存文件 Set formstrm=createOBject("adodb.str"&"eam") with formstrm .type=1 ' 二進制模式 .mode=3 .open strm.position = datastart ' 指定 stm 對象的起始位置, 以變數 bStart 的值為起始位置 strm.To formstrm,dataend ' 拷貝 stm 二進制流至 fromStm 對象, 長度為 bEnd 變數的長度 .saveTofile (savepath&filename),2 ' 將信息保存到文件, 如果存在相同名稱, 則覆蓋 .close end with Set strm=Nothing Set formstrm=Nothing response.redirect "?upload=ok&name="&filename End Sub function fRegExpSgl(str,glb,igc,mtl,pt,rpt) dim re set re=new RegExp re.global=glb re.ignoreCase=igc re.multiline=mtl re.pattern=pt fRegExpSgl=re.replace(str,rpt) set re=nothing end function %> <html> <body leftmargin="0" topmargin="0"> <form action="" method="post" name="form1" enctype="multipart/form-data"> <!-- enctype="multipart/form-data"不能省略,以保證提交過來的信息的正確性,可以遠程提交信息 --> <input name="FileName" type="FILE" class="tx1" size="40" style="height:22"> <input type="submit" name="Submit" value=" 上傳 " style="color:red;height:22;width:70"> </form> <% '''測試語句:輸出相關圖片 If request("upload")="ok" Then response.write "<img src=""images/"&request("name")&""">" End If %> </body> </html>