《顾名思义》的个人资料

说起游戏挂，我到是有点无奈最近玩一个网页游戏，我先把那个网页游戏整到我的程式里。然后做模拟按键。按键的需要颜色点。我用GetPixel来得到色点。。但是游戏最小化后就背锯了。。似乎只能前台按键，我想过把Flash游戏的窗口子类化，但是有点坑、现在的网页游戏用SPY++根本找不到hWnd我擦。Flash越来越高级了。让在下很无语。现在全部只能前台。。。

一个折扇效果。。先上程式看发响如何。

想写RPG游戏从文字游戏开始。。如果能用文字写好，那就说明你已经有写RPG的耐心。

关于GDI42.dll这个动态连接库。。她和《植物大战僵尸》中的那个不一样，请看上图。。如果有人想知道这个dll中的甩有API用处。。我会在下一个版本出来时再给介绍一下。据说下一个版本在下个月出。修正了一些错误。。加入JoinRenderPNGData和GIFCoventPNGData,和SAP切图失真问题。

我快崩溃了。。 GDI图像（带Alpha通道）转换成GDI+图像总是出问题。今天试了一下午还是没有成功背锯。。如上面两个图左边的都是原图。做处理转成GDI+后的效果是右图不做处理是这样让我很无奈。。。你们转成GDI+图像出现过上面的问题吗？

双是花了3个小时做的游戏，你们帮我测试一下。二楼上地址吧，不然又要被吃了。。谢谢大家帮我测试一下。。

我被VB给打败了。。 Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As Any) As Long Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long Private Sub Form_Load() Dim J As Long For J = 0 To 4 'I = 0 MoveToEx Me.hdc, 20, 20 + J * 100, 0 LineTo Me.hdc, 420, 20 + J * 100 MoveToEx Me.hdc, 20 + J * 100, 20, 0 LineTo Me.hdc, 20 + J * 100, 420 Next End Sub 这样For只运行了一次。。我擦。。。

问一个很无聊的问题。。 VB可以模拟把一个文件拖到到另一个窗体上吗？是不是可以发送消息？

关于点在不在三角形内这个判断，有点复杂，刚看到有一个C++的看着有点晕糊糊的。。三楼上地址吧。。

花了5个小时写出来的东西。。主要是在打开图像上浪费了很多时间。那个代码很有用可以改成载图工具。。二楼上程式。二十楼后上源码。。。

VB存心跟我过不去。。 Option Explicit Private Type PointAPI X As Long Y As Long End Type Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function PtInRect Lib "user32" (lpRect As RECT, pt As PointAPI) As Boolean Dim CheckRect As RECT Dim lPt As PointAPI Dim BackMemory As PicturePNGBuffer Dim PictureMemory As PicturePNGBuffer Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then lPt.X = X lPt.Y = Y MsgBox PtInRect(CheckRect, lPt) '这里提示"DLL调用约定错误" End If End Sub Private Sub Form_Load() With CheckRect .Left = 100 .Right = 200 .Top = 50 .Bottom = 150 End With Line (49, 49)-(450, 450), , B CreatePNGDataEx BackMemory, 400, 400, , , , 1 Or 8 AlphaSetupEsy BackMemory.hDC, 400, 400, RGB(254, 169, 100), vbSrcCopy SDRBitEx Me.hDC, BackMemory.hDC, 50, 50, , , 400, 400 End Sub

这个太头疼了。。（非编程）这个怎么解？我都玩的头爆了。。

这我背锯了。。

《永夜幻想曲》VB6可以完爆做这个游戏用VB6那真是太简单了。。。这个游戏还能赚钱，这下实在遭不住。。美工，太赚钱了。。。

多线程不能调用API吗？多线程确实好。不用DoEvents都不会卡。。不调用API很好。只要一调用就崩了。。

求出处一楼防抽。。。

贴吧管理果然很夸张。。只要有网址就被K。。你们手动输入网址吧。。

闲得无聊改了一下。。别喷我。。。我怎么觉得有什么地方不对？

问一个小问题。。已知道，如果程式根目录下没有gdi32.dll里，程式会查找系统目录。，如果有就直接使用根目录下的。。问题来了，Active OCX 例如我在程式根目录下放有一个Flash10.ocx，系统安装的是Flash10e.ocx 我的程式会用到Flash控件，请问程式用得是哪个OCX?

你是163　我要吐槽你。。一楼保密用。。

奇怪，度娘签到不见了。。

好坑的FreeBASIC 说像还真像，结果一操作起来。我哭了。。就和C++一样API要头文件。。。没头文件估计又要Loadbrary了。。。

天热了吗？吧里的各位火都很大的样子。。这个骂人的。。。。这个不知道是不是删了。。这个很容易引起口角吧。。当小吧主压力好大。我是删呢还是不删。。能不能不坐小吧主了。。

GDI42.dll介绍 AlphaInputDC(2) 上图是将两图做了平滑过度。。还行吧。。渐变图片是用PS做的。当然这个Dll中也有一个多色渐函数，但是我没输出。因为问题太多。。这个函数类似于PS中的蒙板功能。如果有心可以做出更多好玩的东西。这个只能放入到Alpha通道

GDI42.dll介绍 RenderMovePNGData 还是上次我发的那个工程。。添加一个Timer名称为Timr2时间间隔设为20 并将代码修改如上图。。。红框里的那些就行。。 RenderMovePNGData 参数，第一个PictureImage，我就不多说了第二个这个要注意一下。是一个复合标志。分别是1 ,2 ,4,8,16 1表示默认，更新ClipDC 2表示，更新mClipDC 3表示，更新aClipDC 须要注意的是，如果写成7并不会都更新。只会更新CLipDC以先设的为主。。。 8表示左右位移图像。。 16表示上下位移图像。这两个标志可以组合做成角移动 WidthIndex，HeightInder 可以是正数，也可以是负数，固定图像位移多少。。 WidthStep，HeightStep 位移步长，可以是正数，也可以是负数，注意这两个参数可以影响到上两个参数的设置。

VB原来也可以挂钩实现通过API名字空间调用任意函数，我们使用Declare声明从mydll导入了一个叫做MyApiFunction的函数。然而，mydll并不是真实存在的。使用我们实现的RegisterApi，将VB函数MyApiFunctionImpl“注册”到API名字空间。我们可以在MyApiFunctionImpl中下断点，进入MyApiFunction之后，就停在了我们断点上。那么，这个东西有什么用呢？注意到RegisterApi的第三个参数接受一个函数指针。我们不一定要传入一个VB函数的指针，而可以传入任何东西。比如，可以传入一段硬编码机器码的首地址，从而以另一种方式实现“VB内嵌汇编”（比CallWindowProc快很多哦）。结合“从内存中加载dll”，我们可以把dll所有的导出函数进行注册，从而实现无缝调用。这个东西是怎么实现的呢？是通过hook DllFunctionCall来实现的。这下有好玩的了。。以后可以把DLL放到内存中了。。。

没想到这些源码都来自本贴吧。。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.codefans.net%2Fsoft%2F19729.shtml&urlrefer=1c0dbbb5f6d433c44b22378c6f256cc2 看看这个网页。。。

