嗷嗷叫的老马

你好博主，我的这个邮箱账号被冻结了, 需要验证邮箱但一直没发邮件, 能不能帮我解封一下呀，谢谢了。

论坛名称：Intel-小林同学, 邮箱：qq1045551070@aliyun.com

ChatGPT：智能的艺术，创新的力量！



沉浸在ChatGPT的世界，您将体验到AI的无限魅力和实用性！



编程神手：自动识别和修复BUG，从源头保护程序员防止夜夜加班。

学术明灯：全面搜索论文资料，精准润色文章，给您的学术研究加持。

创作驱动：拥有千亿级语料库支持，创作灵感不再卡壳，文字打磨得心应手。

知识博物：汇集广泛的知识体系，解答您在任何领域的疑难问题。

特点亮点：



语言理解：从编程语言到自然语言，理解与生成皆无障碍。

实时反馈：快速响应，为您的问题或任务提供即时解决方案。

跨领域应用：不论科研、编程还是创作，应用场景丰富多元。

不再停留在想象，让我们一起深入体验AI的强大功能！访问国内无需翻墙的镜像站点 *ai.sportfile.cn/，探索ChatGPT的智能世界，为您的工作和生活带来革命性的变革！

注册了账号，一直是等待验证呢

您好，想加入您的论坛提升下自己，注册了一直通不过，希望百忙中能弄下，谢谢。昵称邮箱都是一样的

马老师您好：



      很高兴能在网上开到您写的文章，您写的编程文档通俗易懂，但是要提高我的编程水平还需要向老师多学习、多请教。因为编程是艰苦的脑力劳动，学无止境。



      特此，我向马老师请教一个问题：



如果用vb编写一个程序，实现如下功能应该怎样编写？



      比如：电脑屏幕上演示一个移动速度很慢的适量地图画面，画面里有很多条曲曲弯弯不规则的路线，我事先也保存过这些道路曲线的图片，这些图片里的曲线有些是跟屏幕上的某些道路曲线是相似的，那么怎样从图片文件里找出跟屏幕上道路曲线相匹配或相似度最大的那个文件？这些事先保存的文件格式有jpg、bmp或png等格式，编写此程序或许涉及到很复杂的数学算法。特此请教！

大佬，帮忙把我账号给解封了，刚注册不知道论坛规矩hl0071

老马好：

看了你关于3D打印运动控制的分享，我想在原有的开源固件上做运动控制，能详细和你聊聊么。我的QQ：910268981。

Sincerely look forward to cooperation with you!

老马哥，你好。



关于你之前发表的一编文章（VB6稳定多线程初步研究）想请教你：



你发的实例我试过确实不错。但想问下，VB6多线程如何调试？



急求解~~！



感谢！

回复：调试方面不好处理,毕竟VB6本身并未针对多线程进行设计.只能独立地把各个线程中的问题在单线程时就调试好,再进行多线程工作.而直接在IDE中进行多线程联调的话貌似不太靠谱.



老马哥：你好

关于上面的问题，请问那有什么办法可以实现：即要用到多线程也可以方便调试的？

老马哥，你好。

关于你之前发表的一编文章（VB6稳定多线程初步研究）想请教你：

你发的实例我试过确实不错。但想问下，VB6多线程如何调试？

急求解~~！

感谢！

想请你开发个驱动，不知有时间没有。

测试留言........-_-!

你好,我看到你有一个全局的热键例子很好,有没办法做成程序级的呀?就是只在本程序中有作用,类似菜单中设置的快捷键.

老马，看了你前面的那两个旧博客，看了那些日期，记录里的点点滴滴，莫名的感伤。岁月不饶人，逝者如厮夫。

老马你好，我以前下载过你写的winsock局域网传输文件的源码。应用中发现文件超过几十兆的时候会提示内存溢出。提示问题出在这里：
Open theFileList(i) For Binary As #1
ReDim theData(LOF(1) - 1) '问题行
Get #1, , theData
Close #1
能否请你提供联系方式和我联系下，帮我解决这个问题。必有酬谢！

老马，你好，我是一个windows内核驱动的程序员和爱好者，对咱们这个论坛很感兴趣，想注册一个账号，平时学习交流技术，现在不能注册，烦请帮忙，我的邮箱hebinbin2013@hotmail.com 用户名 ztkernel

