草庐IT

vb_forum_functions

全部标签

windows - VB.NET - 检查 Windows 许可证状态或正版 Windows

问答达人您好!我正在尝试找到一种方法来准确验证Windows7机器当前是否正在使用有效许可证并已激活。我相信我可以启动“cmd.exe”命令来运行cscript(slmgr)并解析该信息,但这似乎是一种低效的方法。我遇到了一个名为SLGetGenuineInformation(http://msdn.microsoft.com/en-us/library/windows/desktop/bb648650%28v=vs.85%29.aspx)的非托管WindowsAPI,但是我不熟悉如何在VB.NET中调用它或变量类型应该是什么。我相信VB6附带了某种VisualSTudio2010似乎

windows - 如何自动化此 VB 脚本?

我在网上找到了一个脚本来复制一些文件,同时还向用户显示一个进度条。我想知道是否有可能自动执行此过程,以便文件复制在程序启动后立即启动,然后在完成后关闭。VB不是我的强项,因为我通常使用csharp编写代码。非常感谢任何帮助。ImportsSystem.Collections.GenericImportsSystem.ComponentModelImportsSystem.IOPublicClassForm1'---ClasstoreportprogressPrivateClassUIProgressPublicSubNew(ByValname_AsString,ByValbytes_A

windows - 在 VB.NET 中制作二维动态数组

我如何在VB.NET中创建一个范围不受限制的数组并获取包含的变量数?我试过:Dim_items(,)AsString_items(0,0)="hy"_items(0,1)="hello"_items(1,0)="bye"_items(1,1)="bye2"MsgBox(_items.GetLength(1))'Buticantgetthelength非常感谢 最佳答案 我认为你的语法有误DimnAsInteger=2DimstrAsString(,)=NewString(n-1,n-1){}MsgBox(_items.GetLeng

windows - VB.NET 上的唯一硬件 ID

我有一个应用程序,我想通过要求我的用户注册来保护它。我还想确保它们不能安装在两台以上的机器上。为此,我需要知道在哪里可以找到唯一的硬件ID号,并在注册码中使用它。我只需要知道如何使用代码获取该数字。 最佳答案 正如其他人所指出的,确实没有唯一的硬件ID这样的东西。在您之前出现的其他人尝试使用各种东西(例如主板序列号、CPU序列号、硬盘序列号、MAC地址)或这些东西的组合,但它们都以自己的方式存在问题。并非所有驱动程序都返回序列号,即使返回,它们也可以在硬件升级或更换时轻松更改。此外,序列号在技术上可以由不同的供应商重复,尤其是在虚拟

python - 无法将 visual basic(VB6) 代码转换为 python

这个问题不太可能帮助任何future的访问者;它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关,这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用,visitthehelpcenter.关闭10年前。我正在研究一个软件(ELTIMASoftwares)的源代码,在那里我获得了多种语言变体的源代码,特别是c#、VB6、BorlandCbuilder6.0、Delphi7.0、VC6、VB.NET、VC.NET问题是我不擅长这些语言中的任何一种,因为我是一名Python开发人员。所以我想要python中的这段代码。为此,我使用开源实用程序将VB6代码转换

React报错之map() is not a function

当我们对一个不是数组的值调用map()方法时,就会产生"TypeError:mapisnotafunction"错误。为了解决该错误,请将你调用map()方法的值记录在console.log上,并确保只对有效的数组调用map。这里有个示例来展示错误是如何发生的。constApp=()=>{constobj={};//⛔️UncaughtTypeError:mapisnotafunctionreturn({obj.map(element=>{return{element};})});};exportdefaultApp;我们在一个对象上调用Array.map()方法,得到了错误反馈。为了解决该错

windows - inno setup创建的vb脚本快捷方式出错

编辑:我几乎没有对问题进行编辑,最后描述了问题的原因。我已经使用Inno构建了一个设置。执行开始的主文件是一个vbs文件。我已将Inno设置为使用自定义图标在桌面上创建快捷方式。但是安装后快捷方式给出了文件丢失的vbs错误。如果我转到主vbs文件并直接运行或在桌面上手动创建该vbs文件的另一个快捷方式,我可以多次运行该快捷方式。那么问题出在哪里。是Inno的问题还是某些脚本问题。这是vbs脚本(它的目的是启动一个批处理文件,但在打开批处理命令时不显示cmd窗口)SetWshShell=CreateObject("WScript.Shell")WshShell.Runchr(34)&"r

windows - 用于删除某些文件的 VB 脚本,如果找到文件,则将其他文件复制到目录

我的硬盘感染了病毒。该病毒加密文件,然后要求赎金来解密它们。这些文件是HELP_DECRYPT.HTML、HELP_DECRYPT.PNG、HELP_DECRYPT.TXT和HELP_DECRYPT.URL。驱动器上有数千个受感染的文件。我正在尝试编写一个脚本来遍历驱动器上的所有文件夹,如果它发现任何恶意文件,就会将其删除。然后我想是否从同一目录中的备份驱动器复制文件,即。如果在I\Folder\中找到,则将从F\Folder\中获取文件。在我的例子中,受感染的驱动器是Y,备份驱动器是X。我对VBScripts比较陌生,这是我目前所掌握的:setfso=CreateObject("Sc

.net - 在 VB.NET 中获取注册表项所有权的简单方法?

我正在创建一个VB.NET应用程序,我希望该应用程序能够拥有几个注册表项的所有权。似乎没有一种简单的方法可以做到这一点。有人向我建议了一个需要大约300行代码的复杂过程。在我看来,这对于概念上很容易的任务来说太费力了。那么,是否有一种直接的方法来更改或取得注册表项的所有权? 最佳答案 假设当前用户拥有取得所有权的必要权利:获取RegistryKey键的实例。调用GetAccessControl()获取ACL。调用SetOwner在ACL上传递必要的用户身份。调用SetAccessControl替换注册表项上的ACL。(我怀疑这300

vb.net - VB : Email sending with SMTP is failing

我在我的应用程序中添加了一个电子邮件发件人,所以我使用了这个:TryDimoMailAsNewSmtpMail("TryIt")DimoSmtpAsNewSmtpClient()oMail.From="app-NHK@hotmail.com"'FromoMail.To="NHKomaiha@hotmail.com"'TooMail.Subject=Title.Text'TitleoMail.TextBody=MsgTxt.Text'BodyDimoServerAsNewSmtpServer("smtp.live.com")'SMTPserveraddressoServer.User="