GDI42.dll介绍 AlphaInputDC 我发布的那个程式源中有一个Module1.bas先把这个模块添加到新建的工程中。。在Form_load中添加如下代码 AutoReDraw=-1 Dim PictureMemory As PicturePNGBuffer ImageToDC LoadPicture("图片路径"),PictureMemory.hDC,PictureMemory.ScaleWidth,PictureMemory.ScaleHeight '加载图片，这个不能加载PNG CreatePNGDataEx PictureMemory ,,,,,,2 Or 4 'DC宽和高是上次载入位图的大小 '我们可以把这个位图的红色通道以黑白的方式输出到PictureMemory.mhDC中 AlphaOutPutDC PictureMemory.mhDC,PictureMemory.hdc,PictureMemory.ScaleWidth,PictureMemory.ScaleHeight,&HFF0000'最后一个参数要注意一下，是ARGB所以最高位是Alpha SDRBitEx Me.hDC,PictureMemory.mhDC,,,,,PictureMemory.ScaleWidth,PictureMemroy.ScaleHeight,vbSrcCopy '当然，你想偷懒可以直接写成 'SDRBitEx Me.hDC,PictureMemory.mhDC 'AlphaOutPutDC PictureMemory.mhDC,PictureMemory.hdc,PictureMemory.ScaleWidth,PictureMemory.ScaleHeight,&HFF'这导出的是蓝色通道。 'SDRBitEx Me.hDC,PictureMemory.mhDC '最后别忘了释放。 DestroyPNGData PictureMemory 因为是手写可能有错误自己修正吧。。（我没拿到VB6中测试。因为笔记本上没有VB6）下回讲AlphaInputDC 实际上如果，你有心完全可以做出一个反输出函数。 RefreshPNGBufferEx 就是把这个函数整合化，当然那个功能多那么一点。定义这个PicturePNGBuffer就是为了管理这些DC

写了一个Dll希望你们不要放弃VB6啊。代码都有注释，但是我的语文水平不高，可能你们看不懂我写的是什么。。。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D420431%26uk%3D201652972&urlrefer=1bcba68547b9ba30d07b35bebbb307cb

最近考试党泛滥都快成学堂了。。。平时不实践临时苦求解

总算挖出来了。。这是从 @popmoon 发布的录音软件中挖出来的类模块加上可视化效果。。这个只是读取整个系统的声音大小而改变那个圆的大小。这个确实有趣有时间再做频谱分析吧。。。源码就是以前发过的那个可视化效果再加个http://tieba.baidu.com/p/2214465750　这个录单程式的一个类。很简单，只用修改几处就可以了。这个唯一好玩的地方就是不像一些播放器一样，他可以识别Mid文件播放时也可以改变。用法也很简单，只要打开本软件，然后用任何音乐播放器播放音乐就可以看到效果，你在麦前说话也可以。这让我想起了那个“吊爆了”游戏。程式下载地址 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D405170%26uk%3D201652972&urlrefer=c70eeab73af6ba6dd01b3ac4e17c1ef6

看到一个夸张的源码。。。。就是这个网站。。。 http://http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.hackb&urlrefer=067d77be840bbf2a5a3563aacd6caf77ase.com/soft/2010-04-13/24135.html

谁用的是XP？我的Win7没有那个好用的录音机（XP自带的那个）了。谁有发过来。。。太背锯。

关于那些发有几个压缩包，让人留邮箱的。你们真的就这么想骗那点经验吗？看看你们一个个的那点出息。你们没网盘？我这里有个网站这里也有VB源码。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.programfan.com&urlrefer=3b27b0da38f496c994059e7a9ffa8023 如果谁再这么无聊就当水贴处理。我建义，以后有什么好一点的VB源码，网站，或是网盘弄到专门的置顶贴上。像其它的吧一样。

这是那个作业的一小部分别说我没给你源码，你自己研究一下。。

刚看到一个代码想起了另一个自己写的。关于For Each的。。。如下。 Dim Fobj As Object For Each Fobj In Form1 这个For是没错的但是为什么不能 For Each Fobj In Frame1

一个扇子效果图这个是静止的没什么功能就是让你们试一下看一下是不是和仙五的那个很像（动画效果）。。。就用了一个旋转代码。这是程式下载地址（无源） http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D378873%26uk%3D201652972&urlrefer=e0ff3deaea39b2c12889b766a3181607 用的旋转API是PlgBit声明如下 Private Declare Function PlgBlt Lib "gdi32" Alias "PlgBlt" (ByVal hdcDest As Long, lpPoint As POINTAPI, ByVal hdcSrc As Long, ByVal nXSrc As Long, ByVal nYSrc As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hbmMask As Long, ByVal xMask As Long, ByVal yMask As Long) As Long 好像没有GDI+好。我是5度一帧用的是Timer控件。做动画时钟。打开后。再在上面右键就可以退出了。别看到没退出按钮就结束进程。退出时也有动画效果。由于图片太大(1024*1024)我是在程式中用GDI进行的缩放(640*640)可能比不了原图（没有抗锯齿）视频神马的我就不传了没什么功能就不浪费时间了，都3点了，我下了。有什么明天，不是上午再说。

