vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
WLAN am PDA aktivieren 
Autor: tomtom2010
Datum: 01.06.07 01:22

Hi!

Bin auf der suche nach einer möglichkeit, die wlan antenne meines pda mit meinem programm einzuschalten.. ich hab das ganze schon einmal gepostet, jetzt aber was neues:
ich hab von einem typen von einer firma, die das in einem tool von denen gemacht hat den c++ code für das problem bekommen.. ich kann leider kein c/c++ und würde dringend hilfe brauchen: kann das wer übersetzen??

hier sein code mit erklärung:

Activating the WiFi adapter is really easy. I figured C/C++ code below. You
can activate using SetDevicePower API with PwrDeviceUnspecified to turn on
the WiFi.

----------------------------------------------------------
LONG SetAdapterPowerState(LPTSTR pszWLANAdapterName, BOOL bPowerOn)
{
LONG lRet = -1;
CEDEVICE_POWER_STATE Dx = PwrDeviceUnspecified;
TCHAR szName[MAX_PATH];
int nChars;

memset(szName, 0, MAX_PATH*sizeof(TCHAR));

// PMCLASS_NDIS_MINIPORT is defined in pm.h
nChars = _sntprintf(szName, MAX_PATH-1, _T("%s\\%s"),
PMCLASS_NDIS_MINIPORT, pszWLANAdapterName);
if(nChars != (-1))
lRet = SetDevicePower(szName, POWER_NAME, (bPowerOn?
PwrDeviceUnspecified : D4));

return lRet;
}
----------------------------------------------------------

In case of above way, at first, you have to find a WiFi adapter instance
name. It can be found using the RequestDeviceNotification and ReadMsgQueue
APIs like below.
----------------------------------------------------------
// Declear PMCLASS_NDIS_MINIPORT as a GUID.
static const GUID DEVCLASS_POWER_NDIS_MINIPORT_GUID = { 0x98C5250D,
0xC29A, 0x4985, {0xAE, 0x5F, 0xAF, 0xE5, 0x36, 0x7E, 0x50, 0x06} };

BOOL FindWiFiAdapter(LPTSTR pszWLANAdapterName, DWORD cchMaxNameLen)
{
BOOL bFound = FALSE;
BYTE pPNPBuf[MAX_DEVCLASS_NAMELEN];
MSGQUEUEOPTIONS msgopts = {0};
DEVDETAIL *pd = (DEVDETAIL*)pPNPBuf;
GUID guid = DEVCLASS_POWER_NDIS_MINIPORT_GUID;
HANDLE hMsgQueue;
HANDLE hDevNotify;
DWORD dwSize, dwFlags;

// Check parameters
if (!cchMaxNameLen || !pszWLANAdapterName)
{
// Error....
}

// Create a message queue
msgopts.dwSize = sizeof(MSGQUEUEOPTIONS);
msgopts.dwFlags = 0;
msgopts.dwMaxMessages = 0;
msgopts.cbMaxMessage = sizeof(pPNPBuf);
msgopts.bReadAccess = TRUE;

hMsgQueue = CreateMsgQueue(NULL, &msgopts);
if (hMsgQueue)
{
// Start DeviceNotification
hDevNotify = RequestDeviceNotifications(&guid, hMsgQueue, TRUE);
if (hDevNotify)
{
while (ReadMsgQueue(hMsgQueue, pd, sizeof(pPNPBuf), &dwSize, 0,
&dwFlags))
{
if (0 == memcmp(&pd->guidDevClass,
&DEVCLASS_POWER_NDIS_MINIPORT_GUID, sizeof(GUID)))
{
_tcsncpy(pszWLANAdapterName, pd->szName, cchMaxNameLen);
bFound = TRUE;
break;
}
}

StopDeviceNotifications(hDevNotify);
}
else
{
// Error....
}
CloseMsgQueue(hMsgQueue);
}

return bFound;
}
----------------------------------------------------------
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
WLAN am PDA aktivieren1.472tomtom201001.06.07 01:22

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel