кто на чем делает?
пробовал на CMAK - не на всех компьютерах создается
Автосоздание VPN-подключения
Код: Выделить всё
/*
by DenisK
Cоздание ярлыка стащено с netpatch :)
*/
#include <stdio.h>
#include <windows.h>
#include <tchar.h>
#include <string.h>
#include <shlobj.h>
#include <shlwapi.h>
#include <ras.h>
#include <Objbase.h>
#include <rasdlg.h>
#include <shellapi.h>
#pragma comment (lib, "RASDlg.lib")
#pragma comment (lib, "RASAPI32.lib")
#pragma comment (lib, "Kernel32.lib")
#pragma comment (lib, "user32.lib")
#pragma comment (lib, "shell32.lib")
#pragma comment (lib, "Ole32.lib")
#pragma comment (lib, "shlwapi.lib")
//#include "resource.h"
#pragma optimize("gsy",on)
bool __fastcall CreateShortCut(LPWSTR pwzShortCutFileName, LPCITEMIDLIST pidl,
LPTSTR pszWorkingDirectory, WORD wHotKey, int iCmdShow);
int short_cut_startup(char *connection_name, LPWSTR link_name);
LPITEMIDLIST GetNextItemID(LPCITEMIDLIST pidl);
UINT GetSize(LPCITEMIDLIST pidl);
LPITEMIDLIST Append(LPCITEMIDLIST pidlBase, LPCITEMIDLIST pidlAdd);
LPMALLOC pMalloc;
int main(void)
{
LPRASENTRY lpVPNParam;
DWORD ret;
DWORD cb;
cb = 0;
RasGetEntryProperties(NULL, NULL, NULL, &cb, NULL, NULL);
lpVPNParam = (LPRASENTRY)malloc(cb);
memset((void*)lpVPNParam, 0, cb);
lpVPNParam->dwSize = cb;
lpVPNParam->dwfOptions = RASEO_PreviewUserPw | RASEO_ShowDialingProgress | RASEO_Custom | RASEO_RequireMsCHAP2 | RASEO_RemoteDefaultGateway | RASEO_ModemLights;
lpVPNParam->dwfOptions2 = RASEO2_DisableNbtOverIP | RASEO2_ReconnectIfDropped | RASEO2_Internet | RASEO2_SecureClientForMSNet | RASEO2_SecureFileAndPrint;
//lpVPNParam->dwfOptions3 = 0;
lpVPNParam->dwfNetProtocols = RASNP_Ip;
lpVPNParam->dwFramingProtocol = RASFP_Ppp;
lpVPNParam->dwEncryptionType = ET_None;
lpVPNParam->dwRedialPause = 10;
lpVPNParam->dwType = RASET_Vpn;
lpVPNParam->dwVpnStrategy = VS_PptpOnly;
lpVPNParam->dwRedialCount = 99;
sprintf(lpVPNParam->szDeviceType, "vpn");
sprintf(lpVPNParam->szLocalPhoneNumber, "vpn.mtcv.ru");
ret = RasSetEntryProperties(NULL, "Интернет", lpVPNParam, cb, NULL, 0);
free(lpVPNParam);
//printf("VPN CREATED");
ShowWindow(GetConsoleWindow(),SW_HIDE);
MessageBox(NULL, "Впн создана!", "ОК!", MB_OK);
if(short_cut_startup("Интернет", L"Интернет.lnk"))
MessageBox(NULL, "Ярлык vpn создан", "ОК!", MB_OK);
else MessageBox(NULL, "Не могу создать ярлык!", "ОК!", MB_ICONERROR);
Sleep(2000);
//ShellExecute( NULL, "open", "cmd.exe","rasdial.exe Интернет", "C:\\", SW_SHOWNORMAL);
return 0;
}
/* Main function which creating shortcut on desktop */
int short_cut_startup(char *connection_name, LPWSTR link_name)
{
LPITEMIDLIST pidConnections = NULL;
LPITEMIDLIST pidlItems = NULL;
LPITEMIDLIST pidlDesk = NULL;
IShellFolder *psfFirstFolder = NULL;
IShellFolder *psfDeskTop = NULL;
IShellFolder *pConnections = NULL;
LPENUMIDLIST ppenum = NULL;
ULONG celtFetched;
HRESULT hr;
STRRET str_curr_connection_name;
TCHAR curr_connection_name[MAX_PATH] = ""; /* Connection point name */
TCHAR desktop_path[MAX_PATH]=""; /* Path to desktop */
TCHAR full_link_name[MAX_PATH]=""; /* Full shortcut name */
LPITEMIDLIST full_pid; /* Full shortcut pid */
CoInitialize( NULL );
/* Allocating memory for Namespace objects */
hr = SHGetMalloc(&pMalloc);
hr = SHGetFolderLocation(NULL, CSIDL_CONNECTIONS, NULL, NULL, &pidConnections);
/* Get full path to desktop */
SHGetFolderPath(NULL, CSIDL_DESKTOP, NULL, 0, desktop_path);
hr = SHGetDesktopFolder(&psfDeskTop);
hr = psfDeskTop->BindToObject(pidConnections, NULL, IID_IShellFolder, (LPVOID *) &pConnections);
hr = pConnections->EnumObjects(NULL,SHCONTF_FOLDERS | SHCONTF_NONFOLDERS, &ppenum);
/* Loop for searching our connection */
while(hr = ppenum->Next(1,&pidlItems, &celtFetched) == S_OK && (celtFetched) == 1)
{
pConnections->GetDisplayNameOf(pidlItems, SHGDN_INFOLDER, &str_curr_connection_name);
StrRetToBuf(&str_curr_connection_name, pidlItems, curr_connection_name, MAX_PATH);
if(!strcmp(curr_connection_name,connection_name))
goto found;
}
MessageBox(NULL, "Имя соединения не найдено", "ОК!", MB_ICONERROR);
return 0;
found:
/* Append PIDLs */
full_pid=Append(pidConnections,pidlItems);
SetCurrentDirectory(desktop_path);
if(!CreateShortCut(link_name, full_pid, "C:\\windows", 0, SW_SHOWNORMAL))
return 0;
ppenum->Release();
pMalloc->Free(pidlItems);
pMalloc->Free(pidConnections);
pMalloc->Release();
pConnections->Release();
CoUninitialize();
return 1;
}
bool __fastcall CreateShortCut(LPWSTR pwzShortCutFileName, LPCITEMIDLIST pidl,
LPTSTR pszWorkingDirectory, WORD wHotKey, int iCmdShow)
{
IShellLink * pSL;
IPersistFile * pPF;
HRESULT hRes;
hRes = CoCreateInstance(CLSID_ShellLink, 0,CLSCTX_INPROC_SERVER,
IID_IShellLink, (LPVOID *)&pSL);
if( SUCCEEDED(hRes) )
{
hRes=pSL->SetIDList(pidl);
if(SUCCEEDED(hRes))
{
hRes = pSL->SetHotkey(wHotKey);
if( SUCCEEDED(hRes) )
{
hRes = pSL->SetShowCmd(iCmdShow);
if( SUCCEEDED(hRes) )
{
hRes = pSL->QueryInterface(IID_IPersistFile,(LPVOID *)&pPF);
if( SUCCEEDED(hRes) )
{
hRes = pPF->Save(pwzShortCutFileName,TRUE);
pPF->Release();
}
}
}
}
pSL->Release();
}
return SUCCEEDED(hRes);
}
/******************************************************************************/
/* Functions copied from http://msdn.microsoft.com */
LPITEMIDLIST GetNextItemID(LPCITEMIDLIST pidl)
{
// Check for valid pidl.
if(pidl == NULL)
return NULL;
// Get the size of the specified item identifier.
int cb = pidl->mkid.cb;
// If the size is zero, it is the end of the list.
if (cb == 0)
return NULL;
// Add cb to pidl (casting to increment by bytes).
pidl = (LPITEMIDLIST) (((LPBYTE) pidl) + cb);
// Return NULL if it is null-terminating, or a pidl otherwise.
return (pidl->mkid.cb == 0) ? NULL : (LPITEMIDLIST) pidl;
}
/* Get size of PIDL */
UINT GetSize(LPCITEMIDLIST pidl)
{
UINT cbTotal = 0;
if (pidl)
{
cbTotal += sizeof(pidl->mkid.cb); // Terminating null character
while (pidl)
{
cbTotal += pidl->mkid.cb;
pidl = GetNextItemID(pidl);
}
}
return cbTotal;
}
/* Appending PIDLs */
LPITEMIDLIST Append(LPCITEMIDLIST pidlBase, LPCITEMIDLIST pidlAdd)
{
if(pidlBase == NULL)
return NULL;
if(pidlAdd == NULL)
return (LPITEMIDLIST)pidlBase;
LPITEMIDLIST pidlNew;
UINT cb1 = GetSize(pidlBase) - sizeof(pidlBase->mkid.cb);
UINT cb2 = GetSize(pidlAdd);
pidlNew = (LPITEMIDLIST)pMalloc->Alloc(cb1 + cb2);
if (pidlNew)
{
CopyMemory(pidlNew, pidlBase, cb1);
CopyMemory(((LPSTR)pidlNew) + cb1, pidlAdd, cb2);
}
return pidlNew;
}
размер выходного файла сжатого upx 24кб..
(антивирусы на ехе файл не ругаются)
компилить можно через cl.exe (visual c++ 2008)
Иконки, и прочую информацию добавите сами
Код: Выделить всё
if(!CreateShortCut(link_name, full_pid, "C:\\windows", 0, SW_SHOWNORMAL))плюс не нравится оператор goto.. заменить на булевую переменную, и добавить if.. типа
Код: Выделить всё
...
bool found = false;
...
/* Loop for searching our connection */
while(hr = ppenum->Next(1,&pidlItems, &celtFetched) == S_OK && (celtFetched) == 1)
{
pConnections->GetDisplayNameOf(pidlItems, SHGDN_INFOLDER, &str_curr_connection_name);
StrRetToBuf(&str_curr_connection_name, pidlItems, curr_connection_name, MAX_PATH);
if(!strcmp(curr_connection_name,connection_name))
found = true;
}
if (!found)
{
MessageBox(NULL, "Имя соединения не найдено", "ОК!", MB_ICONERROR);
return 0;
}
/* Append PIDLs */
full_pid=Append(pidConnections,pidlItems);
SetCurrentDirectory(desktop_path);
if(!CreateShortCut(link_name, full_pid, "C:\\windows", 0, SW_SHOWNORMAL))
return 0;
. Либо через переменные среды раскрутить поиск...Код: Выделить всё
if(!CreateShortCut(link_name, full_pid, "%windir%", 0, SW_SHOWNORMAL))