易语言DLL的启动子程序无法连接网络 HELP ME！！！！！！！！

qq793359277

写在别的子程序里 启动子程序里创建线程来调用

wan942182718

你自己的问题吧

什么是运行目录？
源码保存哪了？

chenzhouch

wan942182718 发表于 2022-5-3 20:21
你自己的问题吧

什么是运行目录？

我之前就补充内容了，你可能没看到

补充内容 (2022-5-3 19:54):
调试运行的时候 一切都是正常 但是编译成DLL就无法访问网络。。回答之前建先自己测试下。目前能想到的原因应该是主程序还没解码，系统API无法加载

chenzhouch

qq793359277 发表于 2022-5-3 20:08
写在别的子程序里 启动子程序里创建线程来调用

试过了，很见鬼的是只有当主程序启动完毕 才会开始执行线程。比如我在启动线程之后加一条 信息框，主程序只有点了信息框之后才会开始跑线程。我明明是把信息框写在启动线程的后面。。跟BUG一样

QQ1329127360

开头加上这个试试：

  

CoInitialize（0）

CoInitialize（0）

  

DLL命令名返回值类型公开备注
CoInitialize整数型
DLL库文件名
ole32
在DLL库中对应命令名
CoInitialize
参数名类型传址数组备注
pvReserved整数型

DLL命令名        返回值类型        公开        备注<br /> CoInitialize        整数型                <br /> DLL库文件名<br /> ole32<br /> 在DLL库中对应命令名<br /> CoInitialize<br /> 参数名        类型        传址        数组        备注<br /> pvReserved        整数型       

chenzhouch

QQ1329127360 发表于 2022-5-3 21:09
开头加上这个试试：
CoInitialize（0）

试了 加上之后 主程序干脆就弹不出来了。。

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

CoInitialize (0)
写到文件 (取运行目录 () ＋ “\1.txt”, 网页_访问 (“http://www.baidu.com/”, , , , , , , , , , , , , ))
信息框 (“需要在我弹出来之前让网络正常使用”, 0, , )
返回 (0)

.版本 2<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> CoInitialize (0)<br /> <br /> 写到文件 (取运行目录 () ＋ “\1.txt”, 网页_访问 (“<a href="http://www.baidu.com/" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com/</a>”, , , , , , , , , , , , , ))<br /> 信息框 (“需要在我弹出来之前让网络正常使用”, 0, , )<br /> 返回 (0)

chenzhouch

这里提供了2份源码供大家调试
DLL：

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

' 请将本DLL编译名称为“被调用的DLL.dll”
写到文件 (取运行目录 () ＋ “\1.txt”, HTTP读文件 (“http://www.baidu.com/”))
信息框 (“需要在我弹出来之前让网络正常使用”, 0, , )
返回 (0)

子程序名	返回值类型	公开	备 注
A

' 我是公开的函数

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> ' 请将本DLL编译名称为“被调用的DLL.dll”<br /> 写到文件 (取运行目录 () ＋ “\1.txt”, HTTP读文件 (“<a href="http://www.baidu.com/" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com/</a>”))<br /> 信息框 (“需要在我弹出来之前让网络正常使用”, 0, , )<br /> 返回 (0)<br /> <br /> .子程序 A, , 公开<br /> <br /> ' 我是公开的函数

主程序：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

被调用的DLL ()  ' 这里是调用另一个源码 编译的DLL公开函数A 请直接编译到另一个DLL同目录下

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 被调用的DLL ()  ' 这里是调用另一个源码 编译的DLL公开函数A 请直接编译到另一个DLL同目录下

低调小鱼鱼

我测试了可以在加载dll的时候访问网络，主要是在dll启动子程序那里 用启动线程，在其他易语言程序调用有两种方式
第一是使用windows API动态加载
第二是静态加载dll，就是易语言里面插入好dll某个函数，在程序启动后易语言程序自动加载dll，希望对你有帮助

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置动态链接库初始化代码

启动线程 (&子程序1, , )
返回 (0)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
子程序1

hello2 (“https://bbs.125.la/thread-14728404-1-1.html”)

子程序名	返回值类型	公开	备 注
hello2	逻辑型
参数名	类 型	参考	可空	数组	备 注
网址	文本型

变量名	类 型	静态	数组	备 注
返回源码	文本型

返回源码 ＝ 编码_Utf8到Ansi (网页_访问 (网址, , , , , , , , , , , , , ))
返回 (写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (返回源码)))

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码<br /> <br /> 启动线程 (&子程序1, , )<br /> 返回 (0)  ' 返回值被忽略。<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> <br /> .子程序 子程序1<br /> <br /> hello2 (“<a href="https://bbs.125.la/thread-14728404-1-1.html" target="_blank">https://bbs.125.la/thread-14728404-1-1.html</a>”)<br /> <br /> .子程序 hello2, 逻辑型, 公开<br /> .参数 网址, 文本型<br /> .局部变量 返回源码, 文本型<br /> <br /> 返回源码 ＝ 编码_Utf8到Ansi (网页_访问 (网址, , , , , , , , , , , , , ))<br /> <br /> 返回 (写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (返回源码)))

完整dll和测试代码看附件，这是演示视频下载地址：
https://wwm.lanzouh.com/ik8nC048mjrg

chenzhouch

低调小鱼鱼 发表于 2022-5-3 22:11
我测试了可以在加载dll的时候访问网络，主要是在dll启动子程序那里 用启动线程，在其他易语言程序调用有两 ...

大佬辛苦了，但是我需要的是在程序运行起来之前就先访问网络 比如在线程之后加个信息框。。结果等程序完全运行起来了 线程才开始访问网络

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置动态链接库初始化代码

启动线程 (&子程序1, , )
信息框 (“需要在我弹出来之前让网络正常使用”, 0, , )
返回 (0)  ' 返回值被忽略。

子程序名	返回值类型	公开	备 注
_临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

子程序名	返回值类型	公开	备 注
子程序1

hello2 (“https://bbs.125.la/thread-14728404-1-1.html”)

子程序名	返回值类型	公开	备 注
hello2	逻辑型
参数名	类 型	参考	可空	数组	备 注
网址	文本型

变量名	类 型	静态	数组	备 注
返回源码	文本型

返回源码 ＝ 编码_Utf8到Ansi (网页_访问 (网址, , , , , , , , , , , , , ))
返回 (写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (返回源码)))

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码<br /> <br /> 启动线程 (&子程序1, , )<br /> 信息框 (“需要在我弹出来之前让网络正常使用”, 0, , )<br /> 返回 (0)  ' 返回值被忽略。<br /> <br /> .子程序 _临时子程序<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> <br /> <br /> .子程序 子程序1<br /> <br /> hello2 (“<a href="https://bbs.125.la/thread-14728404-1-1.html" target="_blank">https://bbs.125.la/thread-14728404-1-1.html</a>”)<br /> <br /> .子程序 hello2, 逻辑型, 公开<br /> .参数 网址, 文本型<br /> .局部变量 返回源码, 文本型<br /> <br /> 返回源码 ＝ 编码_Utf8到Ansi (网页_访问 (网址, , , , , , , , , , , , , ))<br /> <br /> 返回 (写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (返回源码)))

wan942182718

chenzhouch 发表于 2022-5-3 20:58
我之前就补充内容了，你可能没看到

补充内容 (2022-5-3 19:54):

dll  编译出来了，你怎么运行？


又不是 exe