189 8069 5689
只要先把VB程序编译成EXE文件，就可以在C程序中调用：
西市网站制作公司哪家好，找创新互联！从网页设计、网站建设、微信开发、APP开发、自适应网站建设等网站项目制作，到程序开发，运营维护。创新互联于2013年成立到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
#include "stdio.h"
void main()
{
int a;
scanf ("%d",a);
if(a==5)system("d:\daojishi.exe");
}
打开VB,工程-引用-浏览-找到DLL文件并确定
dim a as new dll文件的类名
在这就可以引用dll文件中的函数了
C写代码模块（注意没有main())编译为dll，在VB中调用其函数模块，并在VB工程编译环境LINK时加入DLL。C与VB混合编程时，函数调用的变量有相关约定（VB与C不一样）可参考混合编程书籍和案例。
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下…"" ",0 ,true
dim a
do while(a "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run " cmd.exe /c shutdown -r -t 2100 –c ",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"
把代码 放到记事本里 保存 然后 改个扩展名 .vbe