让 VB 执行自定义字符串代码的 API 函数。

最新推荐文章于 2023-04-01 16:43:42 发布
最新推荐文章于 2023-04-01 16:43:42 发布
阅读量5.8k 收藏
点赞数
分类专栏： VB 6.0 技术资料 文章标签： vb api vba function
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Sun_Jianhua/article/details/133767
版权
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
铁拳
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 10
    评论
专栏目录
VB 超强的API浏览器 (源代码)
02-11
VB.net与C#中不支持类型(结构体)的某个变量同时是定长字符串与数组,　两者只能选其一。请自行计算出数组大小或用代码处理定长字符串的方式进行改写。 　VB.net与C#中的类型(结构体)如果有数组那么这个类型不能声明...
如何象SQL语句中的Exec那样在VB中执行一段代码?
northwolves[狼行天下] 的专栏
10-20 3423
利用API  引用vb6a.dll  (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中字符串操作函数
水工鸟的专栏
12-31 3313
 
vb.net整人程序，无限弹窗对话框，附VBSscript函数用法
最新发布
yaosichengalpha的博客
04-01 643
vb.net整人程序，无限弹窗对话框，附VBSscript函数用法
VB.NET中-自定义过程和函数
weixin_30729609的博客
06-26 742
转载于:https://www.cnblogs.com/lizunicon/archive/2008/06/26/1230434.html
从字符串执行VB代码
IT与开发人员的地盘
05-21 432
在VB5或VB6，从字符串（例如，一个文本框）添加Microsoft脚本控制 P roject下执行VB代码| C 0 mponents。 这是一些示例代码，显示了一种使用它的方法... PrivateSubForm_Load() Text1.Text="cmdText1.Visible=False" CallScriptControl1.AddObject(cmdTex...
VB API函数
10-14
3. **调用API函数**：声明后，可以在代码中像调用普通VB函数一样调用API函数。例如： ```vb MsgBox "Hello, World!", vbInformation, "API示例" ``` 这里调用了我们声明的`MessageBox`函数，展示了一个带有...
VB代码函数库
04-10
VB内置了大量的内置函数，如数学运算、字符串处理、日期时间操作等，同时用户也可以自定义函数来满足特定需求。描述中的"最全的VB代码和函数库"意味着这个资源集合涵盖了VB编程中可能遇到的大部分常见问题的解决方案...
VB 读写ini文件源码 API函数使用
02-20
这个模块可能包含了VB代码，封装了上述API函数，以更方便的方式供VB程序调用。比如定义了子程序或函数，如`WriteINI`和`ReadINI`，使程序员能够通过更直观的方式来操作INI文件。 3. **类clsINI.cls**： 这可能是...
VB API函数 调用计算器
03-07
本主题将深入探讨如何使用VB API函数来调用计算器应用，这在需要进行简单计算或者集成计算器功能到自定义应用程序时非常有用。 首先，我们需要了解API函数的基本概念。API是一组预定义的函数、常量、数据类型等，...
在vb程序将字符串转为vb代码执行
11-04
在vb程序将字符串转为vb代码执行，非原创，收集自网络
VB源码--自定义数字&字符串加密工具
01-08
VB源码--自定义数字&字符串加密工具 --VB源码 加密 解密 字符串 源码 *************以下为窗口及控件代码************ Private Sub Command1_Click() Label3.Caption = cipher(Text1.Text, Text2.Text) Label8.Caption = "加密完成！" End Sub Private Sub Command2_Click() Label4.Caption = Decipher(Text4.Text, Text3.Text) Label9.Caption = "解密完成！" End Sub Private Sub Label3_Click() Text3.Text = Label3.Caption End Sub Private Sub Label3_DblClick() Clipboard.SetText Label3.Caption Label8.Caption = "复制成功！" End Sub Private Sub Label4_DblClick() Clipboard.SetText Label4.Caption Label9.Caption = "复制成功！" End Sub ************以下为模块代码*************** ' Encipher the text using the pasword.加密 Public Function cipher(ByVal password As String, ByVal from_text As String) Const MIN_ASC = 32 ' Space. Const MAX_ASC = 126 ' ~. Const NUM_ASC = MAX_ASC - MIN_ASC + 1 Dim offset As Long Dim str_len As Integer Dim i As Integer Dim ch As Integer Dim to_text As String ' Initialize the random number generator. offset = NumericPassword(password) Rnd -1 Randomize offset ' Encipher the string. str_len = Len(from_text) For i = 1 To str_len ch = Asc(Mid$(from_text, i, 1)) If ch >= MIN_ASC And ch <= MAX_ASC Then ch = ch - MIN_ASC offset = Int((NUM_ASC + 1) * Rnd) ch = ((ch + offset) Mod NUM_ASC) ch = ch + MIN_ASC to_text = to_text & Chr$(ch) End If Next i cipher = to_text End Function ' Encipher the text using the pasword.解密 Public Function Decipher(ByVal password As String, ByVal from_text As String) Const MIN_ASC = 32 ' Space. Const MAX_ASC = 126 ' ~. Const NUM_ASC = MAX_ASC - MIN_ASC + 1 Dim offset As Long Dim str_len As Integer Dim i As Integer Dim ch As Integer Dim to_text As String ' Initialize the random number generator. offset = NumericPassword(password) Rnd -1 Randomize offset ' Encipher the string. str_len = Len(from_text) For i = 1 To str_len ***************** 省略部分代码（内详） ***************** If ch < 0 Then ch = ch + NUM_ASC ch = ch + MIN_ASC to_text = to_text & Chr$(ch) End If Next i Decipher = to_text End Function ' Translate a password into an offset value. Private Function NumericPassword(ByVal password As String) As Long Dim value As Long Dim ch As Long Dim shift1 As Long Dim shift2 As Long Dim i As Integer Dim str_len As Integer str_len = Len(password) For i = 1 To str_len ' Add the next letter. ch = Asc(Mid$(password, i, 1)) ***************** 省略部分代码（内详） ***************** Next i NumericPassword = value End Function
VB6中可提高效率的几个自定义函数
06-19
获取扩展名，列名字符和数字的转换等自定义函数
VB ExeCuteLine
07-11 2579
这段代码是我无意中在网上发现的,虽然代码很短,但其所实现的功能却是很强大的.有了这个函数的帮助可以使我们程序的灵活性大大的提升,但编码难度会有一定提高,所以请慎用.Private Declare Function EbExecuteLine()Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal 
＜.Net＞＜VB＞使用VB.net,如何实现一个自定义的图形绘制函数？
用沸腾的热血，支付我们的人生吧！
07-05 2011
打开visual studio2019，新建一个windows窗体应用。 在窗体上添加一个picturebox控件。 双击窗体空白处，进入编程。 ''' <summary> ''' 本函数为自定义函数，绘制圆形图形 ''' </summary> ''' <param name="p">图像框</param> ''' <param name="c">颜色</param> Private
vb字符串程序代码
qq_32257509的博客
01-26 293
即使考虑到VB程序本身编译和运行效率较低的不足(嘻嘻速度现在不是问题吧)，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。正确例题（VB输出2进制7位数随机字符串程序）正确例题（VB输出2进制1位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）正确例题（VB输出2进制2位数随机数程序）
VB6 执行字符串命令（VB代码）
鞠勇鸿的技术专栏
07-18 4926
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
VBA中的字符串处理
←か淡定☆ ヾ 的博客
05-08 1122
目录1 VBA中的字符串2 VBA中处理字符串的函数2.1 比较字符串2.1.1 比较运算符2.1.2 StrComp函数2.2 转换字符串2.2.1 StrConv函数2.2.2 Str函数2.2.3 CStr函数2.3 创建字符串2.3.1 Space函数2.3.2 String函数2.4 获取字符串的长度2.5 格式化字符串2.6 查找字符串2.6.1 InStr函数2.6.2 InStrRev函数2.7 提取字符/字符串2.7.1 Left函数2.7.2 Right函数2.7.3 Mid函数2.7.
学习笔记,VB6语言脚本解释器
a11s的笔记
02-16 1982
关键字: VB 脚本  作者:董含君本文介绍的是最简单的办法,要求不高仅仅执行部分代码如果想使用更加完全的功能需要的是Micrsoft Script Control请参考叶帆达人的文章VBScript脚本运用（脚本程序与宿主程序的交互） http://blog.csdn.net/yefanqiu/archive/2004/10/15/137928.aspxVBScript脚本运用 http://w
VB windows API 函数大全.doc
07-06
"VB Windows API 函数大全涵盖了网络和消息处理相关的API函数，这些函数对于在VB6.0环境中开发涉及网络操作和消息传递的应用程序至关重要。" 在VB6.0开发中，Windows API（应用程序接口）是扩展Visual Basic功能的...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 10
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值