博文
VB 从零开始编外挂(二)(2006-11-21 15:10:00)
摘要：躲避了NP的扫描现在就可以模拟了！ -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要VB API函数： keybd_event ←函数模拟了键盘行动 -------------------------------------------------------------------------------------------------------------------------------------------------------- 相关API声明： keybd_event ↓ Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) -------------------------------------------------------------------------------------------------------------------------------------------------------- 需要的控件：Timer（interval不为空） -------------------------------------------------------------------------------------------------------------------------------------------------------- 代码： Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Sub T......
VB 从零开始编外挂(一)(2006-11-21 15:09:00)
摘要：相信大家，在制作游戏外挂的时候，都会用到FPE、金山游侠、GE修改器、Game Master8.0等等这些软件，但是如今的网络游戏基本上都加了NP，下面来了解一下NP。知己知彼，百战不殆嘛！ 什么是nProtect？ nProtect是设计用于保护个人电脑终端不被病毒和黑客程序感染的新概念的基于网络的反黑客和反病毒的工具。他帮助确保所有输入个人电脑终端的信息在网络上不落入黑客手中。在最终用户在执行电子贸易时，可以通过将nProtect配置在那些提供电子商务、进口贸易，电子贸易的金融机构的网站上，来提高安全等级。nProtect怎样工作？nProtect是一种基于服务器端的解决方案并且当那些需要保护的任何网络应用被运行时而自动启动。nProtect被载入内存，所以最终用户不需要安装任何应用程序，只要nProtect启动，就开始拒绝黑客工具和病毒的入侵！ -------------------------------------------------------------------------------------------------------------------------------------------------------- 下面介绍它如何工作： 用户登陆时nProtect自动启动。 浏览器确认和自动安装安全模块到用户的个人电脑。扫描黑客工具和病毒通知用户目前的安全状态如果有黑客工具和病毒尝试删除在被入侵时端驻留内存来锁定黑客工具直到电脑或者nProtect关闭。 可恶的韩国人，把这个加进了网络游戏。我只能说：“呸！” -------------------------------------------------------------------------------------------------------------------------------------------------------- 下面讲讲躲过NP的扫描的几个方法： 一、FPE篇 台湾人开发的东西，哎。出名了的，没办法谁叫它这么好呢！ 1.先装一个FPE把，呵呵←这个是废话！ 2.不要把安装程序删除，按照：开始→运行→regedit→HEKY_LOCAL_MACHINE→SOFTWARE →jaw→FPE 打开！（问：有什么用？ 答：修改呀！） 3.运......
编程集锦---值!(2006-11-19 20:34:00)
摘要：驱动器操作
Private Sub Dir1_Change()File1.Path = Dir1.PathEnd Sub
Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub--------------------------------判断光驱/软驱中是否有磁盘Private Sub Drive1_Change()'当驱动器发生改变时使Dir1与其保持一致On Error GoTo IFerr '拦截错误Dir1.Path = Drive1.DriveExit SubIFerr: '如果磁盘错误 MsgBox "请确认驱动器是否准备好或者磁盘已经不可用!", _ vbOKOnly + vbExclamation Drive1.Drive = Dir1.Path '忽略驱动器改变 Exit SubEnd Sub----------------------------------------------------------打开URL：Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()ShellExecute hwnd, "open", "ht......
快速导出数据为EXCEL文档(2006-11-19 20:31:00)
摘要：在网上的导出为 EXCEL文档的方法大概是这样的 Dim i As Integer, j As Integer Dim myexcel As New Excel.Application Dim mybook As New Excel.Workbook Dim mysheet As New Excel.Worksheet Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET ' For i = 1 To myres.RecordCount ' For j = 1 To myres.Fields.Count ' mysheet.Cells(i, j) = myres.Fields.Item(j - 1).Value ' If (i * j) Mod 500 = 0 Then ' DoEvents ' End If ' Next j ' myres.MoveNext ' Next i myexcel.Visible = True mybook.SaveAs (m_ExcelName) '保存文件
这中方法没什么错误,但是如果数据量很大的话,麻烦就来了,出现程序长时间不响应 关键是循环,下给出我的代码 假设定义的记录名为myres Dim myexcel As New Excel.Application Dim mybook As New Excel.Workbook Dim mysheet As New Excel.Worksheet Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET myexcel.visible=true mysheet.Cells.CopyFromRecordset myres mybook.SaveAs (m_ExcelName) '保存文件
利用这个代码可以大大的缩短导出时间,8000多个纪录用第一种方法大概需要2分多 而用第二种方法只大概要4秒,可以亲......
中华民族是优秀民族吗?(2006-11-16 19:05:00)
摘要：如果中国电视台的有奖问答题的题目是“中华民族是一个优秀民族吗？”相信绝大多数的中国人会异口同声地答道：“肯定是。”这时电视台的头牌花旦唐小鸭小姐会面带甜美的微笑说：“恭喜你，答对了。”
之所以得出这样的结论，是因为我们国家的教科书上、报纸上、电视中、甚至专家学者们都是这样说的，且在讲解的时候举出了几百条例子来证明：“中华民族是世界上最优秀的民族。”
但老狼对“中华民族是一个是优秀民族”的说法却有太多的疑问，现提出来就教于广大网友：评判一个民族是否优秀的标准是什么？
有网友把一场战争的胜败作为衡量民族优劣的标准，说什么：德国两次世界大战战败，不算优秀，法国在二战时一个月就亡国了，不算优秀……这样说，只能说明他对优秀民族的概念是模糊的。其实以战争的胜败来判定民族的优劣是完全错误的。当年拿破伦横扫欧洲时，法兰西民族并不比欧洲各民族优秀一等，德意志民族两次世界大战中一败再败，也不能说日耳曼人就不优秀。东晋时期，鲜卑族一统中国北方，可你要说鲜卑族是优秀的，连他的皇帝也不敢承认，要彻底汉化。成吉思汗铁蹄横扫欧亚大陆，忽必烈屠灭南宋时，游牧部落的蒙古族难道真的就比战败的欧亚各民族和中华民族优秀？……打个比方：一个博士生被一个市井无赖按在地上痛打一顿，你能说这个市井无赖是优秀的？
有网友说在三百年以前的几千年中华民族是优秀的民族，只是后来落伍了。这种观点也不一定恰当。一个优秀民族应具有多方面的优秀素质，而优秀素质的形成，有一个必要的条件：统治者必须给予人民一个宽松的政治环境，让这个民族的知识分子们有独立思考的权力。中华民族几千年来有这样一个宽松的政治环境吗？读书人有独立思考的权力吗？自秦始皇焚书坑儒后，中国的知识分子们被统治者的残忍吓破了胆，从此闭上了鸟嘴，谨言慎行。汉武帝独尊儒术后，知识分子们就丧失了独立人格，其最大的追求是为皇帝们当差，去帮皇帝治国平天下。倒是中华民族的农民们有种，敢喊什么“皇帝轮流做，明年到我家。”可这样一来，中华民族又进入了历史恶性循环的怪圈……
有网友说中国人聪明，就是优秀民族。这是错把智商当成优秀民族的评选标准了。其实地球上各民族的智商相差无几。汉族的智商与大和民族的智商是一样的。但全世界公认的是：大和民族是优秀的。
网友们都是学生出身，在学校评“优秀学生”要讲个“条件”，要满足什么“德、智、体、美、劳”的全面发展。开放的世界流行“选美”，......
用mscomm控件检测modem是否与计算机联接正确？(2006-11-14 12:18:00)
摘要：1、怎么用mscomm控件检测modem是否与计算机联接正确？2、如何用mscomm挂断modem与别的电话机间的连接？（已接通）
我用mscomm写了一个拨号程序，有二个问题想请教：
1、怎么用mscomm控件检测modem是否与计算机联接正确？
2、如何用mscomm挂断modem与别的电话机间的连接？（已接通）
连接
我记得MODEN连接好了可以接受串口的信号，比如，你发送AT，应该返回OK，有的时候则返回AT，说明是连上了的
Function ModenSeach(com As Integer, Default As String) As String
Dim a As String
On Error GoTo aa:
MSComm.CommPort = com
MSComm.InputMode = comInputModeBinary
MSComm.Settings = "9600,n,8,1"
If MSComm.PortOpen = True Then
MSComm.PortOpen = False
End If
MSComm.DTREnable = True
MSComm.EOFEnable = True
MSComm.RTSEnable = True
MSComm.PortOpen = True
MSComm.Output = "at"
a = EcrReadOne(2): a = LCase(a)
If InStr(a, "at") <> 0 Or InStr(a, "ok") <> 0 Then
ModenSeach = "Moden"
Else
ModenSeach = Default
End If
Exit Function
aa:
ModenSeach = Default
'EndTransmit
End Function
Function EcrReadOne(number As Integer) As String
Dim out() As Byte, i As Integer, data As String
data = "": i = 1
Do
DoE......
C/C++编程新手错误语录(2)(2006-11-13 13:30:00)
摘要：（9）“函数add编译生成的符号就是add”int add(int x,int y){return x + y;}float add(float x,float y){return x + y;}
即便是在C语言中，add函数被多数C编译器编译后在符号库中的名字也不是add，而是_add。而在C++编译器中，int add(int x,int y)会编译成类似_add_int_int这样的名字（称为“mangled name”），float add(float x,float y)则被编译成_add_float _float，mangled name包含了函数名、函数参数数量及类型信息，C++依靠这种机制来实现函数重载。 所以，在C++中，本质上int add( int x, int y )与float add( float x, float y )是两个完全不同的函数，只是在用户看来其同名而已。 这就要求初学者们能透过语法现象看问题本质。本质上，语言的创造者们就是在玩各种各样的花样，以使语言具备某种能力，譬如mangled name花样的目的在于使C++支持重载。而C语言没有玩这样的花样，所以int add( int x, int y )与float add( float x, float y )不能在C程序中同时存在。（10）“没见过在C语言中调用C++的函数”、“C/C++不能调用Basic、Pascal语言的函数” 这又是一个奇天下之大怪的问题，“打死我都不相信C、C++、basic、pascal的函数能瞎调来调去”，可是有句话这么说： 没有你见不到的，只有你想不到的！ 既然芙蓉姐姐也有其闻名天下的道理，那么C、C++、Basic、Pascal的函数为什么就不能互相调用呢？ 能！ 你可以用Visual C++写一个DLL在Visual Basic、Delphi（Pascal的孙子，Object Pascal的儿子）中调用，也可以在Visual Basic、Delphi中写一个DLL在Visual C++中调用不是？ 让我们来透过现象看本质。首先看看函数的调用约定（以Visual C++来说明）： (1) _stdcall调用 _stdcall是Pascal程序的缺省调用方式，参数采用从右到左的压栈方式，被调函数自身在返回前清空堆栈。 ......
C/C++编程新手错误语录(1)(2006-11-13 13:26:00)
摘要：1．引言 还记得当年学数学、英语都有个窍门，那就是搞个错题集。经常复习一下这个错题集，就可以避免下次犯同样的错误。而几乎所有的程序员都是从犯错误开始的，我们也很有必要总结一下编程新手的常见错误，本文的目的在于此。文中所列出的都是笔者在项目开发中接触到的新手真实的言谈，笔者学学文革腔调，姑且称之为“错误语录”。2．语录（１）“我的程序都是对的，可结果不对” 想想你的周围，是不是也有人说这样的话？如果你也曾经说过，那就此打住，不要再说这句话，因为这句话只会显示说话者的无知。既然程序都是对的，那为什么结果不对？（2）“程序=算法+数据结构” 如果刚刚学完C语言，我们说这样的话，完全可以理解，而且可以说是正确的。但是如果你是一位即将从事C/C++编程的程序员，那么很遗憾，这个说法只能判错，殊不知，世界上还有另一种说法： 程序 = 对象 + 消息 “程序=算法+数据结构”只对面向过程的语言(C)成立，而对面向对象的语言（C++），则只能表述为“程序=对象+消息”。传统的过程式编程语言以过程为中心以算法为驱动，面向对象的编程语言则以对象为中心以消息为驱动。这里的消息是广义的，对象A调用了对象B的成员函数，可看作对象A给B发消息。（3）“程序编出来，运行正确就行了” 运行正确的程序并不一定是好程序，程序员时刻要牢记的一条就是自己写的程序不仅是给自己看的，要让别人也能轻易地看懂。很遗憾，许多的编程新手不能清晰地驾驭软件的结构，对头文件和实现文件的概念含糊不清，写出来的程序可读性很差。 C程序采用模块化的编程思想，需合理地将一个很大的软件划分为一系列功能独立的部分合作完成系统的需求，在模块的划分上主要依据功能。模块由头文件和实现文件组成，对头文件和实现文件的正确使用方法是： 规则1 头文件(.h)中是对于该模块接口的声明，接口包括该模块提供给其它模块调用的外部函数及外部全局变量，对这些变量和函数都需在.h中文件中冠以extern关键字声明； 规则2 模块内的函数和全局变量需在.c文件开头冠以static关键字声明； 规则3 永远不要在.h文件中定义变量； 许多程序员对定义变量和声明变量混淆不清，定义变量和声明变量的区别在于定义会产生内存分配的操作，是汇编阶段的概念；而声明则只是告诉包含该声明的模块在连接阶段从其它模块寻找外部函数和变量。如：
/*模块1头文件：m......
经典实用的基础asp程序整理(2006-11-12 22:58:00)
摘要：
1、关闭窗口在图片的连接上写
javascript:window.close();
提交的图片连接写
javascript:document.Form1.submit();
删除之前出现确认对话框：
<a href="del.asp?id=<%=rs("rowid")%>" ONCLICK="javascript:return confirm('真的要删除数据吗？')">删除</a>
2、用VBScript弹出提示框然后跳转到指定页面
<% Response.Write "<script language='javascript'>alert(""提交成功!"");location.href=""AddBook.asp"";</script>" %>
3、页面摘入等待。。。。脚本说明: 把如下代码加入<head>区域中
<SCRIPT LANGUAGE="JavaScript"> document.write("<font size=6 color=blue face='楷体_GB2312'><B>正在载入细溪驿站首页,请稍等..</B></font>"); window.clear; window.location.href="http://yzty.europe.webmatrixhosting.net"; </SCRIPT>
4、在Text直接修改记录，然后点修改保存记录
<%count=0 do while not (rs.eof or rs.bof) and count<rs.PageSize %> <form action="webGroupEdit.asp" method="post" name="GroupEdit" onSubmit="return Checkedit()"> <tr bgcolor="E9F3FF"> <td> <......