实在没心情弄下去了。。只能弄成这样了

无聊做了一个看图小工具 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D319202%26uk%3D201652972&urlrefer=384b381d1669442836d6611b3f6b6c84 如下图，你们也试一下。主要是用Window的不怎么方便。。。说一下，无源码，你们先玩一下吧。有时间再贴源吧。。。

总算还原优化一个函数。。。弄丢代码是一件很背锯的事你们要切记保存好代码，上面的代码就是把两个bitmp图像组合成一个带有Alpha通道的图像当然也可以组合两个jpg图像。发出来的目的就是大家也看一下思路吧我是自己做个保存。。

上次你们没回答我，这次你们一定要帮在下。。。下面是一段把Bitmap转成JPG的代码。。。 If GdipCreateBitmapFromHBITMAP(Picture.Handle, 0, lBitmap) = OK Then hGlobal = GlobalAlloc(GMEM_MOVEABLE, Picture.Width * Picture.Height \ 256) '创建缓冲区 '创建Stream If CreateStreamOnHGlobal(ByVal hGlobal, False, picStream) = 0 Then '转换GUID If CLSIDFromString(StrPtr(ClsidJPEG), tGUID) = 0 Then '设置JPG相关参数值 tParams.Count = 1 With tParams.Parameter(0) CLSIDFromString StrPtr(EncoderQuality), .GUID .NumberOfValues = 1 .Type = EncoderParameterValueTypeLong .Value = VarPtr(JpegQuality) End With '将Bitmap数据保存到流(JPG格式) If GdipSaveImageToStream(lBitmap, picStream, tGUID, tParams) = OK Then 'GetHGlobalFromStream picStream, hGlobal picStream.Seek 0, STREAM_SEEK_CUR, dwSize '获取图像大小 lpBuffer = GlobalLock(hGlobal) '获取缓冲区读写指针 ReDim Buff(dwSize - 1): CopyMemory Buff(0), ByVal lpBuffer, dwSize '读取图像 GlobalUnlock hGlobal: GlobalFree hGlobal '释放分配的缓冲区空间 PictureToByteArray = Buff End If End If Set picStream = Nothing End If End IF 我想把多个图像**到一个文件，但又不想一个一个的转成JPG后放到硬盘上再读取组合。就想到了这个办法。但是代码不全，以前有人发过到空间的结果那位同学把空间里的代码给删了，我的代码也丢了，只能找到如上代码。 picStream.Seek 0, STREAM_SEEK_CUR, dwSize '获取图像大小就是这个让在下很无语。我没有IStream这个类模块所以无法得到图像大小，我记得以前那位同学，用的是得到hGlobal这个缓冲区的大小，不知道有人知道吗？

说到GDI位图转GDI+位图我想起了一个头痛的转法记得最初想到的是GdipCreateBitmapFromHBITMAP后来发现有丢失Alpha通道的背锯。后来看到有一些教程给过一些偏方结果都是以内存不能为Read给拍回去后来想到GdipCreateBitmapFromGdiDib结果也是一样，不管我怎么弄就是转不了。后来用GdipLockBits这个最笨的刷数组的方法，虽然可以，不过，要对，非Alpha的颜色通道做计算，那速度，你们可想而之。。。有没有什么好的方法不用这么鸡肋吗？我一直想不明的。有人说直接GDI+得了，但是我也不得不用GDI绘图，必定可以硬件加速，但是GDI+的很多功能我也不想不用。记得以前发过一个，可视化效果的程式那个就是用了GDI+抗据齿功能。但是速度还真是伤不起。趁着代码也丢失的差不多了，我也想对记忆中的那些代码进行优化一下。做出更好的吧。