另外，我想注册论坛，邮箱是：liguoqiangshaoye@163.com，昵称如果可以用中文的话，就是：李国强 如果不能用中文：liguoqiangshaoye 谢谢。

您好，老马，我是VB的初学者，想了解下VB中关于ActiveX EXE实现多线程的知识，能不能提供一下这方面的简单的例子？就好比说，有个主窗体，有两个线程，其中一个从1数到1000万，另一个从1数到2000万这样，然后数完之后把各自花费的时间发回到主窗体中。类似这样的简单例子就行。非常感谢！

话说一对情侣挺相爱的 某天女友传来噩耗 出车祸 大出血正在抢救 男友得知 火速赶往医院医生说 女友那类型的血没了 男生说用我的跟她血型一样要多少都可以 最终女友被抢救回来了 事后他们也更加相爱可是生活总避免不了争执 某日他俩因为一小事干了起来 男生说他妈的当初要不是老子给你输血你早死了 女生沉默了下立马脱下裤子扯出她的卫生巾砸到男生头上说 老娘定期还你就是！

那天在家做馒头，因为好玩就捏了个JJ，老公看了说：你捏的不像，看我的。 接下来我俩就捏了一笼的JJ，并且蒸上了。快开饭的时候，老爸来了。老公说，咱去饭店吃吧。爸不同意：饭店多贵呀，又不是别人，客气啥，有啥吃啥吧。说着过去就把笼盖掀开了……我也吐了一口

本人妹子一枚，刚才坐地铁上，看见有个女生挺着肚子，靠在杆子上，我起来让座，结果。 。。她把肚子缩回去了。。。缩回去了。。。缩回去了。。。我一脸尴尬，那妹子估计更尴尬。。。

老马好：想注册论坛，一直等了很久都没开放，不知道什么时候开放阿？谢谢啦！

哇哈哈,看来过滤是极为有效的,看这些机器人还怎么发:P

另外老马:我工作中经常向别的程序窗口(文本框)传递字串，有的框没有句柄，我都是用剪切板及粘贴来传递，但会影响系统剪切板，用变量暂存来过渡也可以，但理论上会有冲突的（我的程序在后台循环），不是最佳方案，大漠插件的 sendstring方法对有的框也会失败，用剪切板及粘贴来传递比较稳定，所以还是想做个类似系统的临时剪切板，自定义一个粘贴热键，来传递。看了你以前的贴子:
剪贴板的监视,需要先使用SetClipboardViewer设置某个句柄为剪贴板查看器的一员.

然后当剪贴板发生改变时,系统就会向这个句柄发送WM_DRAWCLIPBOARD消息.

只要使用子类化拦截到这个消息即可.
还是要清空系统剪切板。
我想问如何自己做一个临时剪切板，只我程序在运行就可以用自定义的热键粘贴

首先好崇拜你
看到你以前的帖子 "双剪贴板监视与管理示例代码"
Private Declare Function SetClipboardViewer Lib "user32.dll" ( _
ByVal hwnd As Long) As Long
Private Const WM_DRAWCLIPBOARD As Long = &H308

Dim WithEvents objSC As cSubclass
运行时出错:WithEvents objSC As cSubclass未提示
引用那个
另外能否给你的QQ号:我手上有活,可以合作

首先好崇拜你
看到你以前的帖子 "双剪贴板监视与管理示例代码"
Private Declare Function SetClipboardViewer Lib "user32.dll" ( _
ByVal hwnd As Long) As Long
Private Const WM_DRAWCLIPBOARD As Long = &H308

Dim WithEvents objSC As cSubclass
运行时出错:WithEvents objSC As cSubclass未提示
引用那个

老马，看了你的VB加载.png格式图片我很佩服你
不过我有点小问题，即为什么不能把加载出来的png图片调用到image控件中？还有为什么picture box控件的autoredraw属性要设置为false？

代码我是这样写的：
Private Sub Command1_Click()
Call PaintPng(App.Path & "\1.png", Form1.Picture1.hdc, 0, 0)
Set Image1.Picture = Picture1.Picture
End Sub

大神！QQ木马病毒盗号方面的资料有没有给点了？

