《顾名思义》的个人资料

我该不该继续把网页再弄上去 3v你敢再坑一点吗，我擦我才弄好的主页。你TMD就又给我黑的。。。@翔飞飞12 不知道你的网盘有木有挂掉。。

做了一个小程式由于每次都复制粘帖地图太麻烦了，于是我写了一个简单的任务地图切换器把压缩包中的MSmap文件夹放到你的尢复游戏目录下。运行“尤复任务整理工具.exe”没错这是VB6写的。如果想玩新的地图首先给任务地图起个名子。（实际上就是在MSmap中创建一个文件夹）然后把文件复制进去就行了。然后启动这个工具就可以看到你的游戏目录名在下拉组合框中。你需要点击"复制地图包"就可以了。然后再点"执行游戏"就可以玩了。这只是一个测试版如果有问题可以回复我。如果想对游戏地图说明可以在该地图目录中放入图片，好像只能jpg,bmp

弄了一点教程还没转成高清。喜欢自绘控件的同学可以看一下视频来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fv.youku.com%2Fv_show%2Fid_XNzkzMzc2NjQw.html&urlrefer=1fe3e9909e16c1bf3206582116d6bc9d

同学们，血的教训啊。。看以下代码，我发现自己好天真。我去。。。

【G05】VB吧晚报“那个谁谁谁……”14-8-8-B 你的见过和蔼的人发脾气吗？见过坑到你死的游戏吗？什么，还能不规则拉伸图像？如何把一个矩形图像不规则拉伸你会想到怎么拉伸？你会怎么做？一位贴吧ID为@A1Duke 的同学给出了一个图样。。没错，透视。这个是比较有意思的变换。实际上DX很容易的。不要问我知道弄的，想做请找@hhyjq007 (黑黑菌)用他的喊疯引擎。你们有传教好的方法也可以在楼下发出来，呃。VB.NET就不要了吧。我没有办法测试下面我来推荐一个小吧主吧。此人总能在很快的速度叫来（小）吧主删除广告贴，废贴。这个人就是发布的小鸡音乐播放器的人的，他的百度ID为@Kim小鸭但是我很好奇，他为什么不伸请小吧主这个位置呢？下面是他的伟业。中间那条，脏话，请无视。我看了好久也不明白，我重不发有关易的东西，怎么会叫上我呢？什么，你说《找东西》太乱太伤眼？什么，你说《别点白块》太快太伤眼？这下面我要介绍的游戏下上面的游戏都不是事儿，最特么伤眼的是现在被抄的火热的《看你有多色郎》（背锯的词语联想）由 @莪芯囿祢开发。据说是坑眼的第二部。不得不说介面美化不错，还算可以，作者加了几个奇葩功能。。没错除了有吐槽功能外，还加了反外挂。这个反外挂，我就不吐槽了。我写的逻辑外挂保证玩爆他的Long变量。下面是众吧友吐槽。记者评语：游戏作者，你心虚了吧、记者评语：你的Timer不动了。。记者评语：你的《小苹果》毒有点深，听听《坏苹果》吧。最后是记者犀利的本人的回复你敢弄得再没创意点吗？相信你们一定认为<看你有多色>的Command做的很不错很想自己做做看对不对？实际上这样Command还是很好做的，首先你要在窗体上分别画这几个控件 Shape1,Image1,Label1 并加入如下代码 Private Sub Form_Load() Shape1.Shape = 4 Shape1.BorderColor = RGB(128, 128, 128) Shape1.Width = 1600 Shape1.Height = 700 Image1.Left = Shape1.Left Image1.Top = Shape1.Top Image1.Height = Shape1.Height Image1.Width = Shape1.Width Label1.AutoSize = True Label1.Caption = "游戏重置" Label1.Left = Shape1.Left + (Shape1.Width - Label1.Width) * 0.5 Label1.Top = Shape1.Top + (Shape1.Height - Label1.Height) * 0.5 End Sub Private Sub Image1_Click() MsgBox "你点击了新样式Command" End Sub 这只是一个简单应用。当然你也可以给Command加入MouseDown,MouseMove,MouseOut 可以给她加上立体效果。好了，今天的节目就是这样，如果你有什么好的，意见建议，都可以百度私信，报社成员。祝大家天天快乐我们下期再见。

新版wap贴吧吧务怎么删除帖子，封ip? 回复表情在哪？

GDi42新增函数介绍被吃链N次了。我很生气，一楼就就发链接什么什么的了。我主要是为了让大家学(Pian)习(jing)一(Yan)下。

