| |

VB.NET - Ein- und UmsteigerWLAN 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;
}
---------------------------------------------------------- |  |
 WLAN am PDA aktivieren | 1.473 | tomtom2010 | 01.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 |
  |
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) sevAniGif (VB/VBA) 
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere Infos
|
|
|
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
|
|