从字符串执行VB代码

最新推荐文章于 2023-01-26 21:39:26 发布
最新推荐文章于 2023-01-26 21:39:26 发布
阅读量474 收藏 1
点赞数
本文介绍在VB5或VB6环境中，如何使用Microsoft脚本控制组件从文本框中的字符串执行VB代码。通过添加Microsoft脚本控制到项目组件中，可以实现对文本框内容的动态执行，示例代码展示了具体操作步骤。
摘要由CSDN通过智能技术生成

在VB5或VB6中，要从字符串（例如，文本框）执行VB代码，请添加

P roject下Microsoft脚本控制 | C 0 mponents。

这是一些示例代码，显示了一种使用它的方法... 

Private Sub Form_Load()
  Text1.Text = "cmdText1.Visible = False"
  Call ScriptControl1.AddObject(cmdText1.Name, cmdText1)
End Sub 
Private Sub Command1_Click()
  Call ScriptControl1.ExecuteStatement(Text1.Text)
End Sub
通过在TheScripts或整个Web上搜索“ Microsoft脚本控件”，可以获得更多信息。 作者： 社区>新闻组存档> comp.lang。*> Visual Basic>如何执行文本框的内容的 Steve Gerrard（来宾）

Phaneendra Varma引起了小组的注意

From: https://bytes.com/topic/visual-basic/insights/641537-execute-vb-code-string

cxygs5788
关注
在vb程序将字符串转为vb代码执行
11-04
在vb程序将字符串转为vb代码执行，非原创，收集自网络
VB6 执行字符串命令（VB代码）
鞠勇鸿的技术专栏
07-18 4994
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As LongFunction StepLine(ByVal cmd A
VB6 执行String语句
12-15
首先：Imports System.Runtime.InteropServices 然后： Private Declare Function EbExecuteLine Lib "VBA6.DLL" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long ' <DllImport("VBA6.DLL", EntryPoint:="EbExecuteLine", SetlastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Public Shared Function EbExecuteLine(ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long '<DllImport("D:\vba6.dll", CharSet:=CharSet.Ansi, SetlastError:=True)> Public Shared Function EbExecuteLine(ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long 'End Function '<DllImport("vba6.dll", CharSet:=CharSet.Ansi, SetlastError:=True)> 'Public Shared Function EbExecuteLine(ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long 'End Function '定义StrPtr函数，实现获取字符串地址功能 Private Function StrPtr(ByVal e As Object) As Int32 Dim GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(e, System.Runtime.InteropServices.GCHandleType.Pinned) Dim GC2 As Int32 = GC.AddrOfPinnedObject.ToInt32 GC.Free() Return GC2 End Function Function ExecuteLine(ByVal sCode As String, Optional ByVal fCheckOnly As Boolean = True) As Boolean ExecuteLine = EbExecuteLine(StrPtr(sCode), 0, 0, 0) End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dm() As String Dim i As Long dm = Split(TextBox.Text, ";") For i = 0 To UBound(dm) If Len(dm(i)) <> 0 Then Dim Result As Boolean Result = ExecuteLine(dm(i)) If Result = False Then Debug.Print(i + 1 & vbTab & "行执行错误") Else Debug.Print(i + 1 & vbTab & "行代码错误") End If Next End Sub
Xcopy / VBS操作文件夹
07-14 718
Xcopy参数介绍 DOS批处理命令，永远是不朽的命令，不仅功能强大，同时，速度也是最快的！但是，很多新手学习计算机，都已经遗忘了本不该忘记的批处理命令。 　　我们不可数典忘祖，该学习的还是要学习，不该忘记的还是不能忘记，尤其是DOS批处理命令，在开发软件或项目的时候，都离不开这些基本的原始的命令。本文，我们来学习Xcopy的参数及实例 　　一、Xcopy参数介绍 　　命令格式：XCOPY...
【Question】在VB.net里面怎么可以把字符串的内容转换为可执行的代码呢？？
生活在别处
09-10 1562
现在用的笨方法，Split and Array只针对简单的不规则的字符串，如果需求要变复杂怎么办？？？？怎么可以把字符串的内容简单地转换为可执行的代码呢？？呢呢呢？？
VB.NET代码段-字符​​串
IT与开发人员的地盘
05-26 185
'//-反向字符串--- // ModuleRevString SubMain() DiminputStringAsString=Console.ReadLine() ReverseOrder(inputString) EndSub PrivateSubReverseOrder(ByVal...
vb字符串程序代码
最新发布
qq_32257509的博客
01-26 339
即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。正确例题（VB输出2进制7位数随机字符串程序）正确例题（VB输出2进制1位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）
VB字符串加密解密
05-12
在VB（Visual Basic）编程中，字符串加密与解密是信息安全的重要...如果想要深入学习VB字符串加密解密，你可以访问这个网站查找相关资源或下载示例代码进行研究。不过，确保从可信的来源获取代码，避免潜在的安全风险。
VB字符转换程序源代码
05-07
1. **VB源代码**：VB源代码是使用VB语言编写的程序文本，它包含了程序员编写的指令和逻辑，可以被VB编译器或解释器转化为可执行文件。源代码由函数、过程、变量声明、控制结构（如循环、条件语句）等组成，是软件...
字符串模糊匹配查找的Vb实例源代码.rar
07-10
在压缩包中的"strs"文件可能是一个文本文件，包含了待匹配的字符串列表，或者是VB代码中的变量名，表示存储字符串的数组或集合。源代码可能通过读取这个文件，逐行处理每个字符串，执行模糊匹配并记录结果。 为了...
C#调用VB的演示代码
02-20
C#调用VB的演示代码 简单易懂
VB5.0与Windows API 间的呼叫技巧...
10-08
VB5.0与Windows API 间的呼叫技巧
易语言DLL与vb6进行字符串交互
03-26
本话题主要探讨如何使用易语言创建动态链接库（DLL）并与VB6（Visual Basic 6）进行字符串交互。易语言是一种简洁易学的中文编程语言，而VB6则是微软的经典编程环境，两者结合可以方便地实现跨语言项目协作。 首先...
让 VB 执行自定义字符串代码的 API 函数。
铁拳的 Blog
10-12 5837
Private Declare Function EbExecuteLine Lib "vba6.dll" ( _    ByVal pStringToExec As Long, _    ByVal Unknownn1 As Long, _    ByVal Unknownn2 As Long, _    ByVal fCheckOnly As Long) As Long
[VB.NET]急100分求，怎么把一段字符当作命令行执行？？
VB.NET学习网-VB.NET实例、VB.NET教程、VB.NET源码下载
12-29 834
<!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--><script type="text/javascript"
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值