▲▲▲超简单送500分▲▲▲[vb-dll改vc-dll]

Question

谁帮我把下面这段vb的dll改写成vc的dll
dll的文件名为callphoto.dll
改好了发到[email protected]
Public Function full_file(full_fill As String)
Dim tfilenumber As Long
Dim fm As String
Dim lstr As String
'把变量写到文件里
tfilenumber = FreeFile
Open "c:\ppptmp.dat" For Output As #tfilenumber
Print #tfilenumber, full_fill
Close #tfilenumber'取文件路径数据
tfilenumber = FreeFilefm = App.Path
If Right(fm, 1) <> "\" Then fm = fm & "\"Open fm & "Callphoto.ini" For Input As #tfilenumber
Line Input #tfilenumber, lstr
Close #tfilenumber'查找程序是否运行-是取的焦点否运行
Shell lstr, vbNormalFocus
End Function

Answer 1

vb不太了解，你说说你的DLL要实现什么功能，看你的这个DLL并不大应该不难写，重新写一个吧！

Answer 2

把变量full_fill字符写到c;\ppptmp.dat（按文本的方式）文件中，再读取软件目录底下的callphoto.ini这个文件（文本结构）中的第一行字符（定义了一个软件的运行路径）并按正常窗口运行它
callphoto.ini 的内容为
c:\winnt\notp.exe

Answer 3

bool full_file(char *full_fill)
{
     FILE* file;
if ((file = fopen("c:\\ppptmp.dat","w")) == NULL) 
{
return false;
}fprintf(file, "%s", full_fill);
fclose(file);char filename[270];
GetModuleFileName(hAPP, // &Oacute;&brvbar;&Oacute;&Atilde;&sup3;&Igrave;&ETH;ò&micro;&Auml;&frac34;&auml;±ú,·&Ccedil;DLL&frac34;&auml;±ú,×&Ocirc;&frac14;&ordm;&Iacute;¨&sup1;&yacute;&sup2;&Icirc;&Ecirc;&yacute;&acute;&laquo;&micro;&Yacute;
  Filename,  
  270  
  );char *p = strchr(filename, '\\');
*p = '\0';
strcmp(p, "callphoto.ini");
if ((file = fopen(filename,"r")) == NULL) 
{
return false;
}
char path[270];
if (fgets(path, 270, file) == NULL) 
{
fclose(file);
return false;
};
fclose(file);if (CreateProcess(filename, NULL, NULL,NULL,FALSE, 0, 0, 0, 0, 0))
      return true;return false;
 
}