蛙足 蛙足
玩游戏,简单编程,出去玩,看电视……好多
关注数: 4 粉丝数: 2 发帖数: 1,661 关注贴吧数: 6
VB轻松实现DX2D贴图[格式整理的查看我的空间] VB轻松实现DX2D贴图 类模块clsDX8Picture:******************************************************************************************************** Option Explicit Dim picRect(1 To 4) As Vertex Public bufferSize As Long Public myBuffer As Direct3DVertexBuffer8 Public myBMP As Direct3DTexture8 Public X1 As Single, X2 As Single, X3 As Single, X4 As Single Public Y1 As Single, Y2 As Single, Y3 As Single, Y4 As Single Public Sub SetBmp(ByVal picFile As String)     Set myBMP = myD3DX.CreateTextureFromFile(myDev, picFile) End Sub Public Sub SetVertex()     CreateVertex picRect(1), X1, Y1, -1, 0, 0     CreateVertex picRect(2), X2, Y2, -1, 1, 0     CreateVertex picRect(3), X3, Y3, -1, 0, 1     CreateVertex picRect(4), X4, Y4, -1, 1, 1     bufferSize = Len(picRect(1)) End Sub Public Sub SetBuffer()     Set myBuffer = myDev.CreateVertexBuffer(bufferSize * 4, 0, myFVF, D3DPOOL_DEFAULT)     D3DVertexBuffer8SetData myBuffer, 0, bufferSize * 4, 0, picRect(1) End Sub Public Sub DrawDX()     '在此之前要begin scene     With myDev         .SetTexture 0, myBMP         .DrawPrimitiveUP D3DPT_TRIANGLESTRIP, 2, picRect(1), bufferSize     End With End Sub Private Sub CreateVertex(inRect As Vertex, X As Single, Y As Single, Color As Long, tu As Single, tv As Single)     '设定顶点属性     inRect.X = X     inRect.Y = Y     inRect.z = 0     inRect.rhw = 1     inRect.Color = Color     inRect.specular = 0     inRect.tu = tu     inRect.tv = tv End Sub 模块modDX8:******************************************************************************************************** Option Explicit Public Const pi As Double = 3.14159275180032
和流氓对抗到底!!!!! 自从安装了由多特下的战地1942后,被流氓了一把:注册表更改(查找www.2345.com/......得知),快速启动栏中IE的快捷方式连接被加上了网址……从此开始BS流氓,BS多特,BS2345现在提供部分流氓干坏事后的修复方法,望大家多多补充!!!!注册表被禁用:REGEDIT4HKET_CURRENT_USER\Software\Microsoft\CurrentVersion\Policies\System"DisableRegistryTool"=dword:00000000改IE主页:太多了,注册表查吧IE设置选项别锁定:HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel"Settings"=dword:00000000"Links"=dword:00000000"SecAddSites"=dword:00000000IE“默认主页”按扭灰色不可选:HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet Explorer\Control Panel"Homepage"=dword:00000000IE标题栏:删除键值:HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main中的window titleHKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main中的window titleIE右键:失效:HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restriction"NoBrowserContextMenu"=dword:00000000被改:HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt改字符串值默认搜索引擎被改:HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\CustomizeSearchHKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\SearchAssistant系统启动出对话框:删除:HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon下的LegalNoticeCaption和LegalNoticeText查看源文件被禁用:HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restriction"NoViewSource"=dword:00000000"NoBrowserContextMenu"=dword:00000000HKEY_USERS\.DEFAULT\Software\Policies\Microsoft\Internet Explorer\Restriction"NoViewSource"=dword:00000000"NoBrowserContextMenu"=dword:00000000希望大家多多补充,资源共享!
美国大兵的22条军规 这22条作战条例,美国军方的军事教科书上找不到,只能是来自第一线的大兵们的实战经验,而且很可能是用鲜血甚至生命换来的. 战场是复杂的,充满着变数,人生也是如此. 对于习惯了正向,单向思维的我们,这22条帮助我们看到了生活的另一面. 第一条,你不是超人; 第二条,如果一个愚蠢的方法有效,那它就不是愚蠢的方法; 第三条,不要太显眼,因为那样会引人攻击; 第四条,别和比你勇敢的家伙待在一个掩体里; 第五条,别忘了你手上的武器是由出价最低的承包商制造的; 第六条,如果你的攻击很顺利,那你一定是中了圈套; 第七条,没有任何计划能在遇敌后继续执行; 第八条,所有5秒的手榴弹的引线都会在3秒内烧完; 第九条,装成无关紧要的人,因为敌人的弹药可能不够了; 第十条,那支你不加注意的敌军部队其实是攻击的主力; 第十一条,重要的事总是简单的; 第十二条,简单的事总是难做的; 第十三条,好走的路总会被布上雷; 第十四条,如果你除了敌人什么都不缺,那你一定在交战中; 第十五条,飞来的子弹有优先通过权; 第十六条,如果敌人在你的射程内,别忘了你也在他的射程内; 第十七条,要一起用才能生效的设备通常不会一起运来; 第十八条,无线电总会在你急需火力支援时断掉; 第十九条,你做的任何事都有可能让你挨枪子儿----什么都不做也一样; 第二十条,唯一比敌方炮火还精确的是友军的炮火; 第二十一条,专业士兵的行为是可以预测的,但世上却充满了业余玩家; 第二十二条,当两军都觉得自己愉快时,那他们可能都是对的
美国大兵22条军规(顶啊) 这22条作战条例,美国军方的军事教科书上找不到,只能是来自第一线的大兵们的实战经验,而且很可能是用鲜血甚至生命换来的. 战场是复杂的,充满着变数,人生也是如此. 对于习惯了正向,单向思维的我们,这22条帮助我们看到了生活的另一面. 第一条,你不是超人; 第二条,如果一个愚蠢的方法有效,那它就不是愚蠢的方法; 第三条,不要太显眼,因为那样会引人攻击; 第四条,别和比你勇敢的家伙待在一个掩体里; 第五条,别忘了你手上的武器是由出价最低的承包商制造的; 第六条,如果你的攻击很顺利,那你一定是中了圈套; 第七条,没有任何计划能在遇敌后继续执行; 第八条,所有5秒的手榴弹的引线都会在3秒内烧完; 第九条,装成无关紧要的人,因为敌人的弹药可能不够了; 第十条,那支你不加注意的敌军部队其实是攻击的主力; 第十一条,重要的事总是简单的; 第十二条,简单的事总是难做的; 第十三条,好走的路总会被布上雷; 第十四条,如果你除了敌人什么都不缺,那你一定在交战中; 第十五条,飞来的子弹有优先通过权; 第十六条,如果敌人在你的射程内,别忘了你也在他的射程内; 第十七条,要一起用才能生效的设备通常不会一起运来; 第十八条,无线电总会在你急需火力支援时断掉; 第十九条,你做的任何事都有可能让你挨枪子儿----什么都不做也一样; 第二十条,唯一比敌方炮火还精确的是友军的炮火; 第二十一条,专业士兵的行为是可以预测的,但世上却充满了业余玩家; 第二十二条,当两军都觉得自己愉快时,那他们可能都是对的
1 下一页