回复：你需要在Set XX=Nothing前,确认线程中的任务已经执行完毕,不然就算销毁了线程对象,线程应该还是在执行的.

老马，我是用form和vb自带timer做载体的，在构造对象时代码如下
Private Sub Class_Initialize()
Set frmTmp = New FrmLogin
Load frmTmp
Set CTimer = FrmLogin.Timer1
CTimer.Enabled = False
End Sub
释放对象代码如下：
Private Sub Class_Terminate()
Set CTimer = Nothing
Unload frmTmp
Set frmTmp = Nothing
End Sub

我就单单执行创建对象set xxx=new xxxx，然后释放对象set xxx=nothing，然后就是我上次跟你说的，线程一直增加

老马好：我想问下在引用外部Active.Exe组件时，我在一个子窗体的load事件中用set new创建一个实例，在任务管理器中可以看到此Active.Exe的线程数增加了1，然后我关闭子窗体，在unload事件中set nothing销毁实例，但任务管理器中此Active.Exe的线程数并没减少，然后我重复打开子窗体，关闭子窗体的步骤，线程数不断增加，请教下，哪里出了问题？

老马你好！我想请教一个问题：我需要在VB里面调用一个C++或者其他语言写的DLL，但是直接引用是不行的。必须要用声明API的方式去调用，但是这似乎需要一个固定的路径，如果在form_load中注册DLL到system32再调用的话未尝不可，但有的用户的电脑（比如学校的还原保护系统）拒绝我访问system32，拒绝注册DLL，这就需要用loadlibrary来加载调用函数。我不知道字符串型的参数以及多个参数怎么传递进去，还望指点一二！谢谢！

老马你好，我关注你的博客好久了，第一次请教问题，希望你不会嫌弃。
请问，你有关于处理TIFF文件的好东西吗？ 比如纠偏、去黑边的控件啊或技巧等。因为扫描后通常会有歪斜和黑边等。谢谢。

DownloadDemo下载文件的那个我怎么都搞不定断点续传，能帮我下么？QQ1280197400

想跟你们谈一些内核开发上的合作，方便的话，加一下我QQ 详谈：1418130832，谢谢！

老马你好 "全局热键类的多热键示例工程"
Private Sub cHK_HotKeyPress(ByVal HotKeyIndex As Long, ByVal HotKey As Long, ByVal hCtrl As Boolean, ByVal hAlt As Boolean, ByVal hShift As Boolean)
Dim I As Long

For I = LBound(lHotKeyIndex) To UBound(lHotKeyIndex)
If lHotKeyIndex(I) = HotKeyIndex Then '来回切换显示
labHotKey(I).Caption = IIf(labHotKey(I).Caption <> "●", "●", "○")
End If
Next
End Sub


我希望是按下ctrl+1 弹出对话框并且显示a(msgbox"a")
按下ctrl+2 弹出对话框并且显示a(msgbox"b")
按下ctrl+3 弹出对话框并且显示a(msgbox"c")
按下ctrl+4 弹出对话框并且显示a(msgbox"d")
按下ctrl+5 弹出对话框并且显示a(msgbox"e")


请问怎么改 谢谢

老马，结石治好了吧？又有疑问来请教你了。
vb，webbrowser控件中，载入某个网页，其中有个按钮（假设为SampleBtn）灰色不可用，我可以用代码把它变成可用 WebBrowser1.Document.SampleBtn.disabled = False

现在，如果上面的按钮还有类似这样的代码：<input type="submit" name="SampleBtn" onclick="return SampleScript();" id="SampleBtn"/>。有没有办法也像上面那样改掉onclick后的值或者绕过这个事件呢，从而使按钮按下时不执行SampleScript中的代码呢？

谢谢！

老马好：在论坛中看到一个“网页SPY++”的软件，下载非常好用，的确如软件提示的“可以精确打击DOM对象进行深度分析”，连网页文本框及内容的文本、父对象、NAME/CLASSNAME/TAGNAME都能获得，想请老马给份相似功能的VB源码或这个软件的源码。不知行不？

谢谢。

老马，我真幸运啊，抢了沙发。
请教个问题：VB，怎么让某个控件自动弹出气泡式功能能提示？
比如，用户第一次使用软件时，按操作顺序自动在将要被操作的区域显示气泡式提示？
谢了！