xmlhttp 登录。。。求解。 <td align="center"><div align=center><table border=0 cellpadding=0 cellspacing=0 width=180 ><tr><td><div align=center><table border=0 cellpadding=0 cellspacing=0 width=180 ><tr><td valign=top><div align=center><table border=0 cellpadding=2 cellspacing=2 width=165 ><form name=GaobeiUser_Login action=Login.asp method=post onSubmit='return CheckForm();'><tr><td width=65 align=center>用户名</td><td width=100 align=center><input name=UserName type=text class=insert value='' size=12 maxlength=20></td></tr><tr><td width=65 align=center>密  码</td><td width=100 align=center><INPUT name=UserPassword type=password class=insert id=UserPassword size=12 maxlength=20></td></tr><tr><td width=65 align=center>COOKIE：</td><td width=100 align=center><select name=CookieDate><option selected value=0>不保存</option><option value=1>保存一天</option><option value=2>保存一月</option><option value=3>保存一年</option></select></td></tr><tr><td width=165 colspan=2 align=center><input type=submit name=Submit value='登陆'>  <input type=button name=Submit2 value='注册' 上面是网页源码，截获的东西是这样的 UserName 顾名思义 UserPassword .......(我就不发自己的密码了) CookieDate 3 Submit 登陆我用xmlhttp.Send "UserName=顾名思义UserPassword=.......CookieDate=3Submit=登陆" 结果没反应，我这样写是错的吗？该怎么写？

窗口继程系统外观。。我知道怎么用A.exe.manifest 但是似乎可以放到资源文件中，请问一下怎么做呢？

这句代码有错吗？ Set FlashObject = CreateObject("ShockwaveFlash")

求解，如何截获网页游戏的发包和模拟发包？ RT、RT，有谁会吗？

阳光豆。。。这贴吧的人气，好差。。我天天很少来居然排到第三名了，这是什么样的节奏？

问一个简单的问题。。把程式托盘代我是知道怎么，但是有一个小问题，我看到有的程式用的是动画版的图标，是只用改一下Icon句柄就行了吗？

这个能用VB做出来吗？这个怎么做出来的，求源啊。。

不知道谁又在挖坟。不就是一个用键盘移动鼠标的工具吗。。我的网盘里有自己去玩吧，就用三个API就行了。。最后说一句别老是挖坟。。挖得鬼都没了。。三个API分别是，GetKeyState,SetCursorPos,SetCursorPos.

一个无聊这作先说好，这个没有用任何第三方控件。也没有什么GDI+，就是几个简单的VB控件。这是一个可以更改的并且背影透明Text，先不上源，你们先下去玩一玩，试试看是怎么做出来的吧。最有趣的是，这个Text无法用一SendMessage得到里面输入的内容(非编辑的情况下)。。下面的图只内函EXE...

教你玩简单的“可视化效果” 我之前发过一个内函图相信大家都玩过了吧。。。怎么做？其实很简单。关键就是一个API，AlphaBlend 费话不多说，现在就开始说怎么做首先须要在窗体上弄三个PictureBox为什么是三个呢，因为要做图像缓冲用，画在哪里都无所谓，最好大小，记得要把AutoReDraw设为True,Visible设为False 因为再下欢喜欢API绘图，所以我也加了两个API一个是 Private Declare Function Ellipse Lib "gdi32" Alias "Ellipse" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long 这个是画圆用的。第二个是 Private Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long 当然也少不了 Private Declare Function AlphaBlend Lib "msimg32.dll" (ByVal hdc As Long, ByVal tx As Long, ByVal ty As Long, ByVal Tw As Long, ByVal Th As Long, ByVal hdc As Long, ByVal sx As Long, ByVal sy As Long, ByVal sw As Long, ByVal sh As Long, ByVal BLENDFUNCT As Long) As Long 好了，下一层接着再说。

看来我只能等到一点之后再签了连点了五次都是这样。。。

测试一下内函图没有源就是一个小玩意。按住鼠标左键可以拖动小图。键盘的方向键也可以。。

你们能不能不抢第一了整个贴吧，到零点都卡死了，我签个到都要等半天才刷出来。。。