【G04】VB吧晚报“天真的好热，小心上火。”14-06-18-B 有时候你需要冷静看事。不要太过激动。不然你总是到处受限。宁可多一个朋友，也不要多一个敌人。也许你确实赢了。也许你认为自己总是对的，但这种事不会永运存在，你真的需要去换位思考，听听别人的意见。世界唯一不变的是，这个世界正在变化。某吧友，因VB6工作压力太大放弃了。明油菌文明点。再让出我们看看他赚了多少这下你明白。我为什么我要收50了吧。依然是和明油菌有关。 PS：由于，层主删除贴子，导致无法找到原贴我只是大概的讲述一下。由于红裂菌这样回贴被某层主吐槽，说出这么廉价，就不怕被(众多程式员)乱棒拍倒。（实际上都知道这是玩笑没什么大不了。）真正的开始好像是某位吧友AT了明油菌并且这样回复红裂菌：你就不怕被明油菌乱棒拍倒。此时明油菌如此回复AT他的吧友：我以前用BAT做过类似的（这是那句话的大概意思）然后就由这句话开始了，唇枪舌战。在看到这句话后，明油菌可能是认为这句话在讽刺自已。马上回复“NC……”（后面省略的文字意思是把自己用BAT写这个题目的想法说了一遍。）以下是调解片段看来我不适合作调解。这原贴地址：tieba.baidu.com/p/3105680482下面发点好玩的娱乐地方围观地址。 tieba.baidu.com/p/3102952090 当然也有第二个话说有伸手党要求弄点什么求程式，你们也知道伸手党的后果。未完待续。。。

准备抽点时间做RPG 去玩网页游戏取经。。如下图片。我觉得头像放右边，地图放左边会好一点再来就是背包UI问题。总觉得这背包差点什么。

看我能玩多久。。这是老虎规则原贴tieba.baidu.com/p/3103572266 很可能太。。。这是地图这。。。一开始就背锯了。。看看电脑用的是。。好吧。都开了，也不再重新生成了。先跑跑看。。

这个技能树怎么样？如果送的是水系就没完美了。送的居然是，学术，这个坑人的玩意。

由于太过无聊弄了一个这个。没想到。。。你进来看吧。

『06-05』【问题求助】玩不了游戏我是以前下载的游戏。下载安装好补丁之后一运行就崩。玩不成。。请问有最新版的游戏下载地址吗。置顶贴的公共网盘链接失效了。

【G01】VB吧晨报“什么、什么、什么”14-05-24-B 今天是2014年5月21日，星期六，离儿童节还有8天。农历四月廿十六，离端午节还有九天。【新闻】第一条新闻由于本报社发行人，从小黑屋出来之后，狠狠吐槽两个代办人。当事人是这么说：几天里，看看报纸给你们搞成什么样子了，什么加量刊，黑色刊。。。。。黑报主编立刻回击：你这感谢一圈之后又要被认为是广告给跪了。很快楼下吧友也来支持：你上面说你要大力宣传？不怕一跪不起？同时审核肋手是这样吐槽：第一条新闻必须赞，好东西（吐槽你都看不出来？）也有同报社发行人的，但是很多人都没有这么好的运气，他们说出了自己的心声某鸭表示：没人帮咱，咱就等呗伤胃菌：以前我全贴吧小黑屋过一个月，俩贴吧基友天天申诉终于奇迹了……（还好你没绝望）第二条新闻贴吧菌群新成员：（毒蛇君）　@柳飞花落　又有了新的吐槽之作游戏画面还是不错的，有用点心，可是你认为数据文件不加密然后改个后缀名就可以了吗？这样都还不如把游戏数据写到注册表，起码还要跟踪一下才能找到。再者说了你把游戏数据文件放到别的文件夹也好吧？比如c:\appdata 然后这一个又一个新窗口真的让人讨厌，为何不能在一个窗口的基础上显示隐藏呢？然后再补充一下，最好不要用邮箱来反馈，就算你用邮箱反馈帐号密码也加密一下帐号××××××××××，密码××××××××××（由于作者的个人隐必报社就不透露了）当说出这样的话时原作者愤怒了他说说：快删了！！！！（每一个惊叹号都表示一定的愤怒百分比）第三条新闻以下是两种移动（无边框）窗体的方法由红裂菌提供： Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "user32" () Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 '拖动窗体移动窗口，想要拖动其他控件移动窗口，只要在控件的MouseMove事件中加入以下代码即可 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lngReturnValue As Long If Button = 1 Then Call ReleaseCapture lngReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End If End Sub 收到吐槽如下： “我说了多少次了，要写进Mouse_Down中。你怎么老写进Mouse_Move中。 ” “ReleaseCapture不需要Call，SendMessage也不需要接受返回值，还有你声明时lParam用的ByRef的引用传递，那么你传参时应该强制 ByVal 0&。 ” “你都知道是发送 WM_NCLBUTTON 消息，干嘛还写在MouseMove里。 ” 红裂菌回复：“收藏的代码，也没细琢磨”（源码有风险，使用需注意）某吧提供： Dim Xm As Double, Ym As Double Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Xm = X Ym = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Move (X - Xm) + Left, (Y - Ym) + Top End If End Sub 收到吐槽如下：由于该用户手速过快在并没有收到回复的情况下已经被删除，不过（黑）报社可以无所不能的。在看到这些代友后明油菌吐槽：最近我才发了一个不用api和调用api拖动无边框窗体来者透明菌：橡皮树大神正解歪歪菌：连MouseDown和MouseMove都搞错了还叫正解？透明菌：那好吧，楼下正解歪歪菌：...............（楼下没源码，看来刚出小黑屋有点不适应）好了，今天的新闻就写到这里我们下期见。在此声明。本报所讲话语，所写内容，与发贴人无关。多处夸大行为只是为了娱乐。请以娱乐的心态对待，如果部分内容对你造成了困扰，可连系我们删除。为此给你带来的不便我们表示抱歉。以后我的娱乐“黑报” 不定时更新，如果有什么好的新闻可以度娘私信我。

最好用的追随者是哪个? 一楼

比较难办的修改如下代码，我用VB6生成html生成的网页如下我想改变表格中的文字，比如颜色，居中之类的。但是，如果用css，JS用户会点禁止使用。难道真的要像图中那样一个一个的改?

这是我的乐揍大湿的编辑程式源码呼，手残，不够快。有些音乐不是很准你们有兴趣的去做一下。把数据文件发给我啊（还要连同音乐）

这是正常情况？为什么都4级了。还没有出防御2级？

有源码。这游戏很简单。 2048修改成这样应该没有问题了吧。源码过20楼再发布吧。先上EXE，不要乱回复，身为楼主可以删自己的回复的。

看到这个东西我又想做游戏了。视频来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fv.youku.com%2Fv_show%2Fid_XNjk3NDM0ODEy.html&urlrefer=23634a19e31cb2d325fb5b76d5ef0499 有没有一起合作的一个人做太累了。

原来TreeView如此简单。。。送给不会的人一点代码吧。 Private Sub Form_Unload(Cancel As Integer) '保存 Dim I As Long Open "E:\usepic\01.txt" For Output As #1 For I = 1 To Treeview.Nodes.Count If Treeview.Nodes.Item(I).Parent Is Nothing Then Print #1, "" & "," & Treeview.Nodes.Item(I).Key & "," & Treeview.Nodes.Item(I).Text ' & vbCrLf '& "," & Treeview.Nodes.Item(I).Image Else Print #1, Treeview.Nodes.Item(I).Parent.Key & "," & Treeview.Nodes.Item(I).Key & "," & Treeview.Nodes.Item(I).Text ' & vbCrLf '& "," & Treeview.Nodes.Item(I).Image End If Next Close #1 End Sub Private Sub Treeview_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 And Shift = 1 Then Treeview.Nodes.Add(Treeview.SelectedItem.Key, tvwChild, "子" & CStr(Treeview.Nodes.Count), "新项", "k4").Sorted = True 'Caption = Treeview.Nodes.Count ElseIf Button = 2 Then Dim A As String If Treeview.HitTest(x, y) Is Nothing Then Exit Sub A = InputBox("请输入新的名子", "重命名") If A = vbNullString Then Exit Sub Treeview.HitTest(x, y) = A End If End Sub

这个人真豆13 无聊逛贴吧，找到一个这么豆的地方他要是如你所说，你这又是什么行为？

DX9你敢再坑一点吗？这是在3DMax中渲染出来的整个模型。。

看看这射程。。

打开VB6就变成没aero效果了让你是不是很不爽楼下继续

你又傲娇了

坑啊，大坑啊一楼防偷看。。

百度音乐API失效了？你们是不是没歌可以听了？我这里有一个连接你们可以拿去玩玩 '提取网页源码函数"utf-8" Public Function htmlStr(Url$, ByVal CoventType As String) As String Dim xmlHttp Dim content As Variant Url = GBtoUTF8(Url) Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.Open "GET", Url, False DoEvents xmlHttp.send content = xmlHttp.responsebody If xmlHttp.readyState = 4 And CStr(content) <> "" Then htmlStr = EncodingConvertor(content, CoventType) Set xmlHttp = Nothing End Function '把内容转为ansi格式或者是UTF-8格式！ Private Function EncodingConvertor(ByVal content As Variant, ByVal encoding As String) As String '转码 Dim objStream As Object On Error Resume Next Set objStream = CreateObject("Adodb.Stream") With objStream .Type = 1 .mode = 3 .Open .Write content .Position = 0 .Type = 2 .Charset = encoding EncodingConvertor = .ReadText .Close End With Set objStream = Nothing If Err.Number <> 0 Then EncodingConvertor = "" End If On Error GoTo 0 End Function Public Function Out520DJMusicURL(ByVal MusicID As Long) As String Out520DJMusicURL= htmlStr("http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2F520dj.com%2FInclude%2FGetUrl.asp%3Fid%3D&urlrefer=b5758a70e75ecc9ee194811750988791" & MusicID , "gb2312") End Function 将上面的东西复制到模块中，然后调用时这样 WMP1.URL=Out520DJMusic(8900) 关于其它的歌曲ID你们可以自己去520dj.com找，也可以用Rnd*2000+8000来取得。有可能没有歌曲。

删贴通知。贴吧里来了四个奇怪的人，一个人问三个人回复，且和本吧的主题无关，在下鉴定为软件恢复，刷等级，你们怎么看。

从头开始做一个水水的DX9游戏在此声明，在下是水愣愣的新手。高手，你们个个都别跑，也给我指出代码的错误。这次我要仿的游戏是，APK据说是宅男的福力游戏

由于无聊找到了这么一个东西。你们来看看很有趣视频来自：http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fv.youku.com%2Fv_show%2Fid_XNTk1NjEyNzUy.html&urlrefer=385b61c782366390143fcd0104a9cade ，估计如果电脑做出来会流畅运行，

这两天想起年前吹的牛，于是乎。。。我就不让你们偷看。

闲的无聊把这个js整理了一下看的懂的也教教在下。大概的意思好像是创建一个框架窗体。

今天无聊翻出了摇立体的原码我记不清楚这个是不是popmoon同学提供的摇立体的原码这是一个DX9的程式，有很多有趣的地方，看得我都想吐了。问一下谁有DX9基础教程。我看我还是从头开始学得了。

发现了一个好玩的。你们看一下。一楼，大家都懂。

看了astrophysics学员的贴子下载好@astrophysics 的源码看了一下之后这不我也查了一下MSDN，这个Dwmapi.dll中的几个函数还满有意思的，我也来个“事后诸葛亮”一把原来DwmEnableBlurBehindWindow还可以让窗体区域毛玻璃化。如下图有趣的是，这个毛玻璃化完全透明部分，不像SetLeaer那样，它可以让本窗体接收鼠标消息。

为什么我的编译器不能通过。如下这样的代码。。。 Dim A As String a=" var fyf="CEFFEC34DD""

你们知道这个是怎么弄的吗？做音乐播放器怎么能少了这个功能？

关于刷屏代码，突然觉得之前很傻修改代码后简直快到十倍都不止。

你们这群骗子一楼防偷看。

我的网盘里居然还真有这个程式。原来贴吧里有人写过这样的程式。。

转贴:和小吧主一起做音乐播放器_vb吧和小吧主一起做音乐播放器_vb吧_百度贴吧内容来自：http://tieba.baidu.com/p/2828790165?pn=1

最近有个想法，做这个游戏相信很多人都玩过了，素材不错。玩法也还好。当然希望合作一下。合作需要一些做程式基础，我会在播放器教程做完后，开始做这个游戏。有兴趣的同学可以度娘私信我。在此声明，游戏没有任何收益，你最多只能得到做此类游戏的经验。和一些GDI42.dll函数相关知识。

和小吧主一起做音乐播放器大家好，我是李。。（擦，教学视频看多的后遗症。）音乐播放器，最少需要：播放控制按钮，播放列表，播放进度条。如果是可以播放视频的播放器，还需要一个视频显示区。这次，我们就不去用控件来组合一个界面了。这次我们来用画的方法来做一个界面。首先，新建一个新的EXE工程。设置AutoReDraw为True BorderStyle为0 ScaleMode=3-Pixel(像素) 这里我提醒一些学员，有的学员把BorderStyle设为0后就会忘了把ShowInTaskBar的值设为True，如果不这么做你的程式就不会被，你的Windows状态栏收容，当你最小化程式时会出来在屏幕的左下角，而不是在状态栏上，很不美观。当然，这样的窗体也是没有办法用鼠标关闭的，为了让我们在调试时可以关闭，我们需要在窗体的代码区加入，如下代码。这样，我们就可以用右键来关闭窗体。

看到有人提意我们吧主（小吧主）发一些有意义的贴子我来给大家来点好玩的吧。相信你们都下载过，吧里一位同学发的录音机源码。也都看过我发的简单可视化的源码。现在呢，你们先自己想办法组合一下试试，看能不能弄个音乐频谱可视化效果。 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D405170%26uk%3D201652972&urlrefer=c70eeab73af6ba6dd01b3ac4e17c1ef6 这是我粗略做的一个音乐可视化当然，你也可以把这个代码 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fshare%2Flink%3Fshareid%3D516656%26uk%3D201652972&urlrefer=eabe56229e634b7d5989e44c724892ec 组合做成音乐水波。

我实在是受不了最近我对那些发一大堆文字，骗经验的人事先说明，如果我看到你这样无意义的贴子将会做删除处理，还有那些想都不想，直接复制发到楼下的。一并处理。还有一件事，以后发贴的同学，最好不要让回复的同学留邮箱了，只处理这样的可疑回复的吧主就够呛。（估计是这个原因cbm666怒删某位同学的贴子）

这个技能树还行？ 60多个牛头，一下就没了，箭术很变态，神弓，还差一个部件，如果组齐了就只用TT扫天下了，居然还出了TT周。爽翻了。

这太恶心了，我开了三个行会即没有，转世重生，也没有，时空之门，我去。。。

这不科学，为什么我打的地图坟这么多。自己的地区就有三个，我去。。电脑初发英雄太亮了

防御特，多少级可以物免？我试试看用毒龙能不能弄死。。

看到那么多人发战报我也发一个。本人五年菜鸟就请，轻喷。。。

Window自己弄出来的字体就是有抗锯齿的吗？源码如下。。 Dim PictureMemory As SPicturePNGBuffer Dim I As Long Private Sub Form_Load() Picture1.BackColor = 0& Picture1.FillColor = &HFFFFFF Picture1.ForeColor = &HFFFFFF Set Label1.Font = Picture1.Font Label1.Caption = "创建一个Alpha字体" Picture1.Width = Label1.Width CreatePNGDataEx PictureMemory, 800, 600, , , 255 Picture1.Print Label1.Caption With PictureMemory For I = 0 To 255 AlphaSetupEsy .hDC, I, .ScaleHeight, (I * &H10000), vbSrcCopy, , I Next SDRBitEx .ahDC, Picture1.hDC, , , , , Label1.Width, Label1.Height, -1, 0& AlphaInPutDC .hDC, .ahDC, .ScaleWidth, .ScaleHeight, 8, &HFF0000 SDRBitEx hDC, .hDC, , , , , .ScaleWidth, .ScaleHeight, -2 End With DestroyPNGData PictureMemory End Sub

在下求提示。。通常情况下 char *MathD; 通过调用 MathD=(char*)FillString("9",100) 可以得到一个char数组指针。问题来了。我怎么只要部分内容？从MathD(12)取6个，分给一个固定数组 char ParS[9]; 说白了就是从某个地方取部分内容？ memcopy用得我想吐，还有其它方法？

弄了一个略渣的东西供大家玩一下。对，没有关闭按钮，鼠标键右键关闭窗口（我编程的习惯）。音乐，块是空的，有兴趣的同学可以加进去。点击颜色略深的地方移动窗体。

我发现我的VC++白玩了这么多天。。 5/12＝0我去。。。

这就是那个可移动的Label @红旅追随者看一下源码吧和 @Miss_ZYN 的控件类似，不过那个要比我这个高级多了。有时间再发解决重叠的代码吧。。下载地址 pan.baidu.com/share/link?shareid=1828886559&uk=201652972

我已经无语了。。 BLENDFUNCTION TempAlpha; CopyMemory(&TempAlpha,&DelColor,4); AlphaBlend(DestDC,X1,Y1,W1,H1,SrcDC,X2,Y2,W2,H2,&TempAlpha); 这样都不行。。。

原来可以这么用。。从上图可以看到我明明用了Do...Loop＋加DoEvents进行循环但是我的CPU使用率并没达到最高的50%（双核）这里为什么呢？卖关子，明天再说。