slore 发表于 2017-11-6 12:46
10行代码100块？工作要是也是这个钱就好了。。。
(此代码白送)

加我QQ发你红包，还需要你润色一下

1. @echo off&&setlocal ENABLEDELAYEDEXPANSION
   
2. 
   
3. call :load_ini abc
   
4. echo Run:%LI_run%
   
5. if defined LI_exec echo EXEC:%LI_exec%
   
6. 
   
7. call :load_ini def
   
8. echo Run:%LI_run%
   
9. if defined LI_exec echo EXEC:%LI_exec%
   
10. 
    
11. :load_ini
    
12. set name=%1
    
13. set LI_run=0
    
14. set LI_exec=
    
15. set /a SET_ON=0
    
16. for /f "delims=" %%i in (123.ini) do (
    
17.     if !SET_ON! EQU 1 (
    
18.         set line=%%i
    
19.         if "x!line:~0,1!"=="x[" goto :EOF
    
20.         set LI_%%i
    
21.     )
    
22.     if "x%%i"=="x[%name%]" set /a SET_ON=1
    
23. )
    
24. 
    

复制代码

10行代码100块？工作要是也是这个钱就好了。。。
(此代码白送)

527104427 发表于 2017-11-6 16:43
要用pecmd_原始.exe，其他的都加了壳

明白，明白了！非常感谢，

zhxy9804 发表于 2017-11-6 16:16
我下载了一个最新版本的无imdisk的，怎么无法修改101 2052，102倒是可以改，但是不应该改吧，

要用pecmd_原始.exe，其他的都加了壳

527104427 发表于 2017-11-6 15:29
是的，只能干这事了，如果你了解多线程，可以再开一个线程干别的事。
pecmd一定要最新版，从作者网盘下 ...

我下载了一个最新版本的无imdisk的，怎么无法修改101 2052，102倒是可以改，但是不应该改吧，

527104427 发表于 2017-11-6 15:29
是的，只能干这事了，如果你了解多线程，可以再开一个线程干别的事。
pecmd一定要最新版，从作者网盘下 ...

好的，多谢！原来如此，以后还往多多指教！

zhxy9804 发表于 2017-11-6 15:20
好，加入内置代码这个pecmd，是不是只能干这件事了，别的事情干不了了？
还有我修改任何一个pecmd程序都 ...

是的，只能干这事了，如果你了解多线程，可以再开一个线程干别的事。
pecmd一定要最新版，从作者网盘下载，日期最新的就是。


另外纠正一下，这不叫内置代码，这是外置代码。因为pecmd只是改了个名字

527104427 发表于 2017-11-6 15:13
红色代码部分，去掉等于号。表示不等待运行

好，加入内置代码这个pecmd，是不是只能干这件事了，别的事情干不了了？
还有我修改任何一个pecmd程序都可以吧？

zhxy9804 发表于 2017-11-6 15:05
测试的确成功，不过貌似是一个接一个的运行，问题我程序都是常驻的，怎么改成一起运行?

红色代码部分，去掉等于号。表示不等待运行

527104427 发表于 2017-11-6 12:03
为何不用PECMD来做呢？就几行代码，超级简单：
声明：此方法免费，技术来源于mdyblog，要赞助找m大

测试的确成功，不过貌似是一个接一个的运行，问题我程序都是常驻的，怎么改成一起运行?

  哎呀呀，版主就是版主，不但兑现承诺，而且处事很公道！

  这叫有求必应，各取所需，很公道！就怕给钱咱没本事赚！

zhxy9804 发表于 2017-11-6 13:38
必须分开啊，不分开不好最方便的编辑

这个简单：打开记事本，将代码保存为“示例.exe.autoapp.wcs”，pecmd改名为“示例.exe”，放于同目录即可。关键是wcs要与exe同名，双击exe即可运行。wcs用记事本编辑

声明：此方法免费，技术来源于mdyblog，要赞助找m大

527104427 发表于 2017-11-6 12:03
为何不用PECMD来做呢？就几行代码，超级简单：

#code=936T950

必须分开啊，不分开不好最方便的编辑

#define iniFile "123.ini"
#include <stdlib.h>
#include <windows.h>
int main() {
  char buf[MAX_PATH];
  for (int i = 1; i < INT_MAX; i++) {
    UINT run = GetPrivateProfileInt(itoa(i), "run", 86456223, iniFile);
    if (run == 86456223) return 0;
    else if (run == 1 && GetPrivateProfileString(itoa(i), "run"，
        "", buf, MAX_PATH, iniFile) > 0) {
      system(buf);
    }
  }
  return 0;
}

slore 发表于 2017-11-6 12:46
10行代码100块？工作要是也是这个钱就好了。。。
(此代码白送)

就这么简单吗？

我有现成的批处理，和楼主的类似，Win7PE里面就内置，用于实现根据U盘的配置文件临时自定义WinPE的分辨率，壁纸，切换双拼全拼。

支持版主言出必行，如今这个年代出100元并不算多，
关键能解决自己问题就行，不过要优选，无忧人才辈出，让有才有用武之地！

版主身责付费收劳，提升论坛氛围。

楼主你懂程序吗?这样的程序几分钟搞定

写这么个小程序都100元，楼主富的流油...

为何不用PECMD来做呢？就几行代码，超级简单： 示例.7z (912.17 KB, 下载次数: 9)

2017-11-6 11:56 上传

点击文件名下载附件
下载积分: 无忧币 -2

声明：此方法免费，技术来源于mdyblog，要赞助找m大

#code=936T950
ENVI^ EnviMode=1
ENVI^ ForceLocal=1
SET$ &NL=0d 0a
READ %CurDir%\123.ini,**,&abcd
ENVI &N=1
LOOP #1=1,
{*
        LPOS* * ,&A=run=,%&N%,&abcd
        IFEX $%&A%>0,
        {
                READ -*,%&A%,&B,&abcd
                MSTR * -delims:= &C=<2>&B
                IFEX $%&C%=1,
                {
                        CALC #&D=%&A%+1
                        READ -*,%&D%,&E,&abcd
                        MSTR * -delims:= &F=<2>&E
                        EXEC =%&F%
                }
        }!
        {
                EXIT
        }
        CALC #&N=%&N%+1
}


用reshacker打开“示例.exe”，点击script-->101-->2052，即可编辑源码。

不會寫程序，但會寫一點 Autoit，這個對 Autoit 很簡單，不過 Autoit 寫的程式容易被防毒查殺。
還有我認為這種程式用 Delphi，VB6 寫比較好，因為文件小又任何系統適用，
不用另裝 Runtime。

问题不大，主要是你要用于什么环境。

对语言有要求吗？VC++2015可以吗？

窄口牛 发表于 2017-11-6 11:16
这个批处理就能做到吧
你要在什么环境适用？

批处理不好办吧？

这个批处理就能做到吧
你要在什么环境适用？

我给你做个语音视频
保证 你从入门 到精通ahk 到编译输出带有热键的 。。。你的要求的程序
马上自己 完成剩下的部分
这活我接了！